;Layer Freeze/Thaw toggle (Arkance Systems)

(vl-load-com)

(setq *acaddoc* (vla-get-activedocument (vlax-get-acad-object)))

(defun C:LFT ( / LFT_name flg lo)
 (setq LFT_name "MOJEHLADINA") ; layer to process
 (cond
      ( (= (strcase (getvar 'CLayer)) (strcase LFT_name))
        (princ "\nCannot freeze current layer")
      )
      ( (setq lo (tblobjname "LAYER" LFT_name))
        (setq lo (vlax-ename->vla-object lo))
        (vlax-put lo 'Freeze (setq flg (~ (vlax-get lo 'Freeze))))
        (if (= flg 0) (vla-regen *acaddoc* acActiveViewport))
      )
      ( (princ (strcat "\nLayer " LFT_name " does not exist.")))
 )
 (princ)
)

(setq *LFTM_status* nil)

(defun C:LFTM ( / LFT_name)
 (setq LFT_name "MOJEHLADINY*") ; layers to process (mask)
 (command "_-LAYER" (if *LFTM_status* "_FR" "_TH") LFT_name "")
 (setq *LFTM_status* (not *LFTM_status*))
 (princ)
)

(princ "\nLFT and LFTM toggle loaded.")
(princ)