嵌套块的遍历，程序出错，请指正

chg

看了两个函数的解释，第一个ENTNEXT--可以通过调用entnext函数遍历复杂图元的子图元来访问复杂图元的内部结构；第二个tblnext--（tblnext “block" t)将返回块条目中的第一个块的块表，其中-2组，其组值是该块定义中的第一个图元的图元名（如果有的话)，并且可以被entnext函数接受，从而扫描组成块定义的各个图元。所以写了以下一个命令，但命令运行明显不对，请大家指教。

2. (defun c:aaa (/        firstblk bname bnamelist blklist cnt ename enamelist entlist nextent bname1 blk)
   
3.   (setq        firstblk  (tblnext "block" t)       
   
4.         bname          (cdr (assoc 2 firstblk))
   
5.         bnamelist (list bname)               
   
6.         ename          (cdr (assoc -2 firstblk))
   
7.         enamelist (list ename)               
   
8.         blk          (tblnext "block")
   
9.         cnt          0
   
10.         )
    
11.   (while blk
    
12.     (setq bname            (cdr (assoc 2 blk))
    
13.           bnamelist (append (list bname) bnamelist)
    
14.           ename            (cdr (assoc -2 blk))
    
15.           enamelist (append (list ename) enamelist)
    
16.           blk            (tblnext "block")
    
17.           )
    
18.     )
    
19.   (setq        bnamelist (reverse bnamelist)
    
20.         enamelist (reverse enamelist)
    
21.         bname          (nth cnt bnamelist)
    
22.         ename          (nth cnt enamelist)
    
23.         cnt          (1+ cnt)
    
24.         nextent          t
    
25.         )
    
26.   (while bname
    
27.     (while (setq nextent (entnext ename))
    
28.       (if nextent
    
29.         (progn
    
30.           (setq        ename        (cdr (assoc -1 (entget nextent)))
    
31.                 entsort        (cdr (assoc 0 (entget nextent)))
    
32.                
    
33.                 )
    
34.           (if (= entsort "INSERT")
    
35.             (setq bname1 (cdr (assoc 2 (entget nextent)))
    
36.                   blklist (append (list bname1) blklist)
    
37.                   )
    
38.             )
    
39.           )
    
40.         )
    
41.       )
    
42.     (setq bname        (nth cnt bnamelist)
    
43.           ename        (nth cnt enamelist)
    
44.           cnt        (1+ cnt)
    
45.           )
    
46.     )
    
47.   (princ blklist)
    
48.   (princ)
    
49.   )

(defun c:aaa (/        firstblk bname bnamelist blklist cnt ename enamelist entlist nextent bname1 blk)<br />   (setq        firstblk  (tblnext "block" t)        <br />         bname          (cdr (assoc 2 firstblk))<br />         bnamelist (list bname)                <br />         ename          (cdr (assoc -2 firstblk)) <br />         enamelist (list ename)                <br />         blk          (tblnext "block")<br />         cnt          0<br />         )<br />   (while blk<br />     (setq bname            (cdr (assoc 2 blk))<br />           bnamelist (append (list bname) bnamelist)<br />           ename            (cdr (assoc -2 blk))<br />           enamelist (append (list ename) enamelist)<br />           blk            (tblnext "block")<br />           )<br />     )<br />   (setq        bnamelist (reverse bnamelist)<br />         enamelist (reverse enamelist)<br />         bname          (nth cnt bnamelist)<br />         ename          (nth cnt enamelist)<br />         cnt          (1+ cnt)<br />         nextent          t<br />         )<br />   (while bname<br />     (while (setq nextent (entnext ename))<br />       (if nextent<br />         (progn<br />           (setq        ename        (cdr (assoc -1 (entget nextent)))<br />                 entsort        (cdr (assoc 0 (entget nextent)))<br />                 <br />                 )<br />           (if (= entsort "INSERT")<br />             (setq bname1 (cdr (assoc 2 (entget nextent)))<br />                   blklist (append (list bname1) blklist)<br />                   )<br />             )<br />           )<br />         )<br />       )<br />     (setq bname        (nth cnt bnamelist)<br />           ename        (nth cnt enamelist)<br />           cnt        (1+ cnt)<br />           )<br />     )<br />   (princ blklist)<br />   (princ)<br />   )

Gu_xl

(tblnext "block")==》(tblnext "block" nil)
另外遍历嵌套图块，你需要用到递归子程序才可以！

chg

那哪位高手有这个递归子程序？是否可以公开一下？

Gu_xl

;;;递归列出嵌套块

2. ;;;嵌套块定义列表 参数：块名
   
3. (defun listblock (blkname / rtn en enl name)
   
4.   (setq rtn (cons blkname rtn))
   
5.   (setq en (cdr (assoc -2 (tblsearch "block" blkname))))
   
6.   (setq enl (entget en))
   
7.   (if (= "INSERT" (cdr (assoc 0 enl)))
   
8.     (progn
   
9.       (setq name (cdr (assoc 2 enl)))
   
10.       ;;;此处使用了递归函数
    
11.       (setq rtn (cons (listblock name) rtn))
    
12.       )
    
13.     )
    
14.   
    
15.   (while (setq en (entnext en))
    
16.   (setq enl (entget en))
    
17.   (if (= "INSERT" (cdr (assoc 0 enl)))
    
18.     (progn
    
19.       (setq name (cdr (assoc 2 enl)))
    
20.       ;;;此处使用了递归函数
    
21.       (setq rtn (cons (listblock name) rtn))
    
22.       )
    
23.     )
    
24.    
    
25.     )
    
26. (reverse rtn)
    
27.   )
    

;;;嵌套块定义列表 参数：块名 <br /> (defun listblock (blkname / rtn en enl name)<br />   (setq rtn (cons blkname rtn))<br />   (setq en (cdr (assoc -2 (tblsearch "block" blkname))))<br />   (setq enl (entget en))<br />   (if (= "INSERT" (cdr (assoc 0 enl)))<br />     (progn<br />       (setq name (cdr (assoc 2 enl)))<br />       ;;;此处使用了递归函数<br />       (setq rtn (cons (listblock name) rtn))<br />       )<br />     )<br />   <br />   (while (setq en (entnext en))<br />   (setq enl (entget en))<br />   (if (= "INSERT" (cdr (assoc 0 enl)))<br />     (progn<br />       (setq name (cdr (assoc 2 enl)))<br />       ;;;此处使用了递归函数<br />       (setq rtn (cons (listblock name) rtn))<br />       )<br />     )<br />    <br />     )<br /> (reverse rtn)<br />   )<br />

chg

非常感谢Gu_xl 的帮助，困扰了多日的问题得以解决，

ahwx0814

很实用，可以根据需要 修改成适合自己的

yoyoho

感谢 Gu_xl 版主 递归列出嵌套块 程序分享,学习了!

mice6672

关注，有时间学习学习，谢谢版主。