; Moss Designs
					; 21951 Bear Creek Way
					; Los Gatos, CA 95033
					; www.mossdesigns.com
					;
					; this program does the following
					; 1) prompts user to select xref line to turn layer off
					; 2) turns layer off
					;




(defun c:loff (/)
					; set ucs
  (command "ucs" "world")
					; initialize all the variables

  (setq cosmode nil)
  (setq nen1 nil)
  (setq nename1 nil)
  (setq el nil)
  (setq layer_name nil)
  (setq clayer (getvar "CLAYER")) ; get current layer
  (setq cosmode (getvar "osmode"))	; get current osmode

  (setq nen1 (nentsel "\nPick entity to turn layer off: "))
  (setq nename1 (car nen1))		; get entity name
  (setq el (entget nename1))		; get entity data list
  (setq layer_name (cdr (assoc 8 el)))
					;
  (if (/= layer_name clayer)
  	(command "-layer" "off" layer_name "")
  )
  (if (= layer_name clayer)
  	(alert "Item selected is on the current layer. Cannot be turned off!")
  )  



					; reset all the variables
  (setvar "OSMODE" cosmode)
  (princ)
)					; end defun

(prompt "\nEnter 'loff' to turn off entity's xref layer: ")