Change All Fonts in File

[Pat Stanford 526]

The attached script will change the font of all text objects in a drawing, even objects that are part of a group, symbol or viewport annoation. A dialog box allows the user to select the desired font.

Depending on how a PluginObject has been written it might or might not be able to change the font of text that is part of a PIO.

Free for your use.

BACKUP your file before use. No Warranty is Expressed or Implied. Do not operate heavy machinery while using this script. If a rash or sneezing develops for more than 4 hours consult a doctor immediately.

Procedure ChangeAllFonts;

{Changes the font of all text on a drawing to the selected font}
{Traverses into groups, symbols and viewport annotations}

{January 6, 2012}
{? 2012, Coviana, Inc - Pat Stanford pat@coviana.com}
{Licensed under the GNU Lesser General Public License}



var	Hd		:Handle;
Font	:String;
dInt	:Integer;
dReal	:Real;

Procedure ChangeFont(Hd:Handle);

Begin
if GetType(Hd)= 10 then 
begin
	SetTextFont(Hd, 0,len(gettext(Hd)),GetFontID(Font));
end
end;


Begin
Font:='Arial';
FormatTextDialog(Font,dInt,dReal,dInt,dReal,dInt,dInt,62);
ForEachObject(ChangeFont,(INSYMBOL & INOBJECT & INVIEWPORT & (ALL)));
end;

Run(ChangeAllFonts);

[Chris Brough 0]

works like a charm!  only comment is that it doesn't seem to touch drawing labels.