Formatlı Toplama (m²) | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 769, Üye: 5
bayankapris61, berkeren12, ehya, hayta06, stallower

Detaylar »

Forumlar > AutoLISP > Formatlı Toplama (m²)

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
03.09.2009 06:05 51729	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
Merhaba arkadaşlar; 1.60m² , 1.95m² , 5.95m² , 6.89m² , 57.00m² vb.. çok sayıda yazılmış dtext objesi var. Bunları hepsini reng e göre seçebiliyorum,,, Toplamı nasıl alabilirim..? ilgili Lisp kodu nasıl olmalıdır ? yardımcı olacak arkadaş(lar)a şimdiden teşekkürler. Herkese kolay gelsin.

03.09.2009 06:45 51730	ehya Yönetici 3554 ileti Teknik Ressam Ankara
hep aynı yazım türü olacağını varsayarak bir kod yazıyorum. Kod: (setq a "10.12m2") ;; örnek m2 (setq b (strlen a)) ;; toplam kaç karakter olduğu (setq c (substr a 1 (- b 2))) ;; m2 girdisinin başlangıcından toplam karakterinden 2 eksik olanı

03.09.2009 07:23 51736	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
Evet yazım formatı hep aynı. fakat şöyle bişey var, aşağıdaki örnek kodda 10.12m2 den bi kaç tane var.. yani olayı anladım -2 karakter düşeceğiz. (m ve 2 yi. ok.) 20 toplam seçim (20 tane ayrı obje.) var. hangisinden düşecek.? seçim esnasında düşmesi gerekir diye düşünüyorum.. Kod: (setq a "10.12m2") ;; örnek m2 (setq b (strlen a)) ;; toplam kaç karakter olduğu (setq c (substr a 1 (- b 2))) ;; m2 girdisinin başlangıcından toplam karakterinden 2 eksik olanı

03.09.2009 08:44 51740	ehya Yönetici 3554 ileti Teknik Ressam Ankara
burada yapman gereken döngüye dahil etmelisin.. seçilen yazı adedi kadar while döngüsüne sokup, tektek baştaki rakamları alıp bunları toplamalısın.. kodu yazmaya çalış.. takıldığın yerde yardımcı olurum.

03.09.2009 09:16 51742	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
Alıntı ehya : ehya,, üzerinde çalıştığım lisp kodu gönderiyorum.. işin içinden çıkamadım.. :\| Kod: (defun c:xt ( / ss sa say say1 say2 top n stc yaz) (setq ss (ssget '((0 . "text")))) (setq st (ssget "x") n 0 top 0 stc nil) (setq sa (ssname ss n)) (while sa (setq b (strlen st)) ; (setq sa (substr st 1 (- b 2))); (setq say (cdr(assoc 1(entget sa)))) (setq top (+ top (atof say))) (setq stc (cons (atof say) stc)) (setq n (+ 1 n)) (setq sa (ssname ss n)) ) (setq l3 (list stc)) (setq l4 (car l3)) (setq crp (* (nth 0 l4)(nth 1 l4)(nth 2 l4))) ;(setq yaz (strcat "\nÇARPIM: " (rtos crp 2 4))) (princ (strcat "\nTOPLAM: " (rtos top 2 3))) (princ) (princ yaz) (princ))

03.09.2009 10:51 51743	ehya Yönetici 3554 ileti Teknik Ressam Ankara
kodu resimli olarak aşağıda veriyorum. yanlarına açıklamalarını yazdığım için renkli ve belirgin olsun dedim.

03.09.2009 10:59 51744	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
Hocam,, büyüksün.. çoookk teşekürlerr... :) k005 (04.09.2009 10:43 GMT)

> 1 <