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

cheefeel · 发表于 2019-2-7 11:52:19

本帖最后由 cheefeel 于 2019-2-8 13:51 编辑

发错版块了，请版主删除此贴。

请求这样一个工具：

①执行命令SCOLOR后，弹出如上图的一个精简色库。

②点击颜色则更改所选对象的颜色；若无选择更改当前颜色。

③选择颜色后自动关闭窗口，无需确定。

此工具的意义：CAD中执行命令COLOR后的色库，

只能更改当前颜色，而不能更改所选对象颜色。

然而通过点击组合窗口弹出色库需要经过两次点击还得滚动到底部，

并且需要点击确认才能完成，非常麻烦。

若能随时自定义其中配色种类和格数更好，
以便符合不同人群的需要。
若不能则按上图所包含的索引色配置。

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

;; tt(改实体颜色)
(defun c:tt ()
(setq co (acad_colordlg 1)
i -1
)
(princ "\n选择实体<退出>: ")
(if (setq ss (ssget))
(while (setq s1 (ssname ss (setq i (1+ i))))
(vla-put-color (vlax-ename->vla-object s1) co)
)
)
(princ)
)

KO你 · 发表于 2019-2-18 16:20:58

快捷键 1-255 颜色
(defun c:1~255 (/ cnt)
(setq cnt -1)
(repeat 257
(eval(read(strcat
"(defun C:" (if (= cnt -1)"`"(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)"`"(itoa cnt)) "()"
"(command \".-color\""
(cond((= cnt -1)"bylayer")((= cnt 0)"byblock")(t(itoa cnt)))
")(princ))")))
(setq cnt (1+ cnt))))
(c:1~255)

1-255数字是色号的快捷键，ByLeyer随层色是按~键，ByBlock随块色是按0键

xyp1964 · 发表于 2019-2-7 16:24:58

acad自带的不行？

cheefeel · 发表于 2019-2-7 16:38:41

xyp1964 发表于 2019-2-7 16:24
acad自带的不行？

输入命令color命令以后更改的是当前颜色（而不是选中对象的颜色）这是神一样的尴尬。然而每次都要去点上面而且要弹出后再点更多颜色，太麻烦了！

xyp1964 · 发表于 2019-2-7 22:23:48

;; tt(改实体颜色)
(defun c:tt ()
(setq co (Uint 1 "" "颜色号" co))
(princ "\n选择实体<退出>: ")
(if (setq ss (ssget))
(xyp-SubUpd ss 62 co)
)
(princ)
)

cheefeel · 发表于 2019-2-8 09:39:45

本帖最后由 cheefeel 于 2019-2-8 13:53 编辑

xyp1964 发表于 2019-2-7 22:23

; 错误: no function definition: UINT

感谢帮助！能弹出CAD自带色库也好，但是版主提供的lsp代码好像不能直接用~~~

cheefeel · 发表于 2019-2-9 09:20:47

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

感谢版主！可以用了，妈妈再也不用担心我改颜色太慢了~

1291500406 · 发表于 2019-2-18 13:08:07

本帖最后由 1291500406 于 2019-2-18 16:59 编辑

上面的改色只能改文字的颜色，不能改块，块内颜色，有局限

1291500406 · 发表于 2019-2-18 16:46:36

本帖最后由 1291500406 于 2019-3-11 15:54 编辑

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

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

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

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

本帖子中包含更多资源

本帖子中包含更多资源