' ******************************************************************************
' swxJRNL.swj - journal recorded on 11/15/02 by fejo
' ******************************************************************************

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 = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc4 ("C:\tube core\tube core Assem.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("tube core Assem")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter -0.00323735, 0.00430604
Part.ActiveView().RotateAboutCenter -0.0161867, 0.0258363
Part.ActiveView().RotateAboutCenter -0.00323735, 0.0215302
Part.ActiveView().RotateAboutCenter 0.00971204, 0.146405
Part.ActiveView().RotateAboutCenter 0.11007, 0.198078
Part.ActiveView().RotateAboutCenter 0.084171, 0.094733
Part.ActiveView().RotateAboutCenter 0.181291, 0.094733
Part.ActiveView().RotateAboutCenter 0.116544, 0.0258363
Part.ActiveView().RotateAboutCenter 0.0161867, 0
Part.ActiveView().RotateAboutCenter 0.00971204, -0.0129181
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter -0.135968, 0
Part.ActiveView().RotateAboutCenter -0.123019, 0.0473665
Part.ActiveView().RotateAboutCenter -0.0161867, 0.0172242
Part.ActiveView().RotateAboutCenter -0.0291361, 0.0473665
Part.ActiveView().RotateAboutCenter -0.0129494, 0.0861209
Part.ActiveView().RotateAboutCenter 0, 0.0258363
Part.ActiveView().RotateAboutCenter 0.0550349, 0.120569
Part.ActiveView().RotateAboutCenter 0.0453228, 0.0258363
Part.ActiveView().RotateAboutCenter 0.0291361, 0.0215302
Part.ActiveView().RotateAboutCenter 0.0194241, 0.00861209
Part.ActiveView().RotateAboutCenter 0.0194241, 0.00861209
Part.ActiveView().RotateAboutCenter 0.116544, 0.0301423
Part.ActiveView().RotateAboutCenter 0.11007, 0.0387544
Part.ActiveView().RotateAboutCenter 0.0647469, 0.0129181
Part.ActiveView().RotateAboutCenter 0.123019, 0.0387544
Part.ActiveView().RotateAboutCenter 0.0906457, 0.0861209
Part.ActiveView().RotateAboutCenter 0.0517975, 0.0688967
Part.ActiveView().RotateAboutCenter 0.11007, 0.223914
Part.ActiveView().RotateAboutCenter 0.0712216, 0.189466
Part.ActiveView().RotateAboutCenter 0.00971204, 0.0215302
Part.ActiveView().RotateAboutCenter 0, 0.0129181
Part.ActiveView().RotateAboutCenter -0.0226614, 0.00861209
Part.ActiveView().RotateAboutCenter -0.0129494, 0.00430604
Part.ActiveView().RotateAboutCenter -0.0258988, 0.0258363
Part.ActiveView().RotateAboutCenter -0.0647469, 0.00861209
Part.ActiveView().RotateAboutCenter -0.0517975, 0
Part.ActiveView().RotateAboutCenter -0.103595, -0.00430604
Part.ActiveView().RotateAboutCenter -0.0226614, -0.00861209
Part.ActiveView().RotateAboutCenter -0.0129494, -0.00430604
Part.ActiveView().RotateAboutCenter -0.0161867, -0.0129181
Part.ActiveView().RotateAboutCenter -0.00647469, -0.00430604
Part.ActiveView().RotateAboutCenter 0.00323735, 0
Part.ActiveView().RotateAboutCenter 0.00323735, -0.0129181
Part.ActiveView().RotateAboutCenter 0.0161867, -0.146405
Part.ActiveView().RotateAboutCenter 0.0129494, -0.198078
Part.ActiveView().RotateAboutCenter 0.00647469, -0.0775088
Part.ActiveView().RotateAboutCenter 0.0129494, -0.0387544
Part.ActiveView().RotateAboutCenter 0.0161867, -0.0301423
Part.ActiveView().RotateAboutCenter 0.0129494, -0.0215302
Part.ActiveView().RotateAboutCenter 0.00647469, -0.0172242
Part.ActiveView().RotateAboutCenter 0.00323735, 0
Part.ActiveView().RotateAboutCenter 0.00647469, 0
Part.ActiveView().RotateAboutCenter 0.00971204, 0
Part.ActiveView().RotateAboutCenter 0.0356108, 0
Part.ActiveView().RotateAboutCenter 0.0517975, 0
Part.ActiveView().RotateAboutCenter 0.103595, -0.0129181
Part.ActiveView().RotateAboutCenter 0.0194241, -0.00861209
Part.ActiveView().RotateAboutCenter 0.00323735, 0
Part.ActiveView().RotateAboutCenter 0.00647469, -0.00430604
Part.ActiveView().RotateAboutCenter 0.0129494, -0.0215302
Part.ActiveView().RotateAboutCenter 0.00971204, -0.0129181
Part.ActiveView().RotateAboutCenter 0.0161867, -0.0473665
Part.ActiveView().RotateAboutCenter 0.00647469, -0.0430604
Part.ActiveView().RotateAboutCenter 0.00323735, -0.0172242
Part.ActiveView().RotateAboutCenter 0.00647469, -0.0258363
Part.ActiveView().RotateAboutCenter 0.00971204, -0.0172242
Part.ActiveView().RotateAboutCenter 0.00647469, -0.0129181
Part.ActiveView().RotateAboutCenter 0.0161867, -0.0129181
Part.ActiveView().RotateAboutCenter 0.0226614, -0.00861209
Part.ActiveView().RotateAboutCenter 0.0129494, 0
Part.ActiveView().RotateAboutCenter 0.00647469, 0
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter 0.00647469, -0.00861209
Part.ActiveView().RotateAboutCenter 0.0161867, -0.0688967
Part.ActiveView().RotateAboutCenter 0.0291361, -0.180854
Part.ActiveView().RotateAboutCenter 0.0226614, -0.16363
Part.ActiveView().RotateAboutCenter 0.00971204, -0.0129181
Part.ActiveView().RotateAboutCenter 0.00323735, -0.00430604
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter 0, 0.00861209
Part.ActiveView().RotateAboutCenter 0.00323735, 0.0129181
Part.ActiveView().RotateAboutCenter 0.00323735, 0.00861209
Part.ActiveView().RotateAboutCenter 0, 0.0344484
Part.ActiveView().RotateAboutCenter 0, 0.0818148
Part.ActiveView().RotateAboutCenter 0, 0.0258363
Part.ActiveView().RotateAboutCenter 0, 0.0344484
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter 0, 0.00861209
Part.ActiveView().RotateAboutCenter 0, 0.0129181
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter 0.00323735, 0.0258363
Part.ActiveView().RotateAboutCenter 0.00323735, 0.0516725
Part.ActiveView().RotateAboutCenter 0, 0.0775088
Part.ActiveView().RotateAboutCenter 0.00323735, 0.155018
Part.ActiveView().RotateAboutCenter 0, 0.0645907
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter 0, -0.0172242
Part.ActiveView().RotateAboutCenter 0.00647469, -0.0301423
Part.ActiveView().RotateAboutCenter 0, -0.00861209
Part.ActiveView().RotateAboutCenter -0.00647469, 0
Part.ActiveView().RotateAboutCenter -0.00323735, 0
Part.ActiveView().RotateAboutCenter -0.00971204, 0.00861209
Part.ActiveView().RotateAboutCenter -0.00971204, 0.00861209
Part.ActiveView().RotateAboutCenter -0.0161867, 0.0129181
Part.ActiveView().RotateAboutCenter -0.0129494, 0.0129181
Part.ActiveView().RotateAboutCenter -0.00323735, 0
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter -0.00323735, 0
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter -0.00323735, 0.00861209
Part.ActiveView().RotateAboutCenter -0.00323735, 0.00861209
Part.ActiveView().RotateAboutCenter -0.0129494, 0.0344484
Part.ActiveView().RotateAboutCenter -0.0129494, 0.0172242
Part.ActiveView().RotateAboutCenter -0.00647469, 0.00430604
Part.ActiveView().RotateAboutCenter -0.0615096, 0.00861209
Part.ActiveView().RotateAboutCenter -0.00971204, 0.0387544
Part.ActiveView().RotateAboutCenter -0.00323735, 0.0215302
Part.ActiveView().RotateAboutCenter -0.0194241, 0.0430604
Part.ActiveView().RotateAboutCenter -0.084171, 0.0387544
Part.ActiveView().RotateAboutCenter -0.0582722, 0.00861209
Part.ActiveView().RotateAboutCenter -0.148918, 0.00430604
Part.ActiveView().RotateAboutCenter -0.168342, 0
Part.ActiveView().RotateAboutCenter -0.0776963, -0.00861209
Part.ActiveView().RotateAboutCenter -0.123019, -0.0301423
Part.ActiveView().RotateAboutCenter -0.0258988, -0.0215302
Part.ActiveView().RotateAboutCenter -0.0129494, -0.0129181
Part.ActiveView().RotateAboutCenter -0.0323735, -0.0473665
Part.ActiveView().RotateAboutCenter -0.0161867, -0.0215302
Part.ActiveView().RotateAboutCenter -0.00971204, 0
Part.ActiveView().RotateAboutCenter -0.0194241, 0
Part.ActiveView().RotateAboutCenter -0.0323735, 0.00861209
Part.ActiveView().RotateAboutCenter -0.0129494, 0.0129181
Part.ActiveView().RotateAboutCenter -0.00323735, 0.0129181
Part.ActiveView().RotateAboutCenter -0.0226614, 0.0344484
Part.ActiveView().RotateAboutCenter -0.0291361, 0.0387544
Part.ActiveView().RotateAboutCenter -0.0194241, 0.00861209
Part.ActiveView().RotateAboutCenter -0.0356108, 0.00861209
Part.ActiveView().RotateAboutCenter -0.0194241, 0.00430604
Part.ActiveView().RotateAboutCenter -0.00647469, 0
Part.ActiveView().RotateAboutCenter -0.0453228, -0.0129181
Part.SelectByID "tube core Assem.SLDASM", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "ExplView1", "EXPLODEDVIEWS", 0, 0, 0
Part.SelectByID "ExplView1", "EXPLODEDVIEWS", 0, 0, 0
Part.ViewCollapseAssembly
Part.ActiveView().RotateAboutCenter -0.00323735, -0.00861209
Part.ActiveView().RotateAboutCenter -0.00647469, -0.0172242
Part.ActiveView().RotateAboutCenter -0.00971204, -0.0430604
Part.ActiveView().RotateAboutCenter -0.00323735, -0.0861209
Part.ActiveView().RotateAboutCenter 0.00323735, -0.0258363
Part.ActiveView().RotateAboutCenter 0.0226614, -0.0516725
Part.ActiveView().RotateAboutCenter 0.0226614, -0.0344484
Part.ActiveView().RotateAboutCenter 0.0129494, -0.0129181
Part.ActiveView().RotateAboutCenter 0.0258988, -0.0301423
Part.ActiveView().RotateAboutCenter 0.0323735, -0.0258363
Part.ActiveView().RotateAboutCenter 0.00971204, -0.0129181
Part.ActiveView().RotateAboutCenter 0.0161867, -0.0258363
Part.ActiveView().RotateAboutCenter 0.00647469, -0.0344484
Part.ActiveView().RotateAboutCenter 0, -0.0172242
Part.ActiveView().RotateAboutCenter -0.0906457, -0.137793
Part.ActiveView().RotateAboutCenter -0.148918, -0.0430604
Part.ActiveView().RotateAboutCenter -0.0647469, -0.00861209
Part.ActiveView().RotateAboutCenter -0.0679842, 0
Part.ActiveView().RotateAboutCenter -0.00971204, 0
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter 0, -0.0129181
Part.ActiveView().RotateAboutCenter 0, -0.129181
Part.ActiveView().RotateAboutCenter 0.00647469, -0.16363
Part.ActiveView().RotateAboutCenter 0.00323735, -0.0172242
Part.ActiveView().RotateAboutCenter -0.00323735, 0
Part.ActiveView().RotateAboutCenter -0.00323735, 0.00861209
Part.ActiveView().RotateAboutCenter -0.00323735, 0.00861209
Part.ActiveView().RotateAboutCenter -0.00647469, 0.0172242
Part.ActiveView().RotateAboutCenter -0.00647469, 0.00430604
Part.SelectByID "ExplView1", "EXPLODEDVIEWS", 0, 0, 0
Part.ViewExplodeAssembly
Part.ActiveView().RotateAboutCenter -0.00971204, 0.0215302
Part.ActiveView().RotateAboutCenter -0.00647469, 0.0215302
Part.ActiveView().RotateAboutCenter -0.00971204, 0.0215302
Part.ActiveView().RotateAboutCenter -0.0226614, 0.0818148
Part.ActiveView().RotateAboutCenter -0.0323735, 0.0861209
Part.ActiveView().RotateAboutCenter -0.0194241, 0.0688967
Part.ActiveView().RotateAboutCenter -0.0647469, 0.137793
Part.ActiveView().RotateAboutCenter -0.0291361, 0.0344484
Part.ActiveView().RotateAboutCenter -0.0129494, 0.00430604
Part.ActiveView().RotateAboutCenter -0.00647469, 0
Part.ActiveView().RotateAboutCenter -0.0129494, -0.00861209
Part.ActiveView().RotateAboutCenter -0.00323735, -0.00430604
Part.ActiveView().RotateAboutCenter -0.00971204, -0.00861209
Part.ActiveView().RotateAboutCenter -0.00647469, -0.00430604
Part.ActiveView().RotateAboutCenter -0.00647469, -0.00430604
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().TranslateBy 0.000416795, -0.000416795
Part.ActiveView().TranslateBy 0.000625193, -0.00166718
Part.ActiveView().TranslateBy 0.000416795, -0.000833591
Part.ActiveView().TranslateBy 0.000416795, -0.00104199
Part.ActiveView().TranslateBy 0.000416795, -0.00166718
Part.ActiveView().TranslateBy 0.000208398, -0.00125039
Part.ActiveView().TranslateBy 0.000416795, -0.00291757
Part.ActiveView().TranslateBy 0.00125039, -0.00458475
Part.ActiveView().TranslateBy 0.00166718, -0.00958629
Part.ActiveView().TranslateBy 0.00437635, -0.0125039
Part.ActiveView().TranslateBy 0.00416795, -0.0116703
Part.ActiveView().TranslateBy 0.00125039, -0.00541834
Part.ActiveView().TranslateBy 0.00625193, -0.00833591
Part.ActiveView().TranslateBy 0.00354276, -0.00125039
Part.ActiveView().TranslateBy 0.000208398, 0
Part.ActiveView().TranslateBy 0.00145878, -0.00562674
Part.ActiveView().TranslateBy 0.000625193, -0.00395956
Part.ActiveView().TranslateBy 0, -0.000625193
Part.ActiveView().TranslateBy -0.000208398, 0
Part.ActiveView().TranslateBy -0.000416795, 0
Part.ActiveView().TranslateBy -0.000833591, -0.000208398
Part.ActiveView().TranslateBy -0.000416795, 0
Part.ActiveView().TranslateBy -0.000208398, 0
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter 0.00323735, 0.00861209
Part.ActiveView().RotateAboutCenter 0.00323735, 0.0129181
Part.ActiveView().RotateAboutCenter 0.00323735, 0.0172242
Part.ActiveView().RotateAboutCenter 0.00323735, 0.0215302
Part.ActiveView().RotateAboutCenter -0.00323735, 0.0775088
Part.ActiveView().RotateAboutCenter -0.00647469, 0.0861209
Part.ActiveView().RotateAboutCenter -0.00971204, 0.172242
Part.ActiveView().RotateAboutCenter 0.00323735, 0.0861209
Part.ActiveView().RotateAboutCenter 0.00971204, 0.0602846
Part.ActiveView().RotateAboutCenter 0.0258988, 0.0430604
Part.ActiveView().RotateAboutCenter 0.0258988, 0.0301423
Part.ActiveView().RotateAboutCenter 0.00971204, 0.0129181
Part.ActiveView().RotateAboutCenter 0.00323735, 0
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter 0.106832, 0.0129181
Part.ActiveView().RotateAboutCenter 0.0161867, 0.00861209
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter 0.00323735, -0.00430604
Part.ActiveView().RotateAboutCenter 0.0161867, -0.00861209
Part.ActiveView().RotateAboutCenter 0.0453228, -0.00861209
Part.ActiveView().RotateAboutCenter 0.0712216, -0.0430604
Part.ActiveView().RotateAboutCenter 0.116544, -0.0258363
Part.ActiveView().RotateAboutCenter 0.0517975, 0
Part.ActiveView().RotateAboutCenter 0.0291361, 0
Part.ActiveView().RotateAboutCenter 0.00323735, 0.00430604
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter 0, 0.00861209
Part.ActiveView().RotateAboutCenter 0, 0.0129181
Part.ActiveView().RotateAboutCenter -0.00323735, 0.0344484
Part.ActiveView().RotateAboutCenter -0.00971204, 0.0344484
Part.ActiveView().RotateAboutCenter -0.0129494, 0.0215302
Part.ActiveView().RotateAboutCenter -0.0226614, 0.0516725
Part.ActiveView().RotateAboutCenter -0.0161867, 0.0258363
Part.ActiveView().RotateAboutCenter -0.00971204, 0.00430604
Part.ActiveView().RotateAboutCenter -0.00323735, 0.00430604
Part.ActiveView().RotateAboutCenter 0, -0.00430604
Part.ActiveView().RotateAboutCenter -0.00323735, -0.00861209
Part.ActiveView().RotateAboutCenter -0.00647469, -0.00430604
Part.ActiveView().RotateAboutCenter -0.00323735, -0.00861209
Part.ActiveView().RotateAboutCenter -0.0161867, -0.00430604
Part.ActiveView().RotateAboutCenter -0.0129494, -0.00430604
Part.ActiveView().RotateAboutCenter -0.00647469, 0
Part.ActiveView().RotateAboutCenter -0.00971204, 0.00430604
Part.ActiveView().RotateAboutCenter -0.0161867, 0
Part.ActiveView().RotateAboutCenter -0.00971204, 0
Part.ActiveView().RotateAboutCenter -0.00647469, 0
Part.ActiveView().RotateAboutCenter -0.0129494, 0.00430604
Part.ActiveView().RotateAboutCenter -0.00647469, 0
Part.ActiveView().RotateAboutCenter 0, 0.00430604
Part.ActiveView().RotateAboutCenter -0.00323735, 0
Part.ViewDisplayWireframe
Part.ViewZoomTo2 -0.132777, 0.323452, -0.0470491, -0.0564161, 0.262279, -0.0470491
Part.ClearSelection
swApp.ExitApp
End Sub