linkinde paylaştığım CEM diye bir fonksiyon var. Seçtiğiniz rakamlardan oluşan text objelerinin değerlerini toplar. Bir bakın isterseniz, işinize yarayabilir...
TŞKLER BİRDE BLOK ADET TOPLAMLARINI YAZAN Bİ LİSP BULABİLİRSEM :)) cem komutu sadece komut satırına toplamı veriyo . ben bu toplamı plana yazılmasını kastettim . yinede tşkler
Linkinde paylaştığımız BSAY fonksiyonuna bakın... Bu fonksyion sizin dediğiniz gibi çizim üzerine yazmaz ama isteğiniz halinde BLock sayılarını dosyaya yazar. O kadar da üşenmeyin tek satırlık bir yazı yazacaksınız sonuçta...
Kod:
(defun C:CEM ()
(setvar "cmdecho" 0) (command "undo" "group")
(setq nes 0 p (ssget) top 0 l 0 n (sslength p))
(while (< l n)
(setq ness (entget (ssname p l)))
(if (= "TEXT" (cdr (assoc 0 ness)))
(setq top (+ top (atof (cdr (assoc 1 ness)))))
)
(setq l (1+ l))
)
(princ "\nSecilen sayilar toplami : ")(princ top)
(setq nk (getpoint "\nToplam değeri yazdıracağınız yeri seçiniz...")) ;;;Eklenen 1. satır
(command "Text" nk (* (getvar "dimtxt") (getvar "dimscale")) "0" top "") ;;;Eklenen 2. satır
(command "undo" "e") (prin1)
)
cem fonksiyonunu burada eklediğim 2 satır ile kullanırsanız gösterdiğiniz yere toplamı yazar...