seçilen sayıya (text objesi ondalık işareti nokta) girilen değeri ekleyen lisp

[orhunkeskinbicak]

;;;toplama işlemi yapıyor
;;;seçtiğiniz text objesine girdiğiniz değer ile toplayıp değiştiriyor
;;;sayılardaki ondalık ayıraçı nokta olmalı
;;;ne işinize yarar belki ihtiyacınız olur bilemiyorum
;;;command:top

(defun C:top ()
(setq topla (getreal"\neklenecek kod nedir:"))

(while
(setq s1 (entsel "\nsayıyı göster<cikis>"))
(setq sec1 (entget (car s1)))
(setq sayi1 (atof (cdr(assoc 1 sec1))))

(setq topla (+ sayi1 topla))
(setq tt (rtos topla 2 2))

(setq sss (entget (car s1)))

(setq yeni (subst (cons 1 tt) (assoc 1 sss) sss))
(entmod yeni))(princ))

[_nokta_]

Lispler bizim gibi çizimciler için altı değerinde teşekkürler.Devamını bekliyoruz