TheSwamp

Code Red => VB(A) => Topic started by: Dave f. on July 16, 2007, 07:22:44 AM

Title: Turning Big font off?
Post by: Dave f. on July 16, 2007, 07:22:44 AM
Hi
I'm using 2007.

I want to amend existing TextStyles so that the 'Use Big Font' switch in the Texstyle dialog is turned off.

From the Help it says for the .bigfontfile property that 'This property cannot be set to NULL or an empty string.'

Is there a way to turn it off?

Is it stored in the registry?

Thanks for any help

Dave F.
Title: Re: Turning Big font off?
Post by: Glenn R on July 16, 2007, 08:15:27 AM
From memory, on the commandline (-STYLE), when it asks for a font, you can supply a comma-delimited list of fonts, usually a normal font then a bigfont like so:

ISO,BIGFONT

Can you examine the text font property of your existing style(s) and reset them accordingly...?
Title: Re: Turning Big font off?
Post by: Fatty on July 16, 2007, 10:12:56 AM
Dave,
I can't help you with VBA,
this is just lisp method for that

~'J'~

Code: [Select]
;; 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