chenjieq1990 发表于 2019-11-22 12:28:58

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

本帖最后由 chenjieq1990 于 2019-11-22 14:26 编辑



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

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


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




有没有大神帮帮忙。。。

1291500406 发表于 2019-11-23 16:42:33

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

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

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

chenjieq1990 发表于 2019-12-2 12:20:12

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

谢谢！万分感谢！

chenjieq1990 发表于 2019-12-2 12:20:52

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


谢谢！万分感谢

1291500406 发表于 2019-12-2 13:36:55

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

皮卡丘，皮卡皮卡
页: [1]
查看完整版本: 如何修改增强属性快中属性文字的颜色的颜色