CAD tip # 13822:

Store the following LISP code in the LFT.LSP file and use the briefcase icon in the APPLOAD command to load it into each AutoCAD (or LT) session. Customize the name of the switched layer or layer mask.

;Layer thaw/freeze (for palette)

(vl-load-com)

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

(defun LFT (LFT_name / flg lo)
 (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)

(defun C:LFT ( / LFT_name flg lo)
 (setq LFT_name "MYOWNLAYER") ; 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 "MYOWNLAYERS*") ; 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)
)

Then you can use (via keyboard or hotkey, see CUI) the commands LFT and LFTM (multiple, wildcard mask), or assign/add an icon for a specific layer into your custom Tool palette. See Tip 13504. Repeated mouse-clicks on this icon will then toggle the selected layer on and off.

Enter this (including parentheses) as the Command string for the respective layer-icon:

(LFT "MYLAYERNAME")