列表一个匿名块中的所有匿名块

marting

1. (defun c:findnest2 ( / blk idx lst sel )
   
2.     (if (setq sel (ssget '((0 . "INSERT") (2 . "`*U*"))))
   
3.         (repeat (setq idx (sslength sel))
   
4.             (or (member (setq blk (cdr (assoc 2 (entget (ssname sel (setq idx (1- idx))))))) lst)
   
5.                 (foreach itm (getanonymousreferences blk)
   
6.                     (or (member itm lst) (setq lst (cons itm lst)))
   
7.                 )
   
8.             )
   
9.         )
   
10.     )
    
11.     (if lst (acad_strlsort lst))
    
12. )
    
13. (defun getanonymousreferences ( blk / ent enx lst tmp )
    
14.     (cond
    
15.         (   (assoc blk getanonymousreferences:cache))
    
16.         (   (setq ent (tblobjname "block" blk))
    
17.             (while (setq ent (entnext ent))
    
18.                 (and (setq enx (entget ent))
    
19.                      (= "INSERT" (cdr (assoc 0 enx)))
    
20.                      (wcmatch (setq tmp (cdr (assoc 2 enx))) "`*U*")
    
21.                      (not (member tmp lst))
    
22.                      (foreach itm (getanonymousreferences tmp)
    
23.                          (or (member itm lst) (setq lst (cons itm lst)))
    
24.                      )
    
25.                 )
    
26.             )
    
27.             (car (setq getanonymousreferences:cache (cons (cons blk lst) getanonymousreferences:cache)))
    
28.         )
    
29.     )
    
30. )

(defun c:findnest2 ( / blk idx lst sel )<br />     (if (setq sel (ssget '((0 . "INSERT") (2 . "`*U*"))))<br />         (repeat (setq idx (sslength sel))<br />             (or (member (setq blk (cdr (assoc 2 (entget (ssname sel (setq idx (1- idx))))))) lst)<br />                 (foreach itm (getanonymousreferences blk)<br />                     (or (member itm lst) (setq lst (cons itm lst)))<br />                 )<br />             )<br />         )<br />     )<br />     (if lst (acad_strlsort lst))<br /> )<br /> (defun getanonymousreferences ( blk / ent enx lst tmp )<br />     (cond<br />         (   (assoc blk getanonymousreferences:cache))<br />         (   (setq ent (tblobjname "block" blk))<br />             (while (setq ent (entnext ent))<br />                 (and (setq enx (entget ent))<br />                      (= "INSERT" (cdr (assoc 0 enx)))<br />                      (wcmatch (setq tmp (cdr (assoc 2 enx))) "`*U*")<br />                      (not (member tmp lst))<br />                      (foreach itm (getanonymousreferences tmp)<br />                          (or (member itm lst) (setq lst (cons itm lst)))<br />                      )<br />                 )<br />             )<br />             (car (setq getanonymousreferences:cache (cons (cons blk lst) getanonymousreferences:cache)))<br />         )<br />     )<br /> )

令: findnest2

选择对象: 找到 1 个

选择对象:
("*U2" "*U3" "*U4")

sicky111

沙发，谢谢分享。

yjch

好好学习天天向上，学习了

kqqt6236

学习一下。