;FONTSUB function to change fonts within a drawing.
;Intended to be used with RUN LISP (See RUNLISP.TXT)
;to automatically substitute fonts in multiple drawings,
;but can be used alone.
;
;
;Scenario:
;
;1)	You need to ship out drawings that use proprietary fonts
;		and the receiving party does not have those fonts so you
;		need to substitute for fonts that they have.
;
;2)	You decide to change the 'look' of all of your drawings by
;		using different font sets and want all of your old drawings
;		to be changed to conform.
;
;3)	You receive drawings that use fonts other than the ones
;		you want (or have) and don't want to have to go through the
;		the dialog for each one in each drawing.
;
;4)	You use a simple font during drawing creation to speed up
;		regenerations but want to plot with a complex font.  In
;		which case you might add this routine to an automated plotting
;		program (See BATCH PLOT or RUN LISP).
;
;Directions:
;
;Create a text file with one line for each font substitution in
;the following format:
;
;oldfont newfont factor
;
;Omit 'factor' if there is no size difference between the two
;fonts.  Factor is the ratio of the old to the new.  One space
;only between oldfont,newfont and factor.
;
;Name this text file FONTSUB.TXT and place it in the same
;directory as the drawings to be changed.
;
;Because changing fonts can result in problems if the font sizes
;are different, keep your old drawings until you are sure that 
;all is well. This program will save the new drawings in a 
;subdirectory called FONTSUB off of the directory containing the 
;old drawings. YOU MUST CREATE THAT DIRECTORY prior to running 
;this program.
;

;ABOUT TEXT AND STYLES:
;
;If a style is defined with 0 height, the user enters the height each time text
;is entered.  This height is saved with the entity.  If the style is defined
;with a fixed height, the user is not prompted for height when text is entered.
;HOWEVER, the height is still saved with the entity and should the style be
;re-defined to have another height - it has no effect on previously entered
;text.  In addition to changing the defined height of each style whose font is
;being substituted, this program  also scales each text entity having that style
;by the factor given in the FONTSUB.TXT file.
;
;Not all fonts are the same size for the same defined height.
;
;Run this program by typing (fontsub) at the command line - Or use RUN LISP
;(See RUNLISP.TXT) to run this program across multiple drawing automatically.
;
;end of file  

