请问,关于选择集的使用

zhu1

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

雪山飞狐_lzh

Center属性