求一个改色的工具，输入tt，选择图形，把图层为123的文字改为梅红
本帖最后由 664571221 于 2018-5-19 09:42 编辑求一个改色的工具，输入tt，选择图形，把图层为123的文字改为梅红
(defun C:TT (/ ss i obj)
(vl-load-com)
(setvar "cmdecho" 1)
(setq ss (ssget "X" '((0 . "*TEXT")(8 . "123"))))
(repeat (setq i (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
(vlax-put obj 'color 6)
)
(setvar "cmdecho" 0)
(princ)
) 本帖最后由 张大锤 于 2018-5-25 14:59 编辑
(defun c:tt()
(setq ss (ssget '((8 . "123")(0 . "TEXT"))))
(command "chprop" ss "" "c""1" "")
(princ)
)
手动选择
(defun c:tt()
(setq ss (ssget "x" '((8 . "123")(0 . "TEXT"))))
(command "chprop" ss "" "c""1" "")
(princ)
) 图面全选
(8 . "123")层“名称”
(command "chprop" ss "" "c""1" "") “1” 红色的数值你想要什么颜色 就改相对应的数就可以了
(setvar "cmdecho" 0) 没有加这个 因为不知道你默认是多少 操作上不存在 插入等问题 就无视掉了
页:
[1]