阅读:2245回复:3
请教:我把一条Polyline分为很多segment时遇到的问题。代码如下
' 第一部分,选取FID=2的feature。在图中,该feature是一条Polyline
<P>Dim pWSFact As IWorkspaceFactory<BR>Set pWSFact = New ShapefileWorkspaceFactory<BR>Dim pFeatureWorkspace As IFeatureWorkspace<BR>Set pFeatureWorkspace = pWSFact.OpenFromFile("D:\exercise of gis", Application.hWnd)<BR>' Find the states feature class<BR>Dim pFeatureClass As IFeatureClass<BR>Set pFeatureClass = pFeatureWorkspace.OpenFeatureClass("dungou")<BR>Dim pFeature As IFeature<BR>Set pFeature = pFeatureClass.GetFeature(2)</P> <P><BR>' 第二部分,把选取的对象分为很多segment。在调试时,问题出在“Set pS = pLine”这一句,错误提示“类型不匹配”。</P> <P>' 请问怎么解决这个问题?</P> <P>Dim pLine As IPolyline<BR>Set pLine = pFeature<BR>Dim pS As ISegment<BR>Set pS = pLine<BR>Dim nn As Double<BR>nn = 0.001<BR>Dim pSeg(1000) As ISegment<BR>Dim n As Long<BR>pS.SplitDivideLength 0, 0.001, True, n, pSeg(0)<BR>MsgBox n</P><img src="images/post/smile/dvbbs/em30.gif" /><img src="images/post/smile/dvbbs/em30.gif" /><img src="images/post/smile/dvbbs/em30.gif" /> |
|
1楼#
发布于:2007-07-16 10:11
<P>肯定不行啦!</P>
<P>POLYLINE只能转化成SEGMENTCOLLECTION,不能转化成SEGMENT。</P> |
|
2楼#
发布于:2007-07-16 18:49
<img src="images/post/smile/dvbbs/em01.gif" />
|
|
3楼#
发布于:2007-07-27 10:54
支持2楼
|
|