(vl-load-com)
(defun MY_Unisolate (reac com)
        (if (wcmatch (strcase (car com)) "UNISOLATE*")
            (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acActiveViewport)
        )
)
(setq *UNISOReactor
                     (vlr-command-reactor
                         "Unisolate reactor"
                         '((:vlr-commandEnded . MY_Unisolate))
                     )
            )