(vl-load-com)
(defun LM:ss->vla ( ss / i l )
(if ss
(repeat (setq i (sslength ss))
(setq l (cons (vlax-ename->vla-object (ssname ss (setq i (1- i)))) l))
)
)
)
(vlr-miscellaneous-reactor nil '((:vlr-layoutSwitched . ctab_willchange)))
(defun ctab_willchange (calling-reactor Info / obj)
(foreach obj (LM:ss->vla (ssget "x" '((0 . "viewport"))))
(VL-CATCH-ALL-APPLY 'vla-put-ViewportOn (list obj :vlax-false))
)
)
Maybe it has switched ,so I can not put the viewport off.But I use this reactor,also crash
(vlr-editor-reactor nil '((:vlr-sysVarWillChange . ctab_willchange )))
(defun ctab_willchange (calling-reactor Info / obj)
(if (or (= (strcase (car Info)) "CTAB") (= (strcase (car Info)) "TILEMODE"))
(foreach obj (LM:ss->vla (ssget "x" '((0 . "viewport"))))
(VL-CATCH-ALL-APPLY 'vla-put-ViewportOn (list obj :vlax-false))
)
)
)
