请问如何取得某个图形对象(如acadline)的类型信息？

abent

通过application.documents.document.modelSpace(伪码)取得了图形集合，我想得到这个集合中的每个图形的类型信息(比如是line还是circle)，并以此分别进行处理，请问使用什么方法，谢谢各位大侠指教？

26140810

0000000000

mccad

Dim objName As String
    Dim 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

abent

26140810

。。。。。。

26140810

。。。。。。

26140810

..........

26140810

。。。。。。。。。。

26140810

..........

26140810

..........