0 Members and 1 Guest are viewing this topic.
(defun c:z (/ osp ssp) ;; ->> Remove "Z Zoom" from Alias Editor (setvar 'cmdecho 0) (princ "\n Grip/Snap-Free Zoom..") (setq osp (getvar 'osmode)) (setq ssp (getvar 'snapmode)) (setvar 'snapmode 0) (vl-cmdf "osmode" 16384 "zoom" pause pause) ;; needed pauses to get the grips to remain off (setvar 'snapmode ssp) (setvar 'osmode osp) (setvar 'cmdecho 1) (princ))
(defun c:ZSnap ( / *error* osmode pt1 pt2) (defun *Error* (msg) ; embedded defun (setvar 'osmode osmode) (if (/= s "Function cancelled") (princ (strcat "\nError: " msg)) ) (princ) ) (setq osmode (getvar 'osmode)) (if (> (getvar 'osmode) 16384) (setvar 'osmode (- osmode 16384)) ) (setq pt1 (getpoint "\nSelect First Window Point: ")) (setq pt2 (getcorner pt1 "\nSelect Second Window Point: ")) (command "._zoom" "_w" pt1 pt2) ; end zoom (setvar 'osmode osmode))