Snapping to objects when zooming in Viewport

[tombu]

Try:

(defun c:ZSnapOld ( / pt1 pt2)
    (setq pt1 (getpoint "\nSelect First Window Point: "))
    (setq pt2 (getcorner pt1 "\nSelect Second Window Point: "))
    (command "._zoom" "_w" pt1 pt2) ; end zoom
)

It should snap to whatever osnap settings you're alteady using.

Sometimes simple is best.

[tombu]

This more complicated version will also temporarily toggle Osnaps on while Zooming if needed for newer versions.

; Zoom Window using Osnap settings by Tom Beauford
; Macro: ^P(or C:ZSnap (load "ZSnap.lsp"));ZSnap
; Command line: (load "ZSnap.lsp") ZSnap
(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)
)

Osnap bitcodes changed when Geometric CEnter osnap was added so you will need to find the old bitcode setting to Suppress the current running object snaps in older versions.

[Dana W]

All this code popping up.  Looks a lot more complicated than I first thought.

[sketch11]

Thanks for assisting again tombu.

I tried both of the above code snippets on AutoCAD 2021 and both work. I'll try on a previous version at a later stage.

Cheers.

[sketch11]

Hi tombu, thanks, both of these worked on a previous version.