' ******************************************************************************
' swxJRNL.swj - journal recorded on 10/15/04 by jon
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("C:\Jon\SW_files\CO2_Disposal_V2\Accum.Assem_V2.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Accum.Assem_V2 - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1990372115239, 0.04970947536012, -0.0004220210053522, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SaveAs2 "C:\Jon\SW_files\CO2_Disposal_V2\Accum.Assem_V2.JPG", 0, TRUE, FALSE
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3639920136467, 0.159234121304, -0.000422021005353, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
swApp.LoadFile2 "C:\Jon\SW_files\SSA_New\SSAintegrated\SSAintegrated.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Jon\SW_files\SSA_New\SSAintegrated\SSAintegrated.SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("SSAintegrated.SLDASM")
boolstatus = Part.Extension.SelectByID("Manifold-1@SSAintegrated", "COMPONENT", 0.007537846421314, -0.0001753399717472, 0.001530800305717, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.007473593136638, -0.0001679972933744, -0.000555978720125, True, 0, Nothing)
Part.SetPickMode
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.00650827835949, 0.000200048982947, -0.003385425495414, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.006490698085031, 0.0002000207524588, -0.002378264266436, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.006290078981408, 0.0001999957339649, -0.002371917822105, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.006354138613574, 0.0001999837988933, -0.002622890242641, True, 0, Nothing)
Set Part = Nothing
swApp.CloseDoc "SSAintegrated.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Accum.Assem_V2 - Sheet1")
Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "Accum.Assem_V2 - Sheet1"
swApp.ExitApp
End Sub