如何用lisp提取块内的所有元素

tanjurun

如题，请高手指教

1993063

2. ;;也是本网站淘的
   
3. ;;; No.1-2  获取图块内的所有非图块对象(含嵌套块中的)名称 函数
   
4. ;;;***********************************************************
   
5. (defun getblkallent ( BLK / xblkname xblkdef entname1 enttype entlist)
   
6.   (setq xblkname (cdr (assoc 2 (entget BLK))))
   
7.   (setq xblkdef (tblobjname "Block" xblkname))
   
8.   (while (setq entname1 (entnext xblkdef))
   
9.     (setq enttype (cdr (assoc 0 (entget entname1))))
   
10.     (if (= enttype "INSERT")
    
11.       (setq entlist (append (getblkallent entname1) entlist))
    
12.       (setq entlist (cons entname1 entlist))
    
13.     )
    
14.     (setq xblkdef entname1)
    
15.   )
    
16.   entlist
    
17. )

;;也是本网站淘的<br /> ;;; No.1-2  获取图块内的所有非图块对象(含嵌套块中的)名称 函数<br /> ;;;***********************************************************<br /> (defun getblkallent ( BLK / xblkname xblkdef entname1 enttype entlist) <br />   (setq xblkname (cdr (assoc 2 (entget BLK))))<br />   (setq xblkdef (tblobjname "Block" xblkname))<br />   (while (setq entname1 (entnext xblkdef))<br />     (setq enttype (cdr (assoc 0 (entget entname1))))<br />     (if (= enttype "INSERT")<br />       (setq entlist (append (getblkallent entname1) entlist))<br />       (setq entlist (cons entname1 entlist))<br />     )<br />     (setq xblkdef entname1)<br />   )<br />   entlist<br /> )

Nico

就是这个，有空我试一下