青春的滋味 发表于 2015-8-2 07:06:28

CAD改变颜色插件 255个切换颜色

CAD改变颜色插件255个切换颜色

下文没句号。 发表于 2023-6-11 10:27:25

按数字是很不错的，我的图层就是数字，和我图层有冲突，怎么在上面加字母去呢？

lucas_3333 发表于 2015-8-2 08:01:05

我晕，这谁写的，纯体力活 ，一个颜色属性对话框就搞定了， 还写了255个颜色切换的，

edata 发表于 2015-8-2 10:52:00

何必呢。
;1-255颜色命令版
;by edata@mjtd.com 2015-8-2
(defun c:tt (/ i)
(setq i 1)
(while (< (setq i (1+ i)) 256)
    (eval
      (read
        (strcat
          "(defun c:"
          (itoa i)
          "(/ ent)
        (setq ent (ssget))
        (setvar 'cmdecho 0)
        (command \"change\" ent \"\" \"p\" \"c\" "
          (itoa i)
          " \"\")
          (setvar 'cmdecho 1)
          (princ)
          )"
        )
      )
    )
)
)

陨落 发表于 2015-8-2 11:34:40

edata 发表于 2015-8-2 10:52 static/image/common/back.gif
何必呢。

哈哈，高手好思路！

ucuc2003 发表于 2015-8-11 10:57:13

本帖最后由 ucuc2003 于 2015-8-11 11:51 编辑

自定义自己常用的几个颜色，这么多颜色都用不了吧
(defun c:TT4 (/ gbys_z b)
(setq gbys_z "15")
(setq b "咖色")
(zmh_gbys)
)

(defun zmh_gbys ()
(setvar "cmdecho" 0)
(princ (strcat "请选择要改变为<" b ">的对象"))
(while (setq sg (ssget":s"))
   (princ (strcat "\n共改变了<" (itoa (sslength sg)) ">个对象。"))
   (command "change" sg "" "p" "c" gbys_z "")
);while
(princ)
) ;defun

ucuc2003 发表于 2015-8-11 11:22:01


;;命令S1～S256
(defun c:tt5 (/ i)
(setq i 1)
(while (< (setq i (1+ i)) 256)
    (eval
      (read
      (strcat
          "(defun c:S"
          (itoa i)
          "(/ ent)
          (princ \"改变对象颜色（命令：S1～S255：1～255为颜色代号）\")
      (while
          (setq ent (ssget \":s\"))
          (setvar 'cmdecho 0)
          (command \"change\" ent \"\" \"p\" \"c\" "
            (itoa i)
            " \"\")
          (princ (strcat \"\n共改变了<\" (itoa (sslength ent)) \">个对象。\"))
      );while
          (setvar 'cmdecho 1)
          (princ)
          )"
      )
      )
    )
)
)

ucuc2003 发表于 2015-8-11 11:41:20

本帖最后由 ucuc2003 于 2015-8-11 12:08 编辑

改对象颜色，改对象图层颜色(命令GSS)

betta_fish 发表于 2015-8-11 18:40:39

記幾個常用的就行了吧

墙脚哥 发表于 2016-7-23 20:32:16

ucuc2003 发表于 2015-8-11 11:22 static/image/common/back.gif
;;命令S1～S256
(defun c:tt5 (/ i)
(setq i 1)


1号色怎么用不了呢？

longer1000 发表于 2016-7-24 14:43:22

ucuc2003 发表于 2015-8-11 11:41 static/image/common/back.gif
改对象颜色，改对象图层颜色(命令GSS)

这几种颜色够用你
页: [1] 2
查看完整版本: CAD改变颜色插件 255个切换颜色