---

Hallo,
kann mir vielleicht jemand einen Tipp geben, wo ich die RGB-Farbwerte der 256 DXF-Farben finde?

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

---

Hi,

ja, kann ich:

Die Farbwerte und einiges mehr dazu gibt's bei mapcar: http://autolisp.mapcar.net/acifarben.html

Gruß
CADchup

------------------
www.cadditions.de

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

---

oder kopier dir folgendes in die Befehlszeile :
(vl-load-com)
(setq COLOROBJ (vla-getinterfaceobject
                  (vlax-get-acad-object)
                  "AutoCAD.AcCmColor.16"
              )
)
(setq i 0)
(repeat 255
  (princ "\n ACI : ")
  (cond
    ((< i 10) (princ "  "))
    ((< i 100) (princ " "))
  ) 
  (Princ i)(princ "  RGB :")
  (vla-put-ColorIndex COLOROBJ i)
  (prin1
    (list(vla-get-red  COLOROBJ)
        (vla-get-green COLOROBJ)
        (vla-get-blue  COLOROBJ)
    )
  )
  (setq i(1+ i))
)

gibt dir die RGB-WERTE in der von ACAD benutzten Form zurück.

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

---

@Thomas:

> gibt dir die RGB-WERTE in der von ACAD benutzten Form zurück

NEIN. Dieser Ausdruck gibt die Zahl 255 zurück!

Auch wenn die Funktion in Lisp nicht zu gebrauchen ist - schöner Ansatz, den ich ich auch mal ausprobieren wollte, das hast du mir jetzt erspart;-) Hast du die Ergebnisse zufällig mal mit meinen auf der o.a. Seite verglichen?

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
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

---

@Axel <Augenverdreh> ok ... als Freund der korrekten Bezeichnungen haste mit dem Rückgabewert recht, ich meinte auch mehr die Ausgabe im Textfenster als - korrekt formuliert -Nebeneffekt der Funktion (obwohl es eigentlich keine komplette Funktion ist, sondern eine Abfolge von Funktionsaufrufen) ... Verglichen habe ich die Werte nicht, vielleicht macht es mal ein Forumleser und postet dann die ergebnisse. Wäre mal interessant.
Man liest sich 

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 10. Nov. 2004 editiert.]

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