一次编辑大量文本？

Coosbaylumber · 发表于 2022-7-5 13:53:36

在我的旧版本Acad“坐在家里”中，是一个简单的例程，通过环绕框方法修改所有文本，然后只点击文本类型框。它几乎立即修改了所有装箱的文本。它将排列一系列类型字体及其属性，然后您可以选择想要查看的文本样式。进行清除后，它将清除图形中未使用的所有文本样式。但不适用于外部参照或插入。

当时的标准功能。

Wm。

alanjt · 发表于 2022-7-5 14:01:31

我很好奇。让我们看看。

这是一个非常简单和粗糙的方法。。。

copy

(defun c:Test (/ ss)
 (if (setq ss (ssget "_:L" '((0 . "MTEXT,MULTILEADER,TEXT"))))
   ((lambda (i)
      (while (setq e (ssname ss (setq i (1+ i))))
        (command "_.ddedit" e "")
      )
    )
     -1
   )
 )
 (princ)
)