AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim
aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A
Forumlar > AutoLISP > Text adedi saymak
22.07.2014 16:42    
k005
Merhaba arkadaşlar;

Kod:

(setq sec_txt (entsel "\nUzunluğu seCiniz : ")))


Entsel seçimine bağlı kalarak text objeleri nasıl saydırabilirim ?

22.07.2014 20:55    
Travaci
Nasıl bir saydırma olucak bu ? Nerde kullanıcaksınız, lisp in devamı yok mu :)

23.07.2014 04:29    
k005
Devamı var da daha henüz tamamlayamadım.. :con yapmak istediğim ; Entsel ile bir text i seçtiğimde (tek seçim) , çizimde aynı text den kaç tane varsa bir değişkene alması, renklerini de yeşil yapması..

23.07.2014 04:50    
ProhibiT
Kod:

(setq sec_txt (car (entsel "\nUzunluğu seCiniz : "))
      txt_say (sslength
                (setq txt_ler
                   (ssget "X"
                     (list (cons 0 "*text") (assoc 1 (entget sec_txt)))))))
23.07.2014 05:19    
k005
Alıntı
ProhibiT :

Hocam çok teşekkür ediyorum, tamamdır. elinize-yüreğinize sağlık..
--------------------------

Kod:

(setq sec_txt (car (entsel "\nUzunluğu seCiniz : "))


Hocam burda obje seçilmez ise yada boş bir noktaya tıkladığımızda komuttan çıkmamasını nasıl sağlayabiliriz..

k005 (23.07.2014 20:54 GMT)

24.07.2014 05:45    
ProhibiT
Kod:

(setq sec_txt nil)
(while (not (setq sec_txt (car (entsel "\nUzunluğu seCiniz : "))))
  (setq txt_say (sslength
                  (setq txt_ler
                       (ssget "X"
                         (list (cons 0 "*text") (assoc 1 (entget sec_txt))))))))

şeklinde yazılabilir. Çok daha kısa bir şekilde yazmak ta mümkün.

24.07.2014 05:56    
k005
Alıntı
ProhibiT :


Hocam bu kodu uyguladım fakat olmadı. boşluğa tıklayınca komuttan çıkılıyor.. ayrıca txt_say değişkeni boş geliyor.

24.07.2014 08:47    
ProhibiT
Kod:

(setq sec_txt nil)
(while (not (setq sec_txt (car (entsel "\nUzunluğu seCiniz : ")))))
(setq txt_say (sslength (setq txt_ler (ssget "X"
                       (list (cons 0 "*text") (assoc 1 (entget sec_txt)))))))

Döngüyü kapatmayı unutmuşum. Bu haliyle doğru çalışması lazım.
Döngü şartı olarak sec_txt değişkenini kontrol ettiğimiz için, girmeden önce nil yapılması gerekir. sec_txt değişkeni local variables listesinde yer alıyorsa, ve bu bölümden önce kullanılmıyorsa (setq sec_txt nil) ifadesi yazılmayabilir.

24.07.2014 09:06    
k005
Alıntı
ProhibiT :

Tamamdır hocam, çok teşekkür ediyorum.. süper oldu.. :)

> 1 <
Copyright © 2004-2022 SQL: 1.224 saniye - Sorgu: 68 - Ortalama: 0.018 saniye