' ******************************************************************************
' swxJRNL.swj - journal recorded on 10/02/03 by fejo
' *****************************************************************************
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 ("X:\300058-zephyr hydophone pole\hydro assembly.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("hydro assembly")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter -0.0158983, 0
Part.ActiveView().RotateAboutCenter -0.298888, -0.0501713
Part.ActiveView().RotateAboutCenter -0.324325, -0.108704
Part.ActiveView().RotateAboutCenter -0.0667728, -0.129609
Part.ActiveView().RotateAboutCenter -0.0127186, -0.727483
Part.ActiveView().RotateAboutCenter 0.0254373, -0.317751
Part.ActiveView().RotateAboutCenter 0.0890305, -0.57697
Part.ActiveView().RotateAboutCenter 0.0635932, -0.305209
Part.ActiveView().RotateAboutCenter 0.0572339, -0.0585331
Part.ActiveView().RotateAboutCenter 0.0349762, 0.00836188
Part.ActiveView().RotateAboutCenter 0.00953898, 0.17978
Part.ActiveView().RotateAboutCenter -0.0349762, 0.225771
Part.ActiveView().RotateAboutCenter -0.0127186, 0.0459903
Part.ActiveView().RotateAboutCenter 0.0222576, 0.0418094
Part.ActiveView().RotateAboutCenter 0.0572339, 0.0292666
Part.ActiveView().RotateAboutCenter 0.019078, 0.00418094
Part.ActiveView().RotateAboutCenter 0.00635932, 0.00418094
Part.ActiveView().RotateAboutCenter 0.0158983, 0
Part.ActiveView().RotateAboutCenter 0.00953898, -0.0250856
Part.ActiveView().RotateAboutCenter 0, -0.00418094
Part.ActiveView().TranslateBy 0.000202343, -0.000202343
Part.ActiveView().TranslateBy -0.000202343, 0.000607029
Part.ActiveView().RotateAboutCenter 0, 0.00418094
Part.ActiveView().RotateAboutCenter 0, 0.00418094
Part.ActiveView().RotateAboutCenter 0.0667728, -0.0585331
Part.ActiveView().RotateAboutCenter 0.426074, -0.112885
Part.ActiveView().RotateAboutCenter 0.241654, -0.0167238
Part.ActiveView().RotateAboutCenter 0.0794915, 0.0418094
Part.ActiveView().RotateAboutCenter 0.0699525, 0.0794378
Part.ActiveView().RotateAboutCenter 0.0635932, 0.0961616
Part.ActiveView().RotateAboutCenter 0.00953898, 0.0167238
Part.ActiveView().RotateAboutCenter 0.0286169, 0.0376284
Part.ActiveView().RotateAboutCenter 0.0763118, 0.0209047
Part.ActiveView().RotateAboutCenter 0.0985694, -0.0334475
Part.ActiveView().RotateAboutCenter 0.0381559, -0.066895
Part.ActiveView().RotateAboutCenter 0.00317966, -0.00836188
Part.ActiveView().RotateAboutCenter -0.0890305, 0.0418094
Part.ActiveView().RotateAboutCenter -0.438793, 0.0418094
Part.ActiveView().RotateAboutCenter -0.248013, -0.0376284
Part.ActiveView().RotateAboutCenter -0.019078, -0.0292666
Part.ActiveView().RotateAboutCenter -0.0158983, -0.0209047
Part.ActiveView().TranslateBy 0.000202343, 0
Part.ActiveView().TranslateBy 0.0014164, -0.000809372
Part.ActiveView().TranslateBy 0.000202343, 0
Part.ActiveView().TranslateBy 0.00161874, -0.00202343
Part.ActiveView().TranslateBy 0.00121406, -0.00161874
Part.ActiveView().TranslateBy -0.000202343, 0
Part.ActiveView().TranslateBy -0.000202343, 0.000202343
Part.ActiveView().TranslateBy 0.000809372, 0
Part.ActiveView().TranslateBy 0.000202343, 0.000202343
Part.ActiveView().TranslateBy 0.00789138, -0.00263046
Part.ActiveView().TranslateBy 0.00323749, -0.00222577
Part.ActiveView().TranslateBy 0.00303515, -0.00364217
Part.ActiveView().TranslateBy 0.0190202, -0.00404686
Part.ActiveView().TranslateBy 0.00748669, -0.00323749
Part.ActiveView().TranslateBy 0.00384452, -0.00546326
Part.ActiveView().TranslateBy 0.0107242, -0.00202343
Part.ActiveView().TranslateBy 0.000607029, 0
Part.ActiveView().RotateAboutCenter 0, 0.00418094
Part.ActiveView().RotateAboutCenter -0.00635932, 0.0250856
Part.ActiveView().RotateAboutCenter -0.0604135, 0.22159
Part.ActiveView().RotateAboutCenter -0.101749, 0.121247
Part.ActiveView().RotateAboutCenter -0.00317966, 0.00836188
Part.ActiveView().RotateAboutCenter -0.0158983, 0.112885
Part.ActiveView().RotateAboutCenter 0.200319, 0.0836188
Part.ActiveView().RotateAboutCenter 0.146264, 0.0836188
Part.ActiveView().RotateAboutCenter 0.0699525, 0.0334475
Part.ActiveView().RotateAboutCenter 0.124007, 0.0334475
Part.ActiveView().RotateAboutCenter 0.0763118, 0
Part.ActiveView().RotateAboutCenter 0.0349762, -0.00418094
Part.ActiveView().TranslateBy 0.000809372, -0.00121406
Part.ActiveView().TranslateBy 0.00364217, -0.0111289
Part.ActiveView().TranslateBy 0.00526092, -0.0165921
Part.ActiveView().TranslateBy 0.0042492, -0.0133546
Part.ActiveView().TranslateBy 0.00485623, -0.00708201
Part.ActiveView().TranslateBy 0.000202343, -0.000202343
Part.ActiveView().TranslateBy -0.000607029, 0.00182109
Part.ActiveView().TranslateBy -0.000404686, 0.0123429
Part.ActiveView().TranslateBy -0.000202343, 0.0028328
Part.ActiveView().TranslateBy 0.000202343, 0.0028328
Part.ActiveView().TranslateBy 0, 0.000202343
Part.ActiveView().TranslateBy 0.000202343, 0.00161874
Part.ActiveView().RotateAboutCenter 0, 0.00418094
Part.ActiveView().RotateAboutCenter -0.0635932, 0.0459903
Part.ActiveView().RotateAboutCenter -0.0890305, 0.0418094
Part.ActiveView().RotateAboutCenter -0.0953898, 0.0376284
Part.ActiveView().RotateAboutCenter -0.0826711, 0.0501713
Part.ActiveView().RotateAboutCenter -0.0667728, 0.0585331
Part.ActiveView().RotateAboutCenter -0.0540542, 0.271761
Part.ActiveView().RotateAboutCenter -0.00953898, 0.376284
Part.ActiveView().RotateAboutCenter 0.019078, 0.351199
Part.ActiveView().RotateAboutCenter 0.0826711, 0.380465
Part.ActiveView().RotateAboutCenter 0.0445152, 0.238314
Part.ActiveView().RotateAboutCenter 0.00953898, 0.0627141
Part.ActiveView().RotateAboutCenter 0.00317966, 0.0501713
Part.ActiveView().RotateAboutCenter -0.00317966, 0.00418094
Part.ActiveView().RotateAboutCenter -0.0127186, -0.0543522
Part.ActiveView().RotateAboutCenter -0.00953898, -0.518436
Part.ActiveView().RotateAboutCenter 0.0254373, -0.560246
Part.ActiveView().RotateAboutCenter 0.0731322, -0.886359
Part.ActiveView().RotateAboutCenter 0.124007, -0.903083
Part.ActiveView().RotateAboutCenter 0.00953898, -0.0292666
Part.ActiveView().RotateAboutCenter 0.0826711, -0.0376284
Part.ActiveView().RotateAboutCenter 0.0254373, -0.00418094
Part.ActiveView().RotateAboutCenter 0.019078, 0.0292666
Part.ActiveView().RotateAboutCenter -0.0158983, 0.150514
Part.ActiveView().RotateAboutCenter -0.413356, 0.192323
Part.ActiveView().RotateAboutCenter -0.0413356, 0.0961616
Part.ActiveView().RotateAboutCenter 0.0349762, 0.217409
Part.ActiveView().RotateAboutCenter 0.130366, 0.393008
Part.ActiveView().RotateAboutCenter 0.0476949, 0.434818
Part.ActiveView().RotateAboutCenter 0.00635932, 0.397189
Part.ActiveView().RotateAboutCenter 0.0317966, 0.0250856
Part.ActiveView().RotateAboutCenter 0.216217, 0.0501713
Part.ActiveView().RotateAboutCenter 0.0890305, 0.0125428
Part.ActiveView().RotateAboutCenter 0.162163, 0.00836188
Part.ActiveView().RotateAboutCenter 0.120827, 0.0209047
Part.ActiveView().RotateAboutCenter 0.0413356, 0.066895
Part.ActiveView().RotateAboutCenter 0.019078, 0.0334475
Part.ActiveView().RotateAboutCenter 0.00953898, 0.00418094
Part.ActiveView().RotateAboutCenter 0.394278, 0.071076
Part.ActiveView().RotateAboutCenter 0.235295, 0.0125428
Part.ActiveView().RotateAboutCenter 0.00317966, 0.00418094
Part.ActiveView().RotateAboutCenter 0, 0.00418094
Part.ActiveView().RotateAboutCenter 0, 0.00418094
Part.ActiveView().RotateAboutCenter 0.158983, 0.0794378
Part.ActiveView().RotateAboutCenter 0.00953898, 0.00418094
Part.ActiveView().RotateAboutCenter 0.019078, -0.00418094
Part.ActiveView().RotateAboutCenter 0.00953898, 0
Part.ActiveView().RotateAboutCenter 0, -0.00418094
Part.ActiveView().RotateAboutCenter -0.00317966, -0.00418094
Part.ActiveView().RotateAboutCenter -0.0826711, -0.0292666
Part.ActiveView().RotateAboutCenter 0, 0.00418094
Part.ActiveView().RotateAboutCenter 0.0476949, 0.0167238
Part.ActiveView().RotateAboutCenter 0.00635932, 0
Part.ActiveView().RotateAboutCenter 0.00317966, -0.00418094
Part.ActiveView().RotateAboutCenter 0, -0.00418094
Part.ActiveView().RotateAboutCenter -0.00317966, -0.00418094
Part.ActiveView().RotateAboutCenter -0.00317966, 0
Part.ActiveView().RotateAboutCenter -0.00317966, 0.00418094
Part.ActiveView().RotateAboutCenter -0.209857, 0.0459903
Part.ActiveView().RotateAboutCenter -0.0286169, 0.0167238
Part.ActiveView().RotateAboutCenter -0.18442, 0.0376284
Part.ActiveView().RotateAboutCenter -0.200319, 0.0167238
Part.ActiveView().RotateAboutCenter -0.238474, -0.163057
Part.ActiveView().RotateAboutCenter -0.0667728, -0.100343
Part.ActiveView().RotateAboutCenter -0.158983, -0.225771
Part.ActiveView().RotateAboutCenter -0.124007, -0.0459903
Part.ActiveView().RotateAboutCenter -0.0953898, -0.00836188
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.LoadFile2 "X:\300058-zephyr hydophone pole\hydro assembly.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("X:\300058-zephyr hydophone pole\hydro assembly.SLDASM", 2, 0, "", longstatus, longwarnings)
boolstatus = Part.Extension.SelectByID("ExplView1", "EXPLODEDVIEWS", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("ExplView1", "EXPLODEDVIEWS", 0, 0, 0, False, 0, Nothing)
Part.ViewExplodeAssembly
Part.ActiveView().RotateAboutCenter -0.00317966, 0.0125428
Part.ActiveView().RotateAboutCenter -0.00953898, 0.0376284
Part.ActiveView().RotateAboutCenter -0.0127186, 0.0459903
Part.ActiveView().RotateAboutCenter -0.00635932, 0.0334475
Part.ActiveView().RotateAboutCenter -0.00953898, 0.0418094
Part.ActiveView().RotateAboutCenter -0.0222576, 0.0752569
Part.ActiveView().RotateAboutCenter -0.0445152, 0.125428
Part.ActiveView().RotateAboutCenter -0.0158983, 0.0418094
Part.ActiveView().RotateAboutCenter -0.00317966, 0.00418094
Part.ActiveView().RotateAboutCenter -0.00953898, 0.0250856
Part.ActiveView().RotateAboutCenter 0, -0.00418094
Part.ActiveView().RotateAboutCenter 0.00317966, -0.00418094
Part.ActiveView().RotateAboutCenter 0.0731322, -0.0209047
Part.ActiveView().RotateAboutCenter 0.019078, -0.0125428
Part.ActiveView().RotateAboutCenter 0.00317966, -0.00418094
Part.ActiveView().RotateAboutCenter 0, -0.00836188
Part.ActiveView().RotateAboutCenter 0.00317966, -0.00418094
Part.ActiveView().RotateAboutCenter 0.0349762, -0.0292666
Part.ActiveView().RotateAboutCenter 0.0254373, -0.00418094
Part.ActiveView().RotateAboutCenter 0.00635932, 0
Part.ActiveView().RotateAboutCenter 0.0349762, 0.0125428
Part.ActiveView().RotateAboutCenter 0.0222576, 0.00836188
Part.ActiveView().RotateAboutCenter 0.0317966, 0
Part.ActiveView().RotateAboutCenter 0.00953898, 0
Part.ActiveView().RotateAboutCenter 0.0222576, -0.0167238
Part.ActiveView().RotateAboutCenter 0.0254373, -0.0292666
Part.ActiveView().RotateAboutCenter 0, -0.00418094
Part.ActiveView().RotateAboutCenter 0, 0.00418094
Part.ActiveView().RotateAboutCenter -0.0127186, 0.0501713
Part.ActiveView().RotateAboutCenter -0.0127186, 0.0459903
Part.ActiveView().RotateAboutCenter -0.00635932, 0.0292666
Part.ActiveView().RotateAboutCenter -0.00317966, 0.0125428
Part.ActiveView().RotateAboutCenter 0, 0.0125428
Part.ActiveView().RotateAboutCenter 0.0604135, 0.0292666
Part.ActiveView().RotateAboutCenter 0.0445152, -0.0501713
Part.ActiveView().RotateAboutCenter 0.0317966, -0.100343
Part.ActiveView().RotateAboutCenter 0, -0.0752569
Part.ActiveView().RotateAboutCenter -0.0794915, -0.0794378
Part.ActiveView().RotateAboutCenter -0.101749, 0.00836188
Part.ActiveView().RotateAboutCenter -0.0699525, 0.0836188
Part.ActiveView().RotateAboutCenter -0.0349762, 0.0961616
Part.ActiveView().RotateAboutCenter -0.00635932, 0.0585331
Part.ActiveView().RotateAboutCenter 0, 0.00836188
Part.ActiveView().RotateAboutCenter 0.0445152, 0.00836188
Part.ActiveView().RotateAboutCenter 0.0286169, -0.0459903
Part.ActiveView().RotateAboutCenter 0.0158983, -0.0334475
Part.ActiveView().RotateAboutCenter 0, 0.00418094
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("ExplView1", "EXPLODEDVIEWS", 0, 0, 0, False, 0, Nothing)
Part.ViewCollapseAssembly
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
Part.ClearSelection2 True
swApp.ExitApp
End Sub