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里,不知道怎么写啊,哪位高手知道啊