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

青春的滋味

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

下文没句号。

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

lucas_3333

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

edata

何必呢。

1. ;1-255颜色命令版
   
2. ;by edata@mjtd.com 2015-8-2
   
3. (defun c:tt (/ i)
   
4.   (setq i 1)
   
5.   (while (< (setq i (1+ i)) 256)
   
6.     (eval
   
7.       (read
   
8.         (strcat
   
9.           "(defun c:"
   
10.           (itoa i)
    
11.           "(/ ent)
    
12.         (setq ent (ssget))
    
13.         (setvar 'cmdecho 0)
    
14.         (command \"change\" ent \"\" \"p\" \"c\" "
    
15.           (itoa i)
    
16.           " \"\")
    
17.           (setvar 'cmdecho 1)
    
18.           (princ)
    
19.           )"
    
20.         )
    
21.       )
    
22.     )
    
23.   )
    
24. )

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

陨落

edata 发表于 2015-8-2 10:52
何必呢。

哈哈，高手好思路！

ucuc2003

自定义自己常用的几个颜色，这么多颜色都用不了吧
(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

;;命令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

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

betta_fish

記幾個常用的就行了吧

墙脚哥

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

1号色怎么用不了呢？

longer1000

ucuc2003 发表于 2015-8-11 11:41
改对象颜色，改对象图层颜色(命令GSS)

这几种颜色够用你