如何获取图块里面所有图元?

hkzwsy

图块不炸开,如何获取图块里面所有图元?

alin

;;用法：(GetBlockEnts "AA")

2. (defun GetBlockEnts (bkname / ent enlst)
3.    (setq ent (tblobjname "block" bkname))
4.    (while (setq ent (entnext ent))
5.        (setq enlst (cons ent enlst))
6.        )
7.    )

(defun GetBlockEnts (bkname / ent enlst)    (setq ent (tblobjname "block" bkname))    (while (setq ent (entnext ent))        (setq enlst (cons ent enlst))        )    )

hkzwsy

谢谢!

行天下

楼主好走走看看转一转