| |
![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
![](https://ww3.cad.de/php/image.php?resolution=width:16281) | Effiziente Datenmigration trifft nahtlose Systemintegration (SAP S/4HANA, SAP ECTR, AutoCAD, Inventor), ein Anwenderbericht |
Autor
|
Thema: Truecolor in ACI (Indexfarben) (5717 mal gelesen)
|
N 2207 Mitglied Technische Zeichnerin
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für N 2207](/foren/ubb/pmimages/gbu.gif) Beiträge: 33 Registriert: 13.02.2007 AutoCAD und ADT 2011,2012,2013 pit-CAD 2011,2012 Plancal-Nova 7.2
|
erstellt am: 25. Okt. 2011 14:57 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Habe schon das Forum durchforstet bin aber nur bedingt fündig geworden. Ich möchte die RGB True Color Farben in einem Plan mit Referenzen in die ACI (Indexfarben) umwandeln. Leider gibts im AutoCAD keine Systemvariable mit der man dies umstellen kann. Ich habe im Forum das hier gefunden. (defun c:nlaycolor (/ vg layers) (setq vg '((1 . 2);Farbe 1 nach 2 (70 . 51);Farbe 70 nach 51 ) layers (tab:getLayers) ) (foreach LAYER (mapcar '(lambda (L) (entget(tblobjname "LAYER" L)) ) layers) (entmod (subst (if(assoc (cdr(assoc 62 LAYER)) vg) (cons 62 (cdr (assoc (cdr(assoc 62 LAYER)) vg))) (assoc 62 LAYER)) (assoc 62 LAYER) LAYER ) ) ) ) (defun tab:getLayers (/ la lali) (setq la (tblnext "LAYER" T)) (while la (setq lali (cons (cdr(assoc 2 la)) lali) la (tblnext "LAYER")) ) (ACAD_STRLSORT lali) ) Würde mir schon weiterhelfen aber funzt momenten nur mit : ACI Farben nach ACI Farben. Brauche aber True Color (RGB) Farben nach ACI Farben.
Würd mich sehr freuen, wenn mir jemand weiterhelfen könnte . -Nadia- ------------------ Gruß Nadia Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky Ehrenmitglied V.I.P. h.c. CAD-Dienstleistungen für Architekten
![](/foren/avatars/wronzky.gif)
![Schreiben Sie einen Gästebucheintrag für wronzky](/foren/ubb/pmimages/gbu.gif) Beiträge: 2154 Registriert: 02.05.2005 CAD: AutoCAD 2.6 bis 2014 ADT 2005 bis ACA 2013 Arcibem System: Windows Internet-Startseite: http://www.archi.de
|
erstellt am: 25. Okt. 2011 15:27 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für N 2207
Hallo Nadia, folgendes kleine Lisp wandelt ALLE Layerfarben in die korrespondierenden Index-Farben um: Code: (defun c:LayerColor-2-ACI ( / lay) (vl-load-com) (vlax-for lay (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-put-color lay (vla-get-colorindex (vla-get-truecolor lay))) ) )
HTH, Grüsse, Henning------------------ Henning Jesse VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/CADmium.gif)
![Schreiben Sie einen Gästebucheintrag für CADmium](/foren/ubb/pmimages/gbu.gif) Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 25. Okt. 2011 15:36 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für N 2207
|
N 2207 Mitglied Technische Zeichnerin
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für N 2207](/foren/ubb/pmimages/gbu.gif) Beiträge: 33 Registriert: 13.02.2007 AutoCAD und ADT 2011,2012,2013 pit-CAD 2011,2012 Plancal-Nova 7.2
|
erstellt am: 26. Okt. 2011 11:29 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
|
BBecker Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für BBecker](/foren/ubb/pmimages/gbu.gif) Beiträge: 133 Registriert: 05.06.2002 Windows 7, Acad 2012 MEP
|
erstellt am: 23. Jan. 2013 15:27 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für N 2207
Hallo, die u. a. Lisp habe ich im Forum gefunden. Ich brauche sie aber genau anders herum. Und zwar Indexfarbe zu Truecolorfarbe. Um genau zu sein die Farbe 8 in 128,128,128 mehrerer Layer. Ist es möglich diese umzuschreiben? Danke und Gruß Beate folgendes kleine Lisp wandelt ALLE Layerfarben in die korrespondierenden Index-Farben um:
Code: (defun c:LayerColor-2-ACI ( / lay) (vl-load-com) (vlax-for lay (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-put-color lay (vla-get-colorindex (vla-get-truecolor lay))) ) )
HTH, Grüsse, Henning------------------ Henning Jesse VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/CADmium.gif)
![Schreiben Sie einen Gästebucheintrag für CADmium](/foren/ubb/pmimages/gbu.gif) Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 23. Jan. 2013 15:41 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für N 2207
|
BBecker Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für BBecker](/foren/ubb/pmimages/gbu.gif) Beiträge: 133 Registriert: 05.06.2002 Windows 7, Acad 2012 MEP
|
erstellt am: 23. Jan. 2013 17:05 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für N 2207
Vielen Dank für die schnelle Antwort! Es läuft ausgezeichnet für alle Layer. Aber besteht auch die Möglichkeit nur die Layer, die die Farbe 8 haben in Truecolor umzuwandeln? Lieben Gruß und danke Beate Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/CADmium.gif)
![Schreiben Sie einen Gästebucheintrag für CADmium](/foren/ubb/pmimages/gbu.gif) Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 23. Jan. 2013 17:39 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für N 2207
|
BBecker Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für BBecker](/foren/ubb/pmimages/gbu.gif) Beiträge: 133 Registriert: 05.06.2002 Windows 7, Acad 2012 MEP
|
erstellt am: 23. Jan. 2013 17:42 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für N 2207
|
CADmium Moderator Maschinenbaukonstrukteur
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/CADmium.gif)
![Schreiben Sie einen Gästebucheintrag für CADmium](/foren/ubb/pmimages/gbu.gif) Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 23. Jan. 2013 17:46 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für N 2207
|
BBecker Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für BBecker](/foren/ubb/pmimages/gbu.gif) Beiträge: 133 Registriert: 05.06.2002 Windows 7, Acad 2012 MEP
|
erstellt am: 23. Jan. 2013 18:04 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für N 2207
Ich kann danke sagen und Unities vergeben, aber in diesem Fall reicht das nicht! Also fühl Dich herzlich virtuell umarmt! Ich werde einen superschönen Feierabend haben und Du hoffentlich auch. Großen Dank und lieben Gruß Beate Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jcad Mitglied
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für jcad](/foren/ubb/pmimages/gbu.gif) Beiträge: 23 Registriert: 24.09.2014 AutoCAD2015
|
erstellt am: 27. Mrz. 2015 10:41 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für N 2207
|
CADmium Moderator Maschinenbaukonstrukteur
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/CADmium.gif)
![Schreiben Sie einen Gästebucheintrag für CADmium](/foren/ubb/pmimages/gbu.gif) Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 27. Mrz. 2015 10:53 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für N 2207
|
![](https://ww4.cad.de/Ads/adview.php?what=zone:16178&n=aee1ae73)
| Trainee (m/w/d) Produktion & Technik | Das Unternehmen Develey Senf & Feinkost GmbH gehört mit seinen Marken zu den führenden und modernsten Herstellern im Senf- und Feinkostbereich. Werden auch Sie Teil dieses traditionsreichen Unternehmens. TRAINEE (m/w/d) PRODUKTION & TECHNIK Unterhaching, zahlreiche Einsätze in unseren (inter-)nationalen Standorten | Vollzeit
| Anzeige ansehen | Fertigung, Produktion |
|
jcad Mitglied
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für jcad](/foren/ubb/pmimages/gbu.gif) Beiträge: 23 Registriert: 24.09.2014 AutoCAD2015
|
erstellt am: 27. Mrz. 2015 13:45 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für N 2207
|