(defun C:PLANX (/ c h) (setq c (getvar "viewctr") h (getvar "viewsize") )

(command "_.plan" "" "_.zoom" "_c" c h) (princ))

(command "_ucs" "_3")

(while (> (getvar "CmdActive") 0)
(command pause)
)

(c:planx)

(SetVar "ucsicon" 1)
)

Advertisements