2005 VPMAX and VPMIN

I've assigned "1" to open a predefined layout to VPMAX. Is there a way to
toggle VPMAX and VPMIN from the keyboard?
This is what I have:

(command "layout" "new" "Model2")
(defun c:1 ()
(command "layout""set""Model2""_.vpmax")
(princ)
)

 

(defun c:vm () (COMMAND "vpmax") (PRINC))

(defun c:vn () (COMMAND "vpmin") (PRINC))

 

I was hoping for a one button toggle or a way to assign a F* key toggle. May
have to settle for that. Thanks

 

(if (zerop (getvar "vpMaximizedState"))
(command ".vpmax")
(command ".vpmin")
)

 

Thanks Jason, That worked perfectly.

 

Glad I could help.