转换真彩色（求助）

tanle2020

各位大师：       我想实现图纸内所有图层颜色转换为真彩色，不改变颜色样式，如索引色红色1改为真彩色255，0，0 如何实现？



该贴已经同步到 tanle2020的微博

Gu_xl

tanle2020 发表于 2012-9-10 21:49
神那。。太感谢您了，能不能反之改为索引色？

更简单了

1. (defun c:tt1 (/ layer accmcolor Red Green Blue)
   
2.   (vlax-for layer (vla-get-layers
   
3.                     (vla-get-ActiveDocument (vlax-get-acad-object))
   
4.                   )
   
5.    (vla-put-color layer (vla-get-color layer))
   
6.   )
   
7.   (princ)
   
8. )
   

(defun c:tt1 (/ layer accmcolor Red Green Blue)<br />   (vlax-for layer (vla-get-layers<br />                     (vla-get-ActiveDocument (vlax-get-acad-object))<br />                   )<br />    (vla-put-color layer (vla-get-color layer))<br />   )<br />   (princ)<br /> )<br />

爱丹

Gu_xl 发表于 2012-9-10 22:00
更简单了

擦，找了好久，最后还是在明经找到了啊，应该一开始就来明经搜的不过大神可否给个VBA的真彩色转索引色的代码呢

tigcat

Gu_xl 发表于 2012-9-10 22:00
更简单了

谢谢Gu版，留着备用，记得有几次遇到了真彩色打印有点问题

Gu_xl

游客，本帖隐藏的内容需要发帖数高于 10 才可浏览，你当前发帖数只有 0

tanle2020

Gu_xl 发表于 2012-9-10 21:41
[/post]

神那。。太感谢您了，能不能反之改为索引色？

tanle2020

Gu_xl 发表于 2012-9-10 22:00
更简单了

COOL！

dujunhu2008

好贴，留个脚印在这里！

yanchao316

pengfei2010

学习了 哈哈

taoyi0727

G版在都不是问题    学习了