在lisp中将文本转换为多行文字？

muck · 发表于 2022-7-6 10:40:29

主题在lisp中将文本转换为多行文字？
用什么lisp命令将字符串转换为多行文字？

我正在寻找（或可能作出）一个lisp例程，将改变文本
通过允许用户在图形中选择一组字符串，将其转换为多行文字。
例程将第一个文本字符串更改为多行文字，然后
允许用户编辑该字符串。然后，例程将转到第二个字符串进行多行文字转换，然后让用户编辑该字符串。然后rountine将连接到第三根弦，依此类推。希望常规动作能从左向右再向下移动。像读书一样的运动。有人这样做吗？？

首先，有人知道用lisp命令将文本转换为多行文字吗？

非常感谢。

tzframpton · 发表于 2022-7-6 10:44:26

你在运行什么版本的CAD？如果是完整版本，那么您可能已经通过Express Tools拥有了此功能。在命令行中键入TXT2MTXT，然后按照提示进行操作。

muck · 发表于 2022-7-6 10:47:11

AutoCAD 2007版。我注意到，当一个人使用下拉菜单（即txt2mtxt）选择一组文本字符串时，该命令会将所有字符串放入一个多行文字框中。通常是顶部的多行文字框。我真的不想那样。如果我选择10个文本字符串转换为多行文字，我想通过窗口拾取一组文本字符串，在原始位置获得10个多行文字框。希望多行文字与前一行文字处于相同的位置
文本字符串。
非常感谢。

Raggi_Thor · 发表于 2022-7-6 10:50:47

这可以在lisp中完成，但大多数人希望将严重的数据文本分组到一个多行文字中。

关于这个：运行命令txt2mtxt，选择一个文本，然后按enter键重复并选择下一个，依此类推？

lpseifert · 发表于 2022-7-6 10:55:31

试试这个。。。

copy


;changes text to individual mtext by Carl B.
(princ "\nType T2M to start")
(defun c:t2m ()
 (setq Tset (ssget '((0 . "*TEXT"))))   ;filter text in selection set
                   
 (setq    Setlen (sslength Tset)       ;setq number of entties in selection set, setq count(er) to 0
   Count  0
 )
                   
 (repeat SetLen                             ;repeat setq times
                   
   (setq Ename (ssname Tset Count))   ;setq ename to be the "0..." entity in selection set Tset
                   
   (command "_txt2mtxt" Ename "")
   (setq Count (+ 1 Count))                  ; add 1 to Count(er)
                   
 )                ; Repeat    
 (princ)
)