[求助]：遍历块时要如何取得”ATTRIB”的表值

LUCAS

当块中含有属性时，在遍历块时只能取得”ATTDEF”的表值，请问在遍历块时要如何取得”ATTRIB”的表值。

前生

用entnext函数试试

LUCAS

用下列程序在单层块中遍历块时取得的是”ATTDEF”的表值,在巢状块(多层块)中遍历块时却能得到”ATTRIB”的表值。
但要如何在遍历单层块时要取得”ATTRIB”的表值。

2. 
   
3. (defun C:BLK_ENT (/ A BLK E)
   
4.   (defun DIMLIST (E / BLK)
   
5. ;;;(print (cdr (assoc 2 (entget E))))
   
6.     (setq BLK (tblsearch "block" (cdr (assoc 2 (entget E)))))
   
7.     (setq E (cdr (assoc -2 BLK)))
   
8.     (while E
   
9.       (if (or (= "INSERT" (cdr (assoc 0 (entget E))))
   
10.               (= "DIMENSION" (cdr (assoc 0 (entget E))))
    
11.           )
    
12.         (DIMLIST E)
    
13.         (print (entget E))
    
14.       )
    
15.       (setq E (entnext E))
    
16.     )
    
17.     (princ)
    
18.   )
    
19.   (setq A (entsel "\n请选图块: "))
    
20.   (if (or (= "INSERT" (cdr (assoc 0 (entget (car A)))))
    
21.           (= "DIMENSION" (cdr (assoc 0 (entget (car A)))))
    
22.       )
    
23.     (progn
    
24.    ;;;(print (cdr (assoc 2 (entget (car A)))))
    
25.       (setq BLK (tblsearch "block" (cdr (assoc 2 (entget (car A))))))
    
26.       (setq E (cdr (assoc -2 BLK)))
    
27.       (while E
    
28.         (if (or        (= "INSERT" (cdr (assoc 0 (entget E))))
    
29.                 (= "DIMENSION" (cdr (assoc 0 (entget E))))
    
30.             )
    
31.           (DIMLIST E)
    
32.           (print (entget E))
    
33.         )
    
34.         (setq E (entnext E))
    
35.       )
    
36.     )
    
37.   )
    
38.   (princ)
    
39. )
    

<br /> (defun C:BLK_ENT (/ A BLK E)<br />   (defun DIMLIST (E / BLK)<br /> ;;;(print (cdr (assoc 2 (entget E))))<br />     (setq BLK (tblsearch "block" (cdr (assoc 2 (entget E)))))<br />     (setq E (cdr (assoc -2 BLK)))<br />     (while E<br />       (if (or (= "INSERT" (cdr (assoc 0 (entget E))))<br />               (= "DIMENSION" (cdr (assoc 0 (entget E))))<br />           )<br />         (DIMLIST E)<br />         (print (entget E))<br />       )<br />       (setq E (entnext E))<br />     )<br />     (princ)<br />   )<br />   (setq A (entsel "\n请选图块: "))<br />   (if (or (= "INSERT" (cdr (assoc 0 (entget (car A)))))<br />           (= "DIMENSION" (cdr (assoc 0 (entget (car A)))))<br />       )<br />     (progn<br />    ;;;(print (cdr (assoc 2 (entget (car A)))))<br />       (setq BLK (tblsearch "block" (cdr (assoc 2 (entget (car A))))))<br />       (setq E (cdr (assoc -2 BLK)))<br />       (while E<br />         (if (or        (= "INSERT" (cdr (assoc 0 (entget E))))<br />                 (= "DIMENSION" (cdr (assoc 0 (entget E))))<br />             )<br />           (DIMLIST E)<br />           (print (entget E))<br />         )<br />         (setq E (entnext E))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

e2002

2. 
   
3.   [FONT=courier new]
   
4. (if (setq esl (entsel))
   
5.   (progn
   
6.     (setq en (car esl)
   
7.           ob (vlax-ename->vla-object en)
   
8.     )
   
9.     (if (and
   
10.           (= (vla-get-ObjectName ob) "AcDbBlockReference")
    
11.           (= (vla-get-HasAttributes ob) :VLAX-TRUE)
    
12.         )
    
13.       (progn
    
14.         (setq attrib-object-array (vlax-variant-value (vla-GetAttributes ob))
    
15.               attrib-object-list (vlax-safearray->list attrib-object-array)
    
16.               nLength (length attrib-object-list)
    
17.         )
    
18.         ;...
    
19.         ;...    add your handles here 8-)
    
20.         ;...
    
21.       )
    
22.     );end if
    
23.     ;(vlax-release-object ob)
    
24.   );end progn
    
25. );end if
    
26.   [/FONT]
    

<br />   [FONT=courier new]<br /> (if (setq esl (entsel))<br />   (progn<br />     (setq en (car esl)<br />           ob (vlax-ename->vla-object en)<br />     )<br />     (if (and<br />           (= (vla-get-ObjectName ob) "AcDbBlockReference")<br />           (= (vla-get-HasAttributes ob) :VLAX-TRUE)<br />         )<br />       (progn<br />         (setq attrib-object-array (vlax-variant-value (vla-GetAttributes ob))<br />               attrib-object-list (vlax-safearray->list attrib-object-array)<br />               nLength (length attrib-object-list)<br />         )<br />         ;...<br />         ;...    add your handles here 8-)<br />         ;...<br />       )<br />     );end if<br />     ;(vlax-release-object ob)<br />   );end progn<br /> );end if<br />   [/FONT]<br />

LUCAS

谢谢了!!有效!!!!

cy956

2. 
   
3. ;;;(getATT e "A")获得某个属性attname的属性值,没有attname则返回nil
   
4. 
   
5. (defun getATT (e attname / ATT E1 EN EN1 RSLT)
   
6.   (setq en(entget e) e1 e)
   
7.   (if (and (= (dxf 0 en) "INSERT")
   
8.            (= (dxf 66 en) 1))(progn
   
9.     (setq e1 (entnext e1)att(strcase attname))
   
10.     (while (and e1 (setq en1(entget e1))
    
11.                 (= (dxf 0 en1) "ATTRIB"))
    
12.       (if (= (strcase (dxf 2 en1)) att)
    
13.         (setq rslt en1 e1 nil);;找到一个即退出
    
14.         (setq e1 (entnext e1))
    
15.       )
    
16.     ) )
    
17.     (setq rslt nil)
    
18.   )rslt
    
19. )
    

<br /> ;;;(getATT e "A")获得某个属性attname的属性值,没有attname则返回nil<br /> <br /> (defun getATT (e attname / ATT E1 EN EN1 RSLT)<br />   (setq en(entget e) e1 e)<br />   (if (and (= (dxf 0 en) "INSERT")<br />            (= (dxf 66 en) 1))(progn<br />     (setq e1 (entnext e1)att(strcase attname))<br />     (while (and e1 (setq en1(entget e1))<br />                 (= (dxf 0 en1) "ATTRIB"))<br />       (if (= (strcase (dxf 2 en1)) att)<br />         (setq rslt en1 e1 nil);;找到一个即退出<br />         (setq e1 (entnext e1))<br />       )<br />     ) )<br />     (setq rslt nil)<br />   )rslt<br /> )<br />

LUCAS

谢谢了!!
纯lisp程序就能在R14上执行了,很好很好!!!!