' ******************************************************************************
' swxJRNL.swj - journal recorded on 06/27/03 by jfeldman
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\900028-ESP-2001\cameraMount\cameraMount.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("cameraMount.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "cameraMount.SLDASM"
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\900028-ESP-2001\Delta Assembly\Delta Assembly.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Delta Assembly.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save2 FALSE
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01825333648452, -0.050318256357, -0.01166958358675, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.02129047271063, -0.04465124995312, -0.01897167462272, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02232721512178, -0.044577, -0.01826692182408, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("ls2-1@Delta Assembly/Flange-Boss-1@ls2", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("ls2-1@Delta Assembly/Flange-Boss-1@ls2", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\900028-ESP-2001\Shuttle Assembly\Flange-Boss.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\900028-ESP-2001\Shuttle Assembly\Flange-Boss.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Flange-Boss.SLDPRT")
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Delta Assembly.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02943243303372, -0.06837679999995, -0.009384350774098, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("ls2-1@Delta Assembly/Heater-Boss-Top-1@ls2", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("ls2-1@Delta Assembly/Heater-Boss-Top-1@ls2", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\900028-ESP-2001\Shuttle Assembly\Heater-Boss-Top.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\900028-ESP-2001\Shuttle Assembly\Heater-Boss-Top.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Heater-Boss-Top.SLDPRT")
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Delta Assembly.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01474474398645, -0.04764266545068, -0.00695304710041, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01474474398645, -0.04764266545068, -0.00695304710041, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01476692289231, -0.04866804157231, -0.001046158758342, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01476692289231, -0.04866804157231, -0.001046158758342, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02161154710888, -0.04484381812682, -0.002859534807016, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0251535635947, -0.03663950000015, -0.006677824045866, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.0251535635947, -0.03663950000015, -0.006677824045866, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\900028-ESP-2001\Shuttle Assembly\Rubber Gasket.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\900028-ESP-2001\Shuttle Assembly\Rubber Gasket.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Rubber Gasket.SLDPRT")
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Delta Assembly.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02921112405431, -0.04648199999991, -0.003364938922317, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("ls2-1@Delta Assembly/Fitting-1_4-28-1@ls2", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02464215154566, -0.07766150627936, -0.001717391571333, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.04860428050989, -0.0475640090246, -0.02514496712993, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("ls2-1@Delta Assembly/Heater-Boss-Top-1@ls2", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("ls2-1@Delta Assembly/Heater-Boss-Top-1@ls2", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
boolstatus = Part.Extension.SelectByID("ls2-1@Delta Assembly/Flange-Boss-1@ls2", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("ls2-1@Delta Assembly/Flange-Boss-1@ls2", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
boolstatus = Part.Extension.SelectByID("", "FACE", -0.03104422804449, -0.03822699999984, -0.02016293139332, False, 0, Nothing)
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Flange-Boss.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Boss-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection
swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\Part.prtdot", ""
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\Part.prtdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Part1")
Part.InsertSketch2 True
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' The document cannot be saved with an empty sketch.
' Do you want to delete the empty sketch and continue saving?

' MSGBOX
' C:\Program Files\SolidWorks\lang\english\tutorial\Part.prtdot has not been rebuilt successfully since the last feature change or an externally referenced model has changed.
' 	It is safest to rebuild before saving.
' 		Rebuild now?

Part.SaveAs2 "C:\Program Files\SolidWorks\lang\english\tutorial\Part.prtdot", 0, TRUE, FALSE
Set Part = Nothing
swApp.CloseDoc "Part.prtdot"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Flange-Boss.SLDPRT")
swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\Part.prtdot", ""
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\Part.prtdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Part2")
Part.InsertSketch2 True
Part.SketchRectangle -0.04581860776439, 0.03422369477912, 0, 0.03908607764391, -0.04170428380187, 0, 1
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.01851445783133, 0.03384966532798, 0, False, 0, Nothing)
Part.SelectMidpoint
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgVERTPOINTS"
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point6", "SKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP1 fix\heater mount - top.SLDPRT", 0, FALSE, FALSE
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Rubber Gasket.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("heater mount - top.SLDPRT")
swApp.ExitApp
End Sub