[VBA]请问怎么判断多段线内部的岛或孔?

arden

我在计算统计面积时怎么判断多段线内部的岛或孔然后将岛或孔的面积扣除?

今晚打老虎

用多段线选择一下，把选中的对象的面积除去


建立个AcadSelectSet


然后SelectByPolygon


你看看行么？

arden

"用多段线选择一下，把选中的对象的面积除去"


关键是怎样才能选中对象?岛是多段线而岛外围还是多段线,请详细些

今晚打老虎

Sub sSelect()
Dim objSelect As AcadSelectionSet
'dpnts 就是多段线的控制点集
Dim dPnts(0 To 14) As Double
dPnts(0) = 0: dPnts(1) = 0: dPnts(2) = 0
dPnts(3) = 50: dPnts(4) = 0: dPnts(5) = 0
dPnts(6) = 50: dPnts(7) = 50: dPnts(8) = 0
dPnts(9) = 0: dPnts(10) = 50: dPnts(11) = 0
dPnts(12) = 0: dPnts(13) = 0: dPnts(14) = 0

Set objSelect = ThisDrawing.SelectionSets.Add("temp11")

objSelect.SelectByPolygon acSelectionSetWindowPolygon, dPnts

'选择的所有内部的对象
MsgBox objSelect.Count
End Sub

arden

非常感谢 今晚打老虎 你的意思是不是把多段线的端点做窗口选择?不过Dim dPnts(0 To 14) As Double中 dPnts的个数是不定的,怎样动态定义其大小?

efan2000

使用动态数组


Dim dPnts() As Double


ReDim dPnts(0 To 14)

雪山飞狐_lzh

直接按点求边界不就行了