(defun c:layerElev ( / ss clayer i pline elevation layername )
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(setq clayer (getvar "CLAYER"))
(if ss
(progn
(setq i -1)
(repeat (sslength ss)
(setq i (1+ i)
pline (ssname ss i)
elevation (cdr (assoc 38 (entget pline)))
)
(cond
( (<= elevation 669.99999999) (setq layername "NO_ELEV") )
( (= (rem (fix elevation) 2) 1) (setq layername (strcat "CONTOUR_EL" (itoa
(defun c:layerElev ( / ss clayer i pline elevation layername )
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(setq clayer (getvar "CLAYER"))
(if ss
(progn
(setq i -1)
(repeat (sslength ss)
(setq i (1+ i)
pline (ssname ss i)
elevation (cdr (assoc 38 (entget pline)))
)
(cond
( (<= elevation 669.99999999) (setq layername "NO_ELEV") )
( (= (rem (fix elevation) 2) 1) (setq layername (strcat "CONTOUR_EL" (itoa