Here is some sample code that is based around Viewports I will let you work out which to use.
(setq ssvp (ssget "X" '((0 . "VIEWPORT")(cons 410 (getvar 'ctab )))))
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
; Set the viewportsObj variable to the viewports list
(setq viewportsObj (vla-get-viewports (vlax-get-acad-object)))
;; Set the viewportObj variable to the activeviewport
(setq viewportObj (vla-get-ActiveViewport doc))
(setq len (sslength ss))
(setq x 0)
(repeat (sslength ss)
(if (= (ssname ss x) viewportobj)
(setq (+ x 1))
)
)
; now know x
(if (= x 1)
(setq toviewportobj (ssname ss (- x 1)))
(setq toviewportobj (ssname ss (+ x 1)))
)
;; Reset the active viewport to see the change
(vla-put-ActiveViewport doc toviewportObj)
(vla-Regen doc acAllViewports)