设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 546|回复: 10

一键改颜色

[复制链接]

已领礼包: 18个

财富等级: 恭喜发财

发表于 2018-7-18 00:04:00 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
修改对象的颜色小插件,很实用

一键改颜色.lsp

49.45 KB, 下载次数: 59, 下载积分: D豆 -1 , 活跃度 1

评分

参与人数 1D豆 +5 收起 理由
newer + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 5363个

财富等级: 富甲天下

发表于 2018-7-18 08:27:06 | 显示全部楼层
  1. ;;; 功能单一, 却弄了50k, 给你简化了一下,所含命令一个未少:
  2. ;;; by HLCAD.
  3. (defun c:tt (/ cnt)
  4.   (setq cnt -1)
  5.   (repeat 257
  6.     (eval(read(strcat
  7.         "(defun C:" (if (= cnt -1)"Y"(itoa cnt))
  8.         "(/ ent)(setq ent (ssget))"
  9.         "(command \"_.change\" ent \"\" \"_p\" \"_c\" \""
  10.         (cond((= cnt -1)"bylayer")((= cnt 0)"byblock")(t(itoa cnt)))
  11.         "\" \"\")(princ))"
  12.         )))
  13.     (eval(read(strcat
  14.         "(defun C:C" (if (= cnt -1)"Y"(itoa cnt)) "()"
  15.         "(command \".-color\""
  16.         (cond((= cnt -1)"bylayer")((= cnt 0)"byblock")(t(itoa cnt)))
  17.         ")(princ))"
  18.         )))
  19.     (setq cnt (1+ cnt))
  20.     )
  21.   )
  22. (c:tt)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 18个

财富等级: 恭喜发财

 楼主| 发表于 2018-7-18 09:47:34 | 显示全部楼层

谢谢分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 14个

财富等级: 恭喜发财

发表于 2018-8-21 16:09:14 | 显示全部楼层
下载看看好不好用
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 61个

财富等级: 招财进宝

发表于 2018-9-15 23:10:03 | 显示全部楼层
谢谢分享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2019-1-2 01:55:13 | 显示全部楼层

楼主,按命令1-255已经有了,按命令0是byblock随块色也有了
能否再添加按命令 ` 是bylayer随层色
求完善一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 527个

财富等级: 财运亨通

发表于 2019-1-2 10:30:00 | 显示全部楼层
Y就是随层吧
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2019-1-2 14:20:26 | 显示全部楼层

能把Y改成`吗
要怎么改呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2019-1-2 14:26:47 | 显示全部楼层
狼墨 发表于 2019-1-2 14:20
能把Y改成`吗
要怎么改呢?

        "(defun C:" (if (= cnt -1)"Y"(itoa cnt))
        "(defun C:C" (if (= cnt -1)"Y"(itoa cnt)) "()"
这两行都有Y,是全部改还是只改其他一部分呢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 527个

财富等级: 财运亨通

发表于 2019-1-2 15:04:46 | 显示全部楼层
本帖最后由 lovezp 于 2019-1-2 15:10 编辑

' 过于特殊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 5363个

财富等级: 富甲天下

发表于 2019-1-14 10:29:34 | 显示全部楼层
256就是bylayer随层色
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2019-5-21 12:27 , Processed in 0.182061 second(s), 49 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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