|
Sub aa()
Dim aaa As AcadEntity
Dim aa As AcadPolyline
Dim sset As AcadSelectionSet
Dim f1(1) As Integer
Dim f2(1) As Variant
Set sset = ThisDrawing.SelectionSets.Add("tt")
f1(0) = 8
f2(0) = "0001"
f1(1) = 0
f2(1) = "Polyline"
sset.Select acSelectionSetAll, , , f1, f2
For Each aaa In sset
Set aa = aaa
Next
End Sub
这样取某一层的一个多边形为什么取不出来啊
msgbox aaa.objectname打印出来是Polyline类形的啊
|
|