create a new vba project ...
double click "thisdrawing" on the left tree.
a window will be opened.
then search for the "AcadDocument_BeginSave" method
add this in the begin save code
Private Sub AcadDocument_BeginSave(ByVal FileName As String)
ThisDrawing.SendCommand "^^Ctm 1 "...
HI, hope this will help:
VBA example to apply same settings to all layouts ... plus plotting...
Private Sub force_config_to_all_layouts_then_plot()
Dim Layouts As AcadLayouts, Layout As AcadLayout
Dim oPlot As AcadPlot
Dim AddedLayouts() As String
Dim LayoutList As Variant
Dim oLayout As...