[讨论]：递归调用在遍历嵌套块中图元的应用

netbee

当你需要遍历一个嵌套块中所有你需要的图元时，用递归法调用函数是一个很好的方法。
我是在桩位编号程序中使用它，需要识别特定的桩位块，并将其坐标值加入坐标表。

函数如下

2. 
   
3.     ;;递归
   
4.     (defun getlist (sname pt cang / e1)
   
5.       ;;由于块插入点是前一层图块的插入点，所以将其作为参数传入。
   
6.       (if (= (dxf 0 sname) "INSERT")
   
7.         (progn
   
8.           (setq        ty(dxf 2 sname) )
   
9.           ;;判断是不是自己需要的图元(这里我需要图块名)
   
10.           (if (or (= ty "_FZ_K")
    
11.                   (= ty "_FZ_S")
    
12.                   (= ty "_YZ_K")
    
13.                   (= ty "_YZ_S")
    
14.               ) ;_ 结束or
    
15.             ;;若是桩且表中没有数据则添加
    
16.             (if        (not (member (trans(PointAB->XY
    
17.                                     pt
    
18.                                     cang
    
19.                                     1
    
20.                                     (dxf 10 sname)
    
21.                                   )0 1)
    
22. 　　　　　　　　　　　　　　　　sszwd))
    
23.               (setq ctang (dxf 50 sname)
    
24.                     sszwd (append
    
25.                             sszwd
    
26.                             (list (trans(PointAB->XY
    
27.                                     pt
    
28.                                     cang
    
29.                                     1
    
30.                                     (dxf 10 sname)
    
31.                                   )0 1)
    
32.                             ) ;_ 结束list
    
33.                           ) ;_ 结束append
    
34.               ) ;_ 结束setq
    
35.              
    
36.             ) ;_ 结束if
    
37.             ;;若不是桩则再取其子图元并再判断
    
38.             (progn
    
39.               (setq bnl (append (list (dxf 2 sname))bnl)
    
40.                 e1 (tblobjname "block" (dxf 2 sname)))
    
41.               ;;遍历整个块
    
42.               (while (= (type (setq e1 (entnext e1))) 'ENAME)
    
43.                 (getlist e1
    
44.                          (PointAB->XY
    
45.                                     pt
    
46.                                      cang
    
47.                                     1
    
48.                                     (dxf 10 sname)
    
49.                                   )
    
50.                          
    
51.                          (+ cang(dxf 50 sname))
    
52.                          )
    
53.               ) ;_ 结束while
    
54.             )
    
55.           )
    
56.         )
    
57.       )
    
58.     )
    

<br />     ;;递归<br />     (defun getlist (sname pt cang / e1)<br />       ;;由于块插入点是前一层图块的插入点，所以将其作为参数传入。<br />       (if (= (dxf 0 sname) "INSERT")<br />         (progn<br />           (setq        ty(dxf 2 sname) )<br />           ;;判断是不是自己需要的图元(这里我需要图块名)<br />           (if (or (= ty "_FZ_K")<br />                   (= ty "_FZ_S")<br />                   (= ty "_YZ_K")<br />                   (= ty "_YZ_S")<br />               ) ;_ 结束or<br />             ;;若是桩且表中没有数据则添加<br />             (if        (not (member (trans(PointAB->XY<br />                                     pt<br />                                     cang<br />                                     1<br />                                     (dxf 10 sname)<br />                                   )0 1)<br /> 　　　　　　　　　　　　　　　　sszwd))<br />               (setq ctang (dxf 50 sname)<br />                     sszwd (append<br />                             sszwd<br />                             (list (trans(PointAB->XY<br />                                     pt<br />                                     cang<br />                                     1<br />                                     (dxf 10 sname)<br />                                   )0 1)<br />                             ) ;_ 结束list<br />                           ) ;_ 结束append<br />               ) ;_ 结束setq<br />               <br />             ) ;_ 结束if<br />             ;;若不是桩则再取其子图元并再判断<br />             (progn<br />               (setq bnl (append (list (dxf 2 sname))bnl)<br />                 e1 (tblobjname "block" (dxf 2 sname)))<br />               ;;遍历整个块<br />               (while (= (type (setq e1 (entnext e1))) 'ENAME)<br />                 (getlist e1<br />                          (PointAB->XY<br />                                     pt<br />                                      cang<br />                                     1<br />                                     (dxf 10 sname)<br />                                   )<br />                          <br />                          (+ cang(dxf 50 sname))<br />                          )<br />               ) ;_ 结束while<br />             )<br />           )<br />         )<br />       )<br />     )<br />

调用方法：

1. (getlist ee '(0 0 0) 0)

复制代码

注：1。其中PointAB->XY函数是坐标转换函数，在我的［坐标标注］程序中有。由于块内图元使用的是对象坐标，所以需要转换。
　　2。由于ee块是最外层块，所以调用时其所属块插入点坐标参数为(0 0 0)，方位角为0。

啵浪鼓

嗯,瞒不错的,有文有图,强力支持!

jx2008

不错哦，继续