;; --------------------------------------------------------------------------------------------------- ;;
(defun GET_PROP_LIST (VLA_OBJEKT PROPS / PROPS_LISTE)  
  (if(and(= (type VLA_OBJEKT) 'VLA-OBJECT)(=(type PROPS)'LIST))    
    (mapcar                                   ; und für alle definierten Eigenschaften der PROPS-Liste ..
      (function                                   ; .. lambda-Funktion für Eigenschaft PROPERTY aufführen
        (lambda (PROPERTY) 
          (cond ((vlax-property-available-p VLA_OBJEKT PROPERTY)      ; existiert Eigenschaft überhaupt ?
                 (if (not (vl-catch-all-error-p                                        ; wenn ja, dann ..
                            (setq PROPS_LISTE (list (vl-princ-to-string PROPERTY)  ; Name der Eigenschaft
                                                    (vl-catch-all-apply
                                                      'vlax-get-property ; und ausgelesende Eigenschaft..
                                                      (list VLA_OBJEKT PROPERTY)
                                                    )				      
                                              )                  ;.. in der Eigenschaften-Liste speichern
                            )
                          )
                     )
                     PROPS_LISTE
                 )
                )
          ) 
        )
      )
      PROPS
    )
  )  
)
;; --------------------------------------------------------------------------------------------------- ;;

;; --------------------------------------------------------------------------------------------------- ;;
;; -- GET_ACAD_PROPS : Liest Variablen aus, die unter Autocad-Optionen-Anzeige eingegeben werden..  -- ;;
;; --------------------------------------------------------------------------------------------------- ;;
(defun GET_ACAD_PROPS ( / ANZEIGE )   
  (setq ANZEIGE (vla-get-Display(vla-get-Preferences(vla-get-application(vlax-get-acad-object)))))
  (setq ACAD-PROPS_Anzeige (GET_PROP_LIST ANZEIGE                  
                                      '(AutoTrackingVecColor
  					CursorSize
  					DisplayLayoutTabs
  					DisplayScreenMenu
  					DisplayScrollBars
  					DockedVisibleLines
  					GraphicsWinLayoutBackgrndColor
  					GraphicsWinModelBackgrndColor
  					HistoryLines
  					ImageFrameHighlight
  					LayoutCreateViewport
  					LayoutCrosshairColor
  					LayoutDisplayMargins
  					LayoutDisplayPaper
  					LayoutDisplayPaperShadow
  					LayoutShowPlotSetup
  					MaxAutoCADWindow
  					ModelCrosshairColor
  					ShowRasterImage
  					TextFont
  					TextFontSize
  					TextFontStyle
  					TextWinBackgrndColor
  					TextWinTextColor
  					TrueColorImages
  					XRefFadeIntensity))
  )
)  
;; --------------------------------------------------------------------------------------------------- ;;


(vl-load-com)