关闭大字体？

Fatty · 发表于 2007-7-16 07:22:44

嗨
我使用的是2007。
我想修改现有的TextStyles，以便关闭Texstyle对话框中的“使用大字体”开关。
在帮助中，它说. bigfontfile属性“此属性不能设置为NULL或空字符串”。
有办法关闭它吗？
它存储在注册表中吗？
感谢您的任何帮助
Dave F.

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

小城天使 · 发表于 2007-7-16 08:15:27

从内存中，在命令行（-STYLE）上，当它要求字体时，你可以提供一个逗号分隔的字体列表，通常是一个普通字体，然后是一个大字体，如so：
ISO，BIGFONT
你能检查现有样式的文本字体属性并相应地重置它们吗？

黑翼 · 发表于 2007-7-16 10:12:56

Dave，
VBA我帮不了你，
这只是那个的lisp方法
~'J'~

copy

;; save this code as KB.lsp
;;==================code begin
(defun KillBigFont (stname / )
(setq styl (tblobjname "style" stname))
(setq stlist (entget styl))
(entmod (subst (cons 4 "")(assoc 4 stlist) stlist))
(entupd styl)
(princ)
)
(defun c:kb(/ stname)
(setq stname (getstring T "\Enter the style name: "))
(KillBigFont stname)
)
(princ "\nType KB to execute")
(prin1)
;;==============     code end

关闭大字体？

发表回复

精选推荐