' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/17/99 by grma
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\cylinder.SLDASM", 2)
' MSGBOX
' Lightweight parts will not be used in this assembly until you save 
' the assembly in shaded mode, in SolidWorks 98Plus or a later version.

Set Part = swApp.ActivateDoc ("cylinder")
swApp.ActiveDoc.ActiveView.FrameWidth = 421
swApp.ActiveDoc.ActiveView.FrameHeight = 559
Part.ViewZoomtofit
Set Part = Nothing
swApp.CloseDoc "cylinder"
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\dispense2.SLDASM", 2)
' MSGBOX
' Lightweight parts will not be used in this assembly until you save 
' the assembly in shaded mode, in SolidWorks 98Plus or a later version.

' MSGBOX
' Unable to locate the file F:\Projects\dispenser\dispbase.SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Unable to locate the file F:\Projects\dispenser\stir.SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Unable to locate the file F:\Projects\dispenser\tube.SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Unable to locate the file F:\Projects\dispenser\diskSLDPRT.SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Unable to locate the file F:\Projects\dispenser\pump.SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Unable to locate the file F:\Projects\dispenser\pump.SLDASM.  Would you like to find it yourself?

Set Part = swApp.ActivateDoc ("dispense2")
swApp.ActiveDoc.ActiveView.FrameWidth = 421
swApp.ActiveDoc.ActiveView.FrameHeight = 559
Part.ViewZoomtofit
Set Part = Nothing
swApp.CloseDoc "dispense2"
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\Draw2.SLDDRW", 3)
' MSGBOX
' Unable to locate the file D:\Projects\dispenser\stop_block.SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Cannot open D:\Projects\dispenser\stop_block.SLDPRT.
' 
External model D:\Projects\dispenser\stop_block.SLDPRT could not be found.

' MSGBOX
' Cannot open D:\Projects\dispenser\stop_block.SLDPRT.
' 
External model D:\Projects\dispenser\stop_block.SLDPRT could not be opened because of an unexpected error.

' MSGBOX
' Cannot open D:\Projects\dispenser\stop_block.SLDPRT.
' 
External model D:\Projects\dispenser\stop_block.SLDPRT could not be opened because of an unexpected error.

' MSGBOX
' Cannot open D:\Projects\dispenser\stop_block.SLDPRT.
' 
External model D:\Projects\dispenser\stop_block.SLDPRT could not be opened because of an unexpected error.

Set Part = swApp.ActivateDoc ("Draw2 - Sheet1")
swApp.ActiveDoc.ActiveView.FrameWidth = 359
swApp.ActiveDoc.ActiveView.FrameHeight = 559
Set Part = Nothing
swApp.CloseDoc "Draw2 - Sheet1"
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\Draw2.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("Draw2 - Sheet1")
swApp.ActiveDoc.ActiveView.FrameWidth = 359
swApp.ActiveDoc.ActiveView.FrameHeight = 559
Part.EditSketch
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "Draw2 - Sheet1"
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\lid.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("lid")
swApp.ActiveDoc.ActiveView.FrameWidth = 421
swApp.ActiveDoc.ActiveView.FrameHeight = 559
Set Part = Nothing
swApp.CloseDoc "lid"
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\rod.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("rod")
swApp.ActiveDoc.ActiveView.FrameWidth = 421
swApp.ActiveDoc.ActiveView.FrameHeight = 559
Set Part = Nothing
swApp.CloseDoc "rod"
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\tube.SLDASM", 2)
' MSGBOX
' Lightweight parts will not be used in this assembly until you save 
' the assembly in shaded mode, in SolidWorks 98Plus or a later version.

' MSGBOX
' Unable to locate the file F:\Projects\dispenser\stir.SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Unable to locate the file F:\Projects\dispenser\tube.SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Unable to locate the file F:\Projects\dispenser\diskSLDPRT.SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Unable to locate the file F:\Projects\dispenser\pump.SLDPRT.  Would you like to find it yourself?

Set Part = swApp.ActivateDoc ("tube")
swApp.ActiveDoc.ActiveView.FrameWidth = 421
swApp.ActiveDoc.ActiveView.FrameHeight = 559
Part.ViewZoomtofit
swApp.ExitApp
End Sub