查找关联标注

eachy

1. (defun c:tt (/ ss sl ss1 e obj tf)
   
2.   (if (setq ss (ssget "X" '((0 . "dimension"))))
   
3.     (progn
   
4.       (setq sl        (sslength ss)
   
5.             ss1        (ssadd)
   
6.       )
   
7.       (while (setq e (ssname ss (setq sl (1- sl))))
   
8.         (setq obj (vlax-ename->vla-object e))
   
9.         (if (and (= (vla-get-hasextensiondictionary obj) :vlax-true)
   
10.                  (progn
    
11.                    (vlax-for d (vla-getextensiondictionary obj)
    
12.                      (if (= (vla-get-objectname d) "AcDbDimAssoc")
    
13.                        (setq tf t)
    
14.                      )
    
15.                    )
    
16.                    tf
    
17.                  )
    
18.             )
    
19.           (ssadd e ss1)
    
20.         )
    
21.       )
    
22.       (if (> (sslength ss) 0)
    
23.         (sssetfirst nil ss1)
    
24.       )
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )

(defun c:tt (/ ss sl ss1 e obj tf)<br />   (if (setq ss (ssget "X" '((0 . "dimension"))))<br />     (progn<br />       (setq sl        (sslength ss)<br />             ss1        (ssadd)<br />       )<br />       (while (setq e (ssname ss (setq sl (1- sl))))<br />         (setq obj (vlax-ename->vla-object e))<br />         (if (and (= (vla-get-hasextensiondictionary obj) :vlax-true)<br />                  (progn<br />                    (vlax-for d (vla-getextensiondictionary obj)<br />                      (if (= (vla-get-objectname d) "AcDbDimAssoc")<br />                        (setq tf t)<br />                      )<br />                    )<br />                    tf<br />                  )<br />             )<br />           (ssadd e ss1)<br />         )<br />       )<br />       (if (> (sslength ss) 0)<br />         (sssetfirst nil ss1)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

iLisp

有什么用呢？

/db_自贡黄明儒_

第一次tf为T之后 ，都为T了？