seçilen nesnenin z sini 0 yapan lisp

(defun sayac (gc_num gc_max)
(prompt
(strcat "\r%"
(rtos(*(/(float(1+ gc_num))(float gc_max))100)2 0)

) ;strcat
) ;prompt
) ;defun

(defun c:sif ()
(princ "\nSıfırlanacak Objeleri Seçiniz :")
(setq obje (ssget))
; (setq obje (ssget "x" '((0 . "LINE"))))
(setq n (sslength obje))
(setq i 0)
(princ "\nİşlem yapıyorum, lütfen bekleyiniz...\n")
(repeat n
(setq ename (ssname obje i))
(setq elist (entget ename))
(setq bas (cdr (assoc 10 elist))
son (cdr (assoc 11 elist))
basx (car bas)
basy (cadr bas)
sonx (car son)
sony (cadr son)
)
(setq bas (list basx basy 0.0) son (list sonx sony 0.0))
(setq elist (subst (cons 10 bas) (assoc 10 elist) elist))
(setq elist (subst (cons 11 son) (assoc 11 elist) elist))

(entmod elist)
(setq i (+ i 1))
(sayac i n)
);repeat
(princ (strcat "\n" (itoa i) " objenin Z'leri sıfırlandı."))
(princ)
);defun
(grtext -1 "İYİ ÇALIŞMALAR !!")