(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