一键改颜色

moranyuyan

修改对象的颜色小插件，很实用

HLCAD

1. ;;; 功能单一, 却弄了50k, 给你简化了一下,所含命令一个未少:
   
2. ;;; by HLCAD.
   
3. (defun c:tt (/ cnt)
   
4.   (setq cnt -1)
   
5.   (repeat 257
   
6.     (eval(read(strcat
   
7.         "(defun C:" (if (= cnt -1)"Y"(itoa cnt))
   
8.         "(/ ent)(setq ent (ssget))"
   
9.         "(command \"_.change\" ent \"\" \"_p\" \"_c\" \""
   
10.         (cond((= cnt -1)"bylayer")((= cnt 0)"byblock")(t(itoa cnt)))
    
11.         "\" \"\")(princ))"
    
12.         )))
    
13.     (eval(read(strcat
    
14.         "(defun C:C" (if (= cnt -1)"Y"(itoa cnt)) "()"
    
15.         "(command \".-color\""
    
16.         (cond((= cnt -1)"bylayer")((= cnt 0)"byblock")(t(itoa cnt)))
    
17.         ")(princ))"
    
18.         )))
    
19.     (setq cnt (1+ cnt))
    
20.     )
    
21.   )
    
22. (c:tt)
    

;;; 功能单一, 却弄了50k, 给你简化了一下,所含命令一个未少:<br /> ;;; by HLCAD.<br /> (defun c:tt (/ cnt)<br />   (setq cnt -1)<br />   (repeat 257<br />     (eval(read(strcat<br />         "(defun C:" (if (= cnt -1)"Y"(itoa cnt))<br />         "(/ ent)(setq ent (ssget))"<br />         "(command \"_.change\" ent \"\" \"_p\" \"_c\" \""<br />         (cond((= cnt -1)"bylayer")((= cnt 0)"byblock")(t(itoa cnt)))<br />         "\" \"\")(princ))"<br />         )))<br />     (eval(read(strcat<br />         "(defun C:C" (if (= cnt -1)"Y"(itoa cnt)) "()"<br />         "(command \".-color\""<br />         (cond((= cnt -1)"bylayer")((= cnt 0)"byblock")(t(itoa cnt)))<br />         ")(princ))"<br />         )))<br />     (setq cnt (1+ cnt))<br />     )<br />   )<br /> (c:tt)<br />

moranyuyan

HLCAD 发表于 2018-7-18 08:27

谢谢分享

上官子尘15

下载看看好不好用

zhangfaren

谢谢分享！

狼墨

HLCAD 发表于 2018-7-18 08:27

楼主，按命令1-255已经有了，按命令0是byblock随块色也有了
能否再添加按命令 ` 是bylayer随层色
求完善一下

lovezp

Y就是随层吧

狼墨

lovezp 发表于 2019-1-2 10:30
Y就是随层吧

能把Y改成`吗
要怎么改呢？

狼墨

狼墨 发表于 2019-1-2 14:20
能把Y改成`吗
要怎么改呢？

        "(defun C:" (if (= cnt -1)"Y"(itoa cnt))
        "(defun C:C" (if (= cnt -1)"Y"(itoa cnt)) "()"
这两行都有Y，是全部改还是只改其他一部分呢

lovezp

' 过于特殊

HLCAD

256就是bylayer随层色

lmantoul

相当好用，奈斯

aisong220

hg555

HLCAD 发表于 2018-7-18 08:27

不行呀，输入tt没反应。。。

HLCAD

hg555 发表于 2019-9-26 11:09
不行呀，输入tt没反应。。。

输入0或1或2...或256试试
或输入C0或C1或C2...或C256试试