| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: RGB -> ACI (1575 mal gelesen)
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 08. Feb. 2005 12:50 <-- editieren / zitieren --> Unities abgeben:
Frage: Wie rechnet ACAD RGB-Farben in AutocadColorIndex-Farben um? Mit activX kann man ja auf folgende Möglichkeit zurückgreifen: (defun DT:COLOR-RGB->ACI ( RGB / COLOROBJ ACI ) (if(and (=(type RGB)'LIST)(=(length RGB)3) (setq COLOROBJ (vla-getinterfaceobject (vlax-get-acad-object) "AutoCAD.AcCmColor.16" ) ) (not(vl-catch-all-error-p (vl-catch-all-apply 'vla-setRGB (list COLOROBJ (car RGB) (cadr RGB) (caddr RGB) ) ) ) ) (setq ACI (vla-get-ColorIndex COLOROBJ)) ) ACI ) ) z.B: (DT:COLOR-RGB->ACI '(153 76 0)) -> 34 Aber wie läßt es sich ohne ActiveX realisieren? Mapcar hatte ja auf seinen Seite schon mal die "inverse" Funktion erarbeitet. Ich bin nun auf der Suche nach einer "Normalo"Lisp-funktion, die die gleichen Ergebnisse wie obige liefert. In der Hoffnung, dass sich schon mal jemand mit beschäftigt hat.... ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
startrek Mitglied Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 18. Feb. 2005 23:51 <-- editieren / zitieren --> Unities abgeben: Nur für CADmium
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 15. Aug. 2005 09:53 <-- editieren / zitieren --> Unities abgeben:
|
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 15. Aug. 2005 10:28 <-- editieren / zitieren --> Unities abgeben: Nur für CADmium
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 15. Aug. 2005 10:38 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von mapcar: Was, ausser der Faulheit, spricht eigentlich dagegen, das auf meiner Seite aufgezeigte Verfahren umzudrehen?
evtl. Mangel an Zeit, an Wissen ... ansonsten fällt mir nix ein Hätt ja sein können, einer hat schon die Intervalle, wie Adesk rundet, ermittelt und stellt hier ne fertige Routine rein.. Wie wär's ? Die Umkehrfunktion würde sich doch auf deiner Seite auch gut machen. und zu Warum denn jetzt plötzlich ohne ActiveX? *wunder* Interesse!! Wissenwollen!! um Angelika H. mal zu zitieren Der erreicht am meisten, der immer auch anders kann, als er vorhatte.
------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 15. Aug. 2005 11:00 <-- editieren / zitieren --> Unities abgeben: Nur für CADmium
Hi CADmi, wie schnell ist denn die Farbroutine vom DosLib? dos_rgbtoaci Könntest Du die nicht mal auf alle 16.7 Millionen Farben ansetzen mit der Funktion die wir schon mal erörtert aber aufgrund der Langsamkeit der AX-Function verworfen hatten? ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |