Yazıyı find ile aramada bulunmama sorunu

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 684, Üye: 4
ehya, hikmet7676, mttlp, silence33

Detaylar »

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

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

İleti	Yazar
26.02.2015 11:34 80649	mateus Üstad 446 ileti tek.öğrt ist
Yazıyı find ile aradığımzaman bulamıyor sizce sebebi ne olabilir Linkleri görebilmek için ÜYE olmalısınız.

26.02.2015 13:16 80651	halilozcakir Üstad 608 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 446 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 608 ileti Mekanik Teknik Ressam /Teniker İstanbul
att yi birdaha çalışmakta üzerinden geçmede fayda var.

26.09.2018 09:40 86684	mateus Üstad 446 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 2392 ileti Teknik Ressam Konstantinopol
mateus Referansın ney ? Dosya yok.

26.09.2018 10:04 86686	mateus Üstad 446 ileti tek.öğrt ist
Linkleri görebilmek için ÜYE olmalısınız. dosyayı ekte gönderiyorum

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

26.09.2018 10:58 86688	mateus Üstad 446 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 769 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 2392 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 446 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 446 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 769 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 446 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 769 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 446 ileti tek.öğrt ist
çok teşekkürler işe yaradı

> 1 <