Does this count?
(defun vp-coords (/ v2l gavp)
(defun v2l (var)
(vlax-safearray->list
(vlax-variant-value var)
)
)
(defun gavp ()
(vla-get-activeviewport
(vla-get-activedocument
(vlax-get-acad-object)
)
)
)
(list
(list
(-
(car (v2l (vla-get-center (gavp))))
(/ (vla-get-width (gavp)) 2)
)
(-
(cadr (v2l (vla-get-center (gavp))))
(/ (vla-get-height (gavp)) 2)
)
)
(list
(+
(car (v2l (vla-get-center (gavp))))
(/ (vla-get-width (gavp)) 2)
)
(+
(cadr (v2l (vla-get-center (gavp))))
(/ (vla-get-height (gavp)) 2)
)
)
)
)