' ******************************************************************************
' swxJRNL.swj - journal recorded on 06/02/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\altex\leo\Leo\Vehicle.SLDASM", 2)
Set Part = swApp.ActivateDoc ("Vehicle.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter -0.00461999, 0
Part.ActiveView().RotateAboutCenter -0.281819, -0.548601
Part.ActiveView().RotateAboutCenter -0.221759, -0.207345
Part.ActiveView().RotateAboutCenter 0.258719, -0.155509
Part.ActiveView().RotateAboutCenter -0.10626, 0.151189
Part.ActiveView().RotateAboutCenter 0.0646798, 0.00863938
Part.ActiveView().RotateAboutCenter 0.0277199, -0.0259181
Part.ActiveView().RotateAboutCenter 0.12012, -0.172788
Part.ActiveView().RotateAboutCenter 0.18942, -0.00863938
Part.ActiveView().RotateAboutCenter 0.12474, 0.289419
Part.ActiveView().RotateAboutCenter -0.0323399, 0.315337
Part.ActiveView().RotateAboutCenter -0.13398, 0.00863938
Part.ActiveView().RotateAboutCenter -0.0831598, -0.103673
Part.ActiveView().RotateAboutCenter 0.10164, -0.190066
Part.ActiveView().RotateAboutCenter 0.0692998, -0.0302378
Part.SelectByID "Point1@Origin@Nose-1@Vehicle/Clamp-1@Nose", "EXTSKETCHPOINT", 0, 0, 0
Set Part = swApp.OpenDoc ("D:\Projects\altex\drawings\vehicle\Assem1.SLDASM", 2)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Assem1.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Assem1.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Vehicle.SLDASM")
Set Part = swApp.OpenDoc ("D:\Projects\altex\drawings\Hull\hull.SLDASM", 2)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("hull.SLDASM")
Part.SelectByID "fuelcell-1@hull", "COMPONENT", 0, 0, 0
Part.SelectByID "fuelcell-1@hull", "COMPONENT", 0, 0, 0
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 1156
swApp.ActiveDoc.ActiveView.FrameHeight = 408
Part.SelectByID "hulltop-1@hull/fuelcell-1@hulltop", "COMPONENT", 0, 0, 0
Part.SelectByID "hulltop-1@hull/fuelcell-1@hulltop", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "", "FACE", -1.294032255454, 0.2400602731338, 0.1680449989015
Part.SelectByID "hulltop-1@hull/fuelcell-1@hulltop", "COMPONENT", 0, 0, 0
Part.SelectByID "fuelcell-1@hull", "COMPONENT", 0, 0, 0
Part.SelectByID "fuelcell-1@hull", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Vehicle.SLDASM")
Part.ClearSelection
Set Part = swApp.ActivateDoc ("hull.SLDASM")
Part.SelectByID "fuelcell-1@hull", "COMPONENT", 0, 0, 0
Part.SelectByID "fuelcell-1@hull", "COMPONENT", 0, 0, 0
Part.OpenCompFile
Set Part = swApp.OpenDoc ("D:\Projects\altex\drawings\Hull\fuelcell.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("fuelcell.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomtofit2
Part.SelectByID "D1@Base-Extrude@fuelcell.SLDPRT", "DIMENSION", 0.2814009796337, 0.04094183863868, 0.7577090358249
Part.SelectByID "D1@Base-Extrude@fuelcell.SLDPRT", "DIMENSION", 0.2797005666808, 0.03998450749115, 0.7572134157079
Part.Parameter("D1@Base-Extrude").SystemValue = 1.6764
Part.EditRebuild
Part.ClearSelection
Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0
Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Cut-Extrude1", "BODYFEATURE", 0, 0, 0
Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 1, "Cut-Extrude1"
Part.ClearSelection
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 1156
swApp.ActiveDoc.ActiveView.FrameHeight = 282
Part.SelectByID "fuelcell.SLDPRT", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Vehicle.SLDASM")
Part.SelectByID "", "FACE", 2.007104771584, 1.369280898234, 1.298491848984
Part.TranslateComponent
Part.TranslateComponent
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 564
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "D1@Base-Extrude@fuelcell-1@Vehicle", "DIMENSION", 0.1951692166213, 0.4766844202423, 0.4731729700977
Part.SelectByID "D1@Base-Extrude@fuelcell-1@Vehicle", "DIMENSION", 0.1878659537565, 0.4739935144752, 0.4695227649537
Part.SelectByID "D1@Base-Extrude@fuelcell-1@Vehicle", "DIMENSION", 0.1856603940684, 0.4769039183413, 0.4717900785133
Part.EditDelete
' MSGBOX
' None of the selected entities could be deleted.

Part.SelectByID "D1@Base-Extrude@fuelcell-1@Vehicle", "DIMENSION", 0.1864198820122, 0.4697376577257, 0.4654303488222
Part.SelectByID "D1@Base-Extrude@fuelcell-1@Vehicle", "DIMENSION", 0.1878659537565, 0.4739935144752, 0.4695227649537
Part.ClearSelection
Part.SelectByID "D1@Base-Extrude@fuelcell-1@Vehicle", "DIMENSION", 0.1856603940684, 0.4769039183413, 0.4717900785133
Part.EditDelete
' MSGBOX
' None of the selected entities could be deleted.

swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("fuelcell.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "D1@Base-Extrude@fuelcell.SLDPRT", "DIMENSION", 0.3311757157717, -0.008588982692372, 0.8216486143511
Part.EditDelete
' MSGBOX
' None of the selected entities could be deleted.

Part.SelectByID "D1@Base-Extrude@fuelcell.SLDPRT", "DIMENSION", 0.330227183229, -0.00559782583605, 0.819125249054
Part.SelectByID "D1@Base-Extrude@fuelcell.SLDPRT", "DIMENSION", 0.323564338487, -0.006705117210167, 0.8154980546715
Part.ClearSelection
Part.EditRebuild
Part.SelectByID "D1@Sketch1@fuelcell.SLDPRT", "DIMENSION", -0.02844478675214, 0.4208334608536, 0.3140737417934
Part.SelectByID "D1@Sketch1@fuelcell.SLDPRT", "DIMENSION", -0.03231987892917, 0.4204143769867, 0.3118208189108
Part.ClearSelection
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
Set Part = swApp.ActivateDoc ("Vehicle.SLDASM")
Part.ClearSelection
Part.EditRebuild
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 282
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditRebuild
Part.SelectByID "", "FACE", -0.1031421003338, 0.7701687952087, 0.2462894392806
Part.TranslateComponent
Part.TranslateComponent
Part.SelectByID "", "FACE", 0.2768168754989, -0.08917257445199, -0.2448557754429
Part.ActivateSelectedFeature
Part.SelectByID "Vehicle.SLDASM", "COMPONENT", 0, 0, 0
Part.EditRebuild
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, 0.00431969
Part.ActiveView().RotateAboutCenter -0.997918, 0.652273
Part.ActiveView().RotateAboutCenter -0.00923998, 0.00431969
Part.ActiveView().RotateAboutCenter 0.540539, -0.263501
Part.ActiveView().RotateAboutCenter 0.19866, -0.056156
Part.ActiveView().RotateAboutCenter 0.01848, 0
Part.ActiveView().RotateAboutCenter 0, -0.00863938
Part.ActiveView().RotateAboutCenter 0.13398, -0.0431969
Part.ActiveView().RotateAboutCenter -0.0323399, 0
Set Part = Nothing
swApp.CloseDoc "Vehicle.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("fuelcell.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "fuelcell.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 564
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("hull.SLDASM")
' MSGBOX
' Models contained within the assembly have changed.  Would you like to rebuild the assembly now?

swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "hull.SLDASM"
swApp.ExitApp
End Sub