sharon，你的问题，你看看

Taoyimaier

有人问到：
您好！
请教您一个问题。如何用VBA从一个建好的*.dwg文件中把所有图元都提取出来?
谢谢！

我写了一下，
如下
Public Sub main()
Dim sset As AcadSelectionSets
Dim ss As AcadSelectionSet

Set sset = ThisDrawing.SelectionSets

If sset.Count > 0 Then
  For i = 0 To sset.Count - 1
     If UCase(sset.Item(i).Name) = "STARCRAFT" Then
        sset.Item(i).Clear
        sset.Item(i).Delete
        End If
        Next i
        End If
        
        Set ss = sset.Add("starcraft")
        ss.Select acSelectionSetAll
        
       ReDim total(0 To ss.Count - 1) As Object

        sscount = ss.Count
        For i = 0 To ss.Count - 1
            Set total(i) = ss.Item(i)
            totalobjtype(i) = ss.Item(i).n
           Next i
         '在这里设置一个断点，然后在监视窗口中看
          'total的值，其属性中不能获得图元名，甚至
          '类型我也没有能访问，只能在监视创口的上面看
End Sub

感觉没有什么意义，大家看一下，能不能在vba中找到实体的图元名，这个应该在
vlisp里很简单的，