|
|
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
我的问题是如何在兰色部分的遍历代码中,获得每个对象(圆)的圆心坐标? |
|
置顶卡
