;  modiz.lsp
;  ändern z-koordinate
;  erstellt 10/04 Th.Jakob
;
;
;   
(defun c:modiz()
  (princ "Punkt mit Zielhöhe wählen")
  (setq pziel (ssget))
  (setq neu_z (cddr (cdr (assoc 10 (entget (ssname pziel 0))))))

  (princ "Punkte für neue Höhe wählen")

  (setq tl (ssget))
  (setq anz (sslength tl))
  (setq x 0)
  (while (< x anz)
    (setq ct (ssname tl x))
    (setq ctl (entget ct))

;   punkthoehe (Z-wert) setzen auf neu_z
    (setq alt_10 (cdr (assoc 10 ctl)))

    (setq neu_10 (cons (car alt_10) (cons (cadr alt_10) neu_z))) 
  
    (setq ctl (subst (cons 10 neu_10) (assoc 10 ctl) ctl))



    (entmod ctl)
    (entupd ct)
    (setq x (1+ x))

  )  

)