Hi,
I am using AutoCAD 2015. I have a requirement where i have more than 500 AutoCAD files (.DWG) which are kept in the folders in a structured manner (Multiple folder under one folder). I want to do some font changes (same for all file) to all files and want to save the file. I have seen some code which do the same thing for .DXF but i haven't found anything for .DWG.
Can someone please help me with a VBA code where all these ativities can be done on one click? I have the code to do font changes as mentioned below which can be applied to each file. Please let me know if more information needed.
Thank in advance for the help. Your help is greatly appreciated.
Code:
Public Sub ChangeFonts()
Dim TextFont As AcadTextStyle
For Each TextFont In ThisDrawing.TextStyles
TextFont.fontFile = "C:\Windows\Fonts\Romans.shx"
TextFont.Height = "0.8"
TextFont.Width = "0.75"
TextFont.ObliqueAngle = "0"
Next TextFont
ThisDrawing.Regen acAllViewports
End Sub