CAD VBA 获取模型空间中的第一个图元类型

'CAD 二次开发

Sub 第一个图元类型()

On Error Resume Next

Dim entity As AcadEntity

If ThisDrawing.ModelSpace.Count <> 0 Then

Set entity = ThisDrawing.ModelSpace.Item(0)

MsgBox entity.ObjectName + " 是模型空间中第一个图元"

Else

MsgBox "此空间无图元"

End If

End Sub