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

abent · 发表于 2002-4-16 21:08:00

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

26140810 · 发表于 2023-7-8 21:03:05

0000000000

mccad · 发表于 2002-4-16 21:15:00

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 · 发表于 2002-4-16 21:19:00

26140810 · 发表于 2023-7-8 20:55:29

。。。。。。

26140810 · 发表于 2023-7-8 20:57:49

。。。。。。

26140810 · 发表于 2023-7-8 21:01:32

..........

26140810 · 发表于 2023-7-8 21:05:07

。。。。。。。。。。

26140810 · 发表于 2023-7-8 21:09:13

..........

26140810 · 发表于 2023-7-11 15:26:59

..........

账号		自动登录	找回密码
密码			注册

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

使用ObjectName

谢谢斑竹！[空]