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

xdto

如何取出嵌套块中所有子图元的数据？？
根以下代码只能得到最外层的数据,
但所有内层的子块及子图元仍无法取得,哪位兄弟指点指点??

(defun c:gbf (/ a )
(setq a (car (entsel "\n选取嵌套块:")))
(setq sa (entget a))
(setq named (cdr (assoc 2 sa))) ;获取块名
(setq head (tblsearch "BLOCK" named))
(setq entname (cdr (assoc -2 head))) ;取出块中第一个子图元名
(while (/= entname nil)
(setq ent (entget entname))
(print ent)
(setq entname(entnext entname))
);_end while
)

ygp820601

用递归函数可以解决。

pxt2001

请参考：
利用nentsel选择嵌套块中一个圆，如何获取圆心坐标数据
http://bbs.mjtd.com/forum.php?mo ... &fromuid=288402