Thursday, March 4, 2010

RE: Routine to strip ALL AutoCAD Mtext

AutoCAD VBA

And - reset fonts to Arial...

OPTION EXPLICIT

Sub ResetTextStyles_TO_ARIAL()
''reset ROMANS and other text styles to ARIAL
Dim ObjTStyle As AcadTextStyle
For Each ObjTStyle In ThisDrawing.TextStyles
ObjTStyle.fontFile = "C:\WINDOWS\Fonts\ARIAL.TTF"
Next ObjTStyle
End Sub

No comments:

Post a Comment