Automating Viewports in AutoLISP

[sdrewinc432892]

Have not used lisp in ages...

Working with viewports...

I want to make active the viewport in the layout I am working in.
Automatically select the only viewport I have within the layout
Zoom to any scale in which I am prompted.
Deactivate the viewport
Then regenall

Below is a "very" basic routine (almost embarrased to show) but hopefully it will demonstrate what I am wanting to do.
Note: The red text is the the code I am having difficulties with. I have seem many variations where developers have code to turn on or off the viewports but have not been able to translate it into my existing routine... I just don't have a high enough level of understanding ActiveX or AutoLISP. I tried using MSPACE and VPORTS commands (to toggle and or turn on/off) in my code but was not successful...

Note: There is only one viewport in layout....

(defun c:zxp ()
;;;;MSPACE active (code needed)
(setq myxp (getstring "Enter Scale Factor: "))
(command "zoom" (strcat "1/" myxp "XP"))
;;;;VPORT deactivated (code needed)
(command "regenall")
)

Hope someone can help thanks!!!

Cheers

[rkmcswain]

Check out the CVPORT system variable.

Also, check out this routine. It may have some chunks of code you can use.

http://cadtips.cadalyst.com/viewports/viewport-zoom

[sdrewinc432892]

Thanks,

I will give it a go but like I said I struggle with syntax and code placement...

[sdrewinc432892]

I tried this but it didn't fly...
Everything works except the unlocking and locking of (model space)
Evidently locking and unlocking vports are not that staightforward in AutoLISP...
Anyone have any suggestions?

(vl-load-com)
(defun c:zxp ()
(command "vports" l off)
(vl-cmdf "_.MSPACE")
(setq MYXP (getstring "Enter Scale Factor: "))
(command "zoom" (strcat "1/" MYXP "XP"))
(command "regenall")
(vl-cmdf "_.PSPACE")
(command "vports" l on)
)

[pbejse]

Note: There is only one viewport in layout....

Your code and some

(defun c:vps  (/ vp e MYXP)
      (if (and (setq vp   (ssget "_X"
                                 (list '(0 . "VIEWPORT")
                                       (cons 410 (getvar 'ctab)))))
               (= (sslength vp) 2))
            (progn
                  (command
                        "vports"
                        "_lock"
                        "_off"
                        (setq e (ssname vp 0))
                        "")
                  (command "_mspace")
                  (setq MYXP (getstring "Enter Scale Factor: "))
                  (command "zoom" (strcat "1/" MYXP "XP"))
                  (command "_.PSPACE")
                  (command "regenall")
                  (command "vports" "_lock" "_on" e "")
                  )
            )(princ)
      )

[sdrewinc432892]

Awesome...
This is the ticket!!!

Thank you very much...