' ******************************************************************************
' swxJRNL.swj - journal recorded on 09/23/04 by shfa
' *****************************************************************************
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 ("G:\600045.DORISS\DORISS.Engineering\DORISS.ME.Dwgs\subconn fiber adapter\fiber adapter with BCR.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("fiber adapter with BCR.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0.00729795, 0
Part.ActiveView().RotateAboutCenter 0, -0.00983211
Part.ActiveView().RotateAboutCenter 0, -0.00983211
Part.ActiveView().RotateAboutCenter 0.00729795, 0
Part.ActiveView().RotateAboutCenter 0.00729795, -0.0196642
Part.ActiveView().RotateAboutCenter 0.00729795, -0.00983211
Part.ActiveView().RotateAboutCenter 0.00729795, -0.0196642
Part.ActiveView().RotateAboutCenter 0.0145959, -0.00983211
Part.ActiveView().RotateAboutCenter 0, -0.0196642
Part.ActiveView().RotateAboutCenter 0.0145959, -0.0196642
Part.ActiveView().RotateAboutCenter 0.0218938, -0.0393284
Part.ActiveView().RotateAboutCenter 0.0218938, -0.0393284
Part.ActiveView().RotateAboutCenter 0.00729795, -0.00983211
Part.ActiveView().RotateAboutCenter 0.00729795, -0.00983211
Part.ActiveView().RotateAboutCenter 0.0145959, -0.00983211
Part.ActiveView().RotateAboutCenter 0.00729795, -0.00983211
Part.ActiveView().RotateAboutCenter 0.0218938, -0.0196642
Part.ActiveView().RotateAboutCenter 0.00729795, 0
Part.ActiveView().RotateAboutCenter 0.00729795, -0.00983211
Part.ActiveView().RotateAboutCenter 0.00729795, -0.00983211
Part.ActiveView().RotateAboutCenter 0.0145959, 0
Part.ActiveView().RotateAboutCenter 0.00729795, -0.00983211
Part.ActiveView().RotateAboutCenter 0.0218938, -0.00983211
Part.ActiveView().RotateAboutCenter 0.0145959, -0.00983211
Part.ActiveView().RotateAboutCenter 0.0145959, 0
Part.ActiveView().RotateAboutCenter 0.0145959, -0.00983211
Part.ActiveView().RotateAboutCenter 0.0145959, 0
Part.ActiveView().RotateAboutCenter 0.00729795, 0
Part.ActiveView().RotateAboutCenter 0.00729795, 0
Part.ActiveView().RotateAboutCenter 0.0218938, 0
Part.ActiveView().RotateAboutCenter 0.0145959, 0
Part.ActiveView().RotateAboutCenter 0.0218938, 0
Part.ActiveView().RotateAboutCenter 0.0218938, 0
Part.ActiveView().RotateAboutCenter 0.0291918, 0
Part.ActiveView().RotateAboutCenter 0.0291918, 0
Part.ActiveView().RotateAboutCenter 0.0437877, 0
Part.ActiveView().RotateAboutCenter 0.0437877, 0
Part.ActiveView().RotateAboutCenter 0.0291918, 0
Part.ActiveView().RotateAboutCenter 0.0364897, 0
Part.ActiveView().RotateAboutCenter 0.0291918, 0
Part.ActiveView().RotateAboutCenter 0.0291918, 0
Part.ActiveView().RotateAboutCenter 0.0291918, 0
Part.ActiveView().RotateAboutCenter 0.0218938, 0
Part.ActiveView().RotateAboutCenter 0.0364897, 0.00983211
Part.ActiveView().RotateAboutCenter 0.0583836, 0
Part.ActiveView().RotateAboutCenter 0.0364897, 0.00983211
Part.ActiveView().RotateAboutCenter 0.0364897, 0
Part.ActiveView().RotateAboutCenter 0.0364897, 0
Part.ActiveView().RotateAboutCenter 0.0218938, 0
Part.ActiveView().RotateAboutCenter 0.0291918, 0
Part.ActiveView().RotateAboutCenter 0.0291918, 0
Part.ActiveView().RotateAboutCenter 0.0583836, 0
Part.ActiveView().RotateAboutCenter 0.0437877, 0
Part.ActiveView().RotateAboutCenter 0.0437877, 0
Part.ActiveView().RotateAboutCenter 0.0583836, 0.0196642
Part.ActiveView().RotateAboutCenter 0.0656815, 0.0196642
Part.ActiveView().RotateAboutCenter 0.0364897, 0.00983211
Part.ActiveView().RotateAboutCenter 0.0437877, 0
Part.ActiveView().RotateAboutCenter 0.0291918, 0
Part.ActiveView().RotateAboutCenter 0.0218938, 0
Part.ActiveView().RotateAboutCenter 0.0291918, 0
Part.ActiveView().RotateAboutCenter 0.0218938, 0
Part.ActiveView().RotateAboutCenter 0.0291918, 0
Part.ActiveView().RotateAboutCenter 0.0291918, 0
Part.ActiveView().RotateAboutCenter 0.0145959, 0
Part.FileSummaryInfo
Part.ViewDisplayHiddengreyed
' MSGBOX
' One or more documents are being closed as a result of this operation.   If you do not save them, your changes will be lost.
' Click "Yes" to close and save them.
' Click "No" to close them without the changes.

Set Part = Nothing
swApp.CloseDoc "fiber adapter with BCR.SLDASM"
Set Part = swApp.OpenDoc6 ("G:\600045.DORISS\DORISS.Engineering\DORISS.ME.Dwgs\LRS_Lase_Injector\Assem1.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Assem1.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "Assem1.SLDASM"
Set Part = swApp.OpenDoc6 ("G:\600045.DORISS\DORISS.Engineering\DORISS.ME.Dwgs\600045-Laser Raman Spectrometer\LRS-Complete Assembly\Deployment Assembly.SLDASM", 2, 0, "", longstatus, longwarnings)
' MSGBOX
' Lightweight parts will not be used in this assembly until you save 
' the assembly in shaded mode, in SolidWorks 98Plus or a later version.

Set Part = swApp.ActivateDoc ("Deployment Assembly.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewDisplayHiddengreyed
boolstatus = Part.Extension.SelectByID("FRONT", "PLANE", 0, 0, 0, True, 0, Nothing)
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomtofit2
Part.ViewDisplayShadedWithEdges
Part.ViewZoomtofit2
Part.ViewZoomtofit2
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub