HIntergrund aktiver Afenster switchen? (Autodesk/Rund um AutoCAD)

Hi Alpi,
ich habe für solche Fälle 'n eigenes Toolbar-Icon welches auf Knopfdruck zwischen Schwarz und Weiß hin und her schaltet.
Dies ist der Code:

Code:

;;; BckgrndSwitcher.LSP
;;;
;;; Marc Scherer 02/2004
;;;
;;; Hier definierte Funktionen:
;;; C:SBG
;;; SWITCH-BACKG
;;; SWITCH-BACKG-TO
;;; CHBACK
;;; C:GETCOL
;;;
;;; Laden:
;;; Holt das Anzeige-Objekt als ActiveX-Objekt
(defun GET:PREFDISPLAY ()
(vla-get-display ;_ gibt das Anzeige-Objekt zurück
(vla-get-preferences ;_ gibt das Einstellungs-Objekt zurück
(vlax-get-acad-object) ;_ gibt die Applikation als Objekt zurück
) ;_ end of vla-get-preferences
) ;_ end of vla-get-display
) ;_ end of defun
;;; Funktion ermittelt den Wert eines Variants,
;;; welches vorher in ein LongInteger konvertiert wird
(defun value-from-vlax-vblong (ARG /)
(vlax-variant-value
(vlax-variant-change-type
ARG
vlax-vblong
) ;_ end of vlax-variant-change-type
) ;_ end of vlax-variant-value
) ;_ end of defun

;;; Funktion zum Aufruf des Hintergrund-Switchers als AutoCAD-Befehl
(defun C:SBG ()
(SWITCH-BACKG)
(princ)
) ;_ end of defun

;;; Schaltet die Farben für Hintergrund und Fadenkreuz des Modellbereichs um
(defun SWITCH-BACKG (/)
(CHBACK 0 16777215)
(princ)
) ;_ end of defun
;;; Wechselt die Farben von Hintergrund und Fadenkreuz
;;; auf die Werte, die an das Programm übergeben werden:
;;; Bespiel:
;;; (MSBACK-TO 12632256 16777215) schaltet den Hintergrund grau und das Fadenkreuz Weiß
;;; gängige Farb-Werte:
;;; Schwarz: 0
;;; Weiß: 16777215
;;; Grau (Farbe 9): 12632256
;;; Bei zweimaligem Aufruf mit gleichen Werten werden die Farben vertauscht
(defun SWITCH-BACKG-TO (COLBCK COLCROSS /)
(CHBACK COLBCK COLCROSS)
(princ)
) ;_ end defun

