(defun C:SCM (/ display)   ;;;SCREENMENÜ ONOFF
  (vl-load-com)
  (setq display (vla-get-Display (vla-get-Preferences (vlax-get-acad-object))))
  (vla-put-DisplayScreenMenu
    display
    (if (= (vla-get-DisplayScreenMenu display) :vlax-false) :vlax-true :vlax-false)
  )
  (princ)
) 
 
(defun c:TBA()             ;;;TOOLBAR ONOFF
(vl-load-com)
(setq acadobj (vlax-get-acad-object))              ;;#<VLA-OBJECT IAcadApplication 00b60584>
(setq menus (vla-get-menuGroups acadobj))          ;;#<VLA-OBJECT IAcadMenuGroups 003f36e8>
(vlax-for for-item menus (setq Mnam (vla-get-name for-item))(princ Mnam)(terpri)(princ) )    ;Diese Zeile druckt Menügruppennamen
;(vlax-for for-item menus  (Setq IT (vlax-dump-object for-item) )(princ IT)(terpri)(princ) ) ;Diese Zeile druckt Menügruppeneigenschaften
(Setq currMenuGroup (vla-item menus "AECARCHX"))   ;;#<VLA-OBJECT IAcadMenuGroup 0114c7fc>
(setq TBGruppe (vla-get-toolbars currMenuGroup))  ;;#<VLA-OBJECT IAcadToolbars 04d60354>
(setq TBgesucht (vla-item TBGruppe "ADT2004"))          ;;#<VLA-OBJECT IAcadToolbar 011504ac>
(setq TBONOFF (vla-get-visible TBgesucht))                ;; :vlax-true oder :vlax-false
(vla-put-visible  TBgesucht   (if (= (vla-get-visible TBgesucht) :vlax-false) :vlax-true :vlax-false)  )
  (princ)
  )