[LISP函数]：【求助】如何取多层嵌套表中的原子？

jx2008

有如下一种结构的表，怎样才能分层次的取得相应图元名，然后entget该图元名的数据库。

表的层次，可能不止三层。

(((<图元名: 7ef671b0> . 2)                                                                                                  ;最外层图块图元名及其内部包含的图块数
   (((<图元名: 7ef671a8> . 4)                                                                                               ;第二层的第一个图块图元名及其内部包含的实体数
      (<图元名: 7ef670b0> <图元名: 7ef670a8> <图元名: 7ef670a0> <图元名:  7ef67098>) ;实体图元名表
    )
     ((<图元名: 7ef671a0> . 2)                                                                                              ;第二层的第二个图块图元名及其内部包含的图块数
       (((<图元名: 7ef67108> . 3)                                                                                           ;第三层的第一个图块图元名及其内部包含的实体数
   (<图元名: 7ef50ec0> <图元名: 7ef50eb8> <图元名: 7ef50eb0>)                                      ;实体图元名表
)
  ((<图元名: 7ef67100> . 4)                                                                                                  ;第三层的第二个图块图元名及其包含的实体数
    (<图元名: 7ef670b0> <图元名: 7ef670a8> <图元名: 7ef670a0> <图元名: 7ef67098>)     ;实体图元名表
  )
       )
     )
   )
)
)

taner

最初由 jx2008 发布
[B]有如下一种结构的表，怎样才能分层次的取得相应图元名，然后entget该图元名的数据库。

表的层次，可能不止三层。

(((<图元名: 7ef671b0> . 2)                                                              ... [/B]

看看这个对你有没有用。以后请你不要发错版块！

2. 
   
3.   [FONT=courier new]
   
4. ;;; ==================================================================
   
5. ;;;blkname为块名
   
6. (defun th_subelst_blk (blkname / blk lst)
   
7.   (setq blk (vla-item (th-doccollection 'blocks) blkname))
   
8.   (setq lst (list blkname))
   
9.   (vlax-for each blk (if (/= (vla-get-objectname each) "AcDbBlockReference")
   
10.                        (setq lst (cons each lst))
    
11.                        (setq lst (cons (th_subelst_blk (vla-get-name each)) lst))
    
12.                      )
    
13.   )
    
14.   (reverse lst)
    
15. )
    
16. ;;; ==================================================================
    
17. (defun th-doccollection (typename)
    
18.   (vlax-get-property (thactdoc) typename)
    
19. )
    
20. (defun thacadobj ()
    
21.   (cond
    
22.     (%$*thacadobj*$%)
    
23.     (setq %$*thacadobj*$% (vlax-get-acad-object))
    
24.   )
    
25. )
    
26. (defun thactdoc ()
    
27.   (cond
    
28.     (%$*thactdoc*$%)
    
29.     (setq %$*thactdoc*$% (vla-get-activedocument (thacadobj)))
    
30.   )
    
31. )
    
32. ;;; ==================================================================
    
33.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; ==================================================================<br /> ;;;blkname为块名<br /> (defun th_subelst_blk (blkname / blk lst)<br />   (setq blk (vla-item (th-doccollection 'blocks) blkname))<br />   (setq lst (list blkname))<br />   (vlax-for each blk (if (/= (vla-get-objectname each) "AcDbBlockReference")<br />                        (setq lst (cons each lst))<br />                        (setq lst (cons (th_subelst_blk (vla-get-name each)) lst))<br />                      )<br />   )<br />   (reverse lst)<br /> )<br /> ;;; ==================================================================<br /> (defun th-doccollection (typename)<br />   (vlax-get-property (thactdoc) typename)<br /> )<br /> (defun thacadobj ()<br />   (cond<br />     (%$*thacadobj*$%)<br />     (setq %$*thacadobj*$% (vlax-get-acad-object))<br />   )<br /> )<br /> (defun thactdoc ()<br />   (cond<br />     (%$*thactdoc*$%)<br />     (setq %$*thactdoc*$% (vla-get-activedocument (thacadobj)))<br />   )<br /> )<br /> ;;; ==================================================================<br />   [/FONT]<br />

jx2008

2楼的返回的是vla的表。
我的意思不是这样的，2楼误解了，我已经返回来了这样的表，要怎么遍历这个表，取得对应图元名的值，比如，块内圆的圆心坐标。