; AW 24.10.92-----------------------------------------------
; Das Programm erm”glicht die Žnderung der Z-Koordinaten und 
; der Objekth”he
; Es wird das jeweils eingestellte Koordinatensystem benutzt
; ----------------------------------------------------------

(Defun C:z_neu ()   
(Setvar "Cmdecho" 0)
(Setq WIEVIEL (Getreal "Neue Erhebung eingeben: "))
(Setq A (Ssget)) 
(Setq B (Sslength A))
; die Objekte bearbeiten -------
(While
	(> B 0)
	(Setq B (1- B))

	(cond
		((cdr (assoc 38 (entget d)))
		(Setq D (Ssname A B))
		(Setq ED (entget D))
		)
	)
)