求助:如何按顺序指定选择集内的元素?
<p>求助:如何按顺序指定选择集内的元素?</p><p> Dim objText As AcadText</p><p> While n > 0</p><p> Set objText = ObjSelectionSet.Item(n - 1)</p><p> n = n - 1<br/> Wend<br/> <br/> End Sub</p><p>要指定n=1,n=2的字</p>
页:
[1]