请问如何取得某个图形对象(如acadline)的类型信息？
通过application.documents.document.modelSpace(伪码)取得了图形集合，我想得到这个集合中的每个图形的类型信息(比如是line还是circle)，并以此分别进行处理，请问使用什么方法，谢谢各位大侠指教？ 0000000000使用ObjectName
Dim objName As StringDim entry As AcadEntity
For Each entry In ThisDrawing.ModelSpace
objName = entry. Dim objName As String
Dim entry As AcadEntity
For Each entry In ThisDrawing.ModelSpace
objName = entry.ObjectName
entry.Highlight (True)
MsgBox "The name of this object is " & objName, vbInformation, "ObjectName Example"
entry.Highlight (False)
Next
entry.Highlight (True)
MsgBox "该对象的名称为" & objName, vbInformation, "ObjectName 示例"
entry.Highlight (False)
Next