change elevation 하는LISP

(defun c:czz()
; (setq ent (entsel))
(setq lll (ssget))
(setq nz (getstring ” KEY-IN NEW ELEV ==> “))
(command “change” lll “” “p” “el” nz “”)
(beep)
(prompt “END OF CHANGE…..”)(princ)
)