编辑多文本样式字体
你好有人能帮我用一个lisp将图形中所有文本样式中的所有字体更改为“Arial”吗？
谢谢 嗨，你说的“帮助”是指你自己写的吗？如果是这样，我建议您需要：
-用于查找所有文本的ssget函数：例如
循环遍历每个文本：例如
和一个修改每个文本的函数（使用entmod和subst）：例如
完成的代码：
不包括错误捕捉&如果你想包括块内，那么这会变得有点复杂。
这会更改每个文本和多行文字实体的样式，但OP希望更改与每个样式相关的字体。
----------------------------
下面的代码将每个样式的字体更改为ARIAL。
4 对，我被纠正了。 太棒了，谢谢大家！！！这正是我要找的。史蒂夫-我很喜欢你对代码的解释。这对处于lisp初级阶段的人很有帮助。
我也应该这么做…：眨眼：
5 rkmcswain，
我不太确定如何让你的代码工作。它似乎不像键入它那样简单，而且比简单地在其中添加“defun C：”要复杂得多。你能帮我解决我缺少的东西吗？谢谢
如果您将原始代码复制到VLIDE中，并按下run按钮，它将执行。
如果您将代码保存到文件中，并加载该文件，它将执行。
如果文件不在支持文件搜索路径中，可以使用APPLOAD命令加载文件，也可以使用命令行中的（load）函数加载文件，如下所示：（load“myfile”）-或-（load“c:\\lispcode\\myfile”）。
如果要创建一个要加载到内存中的函数，以便以后执行，则必须添加（defun）包装器，如下所示：
6
如果使用上述代码，仍然可以通过将代码复制（或打开文件）到VLIDE并按“运行”按钮将代码加载到AutoCAD中。您也可以使用（load）函数如上所述加载文件。不同之处在于，如果您添加（defun）包装器，那么代码在加载时不会执行，它只会将代码加载到内存中。此时，您必须在AutoCAD内部运行命令（此时名为FOO） 由于某种原因，我只能让函数返回“nil” 因此，您加载了函数，然后在命令提示符下键入函数名，它返回nil，并且不会更改样式中的字体？
它在所有图形中都做相同的事情吗，即使是一个新的空图形？
页:
[1]
2