求助做一个【快速改色】插件。

669423907 · 发表于 2019-2-18 21:55

KO你发表于 2019-2-18 16:20
快捷键 1-255 颜色
(defun c:1~255 (/ cnt)
(setq cnt -1)

有创意，在前面加了个c，爽歪歪
"(defun c:c"
"(defun c:cc"

669423907 · 发表于 2019-2-18 21:55

1291500406 发表于 2019-2-18 16:46
(defun c:ys()(setq ys (acad_colordlg 1)i -1) (setq ss (ssget))(command "change" ss "" "p" "c" y ...

直观简单好用

669423907 · 发表于 2019-2-18 21:56

xyp1964 发表于 2019-2-9 09:10

直观简单好用

G〆h · 发表于 2019-2-19 23:24

本帖最后由 G〆h 于 2019-2-19 23:54 编辑

1291500406 发表于 2019-2-18 16:46
(defun c:ys()(setq ys (acad_colordlg 1)i -1) (setq ss (ssget))(command "change" ss "" "p" "c" y ...

非常不错，解决了纯数字变色对命令别名的影响，又能直观的查看颜色。
但还有以下问题：
1、文字框中不能记录并显示上次的数值，
2、不能随块
3、不能随层

baitang36 · 发表于 2019-2-20 09:16

(defun c:ys()(setq ys (acad_colordlg 1)i -1) (setq ss (ssget))(command "change" ss "" "p" "c" ys "")(prin1))这个最牛

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

[提问] 求助做一个【快速改色】插件。