AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Entsel ile toplama.
12.05.2011 14:12    
k005
Merhaba arkadaşlar;

konu başlığını değiştirerek sormak istiyorum;

15 ve 35 gibi iki adet text i ayrı değişkenlere entsel fonksiyonu ile nasıl seçtirip, toplatabilirim ?


yardımcı arkadaşlar(a) şimdiden teşekkürler..

12.05.2011 14:36    
ProhibiT
Kod:

(setq tpLm
  (+
    (setq dgskn1 (atof (cdr (assoc 1 (entget (car (entsel "\nBirinci sayıyı seç:")))))))
    (setq dgskn2 (atof (cdr (assoc 1 (entget (car (entsel "\n İkinci sayıyı seç:")))))))
  )
)

Ayrı ayrı değişkenlere alıp toplamak zorunda değilseniz, doğrudan;
Kod:

(setq tpLm
  (+
    (atof (cdr (assoc 1 (entget (car (entsel "\nBirinci sayıyı seç:"))))))
    (atof (cdr (assoc 1 (entget (car (entsel "\n İkinci sayıyı seç:"))))))
  )
)
12.05.2011 14:44    
k005
Alıntı
ProhibiT :


Hocam teşekkür ederim. birinci kodu kullanacağım. fonksiyon gereği ayrı değişkenlerde olması gerekiyor..
bilgi için çok teşekkür..

12.05.2011 17:00    
ProhibiT
Ben şaka olsun diye öyle baş aşağı, iç içe 3 tane setq kullanarak yazmıştım :)
Hoş öyle de çalışır ama, doğrusu;
Kod:

(setq dgskn1 (atof (cdr (assoc 1 (entget (car (entsel "\nBirinci sayıyı seç:"))))))
      dgskn2 (atof (cdr (assoc 1 (entget (car (entsel "\n İkinci sayıyı seç:"))))))
      TpLm (+ dgskn1 dgskn2)
)
şeklinde yazılmasıdır elbette.

13.05.2011 04:56    
k005
Evet.. benim için sonuca gitsin yeterli. şimdilik tabi.,, ilerde daha doğru lisp kodları yazmak isterim., yardımlar için teşekkürler= prohibit hocam.. :)

> 1 <
Copyright © 2004-2022 SQL: 1.031 saniye - Sorgu: 56 - Ortalama: 0.01842 saniye