TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: ScottMC on July 21, 2021, 05:03:34 PM

Title: Grip and Snapless Zoom
Post by: ScottMC on July 21, 2021, 05:03:34 PM
Just wonder if someone knows of a variable associated with zoom. I'd given up long ago and wrote a shorty to ease the trouble. Enjoy..
 
Code: [Select]
(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)
)
Title: Re: Grip and Snapless Zoom
Post by: tombu on July 23, 2021, 08:25:04 AM
Here's one for when you do want to use default osnaps:
Code: [Select]
(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)
)
Title: Re: Grip and Snapless Zoom
Post by: ScottMC on July 23, 2021, 08:36:54 PM
Another, which won't work is, assigning [ z = 'zoom ] in AliasEditor. I put as a mouse-click in my 'wheel-flyout' ID_TZoom       [Zoom(T)]'zoom
Thanks

Now my default zoom deactivates the grips.. hmm, a new mystery. Do like default better the way it works.