24 lines
559 B
Common Lisp
24 lines
559 B
Common Lisp
; 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))
|
|
)
|
|
)
|
|
)
|
|
|