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

Comments

Popular posts from this blog

Powerpoint countdown and current time in slides VBA

Revit area plans adding new types and references (Gross and rentable)