alearner
路人甲
路人甲
  • 注册日期2006-09-11
  • 发帖数74
  • QQ
  • 铜币433枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:2245回复:3

请教:我把一条Polyline分为很多segment时遇到的问题。代码如下

楼主#
更多 发布于:2007-03-07 07:49
' 第一部分,选取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" />
喜欢0 评分0
42176374
路人甲
路人甲
  • 注册日期2006-04-21
  • 发帖数2
  • QQ
  • 铜币112枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2007-07-16 10:11
<P>肯定不行啦!</P>
<P>POLYLINE只能转化成SEGMENTCOLLECTION,不能转化成SEGMENT。</P>
举报 回复(0) 喜欢(0)     评分
whmwxhanshan123
路人甲
路人甲
  • 注册日期2006-06-17
  • 发帖数3108
  • QQ
  • 铜币6445枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2007-07-16 18:49
<img src="images/post/smile/dvbbs/em01.gif" />
举报 回复(0) 喜欢(0)     评分
cjwayne
路人甲
路人甲
  • 注册日期2007-07-25
  • 发帖数11
  • QQ
  • 铜币129枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2007-07-27 10:54
支持2楼
举报 回复(0) 喜欢(0)     评分
游客

返回顶部