小懒人CAD工具箱  LISP插件

首页 >> 精选插件 >>代码分享 >> CAD自定义命令快速修改颜色_小懒人CAD工具箱_CAD插件_CASS插件_LISP代码
详细内容

CAD自定义命令快速修改颜色_小懒人CAD工具箱_CAD插件_CASS插件_LISP代码

时间:2019-02-21     作者:逆流而上的鱼制作【原创】   阅读

CAD自定义命令快速修改颜色_小懒人CAD工具箱_CAD插件_CASS插件_LISP代码

CAD自定义命令,快速修改颜色,CADLISP代码

CAD快速修改颜色

CAD自定义命令



;;;;说明

;;;1红色

;;;2黄色

;;;3绿色

;;;4青色

;;;5蓝色

;;;6洋红色

;;;7白色

;;;;需要小懒人工具箱支持

快速修改颜色1234567.gif


(setq num 0)

(repeat     7

  (setq num (1+ num))

  (eval     (read (strcat "(defun c:"

                         (rtos num 2 0)

                         "()(if (setq ss (ssget \":S\"))(xlr_submod ss 62 "

                         (rtos num 2 0)

                         " )))"

               )

         )

  )

)

电话直呼
在线客服
在线留言
发送邮件
联系我们:
15126824036
小懒人1号
点击这里给我发消息
小懒人2号
点击这里给我发消息
还可输入字符250(限制字符250)
技术支持: 建站ABC | 管理登录
×

联系电话:151  2682  4036(段)
联系QQ:736188807
联系微信:151  2682  4036
承接CAD、CASS插件开发定制出售

扫一扫加微信

关注微信公众号

小懒人CAD工具箱,拥有功能950个,免费功能400个,下载免费使用。关注微信公众号,里面分享一些插件代码及插件使用视频等CAD技能。