明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 58299|回复: 393

自动修改图层颜色(索引颜色)

  [复制链接]
发表于 2012-5-31 09:53:09 | 显示全部楼层 |阅读模式
我希望实现的功能:
预先设定,名字为"a"的图层,颜色为“1”;名字为"b"的图层,颜色为“2”……
依次类推。
当然,可以让我自由修改这些初始设定的图层名字及其对应的颜色(这里指索引颜色,不是真彩色)。
当调用程序后,直接把现有图纸上的图层,按我设定的规则,全部处理完。

这个功能一般用于建筑设计里面,非建筑专业套用建筑底图的时候,可以快速处理建筑图的颜色。
当然,需要使用者自己按喜好预先设定好各种对应值。

这里附上一个能够改为真彩色的lisp,仅供参考!

(defun c:tc()
(vl-load-com)
(setq acmCol (vla-getinterfaceobject
           (vlax-get-acad-object)  (strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2))))
(vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
  (cond
    ((= (vla-get-name x) "DOTE") (vla-setrgb acmCol 0 114 153) (vla-put-TrueColor x acmCol))
    ((= (vla-get-name x) "dote") (vla-setrgb acmCol 0 114 153) (vla-put-TrueColor x acmCol))
    ((= (vla-get-name x) "wall") (vla-setrgb acmCol 0 153 114) (vla-put-TrueColor x acmCol))
    ((= (vla-get-name x) "WALL") (vla-setrgb acmCol 0 153 114) (vla-put-TrueColor x acmCol))
    ((= (vla-get-name x) "window") (vla-setrgb acmCol 0 153 204) (vla-put-TrueColor x acmCol))
    ((= (vla-get-name x) "WINDOW") (vla-setrgb acmCol 0 153 204) (vla-put-TrueColor x acmCol))
  )
  )
  )
发表于 2024-8-23 11:52:36 | 显示全部楼层
本帖最后由 开心无惧 于 2024-8-23 12:01 编辑
【KAIXIN】 发表于 2012-5-31 14:17
附件里面含:
   通用函数介绍,
   含输入层名改层和层对象的颜色

请问下 批量修改图层颜色时
当前操作的结果是把已存在的图形对象颜色也修改了;
但当使用其它命令把图形切换图层时(经常使用), 图形的图层已转换但是颜色未变 ,还是刚刚修改后的对象颜色;
如何在批量修改图层颜色时仅修改图层本身的颜色, 截图中特性工具栏的颜色211改为bylayer;


本帖子中包含更多资源

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

x
发表于 2020-7-21 10:01:15 | 显示全部楼层
http://bbs.mjtd.com/forum.php?mod=attachment&aid=Njc2MDl8YzI4YzA3YjA5ZWY4NTY1ZjJlZjU0ZmM2ZDkyMWZkNjJ8MTczMjI2NzU1MQ%3D%3D&request=yes&_f=.rar
学习一下,感谢大神!
发表于 2020-7-21 10:00:11 | 显示全部楼层
http://bbs.mjtd.com/forum.php?mod=attachment&aid=Njc2MDl8YzI4YzA3YjA5ZWY4NTY1ZjJlZjU0ZmM2ZDkyMWZkNjJ8MTczMjI2NzU1MQ%3D%3D&request=yes&_f=.rar
学习一下,感谢大神!
发表于 2012-5-31 11:49:07 | 显示全部楼层
没这么深吧,把图层颜色设成参数,写个自定义函数把参数传过来就行

点评

程序已更新升级(在三楼)  发表于 2012-6-1 10:05
发表于 2012-5-31 14:17:12 | 显示全部楼层

实用(含通用函数)更新(加上错误判断)

本帖最后由 【KAIXIN】 于 2012-6-1 10:04 编辑


附件里面含:
   通用函数介绍,
   含输入层名改层和层对象的颜色
   含选取对象改层和层对象的颜色




本帖子中包含更多资源

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

x

点评

没币啊,要一个不行么?  发表于 2014-1-20 22:04
唉,币收的有点高吧  发表于 2012-11-4 19:58
要成暴发户了,明经币多的,还收这么多啊,呵呵!  发表于 2012-6-12 22:01

评分

参与人数 1明经币 +1 收起 理由
ylzhaosjz + 1 楼主给你评一个币,卖得有点贵了.

查看全部评分

发表于 2012-5-31 14:20:45 | 显示全部楼层
有贴必顶,好贴必顶。
发表于 2012-5-31 14:33:00 | 显示全部楼层
看看开心老大的大作,谢了
发表于 2012-5-31 16:44:10 | 显示全部楼层
学习中
发表于 2012-5-31 17:32:00 | 显示全部楼层
网上找过,对我没太大作用!
发表于 2012-5-31 17:49:29 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2012-5-31 18:30:12 | 显示全部楼层
我也想看一下 開心老大的源碼!!
发表于 2012-5-31 19:24:48 | 显示全部楼层
只能看看,没币了,呵呵
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-22 17:25 , Processed in 0.168231 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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