(vl-load-com)
(defun WYSIWYG( MODUS / LAYOUT)
  (vlax-for LAYOUT (vla-get-layouts
                     (vla-get-activedocument(vlax-get-acad-object))                     
                   )  
     (vla-put-showplotstyles
       LAYOUT
       (if MODUS :vlax-true :vlax-false)
     )
  )
  (setvar "LWDISPLAY" (if MODUS 1 0))
  (vla-regen(vla-get-activedocument(vlax-get-acad-object))            
            acAllViewports
  )            
)
(defun C:WYSIWYG-ON ()(WYSIWYG  'T))
(defun C:WYSIWYG-OFF()(WYSIWYG nil))
(defun C:WYSIWYG-SWITCH()
  (if(=(getvar "LWDISPLAY")1)(WYSIWYG nil)(WYSIWYG 'T))  
)


;;; - ---------------------------------------------------------------- - ;
(princ
  (strcat
    "\n\n"
    "\nWYSIWYG : Umschalten der Anzeige gemäß Plotstil in allen Layouts"
    "\n=======   sowie des SYSVAR LWDISPLAY"
    "\n(C) Thomas Krüger 2009"     
    "\nBefehlszeilenaufrufe : WYSIWYG-ON / WYSIWYG-OFF / WYSIWYG-SWITCH\n"
  )
)
;;; - ---------------------------------------------------------------- - ;
(princ)