求一个改色的工具，输入tt，选择图形，把图层为123的文字改为梅红

664571221 · 发表于 2018-5-18 14:48:40

本帖最后由 664571221 于 2018-5-19 09:42 编辑

求一个改色的工具，输入tt，选择图形，把图层为123的文字改为梅红

俄武器 · 发表于 2018-5-24 20:29:10

提示: 作者被禁止或删除内容自动屏蔽

you_zy · 发表于 2018-5-25 14:01:32

(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:53:47

本帖最后由张大锤于 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) 没有加这个因为不知道你默认是多少操作上不存在插入等问题就无视掉了

账号		自动登录	找回密码
密码			注册

[提问] 求一个改色的工具，输入tt，选择图形，把图层为123的文字改为梅红

浏览过的版块

俄武器俄武器当前离线积分 8979 明经币个注册时间 2018-5-24 在线时间小时威望金钱个贡献激情	发表于 2018-5-24 20:29:10 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报显身卡