lufan82 发表于 2005-12-15 18:49:00

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

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

莫名 发表于 2005-12-15 21:52:00

<P>Dim aa As AcadPolyline<BR>可以选取出来，但不是AcadPolyline 是AcadLWPolyline对象<BR></P>

lufan82 发表于 2005-12-16 10:22:00

此地果然高手多,按照版主的方法搞定了,谢谢
页: [1]
查看完整版本: 高手到指导一下子，有个问题