请问,关于选择集的使用
Sub SSet()'On Error Resume Next
Dim SsetObj As AcadSelectionSet
Dim filterType(0) As Integer, FilterDate(0) As Variant
filterType(0) = 0
FilterDate(0) = "Circle"
ThisDrawing.SelectionSets("AA").Delete
Set SsetObj = ThisDrawing.SelectionSets.Add("AA")
SsetObj.SelectOnScreen filterType, FilterDate
Dim entry As AcadEntity
Dim p As Variant
For Each entry In SsetObj
entry.color = acCyan
entry.Update
Next entry
End Sub
我的问题是如何在兰色部分的遍历代码中,获得每个对象(圆)的圆心坐标? Center属性
页:
[1]