Move objects in Model space and re-align multiple viewports?

[ILoveMadoka]

Didn't want to cross post but was wondering if anyone knows of a lisp solution to a question I posted here:

 

My Question

 

I didn't want to approach this issue from a programming standpoint if Autocad has a solution.

I ask here in case the regulars in this forum don't look in the other forums..

 

If this is still considered cross posting, my apologies...

Edited June 13, 2022 by ILoveMadoka

[mhupp]

If you activate the view ports it will zoom the the same location. I don't know if it will work if your in TOP and use it on SIDE or ISO view.

 

;;----------------------------------------------------------------------------;;
;; Zoom Area Across Multiple Drawings
(defun C:ZAD (/ a)  ;Zoom Across Drawings
  (initget "Yes No")
  (setq a
    (cond
      ((getkword "\nRedefine Zoom Area? [Yes/No]: ")) ( "No")
    )
  )
  (if (= "Yes" a)
    (progn
      (vl-cmdf "_.Zoom" "W" Pause Pause)
      (setq vc (getvar 'viewctr))
      (setq SZ (getvar 'viewsize))
      (vl-propagate 'vc)
      (vl-propagate 'sz)
    )
    (if vc sz
      (vl-cmdf "_.Zoom" "C" VC SZ)
      (prompt "\nPlease Define Zoom Area")
    )
  )
  (princ)
)

 

Edited June 13, 2022 by mhupp

[Kenny Ramage]

Believe it or not but I am Kenny Ramage.

I cannot believe that AfraLisp is still having an influence.

 

[tombu]

1 hour ago, Kenny Ramage said:

Believe it or not but I am Kenny Ramage.

I cannot believe that AfraLisp is still having an influence.

 

Thanks for helping so many of us get started!

[BIGAL]

Refer to some of the tutorials all the time.

 

Very helpful site.

[mhupp]

10 hours ago, Kenny Ramage said:

Believe it or not but I am Kenny Ramage.

I cannot believe that AfraLisp is still having an influence.

 

Why? Clear easy to follow steps by step instructions. who wouldn't find that helpful.

[ILoveMadoka]

Thank you...
Will look at it tomorrow...

[enthralled]

If the objects in the model space are being moved without changing the scale or rotation, then I use this to change (pan) viewports view in all layouts or current layout only: VPML