求助：生成的shape文件不显示，在ArcMap加入生成的shape文件后，能查到属性数据，但就是不显示图形

<P>各位好：</P>
<P>我利用AddGeoDataset的方法生成了新的shape文件，但是在我的系统中不显示不像；在ArcMap下加载后也不显示，不过可以查询到属性数据。不知道为什么不显示图像！请各位帮忙！</P>
<P>主要代码如下：</P>
<P>Dim desc As New TableDesc<BR>Dim gds As MapObjects2.GeoDataset<BR>Dim sLayerName As String<BR>Dim LPouMianTu As New MapObjects2.MapLayer<BR>Dim PouCircle As MapObjects2.Ellipse</P>
<P>With desc<BR>        .FieldCount = 4<BR>        .FieldName(0) = "管线类型"<BR>        .FieldName(1) = "材质"<BR>        .FieldName(2) = "半径"<BR>        .FieldName(3) = "埋深"<BR>        <BR>        .FieldType(0) = moString<BR>        .FieldType(1) = moString<BR>        .FieldType(2) = moDouble<BR>        .FieldType(3) = moDouble<BR>        <BR>        .FieldLength(0) = 16<BR>        .FieldLength(1) = 8<BR>        .FieldPrecision(2) = 15<BR>        .FieldScale(2) = 3<BR>        .FieldPrecision(3) = 15<BR>        .FieldScale(3) = 3<BR>    End With<BR>    <BR>    LayerName = "剖面图"<BR>    Set gds = dc.AddGeoDataset(LayerName, moShapeTypePolygon, desc)<BR>    Set LPouMianTu.GeoDataset = gds</P>
<P>                         With LPouMianTu.Records<BR>                                .AddNew<BR>                                .Fields("shape").Value = PouCircle<BR>                                .Fields("管线类型").Value = Map1.Layers(ilayer).Name<BR>                                .Fields("材质").Value = RecPouLayer.Fields("材质").Value<BR>                                .Fields("半径").Value = RecPouLayer.Fields("管径").Value<BR>                                .Fields("埋深").Value = RecPouLayer.Fields("埋深").Value<BR>                                .Update<BR>                                .StopEditing<BR>                            End With</P>

没有实验过，但是你的代码没有写怎么设置PouCircle的，还是就是没有定义，如果定义了，试试先转换成polygon的。把问题细分化，然后一个一个解决。好运！

我也遇到这个问题啊,现在还没解决呢!!知道的帮忙下啊,不胜感激!!

<P>给位大侠们，有知道的请指教！</P>