明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2330|回复: 16

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

[复制链接]
发表于 2019-12-2 20:44 | 显示全部楼层 |阅读模式
代码出处: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)
  •           )"
  •         )
  •       )
  •     )
  •   )
  • )


发表于 2019-12-3 14:17 | 显示全部楼层
迈总的代码!!!
;;;修改实体颜色或者当前绘图颜色============================分割线=======================================
(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 反对 0

使用道具 举报

发表于 2019-12-3 22:34 | 显示全部楼层
程序好吗?但是不能这么用,为什么?

1:颜色是不能都用的,很多颜色你看不清!
2:转PDF要想清楚,是不允许什么颜色都行的!
3:打印也是不能随便的。
回复 支持 0 反对 1

使用道具 举报

 楼主| 发表于 2019-12-2 20:45 | 显示全部楼层
有个bug把i的值1改为0就可以实现全部!
发表于 2019-12-3 09:04 | 显示全部楼层
是什么功能
 楼主| 发表于 2019-12-3 09:35 | 显示全部楼层

修改ssget颜色!
 楼主| 发表于 2019-12-4 12:44 | 显示全部楼层
尘缘一生 发表于 2019-12-3 22:34
程序好吗?但是不能这么用,为什么?

1:颜色是不能都用的,很多颜色你看不清!

分颜色是为了画图方便,打印图全部转换为黑色线就可以了啊!
 楼主| 发表于 2019-12-4 12:45 | 显示全部楼层
1028695446 发表于 2019-12-3 14:17
迈总的代码!!!
;;;修改实体颜色或者当前绘图颜色============================分割线================= ...

明总的这个可以!
 楼主| 发表于 2019-12-4 12:46 | 显示全部楼层
1028695446 发表于 2019-12-3 14:17
迈总的代码!!!
;;;修改实体颜色或者当前绘图颜色============================分割线================= ...

迈总的这些代码哪里来的?
发表于 2019-12-23 19:35 | 显示全部楼层
真是好插件啊,显示了代码的强大
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 07:43 , Processed in 0.231369 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表