Lisp在任意位置插入文本i

pich89 · 发表于 2022-7-5 18:52:35

大家好，

是否有lisp例程可以用于将文本添加到文本字符串的某个位置，而不仅仅是开始或结束？

例如：

我有这个。。。12345, 53432, 12094, 30235
想要这个。。。S123.45、S534.32、S120.94和S302.35

谢谢

BIGAL · 发表于 2022-7-5 20:23:56

这是使用FIND 12345、S53432、S12094、S30235完成的，但正如您所看到的，开始S缺少一个快速方式，可能需要一个或两个。应该有一个lisp版本来更改字符串。快速看一下李·麦克。com他有一个字符串SUBST lisp，可以做你想要的，只需要添加开始和几个输入和更新。看这篇文章。

copy

; 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-subst  newstr exstr tstr) )
)
(vla-put-textstring tobj (strcat newstr tstr ) )
)

[编程交流] Lisp在任意位置插入文本i

发表回复

精选推荐