' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/27/00 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\drawings\baseass.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("baseass - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SaveAs2 "D:\Projects\dispenser\drawings\baseassp2.DXF", 0, TRUE, FALSE
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\backet_weld.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("backet_weld - Sheet1")
Set Part = Nothing
swApp.CloseDoc "backet_weld - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("baseass - Sheet2")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\attachment_bracket.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("attachment_bracket - Sheet1")
Set Part = Nothing
swApp.CloseDoc "attachment_bracket - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("baseass - Sheet2")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\Bracket_ass.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\Bracket_ass.DXF", 0, TRUE, FALSE
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\clampbar.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("clampbar - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\clampbar.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "clampbar - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\conergusset.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("conergusset - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\conergusset.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "conergusset - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\couple.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("couple - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\couple.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "couple - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\dispbase.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("dispbase - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\dispbase.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "dispbase - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\dispbase_draw.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("dispbase_draw - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\dispbase_draw.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "dispbase_draw - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\Draw2.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Draw2 - Sheet1")
Part.ViewZoomTo2 0.351901, 0.033725, -1.56638e-015, 0.407715, -0.0121975, -1.24571e-015
Part.ViewZoomtofit2
Part.SaveAs2 "D:\Projects\dispenser\drawings\stopbracket.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Draw2 - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\Draw4.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Draw4 - Sheet1")
Part.ViewZoomTo2 0.353314, 0.046442, -5.41085e-016, 0.429616, -0.00866502, -1.56275e-016
Part.ViewZoomtofit2
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Draw4 - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\lid_draw.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("lid_draw - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\lid_draw.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "lid_draw - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\lidret_draw.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("lidret_draw - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\lidret_draw.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "lidret_draw - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\pumpass.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("pumpass - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\pumpass.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "pumpass - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\rot_brak.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("rot_brak - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\rot_brak.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "rot_brak - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\rotbracket.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("rotbracket - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\rotbracket.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "rotbracket - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\rotstop.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("rotstop - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\rotstop.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "rotstop - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\saddle_draw.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("saddle_draw - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\saddle_draw.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "saddle_draw - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\stirretainer.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("stirretainer - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\stirretainer.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "stirretainer - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\valve_brak.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("valve_brak - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\valve_brak.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "valve_brak - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Set Part = swApp.OpenDoc ("D:\Projects\dispenser\drawings\valveass.SLDDRW", 3)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("valveass - Sheet1")
Part.SaveAs2 "D:\Projects\dispenser\drawings\valveass.DXF", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "valveass - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket_ass - Sheet1")
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Bracket_ass - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("baseass - Sheet2")
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "baseass - Sheet2"
swApp.ExitApp
End Sub