topic Re: -vports in Visual LISP, AutoLISP and General Customization Forum

-vports

nathanwheeler27 — Sat, 14 Nov 2020 08:55:50 GMT

Hi,

I am using the below code to place viewports efficiently. However, when placing several views, this is a bit slow because it still goes into the view to pick the "basept" and "endpt", then leaves the view to set "placement". Undo with this command is slow as well. Is there a faster way? Maybe with vlisp?

(command "-vports" "NEw" "none" basept "none" endpt "" placement) ; Create viewport around selected detail (command "-vports" "LOCK" "OFF" (entlast) "") ; Unlock viewport

Thank you

Re: -vports

nathanwheeler27 — Sat, 14 Nov 2020 21:56:12 GMT

Nevermind, I worked it out. So much better...

(setq app (vlax-get-acad-object) doc (vla-get-activedocument app)) (vla-display (vla-addpviewport (vla-get-paperspace doc) (vlax-3d-point placement) vpwidth vpheight) ; Create viewport at placement with size to fit detail block :vlax-true ; Set active ) (vla-put-mspace doc :vlax-true) ; Enter viewport (vla-ZoomWindow app (vlax-3d-point basept) (vlax-3d-point endpt)) ; Zoom to detail block (vla-put-mspace doc :vlax-false) ; Leave viewport