' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/15/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\drawings\Hull\hull.SLDASM", 2)
Set Part = swApp.ActivateDoc ("hull.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
Set Part = Nothing
swApp.CloseDoc "hull.SLDASM"
Set Part = swApp.OpenDoc ("F:\ATC\thruster\drawings\gimbal.SLDASM", 2)
' MSGBOX
' Unable to locate the file F:\ATC\Masters\CAD Model\Fasteners\SCREW, FLH, 100 DEG (NO.4-40 x .188).SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Unable to locate the file F:\ATC\Masters\CAD Model\Bearings\Bearing.SLDASM.  Would you like to find it yourself?

' MSGBOX
' Unable to locate the file F:\ATC\Masters\CAD Model\Fasteners\SCREW, PNH (NO.02 x .188).SLDPRT.  Would you like to find it yourself?

' MSGBOX
' Unable to locate the file F:\ATC\Masters\CAD Model\Fasteners\SCREW, SCH (NO.10 x .375).SLDPRT.  Would you like to find it yourself?

Set Part = swApp.ActivateDoc ("gimbal.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.SelectByID "tc_bottom_clevis-1@gimbal", "COMPONENT", 0, 0, 0
Part.SelectByID "tctopclevis-1@gimbal", "COMPONENT", 0, 0, 0
Part.ActiveView().RotateAboutCenter 0.0176765, -0.027757
Part.ActiveView().RotateAboutCenter 0.20328, -0.416356
Part.ActiveView().RotateAboutCenter 0.0265147, -0.101776
Part.ActiveView().RotateAboutCenter 0.0176765, -0.0971497
Part.ActiveView().RotateAboutCenter 0.0176765, -0.0185047
Part.ActiveView().RotateAboutCenter 0.119316, -0.120281
Part.ActiveView().RotateAboutCenter 0.119316, -0.00462617
Part.ActiveView().RotateAboutCenter 0.0309338, 0.0138785
Part.ActiveView().RotateAboutCenter 0.123735, 0.185047
Part.ActiveView().RotateAboutCenter 0.0441912, 0.027757
Part.ActiveView().RotateAboutCenter 0.19886, 0.0138785
Part.ActiveView().RotateAboutCenter 0.0486103, 0.0185047
Part.ActiveView().RotateAboutCenter 0.0220956, 0.0138785
Part.ActiveView().RotateAboutCenter 0, 0.00462617
Part.ActiveView().RotateAboutCenter -0.035353, -0.00462617
Part.ActiveView().RotateAboutCenter -0.0441912, -0.0231309
Part.ActiveView().RotateAboutCenter -0.0662868, -0.0508879
Part.ActiveView().RotateAboutCenter -0.0132574, -0.0138785
Part.ActiveView().RotateAboutCenter -0.344691, 0.00462617
Part.ActiveView().RotateAboutCenter -0.388883, 0.0323832
Part.ActiveView().RotateAboutCenter -0.0928015, 0.0231309
Part.ActiveView().RotateAboutCenter 0, -0.027757
Part.ActiveView().RotateAboutCenter 0.0707059, -0.185047
Part.ActiveView().RotateAboutCenter 0.10164, -0.152664
Part.ActiveView().RotateAboutCenter 0.0883824, -0.175795
Part.ActiveView().RotateAboutCenter 0.0574486, -0.0647664
Part.ActiveView().RotateAboutCenter 0.0132574, -0.0138785
Part.ActiveView().RotateAboutCenter 0.00441912, 0
Part.ActiveView().RotateAboutCenter 0.212118, 0.0185047
Part.ActiveView().RotateAboutCenter 0.141412, 0.00462617
Part.ActiveView().RotateAboutCenter 0.0397721, 0.00462617
Part.ActiveView().RotateAboutCenter 0.00441912, 0
Part.ActiveView().RotateAboutCenter 0.00441912, 0
Part.ActiveView().RotateAboutCenter 0.0132574, -0.00462617
Part.ActiveView().RotateAboutCenter 0.0309338, -0.00925235
Part.ActiveView().RotateAboutCenter 0, 0.00462617
Part.ActiveView().RotateAboutCenter 0.0441912, 0.0740188
Part.ActiveView().RotateAboutCenter 0, 0.00462617
Part.ActiveView().RotateAboutCenter 0, 0.0138785
Part.ActiveView().RotateAboutCenter 0, 0.00462617
Part.ActiveView().RotateAboutCenter -0.00441912, 0.00462617
Part.ActiveView().RotateAboutCenter -0.380044, 1.1658
Part.ActiveView().RotateAboutCenter -0.0397721, 0.0693926
Part.ActiveView().RotateAboutCenter 0, -0.00925235
Part.ActiveView().RotateAboutCenter 0, -0.00462617
Part.ActiveView().RotateAboutCenter -0.00441912, 0.00462617
Part.ActiveView().RotateAboutCenter -0.00441912, 0
Part.ActiveView().RotateAboutCenter 0, -0.00462617
Part.ActiveView().RotateAboutCenter 0, -0.00462617
Part.ActiveView().RotateAboutCenter 0, -0.0231309
Part.ActiveView().RotateAboutCenter -0.00441912, -0.0138785
Part.ActiveView().RotateAboutCenter 0, -0.00925235
Part.ActiveView().RotateAboutCenter -0.00441912, 0
Part.ActiveView().RotateAboutCenter 0, -0.00462617
Part.ActiveView().RotateAboutCenter -0.00441912, -0.00925235
Part.ActiveView().RotateAboutCenter -0.00441912, -0.00925235
Part.ActiveView().RotateAboutCenter -0.00441912, -0.0323832
Part.ActiveView().RotateAboutCenter 0, -0.00925235
Part.ActiveView().RotateAboutCenter 0, -0.0231309
Part.ActiveView().RotateAboutCenter 0, -0.0231309
Part.ActiveView().RotateAboutCenter 0.00883824, -0.0231309
Part.ActiveView().RotateAboutCenter 0, -0.00925235
Part.ActiveView().RotateAboutCenter 0.00441912, 0
Part.ActiveView().RotateAboutCenter 0.00441912, 0
Part.ActiveView().RotateAboutCenter 0.00883824, 0
Part.ActiveView().RotateAboutCenter 0, -0.00462617
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "gimbal.SLDASM"
swApp.ExitApp
End Sub