Pan without losing current viewport zoom scale

[rcb007]

How would one be able to pan within a viewport without accidentally zooming within the viewport? 

The two ways I know would be either adjusting the viewport frame within paperspace layout area and then moving it back on to the title block layout area.

The other, double click inside the viewport, unlock the viewport pan around, readjust the viewport back to its original zoom scale,  lock the viewport.

 

Maybe there is another solution that would help? 

 

Thank you for any ideas.

[mhupp]

I made this pan lisp because most of the projects I worked on were laid out in a grid pattern. so not really panning per say more like hopping with the number pad. but you might find it useful.

Here and example of it running.

 

 

 

PPD.lsp

[BIGAL]

To pan you must unlock, so I would click viewport and vla-get-customscale of the selected viewport, then mspace and pan, then pspace and vla-put-customscale back to what it was before. 

Try this, a bit rough can be improved.

(defun c:thetest ( / vp sc )
(command "._PSPACE")
(setq vp (vlax-ename->vla-object (car (entsel "\nPick viewport "))))
(setq sc (vlax-get vp 'customscale))
(if (= (vlax-get vp 'displaylocked) 0)
(princ)
(vla-put-displaylocked vp 0)
)
(command "._mspace")
(command "Pan" pause pause)
(command "._PSPACE")
(vla-put-customscale vp sc)
(vla-put-displaylocked vp -1)
(princ)
)
(c:thetest)

 

[DATVO]

You may consider using this tool, which enables viewport panning with a customizable layer interface, retains coordinate memory, and functions even when the viewport is locked. I hope this helps you: https://lispautocad.gumroad.com/l/bgesj