14.12.2014 22:33
onderylmz
|
arama sonuçlarınaınn listesine ihtiyacım var
excel olarak nasıl yapabilirim ?
|
14.12.2014 23:50
alumina
|
Neleri aratiyorsunuz?
|
15.12.2014 09:00
onderylmz
|
örneğin içinde "üfleme" kelimesi geçen yazıların listesi
|
15.12.2014 09:47
Travaci
|
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
alumina
|
eline saglik travaci. ozellikle (cons 1 (strcat "*" gt "*")) için
ama (cons 0 "*text") buradaki yıldız neden?
|
15.12.2014 10:07
Travaci
|
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
alumina
|
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
Travaci
|
Büyüklerimiz sağolsun :)
|
15.12.2014 10:44
alumina
|
Kesinlikle:yes
|
15.12.2014 11:09
özkan-wien
|
adi trivirici ama iyi yazar :-)
|
15.12.2014 11:28
alumina
|
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
özkan-wien
|
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
Travaci
|
Bizde raskoln la boğaza karşı çay içioduk şimdi, selamlar :)
|
15.12.2014 12:47
alumina
|
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
onderylmz
|
Ellerinize sağlık . Çok güzle olmuş ...
aramaları blok isimlerini de genişleterek yapabilir miyiz ?
|
15.12.2014 17:37
onderylmz
|
Blok :)))
|
15.12.2014 17:42
alumina
|
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
onderylmz
|
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
alumina
|
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..................
|
onderylmz
|
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
|