Private Sub AcadDocument_LayoutSwitched(ByVal LayoutName As String)
Dim dblLTScale As Double
Dim dblDimScale As Double
dblLTScale = 0.6 * (Val(ThisDrawing.GetVariable("DIMSCALE")))
If dblLTScale = 0 Then
dblLTScale = 0.6
End If
With ThisDrawing
If .ActiveSpace = acModelSpace Then
.SetVariable "LTSCALE", dblLTScale
ThisDrawing.Regen acAllViewports
Exit Sub
Else
.SetVariable "LTSCALE", 0.6
.SetVariable "PSLTSCALE", 1
ThisDrawing.Regen acAllViewports
Exit Sub
End If
End With
Exit Sub
End Sub