* E Posta Adresiniz:
* Kodu Girin:

İleti Yazar
17.01.2019 13:56
87007    
stolzer

[2] Girişimci

Online Durumu

9 ileti
makine mühendisi
istanbul

Arkadaşlar Merhaba,

elimdeki çizimde mahal yerlerini belirten textler var.Ancak bu textlerin hepsi D5_0063, D65_0897 ,D40_45687 şeklinde devam ediyor.Bana lazım olmayan taraf _ den sonraki kısım. _ ile beraber silinmesinin istiyorum . Yardımcı olur musunuz ? Bununla alakalı lisp var mıdır sizce ?
Teşekkürler...

17.01.2019 21:33
87009    
alumina

[70] Editör

Online Durumu

667 ileti
Insaat Muhendisi
Istanbul

Alıntı
stolzer :

Kod:

(defun c:ts (/ d s k n r) (vl-load-com)
  (if (setq d (vla-get-ActiveDocument
        (vlax-get-acad-object))
          s (ssget '((0 . "text"))))
    (progn (vla-StartUndomark d)
      (repeat (setq k (sslength s))
        (setq k (1- k) n (vlax-ename->vla-object
          (ssname s k)) r (vla-get-TextString n))
        (vla-put-TextString n (substr r 1
          (vl-string-position (ascii "_") r))))
      (vla-EndUndomark d)
    )
  ) (prin1)
)

18.01.2019 07:09
87013    
stolzer

[2] Girişimci

Online Durumu

9 ileti
makine mühendisi
istanbul

elinize sağlık çok teşekkür ederim...

08.02.2019 06:24
87075    
stolzer

[2] Girişimci

Online Durumu

9 ileti
makine mühendisi
istanbul

Sn. Alumina hocam yukarıdaki soruma vermiş olduğunuz cevap için tekrardan teşekkür ederim.

Bu lispi mesela _T101_12586 nesnesinde çalıştırdığım zaman nesneyi siliyor.
Aslında _T101_12586 nesnesinin T101 kısmıyla çalışıcam.Elimde _ ile başlayan bisürü text varda .
Yardımcı olabilir misiniz ?

08.02.2019 06:28
87076    
Travaci

[70] Editör

Online Durumu

2160 ileti
Teknik Ressam
Konstantinopol

Herşeye lisp beklemeyin, find ile "_T" olanları "T" haline çevirip aynı kodu kullanabilirsiniz.

08.02.2019 06:54
87077    
stolzer

[2] Girişimci

Online Durumu

9 ileti
makine mühendisi
istanbul

Teşekkürler

> 1 <
Copyright © 2004-2019 | Tüm Hakları Saklıdır | 3361 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam | İletişim