;-------------------------------------------------------------------------------------------------------------------------------------
;  
; Modulname    : layer_farbinfo_ermitteln.lsp
;   
; Modulbeschr. : Die Farbinformationen eines Layers ermitteln
;  
;-------------------------------------------------------------------------------------------------------------------------------------
;
; Schnittstelle zu anderen Modulen:
;
; INPUT und INPUTRESTRIKTIONEN
; ============================
;
; Parameter    :
;
; Typ    Variablename      Variablebeschreibung [Wertebereich]
; str    clayername        Layername
;
; OUTPUT und OUTPUTRESTRIKTIONEN
; ================================
;
; Parameter    :
;
; Typ    Variablenname     Variablenbeschreibung  [Wertebereich]
; list   lfarbinfo         Farbinformationen des Layers
;  
;-------------------------------------------------------------------------------------------------------------------------------------
;  
( defun layer_farbinfo_ermitteln ( clayername
                                   / 
                                   cfarbbuchfarbelayer ctruecolorfarbelayer
                                   iindexfarbelayer itruecolorfarbelayer
                                   lelement lfarbbuchfarbe lfarbinfo lindexfarbe
                                   ltruecolorfarbe )
 
; Die Farbinformationen ermitteln
  (setq lelement (entget (tblobjname "layer" clayername)))	
  (setq lindexfarbe (assoc 62 lelement)) ; Liste für Indexfarbe
  (setq iindexfarbelayer (cdr lindexfarbe)) ; Indexfarbe
  (setq iindexfarbelayer (abs iindexfarbelayer))
  (setq ltruecolorfarbe (assoc 420 lelement)) ; Liste für TrueColor (nicht immer vorhanden)
  (setq itruecolorfarbelayer (cdr ltruecolorfarbe)) ; TrueColorfarbe
  (setq ctruecolorfarbelayer (gc420_to_rgb itruecolorfarbelayer)) ; RGB-Farbe	
  (setq lfarbbuchfarbe (assoc 430 lelement)) ; Liste für Farbbuch (nicht immer vorhanden)
  (setq cfarbbuchfarbelayer (cdr lfarbbuchfarbe)) ; Farbbuchfarbe

; Den Rückgabewert ermitteln
  (setq lfarbinfo nil)
  (setq lfarbinfo (append lfarbinfo (list iindexfarbelayer)))
  (setq lfarbinfo (append lfarbinfo (list ctruecolorfarbelayer)))
  (setq lfarbinfo (append lfarbinfo (list cfarbbuchfarbelayer)))

; Rückgabewert
  lfarbinfo

) ; Modulende