16
48
1
初露锋芒
使用道具 举报
75
306
10
中流砥柱
Public Enum PolygonSelectType ''' ''' 圈交(实选) ''' ''' CrossingPolygon = 1 ''' ''' 圈围(范选) ''' ''' WindowPolygon = 2 End Enum Public Function SelectEntsByPolygon(ByVal objEditor As Editor, ByVal Pts As Point3dCollection, Optional ByVal sFilter As SelectionFilter = Nothing, Optional ByVal SelectType As PolygonSelectType = PolygonSelectType.CrossingPolygon) As ObjectId() Dim resSel As PromptSelectionResult = Nothing Select Case SelectType Case 1 If sFilter Is Nothing Then resSel = objEditor.SelectCrossingPolygon(Pts) Else resSel = objEditor.SelectCrossingPolygon(Pts, sFilter) End If Case 2 If sFilter Is Nothing Then resSel = objEditor.SelectWindowPolygon(Pts) Else resSel = objEditor.SelectWindowPolygon(Pts, sFilter) End If Case Else '暂时没有其它情况 End Select If resSel.Value Is Nothing Then Return New clsAADS.ObjectId() {} Else Return (resSel.Value.GetObjectIds()) End If End Function
7
19
3
初来乍到
84
543
12
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-3-15 16:21 , Processed in 0.552064 second(s), 72 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端