I use this lisp routine , It is not mine.
;|Finds layer of selected object, isolates it by Freezing, and zooms to (0.9) extents.
User clicks OK when finished and drawings returns to original view.
LAYER FLASH ROUTINE|;
(defun C:frezee (/ Flay lay Oldlay ITWAS OLDCMD WAITHERE XZ)
(vl-load-com)
(setq OldCmd (getvar "cmdecho"

)
(setvar "cmdecho" 0)
(setq OldLay (getvar "CLAYER"

)
(setq Flay (entsel "\nSelect object on FREEZE layer : "

)
(setq XZ
(vla-get-layer
(vlax-ename->vla-object
(car Flay)
) ;_ end of vlax-ename->vla-object
) ;_ end of vla-get-layer
) ;_ end of setq
(command "undo" "begin"
(command "layer" "make" XZ ""
(command "-layer" "freeze" "*" ""
(command "zoom" "extents"
(command "Zoom" "0.9x"
;(setvar "clayer" Oldlay)
;(setvar "cmdecho" OldCmd)
(princ)
) ;_ end of defun
Pardal