0 Members and 1 Guest are viewing this topic.
Code - Auto/Visual Lisp: [Select](defun c:nameit (/ e o txt) (if (and (setq e (car (entsel "\nPick mtext: "))) (= "MTEXT" (cdr (assoc 0 (entget e)))) (setq o (vlax-ename->vla-object e)) ) (progn (setq txt (vla-get-textstring o)) (while (vl-string-search "\\C6;" txt) (setq txt (vl-string-translate "\\C6;" "\\C1;" txt))) (vla-put-textstring o txt) ) ) (princ))