---

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

---

colors.dvb.txt

just for fun [@Proxy]

Ansatz geht nich ...

lg Nancy

[Diese Nachricht wurde von startrek am 18. Feb. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

noch einer 'ne Idee? oder ne entsprchende Doku?

------------------
- 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

---

Was, ausser der Faulheit, spricht eigentlich dagegen, das auf meiner Seite aufgezeigte Verfahren umzudrehen?

Man muss zunächst die RGB-Farben in Intervalle runden und dann den Prozess einfach umdrehen. Eindeutigkeit ist aber nicht vollstndig gegeben, man kann nur auf 249 aus 255 Farben zurückrechnen, da 6 Farben doppelt vorkommen. Die Ergebnisse können also nur zwischen 7 und 255 liegen.

Warum denn jetzt plötzlich ohne ActiveX? *wunder*

Gruß, Axel Strube-Zettler

------------------
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

---

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