CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz]
Cesky English Deutsch
Login/Register:
 Visitors: 2077 

CAD tip CAD tip # 10071:

Question CAD 
 %  platform  category 
Q - question

How to recolor layers from ACI to truecolor?

A - answer How to change layer colors (ACI) to Truecolors of the same hue? E.g. to change a layer color Red (1) to the RGB color 255,0,0.

You can use the following LISP utility to recolor layers, changing their color method "palette" (ACI) to Truecolor:

; Layer ACI -> truecolor
(defun C:LAY2TC ( / lay truecol aci R G B)
 (vl-load-com)
 (vlax-for lay (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
   (setq truecol (vla-get-truecolor lay))
   (if (= (vla-get-ColorMethod truecol) acColorMethodByACI)
    (progn
      (setq aci (vla-get-ColorIndex truecol))            
      (vla-put-ColorMethod truecol acColorMethodByRGB)
      (vla-put-ColorIndex truecol aci)
      (setq R (vla-get-red truecol))
      (setq G (vla-get-green truecol))
      (setq B (vla-get-blue truecol))
      (vla-setRGB truecol R G B)
      (vla-put-truecolor lay truecol)
    )
   )  
 ); vlax
)

You can download the LAY2TC add-on application from www.cadstudio.cz/download

ACAD
100% *  CAD 
30.10.2014    5948×  
Prices - CAD eShop:
applies to: AutoCAD ·

See also:
Tip 12279:PropByLayer - an inverse function to SetByLayer.
Tip 12215:How to change truecolor DWG objects to indexed ACI colors?
Tip 11830:How to influence linetype scale or color for hidden edges in documentation views?
Tip 11160:Dynamic display of layer/block/text style/linetype properties.
Tip 11054:Difference volume (3D solid) between two TIN surfaces (sets of coordinates)


Back   All CAD Tips All CAD tips&tricks



Have we helped you? If you want to support the CAD Forum web service, consider buying one of our CAD applications, or our custom software development offerings, or donating via PayPal (see above). You may also add a link to your web - like this "fan" link: CAD Forum - tips, utilities, blocks for Autodesk products
CAD:    OS:    Categ: 
Text:  FAQ glossary   



Featuring:
Extend your AutoCAD LT productivity with our popular add-on
CADstudio LT Extension More info


Please use these tips at your own risk.
CAD Studio is not responsible for possible problems that may occur as a result of using any of these tips.
TOPlist