;################################
;###   Layer Isolate Toggle   ###
;################################
;ver. 1.0
;
; This command combines the layeriso & layeruniso commands into a single command.  You can use it in fade mode or in off mode.
;
;command: LI - layer isolate with Fade Mode @ 60%
;command: LI` - (that's a backtick, next to the 1 key) layer isolate in Off Mode 


(defun lay_isolate_toggle( temp1 temp2 / *error* eset )
  (echo 0)(undo "begin")
	
	(defun *error* (msg)
		(command "layuniso")
		(setq lay_isolate_holder 0)
		(prompt "There has been an error in the isolate layer toggle.")
	)

	(if
    (= lay_isolate_holder 1)
    (progn
      (setq lay_isolate_holder 0)
      (command "layuniso"))
    (progn
      (setq eset (ssget))
      (command "layiso" "s" temp1 temp2 eset "")
      (setq lay_isolate_holder 1))
   )

	(undo "end")(echo 1)
  (princ)
)


(defun c:li()
  (lay_isolate_toggle "l" "60")
  (princ))

(defun c:li`()
  (lay_isolate_toggle "o" "o")
  (princ))