Lisp用于调整中的字体
大家好，我在寻找一种方法，将整个文本实体设置为相同的字体（Isocp3.shx）。
原因是。。。我与线性工作。（与Autocad平台上的插件类似）。这个程序适用于不同标高的标高。众所周知，只有acad字体可以提升。。。基于windows的字体（如Arial）将保持在“0”Z坐标上。。。这将打乱我的观点，因为不同层次的文本在所有部分都可见。。。
我在网上发现了这个很棒的lisp，它工作得很好，但有一个问题：保存并重新打开后，所有文本都将使用它们原来的字体。。。谁能帮我一下吗？我非常感谢你投入的时间。。。
这是Lisp：
(defun styles2one (newfont / styl)
(while (setq styl (tblnext "STYLE" (not styl)))
(setq styl (entget (tblobjname "STYLE" (cdr (assoc 2 styl)))))
(entmod (subst (cons 3 newfont) (assoc 3 styl) styl))
)
(command "_.regen")
(princ)
)
将全部更改为isocop3的示例。shx：
（样式21“isocp3.shx”） 如果它在保存后更改，那么每次启动时，Linear都必须重置它。我们也有一些类似的软件，需要进入它的配置，并在全球范围内将其重置为所需。这样的事情是线性存在的吗？否则，您可以将单个文本更改为不同的样式。需要3个更改文本多行文字和块。
非程序方式使用过滤器选择文本应用，然后属性只更改样式，多行文字也是如此。
这是一种可能性http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/LISP-to-change-text-style/td-p/4697091
感谢BIGAL的回复。事实上，在这种情况下，配置调整可能会奏效。。。我应该和我们的it经理一起运行，因为他有权调整全局设置。。。让我再给你回复这个。。。
至于手动更改文本样式。。。这非常耗时（有时有50多种dif风格…）现在最后一个选择。。。
又是Tnx！
页:
[1]