arama sonuçlarını listeleyen lisp | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 440, Üye: 1
nokta28

Detaylar »

Forumlar > AutoLISP > arama sonuçlarını listeleyen lisp

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

İleti	Yazar
14.12.2014 22:33 79675	onderylmz Kıdemli Girişimci 32 ileti Mak.Yük.Müh. ANKARA
arama sonuçlarınaınn listesine ihtiyacım var excel olarak nasıl yapabilirim ?

14.12.2014 23:50 79681	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Neleri aratiyorsunuz?

15.12.2014 09:00 79690	onderylmz Kıdemli Girişimci 32 ileti Mak.Yük.Müh. ANKARA
örneğin içinde "üfleme" kelimesi geçen yazıların listesi

15.12.2014 09:47 79693	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Kod: (defun c:tdata (/ gt n txt) (vl-load-com) (setq gt (getstring t "\nText: ") n -1) (if (setq sc (ssget (list (cons 0 "text") (cons 1 (strcat "" gt "*"))))) (progn (setq txt (open (getfiled "" "" "xls" 9) "w")) (repeat (sslength sc) (setq n (1+ n)) (write-line (vla-get-TextString (vlax-ename->vla-object (ssname sc n))) txt)) (close txt))) (princ))

15.12.2014 10:01 79694	alumina Editör 769 ileti Insaat Muhendisi Istanbul
eline saglik travaci. ozellikle (cons 1 (strcat "" gt "")) için ama (cons 0 "*text") buradaki yıldız neden?

15.12.2014 10:07 79695	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Mtext leride seçmesi için. Belki seninde aklına ilk benim gibi, kelimeyi cümle içinde aratmak gelmiştir :) İgini çekiceğini düşündüm.

15.12.2014 10:16 79696	alumina Editör 769 ileti Insaat Muhendisi Istanbul
zaten lispteki detay budur :) ben text ve mtext için sorgulama yaptırırken (cons 0 "text,mtext") yazardım. Dediğin cok doğru mantik. neyle başladığı değil text le bittiği. Ama yinede (cons 1 (strcat "" gt "")) sorgusu sanat eseri. TEBRİKLER

15.12.2014 10:25 79697	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Büyüklerimiz sağolsun :)

15.12.2014 10:44 79698	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Kesinlikle:yes

15.12.2014 11:09 79699	özkan-wien Üstad 448 ileti Ankara
adi trivirici ama iyi yazar :-)

15.12.2014 11:28 79700	alumina Editör 769 ileti Insaat Muhendisi Istanbul
ona bakarsan ilk yazismaya basladigimizda bana verdiği cevaplar yüzünden ben adini TRAVMACI diye okuyordum. Ama yanilmisim. Abi bu ne ya. Raskoln bitti simdi travaciyla mi ugrasiyoruz. Kusturecegiz sonra. Sanatciyi rahat birakalim calissin :)

15.12.2014 11:47 79701	özkan-wien Üstad 448 ileti Ankara
Travacinin dedisi de Lisp yazarmis bi gün bi secim setinin icindeki elemanlari döngüyü sokup, sayaci caktirmadan 1 arttirip, if and or progn ,.?&%$ derken tramva gecirmis. Sonra eski yugoslavyadaki akrabalari "tramva" cinin oglu anlamina gelen "tramvaic" i kullanmislar soyisimi olarak. Türkiyede de nüfus memuru yanlis anlamis tramvaci olmus "travaci". Severim travaciyi :-)

15.12.2014 11:54 79702	Travaci Editör 2392 ileti Teknik Ressam Konstantinopol
Bizde raskoln la boğaza karşı çay içioduk şimdi, selamlar :)

15.12.2014 12:47 79705	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Travaci: Benzer cümlelere karsi geliştirilmiş olup sanat eserinin doğal yapisi korunmuştur :) Kod: (defun c:tdata (/ gt n i ls txt) (vl-load-com) (setq gt (getstring t "\nText: ") ls '() i -1) (if (setq sc (ssget (list (cons 0 "text") (cons 1 (strcat "" gt ""))))) (progn (setq txt (open (getfiled "" "" "xls" 9) "w")) (write-line (strcat "Cumle" "\t" "Miktar") txt) (repeat (sslength sc) (setq i (1+ i)) (if (null (member (vla-get-TextString (vlax-ename->vla-object (ssname sc i))) ls)) (setq ls (cons (vla-get-TextString (vlax-ename->vla-object (ssname sc i))) ls)))) (foreach ls1 ls (setq n 0 k 0) (repeat (sslength sc) (if (= (vla-get-TextString (vlax-ename->vla-object (ssname sc n))) ls1) (setq k (1+ k))) (setq n (1+ n))) (write-line (strcat ls1 "\t" (rtos k 2)) txt)) (close txt))) (princ)) alumina (15.12.2014 12:57 GMT)*

15.12.2014 17:32 79711	onderylmz Kıdemli Girişimci 32 ileti Mak.Yük.Müh. ANKARA
Ellerinize sağlık . Çok güzle olmuş ... aramaları blok isimlerini de genişleterek yapabilir miyiz ?

15.12.2014 17:37 79713	onderylmz Kıdemli Girişimci 32 ileti Mak.Yük.Müh. ANKARA
Blok :)))

15.12.2014 17:42 79714	alumina Editör 769 ileti Insaat Muhendisi Istanbul
Bakin soyle yapalim isterseniz. Ne tur veriler aratiyorsaniz buraya belirtin, tek seferde kullanişli bir sey yapılsın. Ornegin bloklari, layerleri vs leri gibi

15.12.2014 17:47 79715	onderylmz Kıdemli Girişimci 32 ileti Mak.Yük.Müh. ANKARA
Blok, text ,mtext olabilir. Bunlar excel dosyasında , blokların yanıdna blok , text veya mtext olarak belirtilebilir. Teşekkür ederim

15.12.2014 18:23 79716	alumina Editör 769 ileti Insaat Muhendisi Istanbul
yani 5 kere okuyup anlamak istedim ama olmadı :) yavaş yavaş yazın, ama aklınıza geleni yazmayın lütfen. ben text ve mtext ler içinde arama yaptırıyorum. eger arama yaptirdigim kelime cümle içinde varsa o cümleyi excele aktarsın istiyorum. blok içinde..................

15.12.2014 18:44 79717	onderylmz Kıdemli Girişimci 32 ileti Mak.Yük.Müh. ANKARA
Text ve mtext için yaptığınız çalışma çok güzel... bir de buna blok isimlerini dahil edebilir miyiz ? örneğin "xyz123" "xyz124" xyz"568" xyz 8921 olan bloklar olsun xyz aradğımda listeye bunların miktarlarını da verebilmesini öneririrm . örnek liste xyz123" 2 ad blok xyz124" 4 ad blok xyz"568 4ad blok xyz 8921 3ad blok xyzabc 45 text ffxyzfff 12 mtext

> 1 < [2]

Sonraki Sayfa