xdto 发表于 2008-2-28 12:40:00

如何取出嵌套块中所有子图元的数据？？

<font face="宋体" size="2">如何取出嵌套块中所有子图元的数据？？<br/>根以下代码只能得到最外层的数据,<br/>但所有内层的子块及子图元仍无法取得,哪位兄弟指点指点??<br/><br/>(defun c:gbf (/ a )<br/>(setq a (car (entsel "\n选取嵌套块:")))<br/>(setq sa (entget a))<br/>(setq named (cdr (assoc 2 sa))) ;获取块名<br/>(setq head (tblsearch "BLOCK" named))<br/>(setq entname (cdr (assoc -2 head))) ;取出块中第一个子图元名<br/>(while (/= entname nil)<br/>(setq ent (entget entname))<br/>(print ent)<br/>(setq entname(entnext entname))<br/>);_end while <br/>)</font>

ygp820601 发表于 2013-12-22 18:30:22

用递归函数可以解决。

pxt2001 发表于 2023-12-22 09:18:31

请参考：
利用nentsel选择嵌套块中一个圆，如何获取圆心坐标数据
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=93216&fromuid=288402
页: [1]
查看完整版本: 如何取出嵌套块中所有子图元的数据？？