26.02.2015 11:34
mateus
|
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
halilozcakir
|
ilginç Att yi burst ta yapamadım.
|
26.02.2015 15:51
seboli61
|
FIND Value kısmındakini buluyor. FIND aramaya "TUR MAHAL" yazın bulacaktır.
|
26.02.2015 15:53
seboli61
|
ATTRIBUTE ün default da ne yazıyorsa onu bulur.
|
26.02.2015 16:54
mateus
|
yatakodası yazısını değitiremezmiyim
|
27.02.2015 05:47
seboli61
|
Çift tıklayıp istediğin ismi koyabilirsin.Ama genelde ATTRUBUTE ler Block olarak kullanılıyor.
|
27.02.2015 06:23
halilozcakir
|
att yi birdaha çalışmakta üzerinden geçmede fayda var.
|
26.09.2018 09:40
mateus
|
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
Travaci
|
mateus
Referansın ney ? Dosya yok.
|
26.09.2018 10:04
mateus
|
Linkleri görebilmek için ÜYE olmalısınız.
dosyayı ekte gönderiyorum
|
26.09.2018 10:42
Travaci
|
Dosya deil lisp, birde neden find komutu ile yapmıyorsunuz ?
|
26.09.2018 10:58
mateus
|
find komutu
363 diyelim sadece ilk rakamını değiştirmek istiyorum aradaki sayılarda değişiyor ozaman
|
26.09.2018 11:02
alumina
|
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
Travaci
|
mateus
ozaman old string 36 new string 46 yazıcaksın
Travaci (26.09.2018 11:18 GMT)
|
26.09.2018 11:25
mateus
|
mateus
ozaman old string 36 new string 46 yazıcaksın
find what kısmınamı yazacağız
|
26.09.2018 11:31
mateus
|
(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
alumina
|
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
mateus
|
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
alumina
|
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)
)
|
mateus
|
çok teşekkürler işe yaradı
|