Yazıyı find ile aramada bulunmama sorunu

Kroki: mimari plan bulmacası. Şimdi oyna

Forumdan

99 kategoride 17 binden fazla konu başlatıldı bu konulara yaklaşık 90 bin cevap verildi tüm bunlar yaklaşık 109 milyon kez görüntülendi

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Özel Yazılımlar

Program Ekle

Ziyaretçi: 751, Üye: 2
halilozcakir, mateus

Detaylar »

Forumlar > AutoCAD Acil Yardım > Yazıyı find ile aramada bulunmama sorunu

İnceleyenler : 2 ziyaretçi, 0 üye : ---

İleti	Yazar
26.02.2015 11:34 80649	mateus Üstad 662 ileti tek.öğrt ist
Yazıyı find ile aradığımzaman bulamıyor sizce sebebi ne olabilir Linkleri görebilmek için Üye Ol veya Giriş Yap

26.02.2015 13:16 80651	halilozcakir Üstad 660 ileti Mekanik Teknik Ressam /Teniker İstanbul
ilginç Att yi burst ta yapamadım.

26.02.2015 15:51 80652	seboli61 Kıdemli Uzman 156 ileti Teknik Ressam istanbul
FIND Value kısmındakini buluyor. FIND aramaya "TUR MAHAL" yazın bulacaktır.

26.02.2015 15:53 80653	seboli61 Kıdemli Uzman 156 ileti Teknik Ressam istanbul
ATTRIBUTE ün default da ne yazıyorsa onu bulur.

26.02.2015 16:54 80654	mateus Üstad 662 ileti tek.öğrt ist
yatakodası yazısını değitiremezmiyim

27.02.2015 05:47 80657	seboli61 Kıdemli Uzman 156 ileti Teknik Ressam istanbul
Çift tıklayıp istediğin ismi koyabilirsin.Ama genelde ATTRUBUTE ler Block olarak kullanılıyor.

27.02.2015 06:23 80658	halilozcakir Üstad 660 ileti Mekanik Teknik Ressam /Teniker İstanbul
att yi birdaha çalışmakta üzerinden geçmede fayda var.

26.09.2018 09:40 86684	mateus Üstad 662 ileti tek.öğrt ist
sadece ilk rakamı değiştirile bilirmi mesela 707 708 709 7017 böyle onlarca rakam var sadece ilk harfi değiştirilebilirmi 807,808,809,9017

26.09.2018 10:01 86685	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
mateus Referansın ney ? Dosya yok.

26.09.2018 10:04 86686	mateus Üstad 662 ileti tek.öğrt ist
Linkleri görebilmek için Üye Ol veya Giriş Yap dosyayı ekte gönderiyorum

26.09.2018 10:42 86687	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
Dosya deil lisp, birde neden find komutu ile yapmıyorsunuz ?

26.09.2018 10:58 86688	mateus Üstad 662 ileti tek.öğrt ist
find komutu 363 diyelim sadece ilk rakamını değiştirmek istiyorum aradaki sayılarda değişiyor ozaman

26.09.2018 11:02 86689	alumina Editör 771 ileti Insaat Muhendisi Istanbul
Alıntı mateus : Kod: (defun c:ch (/ cc nc dc sl tx) (vl-load-com) (if (and (/= (setq cc (getstring "\nChange character:")) "") (setq dc (vla-get-activedocument (vlax-get-acad-object)) nc (getstring "\nNew character:")) (ssget ":L" '((0 . "insert") (66 . 1)))) (progn (vla-startundomark dc) (vlax-for m (setq sl (vla-get-activeselectionset dc)) (foreach n (vlax-invoke m 'GetAttributes) (setq tx (vla-get-TextString n)) (if (= (substr tx 1 1) cc) (vla-put-TextString n (strcat nc (substr tx 2)))))) (vla-endundomark dc) (vla-delete sl) ) ) (prin1) )

26.09.2018 11:08 86690	Travaci Editör 2418 ileti Teknik Ressam Konstantinopol
mateus ozaman old string 36 new string 46 yazıcaksın Travaci (26.09.2018 11:18 GMT)

26.09.2018 11:25 86691	mateus Üstad 662 ileti tek.öğrt ist
mateus ozaman old string 36 new string 46 yazıcaksın find what kısmınamı yazacağız

26.09.2018 11:31 86692	mateus Üstad 662 ileti tek.öğrt ist
(defun c:ch (/ cc nc dc sl tx) (vl-load-com) (if (and (/= (setq cc (getstring "\nChange character:")) "") (setq dc (vla-get-activedocument (vlax-get-acad-object)) nc (getstring "\nNew character:")) (ssget ":L" '((0 . "insert") (66 . 1)))) (progn (vla-startundomark dc) (vlax-for m (setq sl (vla-get-activeselectionset dc)) (foreach n (vlax-invoke m 'GetAttributes) (setq tx (vla-get-TextString n)) (if (= (substr tx 1 1) cc) (vla-put-TextString n (strcat nc (substr tx 2)))))) (vla-endundomark dc) (vla-delete sl) ) ) (prin1) ) bu lipsi çalıştırdım nasıl kullanacağımı anlayamadım

26.09.2018 11:35 86693	alumina Editör 771 ileti Insaat Muhendisi Istanbul
Alıntı mateus : Ornek dosyayi acip lispi calistirin. Change character: iletisine 3, New character: iletisine 4 yazin ve bloklari secip enter leyin. Ilk karakteri 3 olan butun degerleriin ilk karakteri 4 e donusecektir.

26.09.2018 11:47 86694	mateus Üstad 662 ileti tek.öğrt ist
oldu teşekkürler, attribute leri düzelltim normal textlerde bunun çalışma ihtimali varmı acaba mateus (26.09.2018 11:57 GMT)

26.09.2018 14:01 86696	alumina Editör 771 ileti Insaat Muhendisi Istanbul
Alıntı mateus : Kod: (defun c:ch (/ cc nc dc sl tx) (vl-load-com) (defun m1 (a b /) (if (= (substr b 1 1) cc) (vla-put-TextString a (strcat nc (substr b 2))))) (if (and (/= (setq cc (getstring "\nChange character:")) "") (setq dc (vla-get-activedocument (vlax-get-acad-object)) nc (getstring "\nNew character:")) (ssget ":L" (list '(-4 . "<or") '(-4 . "<and") '(0 . "text") (cons 1 (strcat cc "*")) '(-4 . "and>") '(-4 . "<and") '(0 . "insert") '(66 . 1) '(-4 . "and>") '(-4 . "or>")))) (progn (vla-startundomark dc) (vlax-for m (setq sl (vla-get-activeselectionset dc)) (if (eq (vla-get-ObjectName m) "AcDbText") (m1 m (vla-get-TextString m)) (foreach n (vlax-invoke m 'GetAttributes) (m1 n (vla-get-TextString n))))) (vla-endundomark dc) (vla-delete sl) ) ) (prin1) )

26.09.2018 14:07 86697	mateus Üstad 662 ileti tek.öğrt ist
çok teşekkürler işe yaradı

> 1 <