论坛 › 外挂实用工具 › 一键改颜色

moranyuyan 发表于 2018-7-18 00:04:00

一键改颜色

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

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

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

moranyuyan 发表于 2018-7-18 09:47:34

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


谢谢分享{:1_1:}

上官子尘15 发表于 2018-8-21 16:09:14

下载看看好不好用

zhangfaren 发表于 2018-9-15 23:10:03

谢谢分享！

狼墨 发表于 2019-1-2 01:55:13

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


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

lovezp 发表于 2019-1-2 10:30:00

Y就是随层吧

狼墨 发表于 2019-1-2 14:20:26

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

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

狼墨 发表于 2019-1-2 14:26:47

狼墨 发表于 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 发表于 2019-1-2 15:04:46

本帖最后由 lovezp 于 2019-1-2 15:10 编辑

' 过于特殊

HLCAD 发表于 2019-1-14 10:29:34

256就是bylayer随层色

lmantoul 发表于 2019-5-24 10:56:20

{:1_3:}相当好用，奈斯

aisong220 发表于 2019-5-24 10:58:09

{:1_13:}{:1_13:}{:1_13:}

hg555 发表于 2019-9-26 11:09:41

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


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

HLCAD 发表于 2019-9-26 14:13:56

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

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

查看完整版本: 一键改颜色