Is it possible to stretch a viewport within lisp?

[rcb007]

I am having a hard time trying to figure out how to stretch a side or (2 endpoints) of a viewport a few inches automatically.

 

I can stretch objects within that area, but it will not allow me to select the viewport and slide that.

 

(command "stretch" "19.05,-1.75" "24.5,25.0" "" "22.7,23.5719" "28.1011,23.5719")

 

 

Thank you for the help.

[mhupp]

Are you in paper space? Is the layer the viewport is on unlocked? Your selection window has to in compass both endpoint grips to work on the viewport.

 

Try it manually and see if it works. you might need to update your selection window.

 

(command "stretch" pause pause "" "0,0" "5.4011,0")

 

Edited November 15, 2021 by mhupp

[BIGAL]

Sort of easy using vl have 2 properties Width and Height so can stretch by the amount required, ok this will stretch left and right, ok so now there is a property Center so can do a move viewport based on center and new pt

 

(setq obj (vlax-ename->vla-object (car  (entsel "Pick obj"))))
(vla-put-width obj 1000)
(vla-put-center obj '(500 400))

 

[rcb007]

Thank you guys. BigAl, that is an interesting way of doing it. easy too.

 

 

[BIGAL]

Use dumpit.lsp and pick a viewport will expose all the variables that you can use to get the stretch to work. Hint Center.