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))

可惜不支持块改色~

感谢分享~学习了~
页: [1]
查看完整版本: 必强快速改色工具