必强快速改色工具

1291500406 · 发表于 2019-2-18 21:09:09

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

必强快速改色工具
(defun c:ys()(command "change" (ssget) "" "p" "c" (acad_colordlg 1) "")(princ))

cheefeel · 发表于 2019-2-20 09:26:34

恕我愚钝，你提供的代码时调用系统改色面板，并非如图所示

1291500406 · 发表于 2019-2-20 13:49:08

cheefeel 发表于 2019-2-20 09:26
恕我愚钝，你提供的代码时调用系统改色面板，并非如图所示

命令yyt 必强快速改色工具

ketxu · 发表于 2019-2-21 11:01:33

1291500406 发表于 2019-2-20 13:49
命令yyt 必强快速改色工具

Do you have source code ^^

1291500406 · 发表于 2019-2-21 12:54:32

本帖最后由 1291500406 于 2019-2-21 15:32 编辑

ketxu 发表于 2019-2-21 11:01
Do you have source code ^^

Make a dialog box
Contains 256 image buttons
There are 21 rows and 10 columns
Assign the string "ys" to a number
for example red
(defun c:ys()
(setq ys 1）
(setq ss (ssget))
(command "change" ss "" "p" "c" ys "")(princ))
That's the source code

zhangrunze · 发表于 2024-5-15 16:54:32

必强快速改色工具
(defun c:ys()(command "change" (ssget) "" "p" "c" (acad_colordlg 1) "")(princ))

可惜不支持块改色~

感谢分享~学习了~

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

[源码] 必强快速改色工具

本帖子中包含更多资源

本帖被以下淘专辑推荐:

本帖子中包含更多资源