求助lisp程序批量解决改变图层管理器内图层颜色

李旭洋

登录/注册后可看大图 由于要求发生变化，前期做的图上图层的rgb色与甲方要求的对不上，现在每一幅都要手工修改到正确的rgb色，有哪位大神可以帮助写一个lisp程序，实现图层管理器内RGB颜色的修改； 具体要求如下：    序号    目前图颜色 需改为颜色 1. 35,31,32 33,26,23 2. 225,244,253 240,247,252 3. 185,124,15 173,130,18 4. 0,174,239 0,155,219 5. 237,28,36 191,10,19 6. 0,166,81 0,144,69 7. 239,91,161 202,104,160 8. 253.185,19 233,188,0

newer

对应的什么图层呢？
你做成一个XLS文件传上来

李旭洋

newer 发表于 2018-3-28 18:12
对应的什么图层呢？
你做成一个XLS文件传上来

需要图层吗？这个图层非常多，要一个个来做吗？

newer

你不是要修改图层的颜色吗？ 你是想修改单个实体的颜色？还是根据上面的颜色去找到图层，然后设置图层颜色？
上传个DWG上来。

李旭洋

newer 发表于 2018-3-28 18:29
你不是要修改图层的颜色吗？ 你是想修改单个实体的颜色？还是根据上面的颜色去找到图层，然后设置图层颜色 ...

我的意思是根据目前图层的rgb色，在管理器里面直接改成要求的rgb色

newer

李旭洋 发表于 2018-3-28 18:40
我的意思是根据目前图层的rgb色，在管理器里面直接改成要求的rgb色

上传个DWG，图内容无所谓，图层有你的数据就行。

李旭洋

李旭洋 发表于 2018-3-28 18:40
我的意思是根据目前图层的rgb色，在管理器里面直接改成要求的rgb色

我想着可以不可以不通过图层来转换，因为我转换前后都是rgb色，只是转换前和转换后三个数字不一样，能不能直接通过指令修改rgb的值

XDSoft

李旭洋 发表于 2018-3-28 21:57
我想着可以不可以不通过图层来转换，因为我转换前后都是rgb色，只是转换前和转换后三个数字不一样，能不 ...

你到底是想改 图层列表里面的每个图层的颜色？ 还是单独更改每个实体的颜色？
你这个帖子是什么意思呢？ 什么是不通过更改图层的颜色？

李旭洋

XDSoft 发表于 2018-3-28 22:08
你到底是想改 图层列表里面的每个图层的颜色？ 还是单独更改每个实体的颜色？
你这个帖子是什么意思呢？ ...

看到这个图片了把，这是我现在图里的状态，rgb色值。我现在就是要把所有的0,166,81 改为0,144,69 等等  就这个意思

李旭洋

newer 发表于 2018-3-28 19:43
上传个DWG，图内容无所谓，图层有你的数据就行。

看到这个图片了把，这是我现在图里的状态，rgb色值。我现在就是要把所有的0,166,81 改为0,144,69 等等  就这个意思。本来通过图层管理器改也可以，但是需要一个个对，太慢。我的数据量太大，有快两千幅图，所以看能不能程序化解决。

XDSoft

李旭洋 发表于 2018-3-28 22:19
看到这个图片了把，这是我现在图里的状态，rgb色值。我现在就是要把所有的0,166,81 改为0,144,69 等等   ...

这不就是通过程序去修改图层的颜色设置嘛。
从你的对照表里面，找到所有的符合颜色的图层定义，一次都把里面图层的颜色设置改过来。

你上传个XLS的对照文件表 和 一个 DWG文件供测试。

李旭洋

XDSoft 发表于 2018-3-28 22:33
这不就是通过程序去修改图层的颜色设置嘛。
从你的对照表里面，找到所有的符合颜色的图层定义，一次都把 ...

(defun tt()
(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) "1") (vla-setrgb acmCol 0 0 255) (vla-put-TrueColor x acmCol))
    ((= (vla-get-name x) "2") (vla-setrgb acmCol 255 0 0) (vla-put-TrueColor x acmCol))
    ((= (vla-get-name x) "3") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
  )
  )
  )

类似于这个程序吗？

newer

李旭洋 发表于 2018-3-28 23:03
(defun tt()
(setq acmCol (vla-getinterfaceobject
           (vlax-get-acad-object)  (strcat "Au ...

你这个代码做什么的，你知道吗？

李旭洋

newer 发表于 2018-3-28 23:09
你这个代码做什么的，你知道吗？

一个图层定义一个rgb颜色吧，对不对，我是新手，哈哈

newer

李旭洋 发表于 2018-3-28 23:13
一个图层定义一个rgb颜色吧，对不对，我是新手，哈哈

把图层名是 1,2,3的图层设置RGB颜色。你要的和这个不一样。