muhanleek 发表于 2011-1-11 20:55:05

如何获得块中子图元

如何在不炸碎块的情况下获得块中各个子图元，并改变它们的显示顺序

Gu_xl 发表于 2011-1-11 21:19:57

本帖最后由 Gu_xl 于 2011-1-11 21:22 编辑


;;;选择图块子图元前端显示
(defun c:tt ( / doc blk)
(setq ent (car (nentsel "\n选择子图元：")))
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
ent (vlax-ename->vla-object ent)
blk (vla-ObjectIdToObject doc (vla-get-OwnerID ent))
)
(vla-copy ent)
(vla-Delete ent)
(command "_regen")
)


muhanleek 发表于 2011-1-11 21:33:12

一张图中有很多这样的块我要一一做调整，另外如何用程序获得块内子图元eName

Gu_xl 发表于 2011-1-11 22:33:48

本帖最后由 Gu_xl 于 2011-1-11 22:34 编辑

muhanleek 发表于 2011-1-11 21:33 http://bbs.mjtd.com/static/image/common/back.gif
一张图中有很多这样的块我要一一做调整，另外如何用程序获得块内子图元eName
获得块内子图元
(setq ent (car (nentsel "\n选择子图元：")))

muhanleek 发表于 2011-1-12 07:50:13

我图上有10000个需要处理的块，难道我必须NENTSEL10000次吗

muhanleek 发表于 2011-1-12 07:52:22

我图上有10000个需要处理的块，难道我必须NENTSEL10000次吗，如何象SSGET那样建选择集批量处理

luowy 发表于 2011-1-12 09:28:20

如果不是匿名块，改一个块参照就可以啦～～

Gu_xl 发表于 2011-1-12 09:50:13

回复 muhanleek 的帖子

同名块只改一次，其他自动改变！

muhanleek 发表于 2011-1-12 21:38:28

我要置于块的最底层的是一个WIPEOUT对象，而且和块内其他子图元重叠着，用NENTSEL根本选不中啊。。。。。

muhanleek 发表于 2011-1-12 21:40:21

我试过版主的，对于不重叠的子图元确实有用，但是如果是我那种情况，怎么用程序去做呢
页: [1] 2
查看完整版本: 如何获得块中子图元