高手到指导一下子，有个问题

lufan82

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类形的啊

莫名

[U]Dim aa As AcadPolyline[/U]
可以选取出来，但不是AcadPolyline 是AcadLWPolyline对象

lufan82

此地果然高手多,按照版主的方法搞定了,谢谢