突然发现字符串还是如此强大
代码出处：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=168949&highlight=%D1%D5%C9%AB的3楼，谢谢他的思路确实可以！能让很多功能更加的快！快到可以用命令去运行代码！大家喜欢这种思路的可以看看，代码完全转载，大家喜欢可以学习学习，好代码不想让他沉下去！！或许对高手来说不算啥子，但是这种思路值得我们学习！！[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;1-255颜色命令版
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;by <a href="mailto:edata@mjtd.com">edata@mjtd.com</a> 2015-8-2
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(defun c:tt (/ i)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(setq i 1)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(while (< (setq i (1+ i)) 256)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (eval
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (read
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (strcat
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif "(defun c:"
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (itoa i)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif "(/ ent)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setq ent (ssget))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setvar 'cmdecho 0)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (command \"change\" ent \"\" \"p\" \"c\" "
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (itoa i)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif " \"\")
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setvar 'cmdecho 1)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (princ)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )"
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)
迈总的代码！！！
;;;修改实体颜色或者当前绘图颜色============================分割线=======================================
(defun ch-cecolor(color_number / nn xingle-ss)
(setq xingle-ss (ssget))
(setq nn (itoa color_number))
(cond
((or(= nn "b")(= nn "0")) (setq nn "ByBlock"))
((or(= nn "256")(= nn "00"))(setq nn "ByLayer"))
)
(if xingle-ss
(progn
(COMMAND "chprop" xingle-ss "" "C" nn "")
(princ (strcat "\n所选图元 颜色色号已改为<" nn ">"))
)
(progn
(setvar "CECOLOR" nn)
(princ (strcat "\n当前 绘图层 颜色色号已改为<" nn ">"))
)
)
(prin1)
)
;;;批量定义快捷键================================分割线===================================
(apply
'(lambda ( / n nn times pre)
(setq n -1)
(setq pre "CC");;;pre前缀为定义快捷命令前缀，如CC1
(setq times 256);;256
(repeat (1+ times)
(setq n (1+ n));;从CC0开始
(setq nn(itoa n))
(eval (read (strcat
"(defun c:"
pre
nn
"(/ n)(ch-CECOLOR "
nn
"))"
)
)
)
)
)
nil
)
(princ"\n修改实体颜色或者当前绘图颜色,快捷键CC1 ~ CC255 CC0=ByBlock CC256=ByLayer")
(princ)
程序好吗？但是不能这么用，为什么？
1：颜色是不能都用的，很多颜色你看不清！
2：转PDF要想清楚，是不允许什么颜色都行的！
3：打印也是不能随便的。 有个bug把i的值1改为0就可以实现全部！ 是什么功能 664571221 发表于 2019-12-3 09:04
是什么功能
修改ssget颜色！ 尘缘一生 发表于 2019-12-3 22:34
程序好吗？但是不能这么用，为什么？
1：颜色是不能都用的，很多颜色你看不清！
分颜色是为了画图方便，打印图全部转换为黑色线就可以了啊！ 1028695446 发表于 2019-12-3 14:17
迈总的代码！！！
;;;修改实体颜色或者当前绘图颜色============================分割线================= ...
明总的这个可以！ 1028695446 发表于 2019-12-3 14:17
迈总的代码！！！
;;;修改实体颜色或者当前绘图颜色============================分割线================= ...
迈总的这些代码哪里来的？ 真是好插件啊，显示了代码的强大
页:
[1]
2