[求助]：如何取出嵌套块中所有子图元的数据？？

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
)

my_cheung

用entnext函数
(setq a (car (entsel "\n选取嵌套块:")))
(while (setq a (entnext a))
......
);_end while