Question

我用VB打开一个CAD文件，想要把这个文件里所有圆的中心点座标显示在VB界面上，应该怎么做？

Private Sub Command2_Click()
Dim A As Integer
Dim B As Integer
Dim C As String
A = AcadAPP.ActiveDocument.ModelSpace.Count '提取当前图形文件里图形的数量
For B = 0 To A - 1
C = AcadAPP.ActiveDocument.ModelSpace(B).ObjectName
List1.AddItem (B + 1 & ":" & C) '将每个图形的名称添加到列表框
'List2.AddItem ()
Next

End Sub
我得到了这个文件里图形的数量，我想把每个图形的座标写到LIST2里，不知道怎么写啊，哪位高手知道啊

Answer 1

首先遍历圆Circle特征，然后可以自动得到圆心坐标。直接Add就可以了！