topic Re: Shifting viewports in Visual LISP, AutoLISP and General Customization Forum

Shifting viewports

Anonymous — Fri, 16 Sep 2016 19:02:36 GMT

Hi all,

I was wondering if you could somehow shift a viewport center x location by a specific amount throughout multiple layouts? The problem i am having is that I have numerous layouts of a model and making a change to the beginning of the model (adding 2") will result in all layout viewports to be shifted by that amount. I then have to go into each layout and resize the viewport to display what it did before.

Any help is appreciated.

Edit: I basically want to run the "-p" command to all other viewports on different layouts.

Re: Shifting viewports

ВeekeeCZ — Fri, 16 Sep 2016 21:21:09 GMT

Try this... it will PAN from point 0,0,0 to a point by your specification.... 2,0 ??

(defun c:PanAllVPs (/ pt oCTAB en vp i ss vp)
  
  (if (setq pt (getpoint "\nSpecify displacement point: "))
    (progn      
      (setq oCTAB (getvar 'CTAB))
      (foreach x (layoutlist)
	(setvar 'CTAB x)
	(command "_.zoom" "_E")
	(if (setq ss (ssget "_X" (list '(0 . "VIEWPORT") (cons 410 x))))
	  (repeat (setq i (sslength ss))
	    (setq en (entget (ssname ss (setq i (1- i))))
		  vp (cdr (assoc 69 en)))
	    (if (> vp 1)
	      (progn
		(command "_.mspace")
		(setvar 'CVPORT vp)
		(command "_.PAN" '(0 0 0) pt)))))
	(command "_.pspace"))
      (setvar 'CTAB oCTAB)))
  (princ)
)

It process all the layouts and all VP. If you want to protect same of them, lock them.

Thanks to @hmsilva for the core loop.

Re: Shifting viewports

Anonymous — Fri, 16 Sep 2016 21:56:06 GMT

This is absolutely amazing! Its going to make everything so much easier and faster.

I appreciate your quick response and the time you spent in helping me out. Thanks again.

Re: Shifting viewports

mc5fan — Thu, 03 May 2018 15:26:22 GMT

How do you use that? I don't understand.

L.M.

Re: Shifting viewports

cadffm — Thu, 03 May 2018 16:42:14 GMT

Please stop with spam.
Set your setup in PAGESETUP or PLOTdialog and apply to pagesetup.

If you dont write what you are looking for we can not help!

The offset is reachable in both dialog.
PLOTOFFSET is for relativ to printarea or paperborder, look into F1

If you only searching for the white paper position in layout, set your want pagesetup and it will follow your given printing area.

Re: Shifting viewports

mc5fan — Sun, 06 May 2018 12:38:45 GMT

Spam? Really? How about less fluff from your end? My Manager explained it quick and simple with no attempt to throw insults. Maybe next time.

Re: Shifting viewports

3dwannab — Thu, 04 Aug 2022 22:30:02 GMT

Another similar thread here. I posted one that can work with locked viewports based on a modification of marko_ribars program.

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/pan-all-viewports-in-selected-layouts/m-p/8575760