如何在第45位添加到字符串
您好，我有一个名为“txt\u result”的字符串，它是从文本文档生成的，我需要在字符串的第45个字符处添加一个“\\P”，以便45之后的所有字符都转到新的多行文字。。。。不太确定我需要寻找什么来做这件事。谢谢 试试这个功能。
(defun _add:new:line (str loc / lst)
;; Author : Tharwat Al Shoufi ;;
;;------------------------------------;;
;; Argument : ;;
;; str = string ;;
;; loc = location ;;
(repeat (/ (strlen str) loc)
(setq lst (cons (strcat (substr str 1 loc) "\\P") lst)
str (substr str (1+ loc))
)
)
(if (and str (/= str ""))
(setq lst (cons str lst))
)
(apply 'strcat (reverse lst))
)
使用上述函数的示例。
(_add:new:line "abcdefghijklmnopqrstuvwxyz" 5)
返回：
"abcde\\Pfghij\\Pklmno\\Ppqrst\\Puvwxy\\Pz" 谢谢你的代码，效果很好。然而，我似乎有一个新问题。。。。我的绳子太长了！我用下面的方法来创建多行文字，但它把字符串一分为二！
（命令“mtext”pt1 pt2 txt\u result“”）
有没有更好的方法制作多行文字对象？ 使用entmake函数，该函数比一般命令更快、更准确。
entmake函数
DXF代码
希望有帮助 另一个：
(defun addnewline ( str pos )
(if (< pos (strlen str))
(strcat (substr str 1 pos) "\\P" (addnewline (substr str (1+ pos)) pos))
str
)
)
_$ (addnewline "abcdefghijklmnopqrstuvwxyz" 5)
"abcde\\Pfghij\\Pklmno\\Ppqrst\\Puvwxy\\Pz"
这也是Lisp程序很有趣的原因之一
该函数可以应用于函数本身
Thanx公司
@塔尔瓦祝你开斋节快乐
你真好，韩
这个场合不属于我，但我尊重它。 这种技术被称为递归，并在许多编程语言中得到支持。 nvm先生，高兴编码
谢谢你的链接，先生
编程很有趣
页:
[1]