(defun c:is ()
(while (null (setq n (ssget))))
(vl-cmdf "._isolateobjects" n "")
(princ))

(defun c:uis ()
(vl-cmdf "._unisolateobjects")
(princ))

(defun c:alumina ()
(vl-load-com)
(while (null (setq n (ssget))))
(setq ls '() i 0)
(repeat (sslength n)
(if
(null (member (vla-get-layer (vlax-ename->vla-object (ssname n i))) ls))
(setq ls (cons (vla-get-layer (vlax-ename->vla-object (ssname n i))) ls) i (1+ i) ls (acad_strlsort ls))))
(setq lt (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
(if
(null (member (vla-get-name (vla-get-activelayer (vla-get-activedocument (vlax-get-acad-object)))) ls))
(vla-put-activelayer (vla-get-activedocument (vlax-get-acad-object)) (vla-item lt (nth 0 ls))))
(vlax-for l lt
(if
(null (member (vla-get-name l) ls))
(vla-put-freeze l 1)))
(princ))