;;; Funktion ermittelt die aktuellen Daten für die Hintergrundfarbe und das Fadenkreuz,
;;; und setzt sie komplementär dazu neu.
;;; Ob die Farben für den Modell oder Papierbereich ermittelt werden, hängt vom zur Laufzeit
;;; aktiven Bereich ab (Entscheidung durch SysVar "TILEMODE").
;;; Argumente:
;;; Color? = Integer, Farbe 1
;;; Ccolor? = Integer, Farbe 2 (sollte komplementär zu Farbe 1 sein)
;;; Die Farben für Hintergrund und Fadenkreuz sollten an entgegengesetzten Enden der Farbskala sein
(defun CHBACK (COLOR? CCOLOR? / CHAIRCOLOR
COLOR PREFDISPLAY BACKGPROP CROSSHPROP
)
(if (= (getvar "tilemode") 1) ;_ Wenn 1, Eigenschaften für Modellbereich verändern
(setq BACKGPROP 'GRAPHICSWINMODELBACKGRNDCOLOR
CROSSHPROP 'MODELCROSSHAIRCOLOR
) ;_ end of setq
;; Ansonsten
(setq BACKGPROP 'GRAPHICSWINLAYOUTBACKGRNDCOLOR
CROSSHPROP 'LAYOUTCROSSHAIRCOLOR
) ;_ end of setq
) ;_ end of if
(setq PREFDISPLAY (GET:PREFDISPLAY) ;_ Hole das Objekt PreferencesDisplay
COLOR (VALUE-FROM-VLAX-VBLONG
(vlax-get-property PREFDISPLAY BACKGPROP)
) ;_ end of value-from-vlax-vblong
CHAIRCOLOR (VALUE-FROM-VLAX-VBLONG
(vlax-get-property PREFDISPLAY CROSSHPROP)
) ;_ end of value-from-vlax-vblong
) ;_ end of setq
(vlax-put-property ;_Setze die Eigenschaft backgrndcolor
PREFDISPLAY ;_ für das Display Objekt
BACKGPROP
(vlax-make-variant ;_ auf ein LongInteger-Variant, das hier erzeugt wird
(if (= COLOR COLOR?) ;_ Wert für das zu erzeugende Variant; wenn Color = Color?
CCOLOR? ;_ nimm Ccolor? (also komplementär)
COLOR? ;_ ansonsten nimm Color?
) ;_ end of if
vlax-vblong
) ;_ end of vlax-make-variant
) ;_ end of vlax-put-property
(vlax-put-property ;_ Setze die Eigenschaft crosshaircolor
PREFDISPLAY ;_ komplementär zum Background
CROSSHPROP
(vlax-make-variant
(if (= COLOR COLOR?)
COLOR?
CCOLOR?
) ;_ end of if
vlax-vblong
) ;_ end of vlax-make-variant
) ;_ end of vlax-put-property
) ;_ end of defun

;;; Funktion gibt die aktuellen Farbwerte für Hintergrundfarbe und Fadenkreuz aus.
;;; Hilfsfunktion, um die korrekten Werte für den ColorSwitcher einstellen zu können.
(defun C:GETCOL
(/ MCHAIRCOLOR MCOLOR PCHAIRCOLOR PCOLOR PREFDISPLAY RETVAL)
(setq PREFDISPLAY (GET:PREFDISPLAY)
MCOLOR (VALUE-FROM-VLAX-VBLONG
(vlax-get-property
PREFDISPLAY
'GRAPHICSWINMODELBACKGRNDCOLOR
) ;_ end of vlax-get-property
) ;_ end of value-from-vlax-vblong
MCHAIRCOLOR (VALUE-FROM-VLAX-VBLONG
(vlax-get-property PREFDISPLAY 'MODELCROSSHAIRCOLOR)
) ;_ end of value-from-vlax-vblong
PCOLOR (VALUE-FROM-VLAX-VBLONG
(vlax-get-property
PREFDISPLAY
'GRAPHICSWINLAYOUTBACKGRNDCOLOR
) ;_ end of vlax-get-property
) ;_ end of value-from-vlax-vblong
PCHAIRCOLOR (VALUE-FROM-VLAX-VBLONG
(vlax-get-property
PREFDISPLAY
'LAYOUTCROSSHAIRCOLOR
) ;_ end of vlax-get-property
) ;_ end of value-from-vlax-vblong
RETVAL (strcat "Folgende Farben sind momentan aktuell gesetzt:"
"\nModellbereich:"
"\n\tFadenkreuz: "
(itoa MCHAIRCOLOR)
"\n\tHintergrund: "
(itoa MCOLOR)
"\n\nPapierbereich:"
"\n\tFadenkreuz: "
(itoa PCHAIRCOLOR)
"\n\tHintergrund: "
(itoa PCOLOR)
) ;_ end of strcat
) ;_ end of setq
(alert RETVAL)
(princ RETVAL)
(princ)
) ;_ end of defun
(princ)

Und so sieht das Toolbar-Makro aus:

Code:

^C^C(if (null C:SBG) (load "gui.lsp"))(princ);SBG;

Das ganze ist so aufgebaut, dass Du relativ leicht diverse Farbumschaltungen realisieren kannst (Rot/grün z.B. aber das ist derzeit eher nicht so angesagt :-)) Die Funktion GETCOL gibt Dir die numerischen Werte der aktuellen Einstellung zurück.

------------------
Ciao,
Marc

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