I am looking for a way to find ALL text that does not have a TEXT WIDTH FACTOR (TWF) = 1.0. Then I want to evaluate the current TEXT WIDTH FACTOR setting and substitute a different font with a TWF = 1.0.
Rules:
1.) If TWF is between 0.96 and 1.04 then change font to Arial Regular and set TWF = 1.0
2.) If TWF is between 0.85 and 0.95 then change font to Arial Narrow Bold and set TWF = 1.0
2.) If TWF is between 0.75 and 0.84 then change font to Arial Narrow and set TWF to 1.0
I found Lee Mac's FixAllText which works great for changing all text. However, after using it I have found some text that over flows past its "bounding box" or into other text. Thus, I need to edit his code to do this but don't know that much about LISP yet.
Thanks for any help you can Provide.
711-24977 Text Width Factor & Font Change Example.DWG
FixAllText.lsp