如何遍历块的子图元？

jxlcrystal · 发表于 2004-11-24 09:17:00

如何遍历块的子图元？我查了alisp的函数查询手册，上面说entnext可以，但是我试下来不行。

meflying · 发表于 2004-11-24 09:36:00

你怎么试的？看看你的代码先，，，

jxlcrystal · 发表于 2004-11-24 11:05:00

先新建一个dwg文档，然后仅copy一个块到这个文档，以下是我打入的命令和执行结构： Command: (setq a (car (entsel))) ；选择文档中仅有的那个块
Select object: <Entity name: 4006aeb8>
Command: (entnext a)
nil

meflying · 发表于 2004-11-24 11:36:00

这个是INSERT对象，不是块，它只是引用了块而已，，，

块对象这样得到

(tblobjname "block" (cdr (assoc 2 (entget (car (entsel))))));后面这一大串是获得块名，你可以直接使用块名代替

jxlcrystal · 发表于 2004-11-24 12:12:00

谢谢，恍然大悟啊！

SWAYWOOD · 发表于 2004-11-24 12:24:00

恍然大悟？我不太明白，返回的是一个块名阿

meflying · 发表于 2004-11-24 12:42:00

SWAYWOOD发表于2004-11-24 12:24:00恍然大悟？我不太明白，返回的是一个块名阿

返回块名？不知道你怎么返回的，这里我可以肯定的说，即使会出错，再怎么样也不可能返回块名，这里返回的是块对象的对象名。。。

SWAYWOOD · 发表于 2004-11-25 12:34:00

说错了，是块的对象名，呵呵

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