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...
(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)
)
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 ?
