根据范围选择对象

xiezhengting

各位大侠：我知道思路就是不会写，请帮帮忙啊。
思路：1，获取Polyline对象；2，获取Polyline线上的每个节点；3，根据获得的节点坐标设置选择集范围

xiezhengting

小弟，真的急用。这里还有个问题就是给多段线赋高程值。

ywlm

1.     <CommandMethod("qjxz")> _
   
2.     Public Sub 圈交范围内选择()
   
3.         Dim optEntity As New PromptEntityOptions("选择多段线:")
   
4.         With optEntity
   
5.             .AllowNone = True
   
6.             .AllowObjectOnLockedLayer = False
   
7.             .SetRejectMessage("所选对象不是多段线")
   
8.             .AddAllowedClass(GetType(Polyline), True)
   
9.         End With
   
10.         Dim resEntity As PromptEntityResult = ed.GetEntity(optEntity)
    
11.         If resEntity.Status <> PromptStatus.OK Then Return
    
12. 
    
13.         Dim ent As Polyline = GetEntity(resEntity.ObjectId)
    
14. 
    
15.         Dim Pts As New Point3dCollection
    
16.         ent.GetStretchPoints(Pts)
    
17.         If Pts.Count = 0 Then Return
    
18.         Dim resSelect As PromptSelectionResult = ed.SelectCrossingPolygon(Pts)
    
19.         ed.SetImpliedSelection(resSelect.Value.GetObjectIds)
    
20. 
    
21.     End Sub

    <CommandMethod("qjxz")> _<br />     Public Sub 圈交范围内选择()<br />         Dim optEntity As New PromptEntityOptions("选择多段线:")<br />         With optEntity<br />             .AllowNone = True<br />             .AllowObjectOnLockedLayer = False<br />             .SetRejectMessage("所选对象不是多段线")<br />             .AddAllowedClass(GetType(Polyline), True)<br />         End With<br />         Dim resEntity As PromptEntityResult = ed.GetEntity(optEntity)<br />         If resEntity.Status <> PromptStatus.OK Then Return<br /> <br />         Dim ent As Polyline = GetEntity(resEntity.ObjectId)<br /> <br />         Dim Pts As New Point3dCollection<br />         ent.GetStretchPoints(Pts)<br />         If Pts.Count = 0 Then Return<br />         Dim resSelect As PromptSelectionResult = ed.SelectCrossingPolygon(Pts)<br />         ed.SetImpliedSelection(resSelect.Value.GetObjectIds)<br /> <br />     End Sub

xiezhengting

ywlm 发表于 2011-8-17 11:57

这里没有写获取节点坐标吧？我是新手，没看懂