(defun c:zh ( / hdl xy enttype ed en xy2)
(setq YourHandle (getstring "\nEnter Handle: "))
(if (handent YourHandle)
(command "._zoom" "_ob" (handent YourHandle) "")
(princ "\nHandle not in drawing")
)
)
(defun c:zh ( / YourHandle ll ur )
(vl-load-com)
(setq YourHandle (getstring "\nEnter Handle: "))
(if (handent YourHandle)
(progn
(vla-getboundingbox (vlax-ename->vla-object (handent YourHandle)) 'll 'ur)
(vla-zoomwindow (vlax-get-acad-object) ll ur)
(sssetfirst nil (ssadd (handent YourHandle)))
)
(princ "\nHandle not in drawing")
)
(princ)
)