突然发现字符串还是如此强大

写不完的日记 · 发表于 2019-12-2 20:44:15

代码出处：http://bbs.mjtd.com/forum.php?mo ... hlight=%D1%D5%C9%AB 的3楼，谢谢他的思路确实可以！能让很多功能更加的快！快到可以用命令去运行代码！大家喜欢这种思路的可以看看，代码完全转载，大家喜欢可以学习学习，好代码不想让他沉下去！！或许对高手来说不算啥子，但是这种思路值得我们学习！！

;1-255颜色命令版
;by <a href="mailto:edata@mjtd.com">edata@mjtd.com</a> 2015-8-2
(defun c:tt (/ i)
(setq i 1)
(while (< (setq i (1+ i)) 256)
(eval
(read
(strcat
"(defun c:"
(itoa i)
"(/ ent)
(setq ent (ssget))
(setvar 'cmdecho 0)
(command \"change\" ent \"\" \"p\" \"c\" "
(itoa i)
" \"\")
(setvar 'cmdecho 1)
(princ)
)"
)
)
)
)
)

1028695446 · 发表于 2019-12-3 14:17:36

迈总的代码！！！
;;;修改实体颜色或者当前绘图颜色============================分割线=======================================
(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)

尘缘一生 · 发表于 2019-12-3 22:34:41

程序好吗？但是不能这么用，为什么？

1：颜色是不能都用的，很多颜色你看不清！
2：转PDF要想清楚，是不允许什么颜色都行的！
3：打印也是不能随便的。

写不完的日记 · 发表于 2019-12-2 20:45:10

有个bug把i的值1改为0就可以实现全部！

664571221 · 发表于 2019-12-3 09:04:34

是什么功能

写不完的日记 · 发表于 2019-12-3 09:35:36

664571221 发表于 2019-12-3 09:04
是什么功能

修改ssget颜色！

写不完的日记 · 发表于 2019-12-4 12:44:45

尘缘一生发表于 2019-12-3 22:34
程序好吗？但是不能这么用，为什么？

1：颜色是不能都用的，很多颜色你看不清！

分颜色是为了画图方便，打印图全部转换为黑色线就可以了啊！

写不完的日记 · 发表于 2019-12-4 12:45:42

1028695446 发表于 2019-12-3 14:17
迈总的代码！！！
;;;修改实体颜色或者当前绘图颜色============================分割线================= ...

明总的这个可以！

写不完的日记 · 发表于 2019-12-4 12:46:30

1028695446 发表于 2019-12-3 14:17
迈总的代码！！！
;;;修改实体颜色或者当前绘图颜色============================分割线================= ...

迈总的这些代码哪里来的？

zengbanxian · 发表于 2019-12-23 19:35:00

真是好插件啊，显示了代码的强大

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