;;;    AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;;    AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;;    MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.  AUTODESK, INC.
;;;    DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
;;;    UNINTERRUPTED OR ERROR FREE.
;;;
;;;    Dieses Dienstprogramm weist einer definnierbaren Auswahl von Elementen eine Z-Erhebung anhand der Vorgabe einer Starthöhe und eines Intervalls zu.
;;;    command defined : OBJHÖHE
;;;    Author : Nicolas Menu, Autodesk S.a.r.l.

(defun C:objhöhe (/ ss1 elev interval a pt1 pt2 ename) 
(command "_LINE" (setq pt1(getpoint "Anfang der Zaunlinie:")) (setq pt2(getpoint pt1 " Ende der Zaunlinie:")) "")

(setq ss1 (ssdel (entlast) (ssget "_F" (list pt1 pt2 ))))
(setq elev (getreal "\nAnfangshöhe: "))
(setq interval (getreal "\nHöhenlinienintervall: "))

(setq a 0)
(while (<= a (- (sslength ss1) 1))
  (progn
    (setq ename (ssname ss1 a))
    (command "_CHANGE" ename "" "_P" "_E" elev "")
    (setq a (+ a 1))
    (setq elev (+ elev interval))
  )
)
(command "._erase" (entlast)"")
(princ)
)