* E Posta Adresiniz:
* Kodu Girin:

İleti Yazar
26.02.2015 14:34
80649    
mateus

[10] Üstad

Online Durumu

385 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 16:16
80651    
halilozcakir

[10] Üstad

Online Durumu

545 ileti
Mekanik Teknik Ressam /Teniker
İstanbul

ilginç Att yi burst ta yapamadım.

26.02.2015 18:51
80652    
seboli61

[8] Kıdemli Uzman

Online Durumu

155 ileti
Teknik Ressam
istanbul

FIND Value kısmındakini buluyor. FIND aramaya "TUR MAHAL" yazın bulacaktır.

26.02.2015 18:53
80653    
seboli61

[8] Kıdemli Uzman

Online Durumu

155 ileti
Teknik Ressam
istanbul

ATTRIBUTE ün default da ne yazıyorsa onu bulur.

26.02.2015 19:54
80654    
mateus

[10] Üstad

Online Durumu

385 ileti
tek.öğrt
ist

yatakodası yazısını değitiremezmiyim

27.02.2015 08:47
80657    
seboli61

[8] Kıdemli Uzman

Online Durumu

155 ileti
Teknik Ressam
istanbul

Çift tıklayıp istediğin ismi koyabilirsin.Ama genelde ATTRUBUTE ler Block olarak kullanılıyor.

27.02.2015 09:23
80658    
halilozcakir

[10] Üstad

Online Durumu

545 ileti
Mekanik Teknik Ressam /Teniker
İstanbul

att yi birdaha çalışmakta üzerinden geçmede fayda var.

26.09.2018 13:40
86684    
mateus

[10] Üstad

Online Durumu

385 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 14:01
86685    
Travaci

[70] Editör

Online Durumu

2122 ileti
Teknik Ressam
Konstantinopol

mateus


Referansın ney ? Dosya yok.

26.09.2018 14:04
86686    
mateus

[10] Üstad

Online Durumu

385 ileti
tek.öğrt
ist



Linkleri görebilmek için ÜYE olmalısınız.



dosyayı ekte gönderiyorum

26.09.2018 14:42
86687    
Travaci

[70] Editör

Online Durumu

2122 ileti
Teknik Ressam
Konstantinopol

Dosya deil lisp, birde neden find komutu ile yapmıyorsunuz ?

26.09.2018 14:58
86688    
mateus

[10] Üstad

Online Durumu

385 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 15:02
86689    
alumina

[70] Editör

Online Durumu

655 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 15:08
86690    
Travaci

[70] Editör

Online Durumu

2122 ileti
Teknik Ressam
Konstantinopol

mateus


ozaman old string 36 new string 46 yazıcaksın


Travaci (26.09.2018 15:18 GMT)

26.09.2018 15:25
86691    
mateus

[10] Üstad

Online Durumu

385 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 15:31
86692    
mateus

[10] Üstad

Online Durumu

385 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 15:35
86693    
alumina

[70] Editör

Online Durumu

655 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 15:47
86694    
mateus

[10] Üstad

Online Durumu

385 ileti
tek.öğrt
ist

oldu teşekkürler, attribute leri düzelltim

normal textlerde bunun çalışma ihtimali varmı acaba


mateus (26.09.2018 15:57 GMT)

26.09.2018 18:01
86696    
alumina

[70] Editör

Online Durumu

655 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 18:07
86697    
mateus

[10] Üstad

Online Durumu

385 ileti
tek.öğrt
ist

çok teşekkürler işe yaradı

> 1 <
Copyright © 2004-2018 | Tüm Hakları Saklıdır | 2693 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam