急求助！mo制作线形图层

<P>请教各位高手！本人急需制作用户自定义的路线区域！</P>
<P>使用VB+MO2.2</P>
<P>区域已经实现，制作线形图层时能够顺利保存为shp文件，但是读出该图文件后却没有制作的线信息，不知为什么？或需要注意？</P>
<P>本人能找到对区域设定的例子，找不到线的例程，哪里有？</P>
<P>下面是我存储线层的代码：</P>
<P>Dim oTable As New MapObjects2.TableDesc    
With oTable
  .FieldCount = 1
  .FieldName(0) = "Name"
  .FieldType(0) = moString
  .FieldLength(0) = 16
end With
Set oDataset = oConnection.AddGeoDataset(sFileName, moShapeTypeLine, oTable)
    
If oDataset Is Nothing Then Exit Sub
    Set oLayer.GeoDataset = oDataset
    For lPoly = 0 To Map1.TrackingLayer.EventCount - 1
        If Map1.TrackingLayer.Event(lPoly).Shape.shapeType = moShapeTypeLine Then
            With oLayer.Records
              .AddNew
              .Fields("Shape").Value = Map1.TrackingLayer.Event(lPoly).Shape                    .Fields("Name").Value = "Name " ; lPoly
              .Update
            End With
        End If
    Next
    oLayer.Records.StopEditing
</P>
<P>请高手指点或告知一些例程，万分感谢！！</P>

<P>要制作线符号，利用线符号来渲染线？</P><P>你使用mo symble这个控件来做看看，看论坛顶贴有个符号编辑器的贴</P>

<P>谢谢!</P><P>但是我的目的不是对图层的显示效果，而是需要存为shp文件用以调入，目前我急需知道的是如何才能有效地将用户自定义的线的shape存成文件，我已经试了两天都没有找到理想的方法，主要是保存后文件中的shape一直为null,不知道如何存才是有效的？</P><P>再次谢谢！</P>

<P>那你是问错了</P><P>你可以保存为一个工程文件来打开</P><P><a href="http://gisempire.com/bbs/dispbbs.asp?boardID=39;ID=37132;page=1" target="_blank" >http://gisempire.com/bbs/dispbbs.asp?boardID=39;ID=37132;page=1</A></P>

<img src="http://www.gisempire.com/bbs/Skins/default/topicface/face6.gif"><img src="http://www.gisempire.com/bbs/Skins/Default/emot/em01.gif">

谢谢！我的问题已经解决，不过这是个很有用的东东，再次感谢！

<img src="images/post/smile/dvbbs/em01.gif" />