Hello,
I'm trying to remove the formating of the dimention in a acad dwg, created from Inventor.
Code:
;INVENTOR TEXT -> ACAD TEXT STYLE
(defun c:ita( / adim valeur removeText
start end
rtext
)
(setq removeText '("\\" "f" "H" "l"))
(setq adim (ob))
(setq valeur (vlax-get adim 'TextOverride))
(if (/= valeur "<>")
;remove extra info
;example "\\fArial|b0|i0;\\H50.0000;ø\\fAIGDT|b0|i0;\\H50.0000;\\ln\\fArial|b0|i0;\\H50.0000;<>\\fArial|b0|i0;\\H50.0000;x2"
;result ø<>x2
(progn
(while (setq st(car(member (substr valeur 1 1) removeText)))
(setq start (vl-string-search st valeur))
(setq end(vl-string-search ";" valeur))
(setq rtext (substr valeur (+ start 1) (+ end 1)))
(setq valeur (vl-string-trim rtext valeur))
)
)
)
(princ)
)
Thanks for any help