(defun c:Ag_LayTog (fpStat / LayPropFp EntLayPropFp)
;;get entity
(setq LayPropFp (tblobjname "Layer" "Floor Plan"))
;;turn entity to list
(setq EntLayPropFp (entget LayPropFp))
;(setq fpStat (subst (cons 62 7) (assoc 62 EntLayPropFp) EntLayPropFp))
(if (= fpStat t)
(progn
(setq fpStat (subst (cons 62 -7) (assoc 62 EntLayPropFp) EntLayPropFp)) ; turn off
(entmod fpStat)
(setq fpStat nil)
) ;(progn
(progn
(setq fpStat (subst (cons 62 7) (assoc 62 EntLayPropFp) EntLayPropFp)) ; turn on
(entmod fpStat)
(setq fpStat t)
) ;progn
) ;end if
) ;end of defund
(defun C:TOGGLETEXT (/ elist clr)
(setq elist (entget (tblobjname "LAYER" "TEXT"))
clr (assoc 62 elist)
)
(entmod (subst (cons 62 (- (cdr clr))) clr elist))
(princ)
)
(defun C:TOGGLETEXT (/ elist clr)
(if (not (tblsearch "LAYER" "TEXT"))
(alert
(strcat " TEXT Layer"
"\n Does not exist on this drawing"
)
)
(progn
(setq elist (entget (tblobjname "LAYER" "TEXT"))
clr (assoc 62 elist)
)
(entmod (subst (cons 62 (- (cdr clr))) clr elist))
)
)
(princ)
)