请教 多行文字 内容刷 行距保持不变

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  ...

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