Lisp在任意位置插入文本i
大家好，是否有lisp例程可以用于将文本添加到文本字符串的某个位置，而不仅仅是开始或结束？
例如：
我有这个。。。12345, 53432, 12094, 30235
想要这个。。。S123.45、S534.32、S120.94和S302.35
谢谢 这是使用FIND 12345、S53432、S12094、S30235完成的，但正如您所看到的，开始S缺少一个快速方式，可能需要一个或两个。应该有一个lisp版本来更改字符串。快速看一下李·麦克。com他有一个字符串SUBST lisp，可以做你想要的，只需要添加开始和几个输入和更新。看这篇文章。
; just a start
(defun C:test ( / tobj tstr exstr newstr)
(setq tobj (vlax-ename->vla-object (car(entsel "pick text"))))
(Setq tstr (vla-get-textstring tobj))
(setq exstr (getstring "Enter existing string")) ; need to use " "
(setq newstr (getstring "Enter new string")) ; need to use " "
(while (> (vl-string-search exstr tstr) 0)
(setq tstr (vl-string-substnewstr exstr tstr) )
)
(vla-put-textstring tobj (strcat newstr tstr ) )
)
页:
[1]