求助：怎样图块中所有子图元的图元名，谢谢

wangyao1052 · 发表于 2010-1-16 23:45:00

如题，望高手指点！！！！！！！！！！！！！！谢谢

sieben · 发表于 2010-1-17 19:14:00

(setq AcadApp   (vlax-get-acad-object)
      AcadDoc   (vla-get-ActiveDocument acadApp)
      Blocks   (vla-get-blocks acadDoc)
)

(setq block-object (vla-item blocks block-name))
(setq block-rep 0)
(repeat (vla-get-count block-object)
(setq ent-name (vlax-vla-object->ename (vla-item block-object block-rep)))
(setq block-rep (1+ block-rep))
)
//block-name:图块名
//ent-name:你要的图元名

未作测试,不包管用!呵呵!

wangyao1052 · 发表于 2010-1-17 19:29:00

谢谢！！！！完全正确！！！

感激涕零！！谢谢指点！！！

这个问题困扰了我很长时间，因为这方面的资料不多，而且也不好找！！！

wangyao1052 · 发表于 2010-1-17 19:43:00

但为什么用以下方法不行：

(setq ent (car (entsel)))
(setq block-object (vlax-ename->vla-object ent))
(vla-get-count block-object)

先通过点选的方法选择图块并将图块的图元名赋予ent

再将ent转换为VLA对象，为什么不能通过这个转换的对象访问子图元的信息

连（vla-get-count block-object）都会出错，vla-item函数也不能用于此对象

yshf · 发表于 2012-4-11 12:56:53

本帖最后由 yshf 于 2012-4-11 12:58 编辑

(setq AcadApp (vlax-get-acad-object)
AcadDoc (vla-get-ActiveDocument acadApp)
Blocks (vla-get-blocks acadDoc)
)
(setq block-object (vla-item blocks block-name))
(setq block-rep 0)
(repeat (vla-get-count block-object)
(setq ent-name (vlax-vla-object->ename (vla-item block-object block-rep)))
(setq block-rep (1+ block-rep))
)

★飞飛★ · 发表于 2012-8-14 13:09:00

好像还是求不出来的

millermin · 发表于 2012-12-20 10:22:11

马上就要有用了，留个书签。

434939575 · 发表于 2015-3-4 13:00:36

sieben 发表于 2010-1-17 19:14
(setq AcadApp   (vlax-get-acad-object)      AcadDoc   ( ...

请大神帮忙写个完整的，太高级了。看不懂，谢谢。

sieben · 发表于 2015-3-5 09:33:15

wangyao1052 发表于 2010-1-17 19:43
但为什么用以下方法不行：(setq ent (car (entsel)))(setq block-object (vlax-ename->vla-object ent))( ...

通过entsel选择到的是块参考BlockReference,而我上面代码获取的是块Block，两者是不一样的

sieben · 发表于 2015-3-5 09:33:48

434939575 发表于 2015-3-4 13:00
请大神帮忙写个完整的，太高级了。看不懂，谢谢。

我上面的代码已经算是完整了哦

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

求助：怎样图块中所有子图元的图元名，谢谢

浏览过的版块