如何修改增强属性快中属性文字的颜色的颜色

chenjieq1990

增强属性快见附件，需要将标高的文字颜色改为bylayer或者8号色！

研究了一天也没有找到修改颜色属性的点

2. (defun C:ch()
   
3.   (vl-load-com)
   
4.   (setq entbatt0(entsel"\n选取带属性块:"))
   
5.   (setq entbatt0(car entbatt0))
   
6.   (setq wattvla0(vlax-ename->vla-object entbatt0))
   
7.   (setq attlst0(vlax-safearray->list (vlax-variant-value (vla-getattributes wattvla0))))
   
8. (setq colorcj(vla-get-truecolor (nth 0 attlst0)))
   
9. (vla-put-colorindex colorcj 8)
   
10. )

(defun C:ch()<br />   (vl-load-com)<br />   (setq entbatt0(entsel"\n选取带属性块:"))<br />   (setq entbatt0(car entbatt0))<br />   (setq wattvla0(vlax-ename->vla-object entbatt0))<br />   (setq attlst0(vlax-safearray->list (vlax-variant-value (vla-getattributes wattvla0))))<br /> (setq colorcj(vla-get-truecolor (nth 0 attlst0)))<br /> (vla-put-colorindex colorcj 8)<br /> )

有没有大神帮帮忙。。。

1291500406

(vla-put-color (car attlst0) 8)

yuanziyou

1. ;;;批量修改高程值颜色
   
2. (defun C:xggcdys()
   
3.   (vl-load-com)
   
4.         (setq ss (ssget "X" '( (8 . "GCD") )))
   
5.         (setq i 0)
   
6.         (repeat (sslength ss)
   
7.                 (progn
   
8.                         (setq wattvla0(vlax-ename->vla-object (ssname ss i)))
   
9.                         (setq attlst0(vlax-safearray->list (vlax-variant-value (vla-getattributes wattvla0))))
   
10.                         (setq colorcj(vla-get-truecolor (nth 0 attlst0)))
    
11.                         (vla-put-color (car attlst0) 8);设置颜色为索引8       
    
12.                         ; (vla-put-color (car attlst0) acByLayer);设置颜色为随层
    
13.                 )
    
14.                 (setq i (+ i 1))
    
15.         )
    
16.         (princ "已修改")
    
17.         (princ)
    
18. )

;;;批量修改高程值颜色<br /> (defun C:xggcdys()<br />   (vl-load-com)<br />         (setq ss (ssget "X" '( (8 . "GCD") )))<br />         (setq i 0)<br />         (repeat (sslength ss)<br />                 (progn<br />                         (setq wattvla0(vlax-ename->vla-object (ssname ss i)))<br />                         (setq attlst0(vlax-safearray->list (vlax-variant-value (vla-getattributes wattvla0))))<br />                         (setq colorcj(vla-get-truecolor (nth 0 attlst0)))<br />                         (vla-put-color (car attlst0) 8);设置颜色为索引8        <br />                         ; (vla-put-color (car attlst0) acByLayer);设置颜色为随层<br />                 )<br />                 (setq i (+ i 1))<br />         )<br />         (princ "已修改")<br />         (princ)<br /> )

chenjieq1990

1291500406 发表于 2019-11-23 16:42
(vla-put-color (car attlst0) 8)

谢谢！万分感谢！

chenjieq1990

yuanziyou 发表于 2019-11-23 18:52

谢谢！万分感谢

1291500406

chenjieq1990 发表于 2019-12-2 12:20
谢谢！万分感谢！

皮卡丘，皮卡皮卡