[转贴]：修改图块内所有属性性质

wowoaicad

2. 修改图块内所有属性性质
   
3. ;;By 龙龙仔
   
4. ;;修改图块内所有属性性质
   
5. ;;USAGE: (CHANGE_ATT "LAYER" "DIM")
   
6. ;;USAGE: (CHANGE_ATT "COLOR" "1")
   
7. 
   
8. (defun CHANGE_ATT (PROPERTY LNAME / BLK BLKREF BNAME BLKDEF ENT)
   
9.   (vl-load-com)
   
10.   (while
    
11.     (or (not (setq BLK (car (entsel "\n选取带属性图块: "))))
    
12. (progn
    
13.   (setq BLKREF (vlax-ename->vla-object BLK))
    
14.   (not (= (vla-get-objectname BLKREF) "AcDbBlockReference"))
    
15. )
    
16.     )
    
17.   )
    
18.   (setq BNAME  (vla-get-name BLKREF)
    
19. BLKDEF (vla-item (vla-get-blocks
    
20.    (vla-get-activedocument (vlax-get-acad-object))
    
21. )
    
22. BNAME
    
23.        )
    
24.   )
    
25.   (vlax-for ENT BLKDEF
    
26.     (if (= (vla-get-objectname ENT) "AcDbAttributeDefinition")
    
27.       ((eval (read (strcat "vla-put-" PROPERTY))) ENT LNAME)
    
28.     )
    
29.   )
    
30.   (command "_.attsync" "n" BNAME)
    
31.   (princ)
    
32. )
    

修改图块内所有属性性质<br /> ;;By 龙龙仔 <br /> ;;修改图块内所有属性性质 <br /> ;;USAGE: (CHANGE_ATT "LAYER" "DIM") <br /> ;;USAGE: (CHANGE_ATT "COLOR" "1") <br /> <br /> (defun CHANGE_ATT (PROPERTY LNAME / BLK BLKREF BNAME BLKDEF ENT) <br />   (vl-load-com) <br />   (while <br />     (or (not (setq BLK (car (entsel "\n选取带属性图块: ")))) <br /> (progn <br />   (setq BLKREF (vlax-ename->vla-object BLK)) <br />   (not (= (vla-get-objectname BLKREF) "AcDbBlockReference")) <br /> ) <br />     ) <br />   ) <br />   (setq BNAME  (vla-get-name BLKREF) <br /> BLKDEF (vla-item (vla-get-blocks <br />    (vla-get-activedocument (vlax-get-acad-object)) <br /> ) <br /> BNAME <br />        ) <br />   ) <br />   (vlax-for ENT BLKDEF <br />     (if (= (vla-get-objectname ENT) "AcDbAttributeDefinition") <br />       ((eval (read (strcat "vla-put-" PROPERTY))) ENT LNAME) <br />     ) <br />   ) <br />   (command "_.attsync" "n" BNAME) <br />   (princ) <br /> ) <br />

bridgewind

不错，copy 一下，学习学习！

eachy

vla-getattributes 可以得到块中的所有属性的集合。

LUCAS

2. 
   
3. getattributes是对block reference.
   
4. 原问题是要改变所有block中属性
   
5. 对block reference属性修改
   
6. ;;By (LUCAS)龙龙仔
   
7. ;;修改BLOCK REF内所有属性性质
   
8. ;;USAGE: (CHANGE_ATTT "LAYER" "DIM")
   
9. ;;USAGE: (CHANGE_ATTT "COLOR" "1")
   
10. 
    
11. (defun CHANGE_ATTT (PROPERTY LNAME / BLK BLKREF BNAME BLKDEF ENT)
    
12.   (vl-load-com)
    
13.   (while
    
14.     (or        (not (setq BLK (car (entsel "\n选取带属性图块: "))))
    
15.         (progn
    
16.           (setq BLKREF (vlax-ename->vla-object BLK))
    
17.           (not (= (vla-get-objectname BLKREF) "AcDbBlockReference"))
    
18.         )
    
19.     )
    
20.   )
    
21.   (foreach ENT (vlax-safearray->list
    
22.                  (vlax-variant-value (vla-getattributes BLKREF))
    
23.                )
    
24.     ((eval (read (strcat "vla-put-" PROPERTY))) ENT LNAME)
    
25.   )
    
26.   (princ)
    
27. )
    

<br /> getattributes是对block reference.<br /> 原问题是要改变所有block中属性<br /> 对block reference属性修改<br /> ;;By (LUCAS)龙龙仔 <br /> ;;修改BLOCK REF内所有属性性质 <br /> ;;USAGE: (CHANGE_ATTT "LAYER" "DIM") <br /> ;;USAGE: (CHANGE_ATTT "COLOR" "1") <br /> <br /> (defun CHANGE_ATTT (PROPERTY LNAME / BLK BLKREF BNAME BLKDEF ENT)<br />   (vl-load-com)<br />   (while<br />     (or        (not (setq BLK (car (entsel "\n选取带属性图块: "))))<br />         (progn<br />           (setq BLKREF (vlax-ename->vla-object BLK))<br />           (not (= (vla-get-objectname BLKREF) "AcDbBlockReference"))<br />         )<br />     )<br />   )<br />   (foreach ENT (vlax-safearray->list<br />                  (vlax-variant-value (vla-getattributes BLKREF))<br />                )<br />     ((eval (read (strcat "vla-put-" PROPERTY))) ENT LNAME)<br />   )<br />   (princ)<br /> )<br />