Resizing viewports

[enghezt]

Hello everybody,

I'd like to have a lisp able to change all viewports size based on the modified viewport.

So, you modify a viewport on layout 1 and then you apply that size to all viewports of all layouts (size and center to fit the same location)

Thanks in advance.

[Tharwat]

Hi,

Here are a few codes for you to get started with and to build on.

(if (and (setq s (car (entsel "\nSelect a viewport :")))
         (= (vla-get-objectname (setq v (vlax-ename->vla-object s))) "AcDbViewport")
         (setq p (getpoint "\nSpecify center point of viewport :"))
         (setq w (getdist "\nSpecify width :"))
         (setq h (getdist "\nSpecify height :"))
         )
  (progn
    (vla-put-width v w)
    (vla-put-height v h)
    (vla-put-center v (vlax-3d-point p))
    )
  )

(vl-load-com)

[enghezt]

Hello,

Thanks!

[Tharwat]

You're welcome anytime.