将单词转换为单个文本

SLW210 · 发表于 2022-7-5 20:25:01

我正在寻找一个LISP转换文本（主要是dtext）与几个字，每个字自己的文本。我以为曾经有这样的Lisp程序，但我的搜索结果却是空的。

在附图中，我有顶部文本（白色），我需要的是它在个别文本中，作为较低的文本（红色）。

ReMark · 发表于 2022-7-5 20:34:00

有格式或特殊字符吗？

所有文本是左对齐还是变化？

可能会引起一些兴趣。。。。http://www.theswamp.org/index.php?topic=37370.0

ReMark · 发表于 2022-7-5 20:39:18

这里有几个可能的解决方案。。。。。http://forums.autodesk.com/t5/AutoCAD-2000-2000i-2002-Archive/Any-way-to-explode-single-line-text-into-individual-words/td-p/118061

或者破碎怎么样。在这里找到lsp？http://forums.cadalyst.com/showthread.php?t=4054

SLW210 · 发表于 2022-7-5 20:45:00

谢谢，备注。。。。正如所料，李的S2W。lsp现在很管用，而且它们都应该像示例图中那样保持正确，如果我发现一些不正确，我可以很容易地纠正。

另外两个，切掉。lsp只是悬挂和破碎。lsp将每个单词都设为0（至少在AutoCAD 2011上是这样）。

Lee Mac · 发表于 2022-7-5 20:45:17

很高兴听到SLW

这是此处代码的更新版本，以下内容应适用于所有文本对正（对齐/中间/适合除外）：

[code][颜色=绿色]------------------=={句到词}==----------------；；；；；；将选定的文本对象转换为单独的文本；；；；对象，保留的所有属性；；；；原始对象；；；；-----------------------------------------------------------------；；；；作者：Lee Mac，版权所有©2012-www.Lee-Mac。通用域名格式；；；；-----------------------------------------------------------------；；（defunc:s2w（/\u splitwords \u textwidth ang dxf ent enx fun inc lst pnt sel spc tot wid）（defun\u splitwords（str/pos（setqpos（vl string position32 str））（cons=蓝色]substrstr 1 pos））（（u splitwords（substrstr（+pos 2））（list（cons1 str））（defun\u textwidth（enx）（lambda（lst）（-（caadrlst）（caarlst））（颜色]enx）)）（if（setqsel（ssget'（（0“TEXT”）（[color=BLUE重复（setqinc（sslengthsel））（setqent（ssnamesel（Q公司(1-inc]）enx（entgetent）tot 0.0 lstnil）（foreach项（\u拆分字（cdr1 enx））（setqdxf（entget（entmakex（[color=BLUEsubst项（assoc1 enx）enx）））wid（\u textwidth dxf）tot（+tot wid）lst（cons（consdxf wid）lst））（if（