read layer names and react

I can get this to set current layer to "0" if on layer "-view" when I turn the vports on. But if I'm turning them off, it doesn't change the layer. And I need this to do both.

(defun C:VC (/)
(prompt
"\n***This command has changed, please see Intranet for more info.***"
)
(setq setclay (getvar "clayer"))
(IF (= setclay "-VIEW")
(COMMAND "-LAYER" "S" "0" "")
)

(checks for some other info)

(defun c:vponoff ()
(setq onlayoff (cdr (assoc 62 (tblsearch "layer" "-view"))))
(cond
((>= onlayoff 0)
(progn
(setq checktab (getvar "ctab"))
(cond
((= setthistab nil)
(setq setthistab checktab)))
(c:tabbin)
)
)
((< onlayoff 0)
(progn
(= (strcase "-view") (strcase (getvar "clayer")))
(setq setthistab (getvar "ctab"))
(c:vpon)
)
)
)
(princ)
)

(some other functions here)

(defun c:vpon ()
(command "-layer" "s" "0" "")
(command "-layer" "on" "-view" "")
(COMMAND "-VPORTS" "L" "OFF" "ALL" "")
(prompt "\n Viewport<s> On and Unlocked")
(princ)
)
(defun cffvp ()
(command "-layer" "off" "-view" "")
(COMMAND "-VPORTS" "L" "ON" "ALL" "")
(setvar "clayer" setclay)
(prompt "\n Viewport<s> Off and Locked")
(setq checktab nil)
(setq setthistab nil)
(setq setclay nil)
(setq laytest nil)
(setq onlayoff nil)
(setq ftstat nil)
(princ)
)

thanks for any comments/suggestions.

Thanks
Clarence

 

((>= onlayoff 0)
(progn
(setq checktab (getvar "ctab"))
(cond
((= setthistab nil)
(setq setthistab checktab)))
(c:tabbin)
)
)
With in this cond statement shouldn't you be running your "offvp" function, or do you run it some other place?

Tim