İleti |
Yazar |
17.01.2019 16:56
|
stolzer
[2] Girişimci
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...
|
18.01.2019 00:33
|
alumina

[70] Editör
662 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 10:09
|
stolzer
[2] Girişimci
9 ileti
makine mühendisi
istanbul
|
elinize sağlık çok teşekkür ederim...
|
08.02.2019 09:24
|
stolzer
[2] Girişimci
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 09:28
|
Travaci

[70] Editör
2145 ileti
Teknik Ressam
Konstantinopol
|
Herşeye lisp beklemeyin, find ile "_T" olanları "T" haline çevirip aynı kodu kullanabilirsiniz.
|
08.02.2019 09:54
|
stolzer
[2] Girişimci
9 ileti
makine mühendisi
istanbul
|
Teşekkürler
|