多行文字 内容刷 行距刷

qinhengda

开心无惧 发表于 2025-9-15 20:08
截图的代码可以发出来吗 谢谢

(defun c:nmd (/ t1 en2 t2 xx1 hj tx)
        (setvar "CMDECHO" 0)
        (setq t1 (cdr (assoc 1 (entget (car (entsel "\n选择源文字："))))))
        (while t
                (setq en2 (entget (car (entsel "\n选择要刷文字："))))
                (setq t2 (cdr (assoc 1 en2)))
                (if (setq xx1 (vl-string-search ";" t1))
                        (setq t1 (substr t1 (+ xx1 2)))
                )
                (if (vl-string-search ";" t2)
                        (progn
                                (setq hj (substr t2 1 (1+ (vl-string-search ";" t2))))
                                (setq tx (strcat hj t1))
                        )
                        (setq tx t1)
                )
                (entmod (subst (cons 1 tx) (assoc 1 en2) en2))
        )
        (setvar "CMDECHO" 1)
        (princ)
)

qinhengda

qinhengda 发表于 2025-9-15 22:49
(defun c:nmd (/ t1 en2 t2 xx1 hj tx)
        (setvar "CMDECHO" 0)
        (setq t1 (cdr (assoc 1 (entget (car  ...

写得不好，多行文字太多格式了

开心无惧

qinhengda 发表于 2025-9-15 22:49
(defun c:nmd (/ t1 en2 t2 xx1 hj tx)
        (setvar "CMDECHO" 0)
        (setq t1 (cdr (assoc 1 (entget (car  ...

非常感谢！

开心无惧

qinhengda 发表于 2025-9-15 22:50
写得不好，多行文字太多格式了

标题帖子又增加了一个问题
这个代码有空能帮我看下吗

功能：仅修改多行文字行间距
输入执行命令后，直接在命令行输入数字来 指定段落行间距-精确值，这个代码怎么设置？

每次在多行文字对话框里修改行间距有点麻烦

qinhengda

开心无惧 发表于 2025-9-16 12:34
标题帖子又增加了一个问题
这个代码有空能帮我看下吗

改这个“\\pxsm2.5”，2.5就是行距值

多行文字特殊字符官方文档帮助https://help.autodesk.com/view/A ... 5-BD75-9ED7112E5967

开心无惧

qinhengda 发表于 2025-9-16 15:09
改这个“\\pxsm2.5”，2.5就是行距值

多行文字特殊字符官方文档帮助https://help.autodesk.com/view/A ...

非常感谢 我看一下