[求助]：如何得到实体的类型

winabcd · 发表于 2004-11-5 11:07:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我用下列代吗得到实体集,
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.ActiveSelectionSet
ss.Clear
ss.Select acSelectionSetCrossing, p1, p2
但我没法知道实体集中每个实体的类型，请指教。

ntchjie · 发表于 2004-11-5 14:59:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

Set ss = ThisDrawing.ActiveSelectionSet
ss.Clear
ss.SelectOnScreen
For i = 0 To ss.Count - 1
sa = sa & vbCr & "sset.item(" & i & ")" & " " & ss.Item(0).EntityName
Next i
MsgBox (sa)

winabcd · 发表于 2004-11-9 10:55:50

问题解决了，谢谢ntchjie

dearjdz123 · 发表于 2004-11-12 18:19:36

不错的方法，多多学习呀，感谢！！！！！！！！！！

qiaqiadeng · 发表于 2006-1-18 13:17:29

请问斑竹objectname与EntityName有何区别，谢谢！

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

[求助]：如何得到实体的类型

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子