;This program set elevation for contours that are at 0 elevation.
;It gets start Elevaton, Interval of contours and a color then start point and an end point
;Then set elevation for all polylines that are between these two point from start point with given interval and also sets its color
;Remember  all plogon LineType should be continious (not dashed or doted)
;mhhrise @ gmail 
(defun C:ACE;Automated Contour Elevation
	     (/ pldata plsset cntr en)

   
  (setq
    elv
  (cond
    (
      (getreal
        (strcat "\Starting elevation: <"
          (rtos
            (setq elv
              (cond ( elv ) ( 1000 ))
            )
          )
          ">: "
        )
      )
    )
    ( elv )
  )

  inc
  (cond
    (
      (getreal
        (strcat "\Contour Interval(+or-): <"
          (rtos
            (setq inc
              (cond ( inc ) ( 10 ))
            )
          )
          ">: "
        )
      )
    )
    ( inc )
  )


   color   11
    cntr    0
     p1    (getpoint "\nFrom Poin:")
     p2    (getpoint p1 "\nTo point:")
     plsset (ssget "_F" (list p1 p2))
  )
  
  (while (< cntr (sslength plsset))
    (setq
      pldata (entget (ssname plsset cntr))
      pldata (subst (cons 38 elv) (assoc 38 pldata) pldata)
      pldata (subst (cons 62 color) (assoc 62 pldata) pldata)
    )
    (entmod pldata)
    (setq
      cntr (+ cntr 1)
      elv  (+ elv inc)
    )
  )
)