Turning scroll bars ON/OFF via lisp

[cadconcepts]

Hi All

Is there an easy way to turn scroll bars ON or OFF via lisp? I know that I can set it through the Options dialog but I would love to be able adjust them on the fly with a macro. I have looked for a system variable but I couldn't find one. Any help is greatly appreciated. Thanks.

Manuel

[BlackBox]

For fun:

(defun c:SB () (c:SCROLLBARS))
(defun c:SCROLLBARS  (/ oDispPrefs)
  (vl-load-com)
  (princ "\rSCROLL BARS: ")
  (if (= :vlax-true
         (vla-get-displayscrollbars
           (setq oDispPrefs
                  (vla-get-display
                    (vla-get-preferences
                      (vlax-get-acad-object))))))
    (progn (vla-put-displayscrollbars oDispPrefs :vlax-false)
           (princ "OFF "))
    (progn (vla-put-displayscrollbars oDispPrefs :vlax-true)
           (princ "ON ")))
  (princ))

[cadconcepts]

Thank you very much RenderMan.

Manuel

[BlackBox]

Thank you very much RenderMan.

Happy to help, Manuel.