AUGIs:
In ACAD 2002/ADT3.3, I'm trying to create a VBA Project with a procedure (if that's the correct term) written by Bobby C. Jones (that I recevived at least 2 years ago) for automatically changing the ltscale value depending on being in model or paper space. After spending many hours plowing through Richard Binning's VBA Foudnations, I'm still confused about how to enter this procedure (shown below) into a VBA project and get it to work. My problem seems to lie in the naming of the Project or Procedure or Macro (which one I don't understand).
Can someone give me concise directions on how to set this up?
Thanks,
Jim Cronburg
____________________________________________________________________
Private Sub AcadDocument_LayoutSwitched(ByVal LayoutName As String)
Dim oLayout As AcadLayout
Set oLayout = ThisDrawing.Layouts.Item(LayoutName)
If oLayout.ModelType Then
ThisDrawing.SetVariable "LTSCALE", 48#
Else
ThisDrawing.SetVariable "LTSCALE", 1#
ThisDrawing.SetVariable "PSLTSCALE", 1#
End If
End Sub