Text adedi saymak | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 613, Üye: 0

Detaylar »

Forumlar > AutoLISP > Text adedi saymak

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

İleti	Yazar
22.07.2014 16:42 78206	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
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 78208	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Nasıl bir saydırma olucak bu ? Nerde kullanıcaksınız, lisp in devamı yok mu :)

23.07.2014 04:29 78209	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
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 78210	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
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))))))) Beğenmek için anlamak lazım...

23.07.2014 05:19 78211	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
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 78228	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
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. Beğenmek için anlamak lazım...

24.07.2014 05:56 78229	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
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 78230	ProhibiT Yetkili 1612 ileti İnşaat Mühendisi Ankara
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. Beğenmek için anlamak lazım...

24.07.2014 09:06 78231	k005 Üstad 676 ileti İnşaat Teknikeri Düzce
Alıntı ProhibiT : Tamamdır hocam, çok teşekkür ediyorum.. süper oldu.. :)

> 1 <