[VBA程序]：请教如何从标注对象找到实体？

一万年 · 发表于 2005-8-24 09:34:12

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

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

×

比如选择了一条直线的标注，如何用VBA从标注找到这个直线对象呢？

多谢~

雪山飞狐(lzh) · 发表于 2005-8-24 11:13:59

标注点在直线的端点上么？如果在，可以用选择集实现，不过在作图不规范的情况下就没办法了

一万年 · 发表于 2005-8-24 14:23:52

标注规范，是在直线的端点上，如何实现呢？
能详细说说么？
麻烦了

雪山飞狐(lzh) · 发表于 2005-8-24 20:47:39

首先找到标注的两点p1,p2
[php]
Dim ss As AcadSelectionSet
Dim ft(9) As Integer, fd(9)
ft(0) = -4: fd(0) = "<And"
ft(1) = -4: fd(1) = "<or"
ft(2) = 10: fd(2) = p1
ft(3) = 11: fd(3) = p1
ft(4) = -4: fd(4) = "or>"
ft(5) = -4: fd(5) = "<or"
ft(6) = 10: fd(6) = p2
ft(7) = 11: fd(7) = p2
ft(8) = -4: fd(8) = "or>"
ft(9) = -4: fd(9) = "And>"

ThisDrawing.SelectionSets("Test").Delete
Set ss = ThisDrawing.SelectionSets.Add("Test")
ss.Select acSelectionSetAll, , , ft, fd
MsgBox ss.Count
[/php]

一万年 · 发表于 2005-8-26 08:20:33

谢谢~
不过，我想用vba代码阿，这个是php代码？
我看得不是很明白，里面没有涉及到尺寸标注的对象阿。
能否用vba表示一下？
再次感谢~

雪山飞狐(lzh) · 发表于 2005-8-26 20:37:01

晕，这就是vba代码

一万年 · 发表于 2005-8-27 09:07:52

见笑了，呵呵，我是新手，我再仔细看看代码

再次谢谢你！

chenlaolang · 发表于 2005-8-29 22:24:51

记住ID

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

[VBA程序]：请教如何从标注对象找到实体？

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

相关帖子