' ******************************************************************************
' swxJRNL.swj - journal recorded on 12/14/01 by bila
' ******************************************************************************

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 ("U:\CABLESLED\Assem1.SLDDRW", 3, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Assem1 - Sheet1")
Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.5439534751668, 0.5456253202793, 0
swApp.LoadFile2 "U:\CABLESLED-2\Assem1.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("U:\CABLESLED-2\Assem1.SLDASM", 2, 0, "", longstatus)
' MSGBOX
' A document named "Assem1" is already opened. Do you want to show this already-opened document?

swApp.LoadFile2 "U:\CABLESLED-2\Assem2.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("U:\CABLESLED-2\Assem2.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Assem2.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, 0.00771619
Part.ActiveView().RotateAboutCenter 0, 0.0154324
Part.ActiveView().RotateAboutCenter -0.00509841, 0.0308648
Part.ActiveView().RotateAboutCenter -0.0101968, 0.0231486
Part.ActiveView().RotateAboutCenter -0.0101968, 0.0231486
Part.ActiveView().RotateAboutCenter -0.0152952, 0.0617295
Part.ActiveView().RotateAboutCenter -0.0152952, 0.0694457
Part.ActiveView().RotateAboutCenter -0.00509841, 0.00771619
Part.ActiveView().RotateAboutCenter 0.0101968, 0.0308648
Part.ActiveView().RotateAboutCenter 0.0152952, 0.0617295
Part.ActiveView().RotateAboutCenter 0.0356889, 0.131175
Part.ActiveView().RotateAboutCenter 0.0101968, 0.0308648
Part.ActiveView().RotateAboutCenter 0.0152952, 0.0462972
Part.ActiveView().RotateAboutCenter 0.0305905, 0.0925943
Part.ActiveView().RotateAboutCenter 0.0203936, 0.0617295
Part.ActiveView().RotateAboutCenter 0.0305905, 0.115743
Part.ActiveView().RotateAboutCenter 0.0254921, 0.0617295
Part.ActiveView().RotateAboutCenter 0.0458857, 0.108027
Part.ActiveView().RotateAboutCenter 0.0203936, 0.0462972
Part.ActiveView().RotateAboutCenter 0.0458857, 0.0848781
Part.ActiveView().RotateAboutCenter 0.0407873, 0.0848781
Part.ActiveView().RotateAboutCenter 0.0407873, 0.0694457
Part.ActiveView().RotateAboutCenter 0.0356889, 0.0848781
Part.ActiveView().RotateAboutCenter 0, 0.0154324
Part.ActiveView().RotateAboutCenter 0.0152952, 0.0154324
Part.ActiveView().RotateAboutCenter 0.0101968, 0.0154324
Part.ActiveView().RotateAboutCenter 0.0407873, 0.038581
Part.ActiveView().RotateAboutCenter 0.0203936, 0.0308648
Part.ActiveView().RotateAboutCenter 0.0203936, 0.0154324
Part.ActiveView().RotateAboutCenter 0.0152952, 0.00771619
Part.ActiveView().RotateAboutCenter 0.0203936, 0
Part.ActiveView().RotateAboutCenter 0, -0.00771619
Part.ActiveView().RotateAboutCenter 0.0203936, -0.16204
Part.ActiveView().RotateAboutCenter 0.0305905, -0.339512
Part.ActiveView().RotateAboutCenter 0.0203936, -0.0771619
Part.ActiveView().RotateAboutCenter 0.0101968, -0.0308648
Part.ActiveView().RotateAboutCenter 0.0101968, -0.0540133
Part.ActiveView().RotateAboutCenter 0.0152952, -0.0462972
Part.ActiveView().RotateAboutCenter 0.0152952, -0.0308648
Part.ActiveView().RotateAboutCenter 0.0101968, -0.0154324
Part.ActiveView().RotateAboutCenter 0.0152952, -0.038581
Part.ActiveView().RotateAboutCenter 0.0152952, -0.0617295
Part.ActiveView().RotateAboutCenter 0.0152952, -0.0617295
Part.ActiveView().RotateAboutCenter 0.00509841, -0.0462972
Part.ActiveView().RotateAboutCenter 0, -0.0771619
Part.ActiveView().RotateAboutCenter 0.00509841, -0.0308648
Part.ActiveView().RotateAboutCenter 0, -0.0540133
Part.ActiveView().RotateAboutCenter 0, -0.0540133
Part.ActiveView().RotateAboutCenter 0, -0.0617295
Part.ActiveView().RotateAboutCenter -0.00509841, -0.0848781
Part.ActiveView().RotateAboutCenter 0, -0.0617295
Part.ActiveView().RotateAboutCenter -0.0152952, -0.0540133
Part.ActiveView().RotateAboutCenter -0.0101968, -0.0462972
Part.ActiveView().RotateAboutCenter -0.0356889, -0.0771619
Part.ActiveView().RotateAboutCenter -0.0305905, -0.0540133
Part.ActiveView().RotateAboutCenter -0.0305905, -0.0540133
Part.ActiveView().RotateAboutCenter -0.0152952, -0.0308648
Part.ActiveView().RotateAboutCenter -0.0356889, -0.0694457
Part.ActiveView().RotateAboutCenter -0.0254921, -0.0617295
Part.ActiveView().RotateAboutCenter -0.0560825, -0.0848781
Part.ActiveView().RotateAboutCenter -0.0407873, -0.0617295
Part.ActiveView().RotateAboutCenter -0.0662794, -0.0848781
Part.ActiveView().RotateAboutCenter -0.0713778, -0.0694457
Part.ActiveView().RotateAboutCenter -0.0458857, -0.0462972
Part.ActiveView().RotateAboutCenter -0.0560825, -0.038581
Part.ActiveView().RotateAboutCenter -0.0254921, -0.0154324
Part.ActiveView().RotateAboutCenter -0.0254921, -0.00771619
Part.ActiveView().RotateAboutCenter -0.0458857, -0.00771619
Part.ActiveView().RotateAboutCenter -0.0458857, -0.00771619
Part.ActiveView().RotateAboutCenter -0.0662794, -0.00771619
Part.ActiveView().RotateAboutCenter -0.0356889, 0
Part.ActiveView().RotateAboutCenter -0.0356889, 0
Part.ActiveView().RotateAboutCenter -0.0254921, 0
Part.ActiveView().RotateAboutCenter -0.0305905, 0.0154324
Part.ActiveView().RotateAboutCenter -0.0509841, 0.0231486
Part.ActiveView().RotateAboutCenter -0.0458857, 0.0308648
Part.ActiveView().RotateAboutCenter -0.0254921, 0.0154324
Part.ActiveView().RotateAboutCenter -0.0254921, 0.0231486
Part.ActiveView().RotateAboutCenter -0.0611809, 0.0462972
Part.ActiveView().RotateAboutCenter -0.0356889, 0.0308648
Part.ActiveView().RotateAboutCenter -0.0254921, 0.0308648
Part.ActiveView().RotateAboutCenter -0.0152952, 0.0308648
Part.ActiveView().RotateAboutCenter -0.0254921, 0.0540133
Part.ActiveView().RotateAboutCenter -0.0254921, 0.0694457
Part.ActiveView().RotateAboutCenter -0.0713778, 0.262351
Part.ActiveView().RotateAboutCenter -0.0407873, 0.0771619
Part.ActiveView().RotateAboutCenter -0.0407873, 0.0617295
Part.ActiveView().RotateAboutCenter -0.0152952, 0.0308648
Part.ActiveView().RotateAboutCenter -0.0203936, 0.0308648
Part.ActiveView().RotateAboutCenter -0.0203936, 0.0308648
Part.ActiveView().RotateAboutCenter -0.0305905, 0.0462972
Part.ActiveView().RotateAboutCenter -0.0509841, 0.0771619
Part.ActiveView().RotateAboutCenter -0.0254921, 0.038581
Part.ActiveView().RotateAboutCenter -0.0356889, 0.0694457
Part.ActiveView().RotateAboutCenter -0.0203936, 0.0308648
Part.ActiveView().RotateAboutCenter -0.00509841, 0.0617295
Part.ActiveView().RotateAboutCenter 0, 0.0925943
Part.ActiveView().RotateAboutCenter 0, 0.123459
Part.ActiveView().RotateAboutCenter 0, 0.0540133
Part.ActiveView().RotateAboutCenter 0, 0.0771619
Part.ActiveView().RotateAboutCenter 0, 0.177472
Part.ActiveView().RotateAboutCenter 0, 0.0694457
Part.ActiveView().RotateAboutCenter 0, 0.192905
Part.ActiveView().RotateAboutCenter 0, 0.0694457
Part.ActiveView().RotateAboutCenter 0, 0.0694457
Part.ActiveView().RotateAboutCenter 0, 0.0540133
Part.ActiveView().RotateAboutCenter 0.0101968, 0.0540133
Part.ActiveView().RotateAboutCenter 0, 0.0231486
Part.ActiveView().RotateAboutCenter 0.0101968, 0.0694457
Part.ActiveView().RotateAboutCenter 0.00509841, 0.146608
Part.ActiveView().RotateAboutCenter 0.00509841, 0.200621
Part.ActiveView().RotateAboutCenter 0, 0.216053
Part.ActiveView().RotateAboutCenter 0, 0.169756
Part.ActiveView().RotateAboutCenter 0.0152952, 0.100311
Part.ActiveView().RotateAboutCenter 0.00509841, 0.0540133
Part.ActiveView().RotateAboutCenter 0, 0.0771619
Part.ActiveView().RotateAboutCenter 0.00509841, 0.0540133
Part.ActiveView().RotateAboutCenter 0.0152952, 0.108027
Part.ActiveView().RotateAboutCenter 0.0101968, 0.0694457
Part.ActiveView().RotateAboutCenter 0.0407873, 0.0694457
Part.ActiveView().RotateAboutCenter 0.0152952, 0.0308648
Part.ActiveView().RotateAboutCenter 0.0356889, 0.0462972
Part.ActiveView().RotateAboutCenter 0.0305905, 0.0540133
Part.ActiveView().RotateAboutCenter 0.0407873, 0.0617295
Part.ActiveView().RotateAboutCenter 0.0305905, 0.0540133
Part.ActiveView().RotateAboutCenter 0.0356889, 0.0540133
Part.ActiveView().RotateAboutCenter 0.0152952, 0.00771619
Part.ActiveView().RotateAboutCenter 0.0203936, 0
Part.ActiveView().RotateAboutCenter 0.0458857, 0.038581
Part.ActiveView().RotateAboutCenter 0.0407873, 0.0540133
Part.ActiveView().RotateAboutCenter 0.0662794, 0.0617295
Part.ActiveView().RotateAboutCenter 0.0305905, 0.0308648
Part.ActiveView().RotateAboutCenter 0.00509841, 0
Part.ActiveView().RotateAboutCenter 0.00509841, 0
Part.ActiveView().RotateAboutCenter 0.0101968, -0.0231486
Part.ActiveView().RotateAboutCenter 0.0152952, -0.038581
Part.ActiveView().RotateAboutCenter 0.00509841, -0.123459
Part.ActiveView().RotateAboutCenter -0.00509841, -0.0771619
Part.ActiveView().RotateAboutCenter -0.0152952, -0.262351
Part.ActiveView().RotateAboutCenter -0.0254921, -0.0848781
Part.ActiveView().RotateAboutCenter -0.0764762, -0.123459
Part.ActiveView().RotateAboutCenter -0.142756, -0.0694457
Part.ActiveView().RotateAboutCenter -0.254921, -0.0771619
Part.ActiveView().RotateAboutCenter -0.0509841, -0.0308648
Part.ActiveView().RotateAboutCenter 0, -0.0308648
Part.ActiveView().RotateAboutCenter 0, -0.0617295
Part.ActiveView().RotateAboutCenter 0, -0.0771619
Part.ActiveView().RotateAboutCenter 0, -0.200621
Part.ActiveView().RotateAboutCenter 0, -0.0848781
Part.ActiveView().RotateAboutCenter 0, -0.131175
Part.ActiveView().RotateAboutCenter 0, -0.0925943
Part.ActiveView().RotateAboutCenter 0, -0.0771619
Part.ActiveView().RotateAboutCenter 0, -0.169756
Part.ActiveView().RotateAboutCenter 0.0101968, -0.354945
Part.ActiveView().RotateAboutCenter 0.0560825, -0.802484
Part.ActiveView().RotateAboutCenter 0.0356889, -0.370377
Part.ActiveView().RotateAboutCenter 0.0458857, -0.100311
Part.ActiveView().RotateAboutCenter 0.0152952, -0.0231486
Part.ActiveView().RotateAboutCenter 0.0254921, -0.0308648
Part.ActiveView().RotateAboutCenter 0.0254921, -0.0308648
Part.ActiveView().RotateAboutCenter 0.0611809, -0.0925943
Part.ActiveView().RotateAboutCenter 0.0407873, -0.0771619
Part.ActiveView().RotateAboutCenter 0.0407873, -0.0694457
Part.ActiveView().RotateAboutCenter 0.0203936, -0.0617295
Part.ActiveView().RotateAboutCenter 0.00509841, -0.0540133
Part.ActiveView().RotateAboutCenter 0, -0.0231486
Part.ActiveView().RotateAboutCenter 0.00509841, -0.0462972
Part.ActiveView().RotateAboutCenter 0.0203936, -0.0462972
Part.ActiveView().RotateAboutCenter 0.0101968, -0.0154324
Part.ActiveView().RotateAboutCenter 0.00509841, 0
Part.ActiveView().RotateAboutCenter 0.0101968, -0.0154324
Part.ActiveView().RotateAboutCenter 0.00509841, 0
Part.ActiveView().RotateAboutCenter 0.0101968, 0
Part.ActiveView().RotateAboutCenter 0.0152952, 0
Part.ActiveView().RotateAboutCenter 0.0458857, 0
Part.ActiveView().RotateAboutCenter 0.0407873, 0
Part.ActiveView().RotateAboutCenter 0.0152952, -0.00771619
Part.ActiveView().RotateAboutCenter -0.0356889, 0.00771619
Part.ActiveView().RotateAboutCenter -0.305905, 0.00771619
Part.ActiveView().RotateAboutCenter -0.22433, 0.00771619
Part.ActiveView().RotateAboutCenter 0, 0.0154324
Part.ActiveView().RotateAboutCenter 0, 0.00771619
Part.ActiveView().RotateAboutCenter 0, 0.0231486
Part.ActiveView().RotateAboutCenter 0, 0.0617295
Part.ActiveView().RotateAboutCenter 0, 0.0925943
Part.ActiveView().RotateAboutCenter 0, 0.0154324
Part.ActiveView().RotateAboutCenter 0.00509841, 0
Part.ActiveView().RotateAboutCenter 0.0356889, 0.0154324
Part.ActiveView().RotateAboutCenter 0.0662794, 0.208337
Part.ActiveView().RotateAboutCenter 0.0305905, 0.447539
Part.ActiveView().RotateAboutCenter 0.0560825, 0.64816
Part.ActiveView().RotateAboutCenter 0.0458857, 0.169756
Part.ActiveView().RotateAboutCenter 0.0254921, 0.0308648
Part.ActiveView().RotateAboutCenter 0.0509841, 0.0540133
Part.ActiveView().RotateAboutCenter 0.0458857, 0.0308648
Part.ActiveView().RotateAboutCenter 0.0101968, 0.0154324
Part.ActiveView().RotateAboutCenter 0.00509841, 0
Part.ActiveView().RotateAboutCenter 0.0152952, 0.038581
Part.ActiveView().RotateAboutCenter 0.0254921, 0.0617295
Part.ActiveView().RotateAboutCenter 0.0356889, 0.131175
Part.ActiveView().RotateAboutCenter 0.0203936, 0.0771619
Part.ActiveView().RotateAboutCenter 0.0254921, 0.0848781
Part.ActiveView().RotateAboutCenter 0.0254921, 0.0617295
Part.ActiveView().RotateAboutCenter 0.0356889, 0.0540133
Part.ActiveView().RotateAboutCenter 0.0407873, 0.0308648
Part.ActiveView().RotateAboutCenter 0.0509841, 0.0231486
Part.ActiveView().RotateAboutCenter 0.086673, 0.0154324
Part.ActiveView().RotateAboutCenter 0.101968, 0.00771619
Part.ActiveView().RotateAboutCenter 0.234527, 0
Part.ActiveView().RotateAboutCenter 0.101968, 0.00771619
Part.ActiveView().RotateAboutCenter 0.22433, 0
Part.ActiveView().RotateAboutCenter 0.0611809, 0
Part.ActiveView().RotateAboutCenter 0.0407873, 0
Part.ActiveView().RotateAboutCenter 0.0407873, 0
Part.ActiveView().RotateAboutCenter 0.0203936, -0.00771619
Part.ActiveView().RotateAboutCenter 0.0611809, -0.0154324
Part.ActiveView().RotateAboutCenter 0.0458857, -0.0154324
Part.ActiveView().RotateAboutCenter 0.0407873, -0.0154324
Part.ActiveView().RotateAboutCenter 0.0254921, -0.00771619
Part.ActiveView().RotateAboutCenter 0.0509841, -0.0308648
Part.ActiveView().RotateAboutCenter 0.0509841, -0.0308648
Part.ActiveView().RotateAboutCenter 0.0713778, -0.0540133
Part.ActiveView().RotateAboutCenter 0.0509841, -0.0308648
Part.ActiveView().RotateAboutCenter 0.0764762, -0.0925943
Part.ActiveView().RotateAboutCenter 0.0611809, -0.0848781
Part.ActiveView().RotateAboutCenter 0.0509841, -0.154324
Part.ActiveView().RotateAboutCenter 0.0356889, -0.185189
Part.ActiveView().RotateAboutCenter 0.0152952, -0.154324
Part.ActiveView().RotateAboutCenter 0.0254921, -0.192905
Part.ActiveView().RotateAboutCenter 0.0152952, -0.231486
Part.ActiveView().RotateAboutCenter 0.00509841, -0.339512
Part.ActiveView().RotateAboutCenter 0, -0.231486
Part.ActiveView().RotateAboutCenter -0.0101968, -0.246918
Part.ActiveView().RotateAboutCenter -0.0203936, -0.339512
Part.ActiveView().RotateAboutCenter -0.0203936, -0.216053
Part.ActiveView().RotateAboutCenter -0.0509841, -0.192905
Part.ActiveView().RotateAboutCenter -0.0458857, -0.0771619
Part.ActiveView().RotateAboutCenter -0.0713778, -0.100311
Part.ActiveView().RotateAboutCenter -0.0509841, -0.0462972
Part.ActiveView().RotateAboutCenter -0.0815746, -0.038581
Part.ActiveView().RotateAboutCenter -0.163149, -0.0154324
Part.ActiveView().RotateAboutCenter -0.19374, 0
Part.ActiveView().RotateAboutCenter -0.305905, 0.0231486
Part.ActiveView().RotateAboutCenter -0.214133, 0.0462972
Part.ActiveView().RotateAboutCenter -0.285511, 0.0694457
Part.ActiveView().RotateAboutCenter -0.173346, 0.038581
Part.ActiveView().RotateAboutCenter -0.254921, 0.0540133
Part.ActiveView().RotateAboutCenter -0.163149, 0.0308648
Part.ActiveView().RotateAboutCenter -0.142756, 0.038581
Part.ActiveView().RotateAboutCenter 0, 0.0231486
Part.ActiveView().RotateAboutCenter 0, 0.0231486
Part.ActiveView().RotateAboutCenter 0, 0.0231486
Part.ActiveView().RotateAboutCenter 0, 0.0154324
Part.ActiveView().RotateAboutCenter 0, 0.0540133
Part.ActiveView().RotateAboutCenter 0, 0.0694457
Part.ActiveView().RotateAboutCenter 0, 0.0462972
Part.ActiveView().RotateAboutCenter 0, 0.00771619
Part.ActiveView().RotateAboutCenter 0, 0.0154324
Part.ActiveView().RotateAboutCenter 0, 0.038581
Part.ActiveView().RotateAboutCenter 0, 0.16204
Part.ActiveView().RotateAboutCenter 0, 0.277783
Part.ActiveView().RotateAboutCenter 0, 0.0848781
Part.ActiveView().RotateAboutCenter 0, 0.131175
Part.ActiveView().RotateAboutCenter 0, 0.0308648
Part.ActiveView().RotateAboutCenter 0.0203936, 0.038581
Part.ActiveView().RotateAboutCenter 0.0458857, 0.0925943
Part.ActiveView().RotateAboutCenter 0.0407873, 0.0848781
Part.ActiveView().RotateAboutCenter 0.0815746, 0.38581
Part.ActiveView().RotateAboutCenter 0.0611809, 0.401242
Part.ActiveView().RotateAboutCenter 0.086673, 0.601863
Part.ActiveView().RotateAboutCenter 0.0305905, 0.216053
Part.ActiveView().RotateAboutCenter 0.0407873, 0.100311
Part.ActiveView().RotateAboutCenter 0.0254921, 0.0540133
Part.ActiveView().RotateAboutCenter 0.0407873, 0.0308648
Part.ActiveView().RotateAboutCenter 0.0152952, 0
Part.ActiveView().RotateAboutCenter 0.0254921, 0
Part.ActiveView().RotateAboutCenter 0.178444, -0.0771619
Part.ActiveView().RotateAboutCenter 0.19374, -0.0694457
Part.ActiveView().RotateAboutCenter 0.290609, -0.100311
Part.ActiveView().RotateAboutCenter 0.0764762, -0.0694457
Part.ActiveView().RotateAboutCenter 0.101968, -0.0771619
Part.ActiveView().RotateAboutCenter 0.0713778, -0.185189
Part.ActiveView().RotateAboutCenter 0.0509841, -0.231486
Part.ActiveView().RotateAboutCenter 0.0407873, -0.231486
Part.ActiveView().RotateAboutCenter 0.0356889, -0.462972
Part.ActiveView().RotateAboutCenter 0.0101968, -0.0925943
Part.ActiveView().RotateAboutCenter -0.0101968, -0.0617295
Part.ActiveView().RotateAboutCenter -0.0203936, -0.0462972
Part.ActiveView().RotateAboutCenter -0.0560825, -0.115743
Part.ActiveView().RotateAboutCenter -0.0407873, -0.0694457
Part.ActiveView().RotateAboutCenter -0.0356889, -0.0540133
Part.ActiveView().RotateAboutCenter -0.0356889, -0.0540133
Part.ActiveView().RotateAboutCenter -0.0560825, -0.108027
Part.ActiveView().RotateAboutCenter -0.0356889, -0.0540133
Part.ActiveView().RotateAboutCenter -0.0203936, -0.0308648
Part.ActiveView().RotateAboutCenter -0.0152952, -0.00771619
Part.ActiveView().RotateAboutCenter -0.0305905, -0.0154324
Part.ActiveView().RotateAboutCenter -0.0662794, -0.0540133
Part.ActiveView().RotateAboutCenter -0.0407873, -0.0231486
Part.ActiveView().RotateAboutCenter -0.0407873, -0.00771619
Part.ActiveView().RotateAboutCenter -0.00509841, 0
Part.ActiveView().RotateAboutCenter -0.0152952, 0
Part.ActiveView().RotateAboutCenter -0.0203936, 0
Part.ActiveView().RotateAboutCenter -0.0101968, 0
Part.ActiveView().RotateAboutCenter -0.00509841, 0
Part.ActiveView().RotateAboutCenter -0.0254921, 0.0154324
Part.ActiveView().RotateAboutCenter -0.0254921, 0.00771619
Part.ActiveView().RotateAboutCenter -0.0356889, 0.0231486
Part.ActiveView().RotateAboutCenter -0.0152952, 0.00771619
Part.ActiveView().RotateAboutCenter -0.0101968, 0.0154324
Part.ActiveView().RotateAboutCenter -0.00509841, 0
Part.ActiveView().RotateAboutCenter 0, 0.00771619
Part.ActiveView().RotateAboutCenter 0, 0.00771619
Part.ActiveView().RotateAboutCenter 0.00509841, 0
Part.ActiveView().RotateAboutCenter 0.00509841, 0
Part.ActiveView().RotateAboutCenter 0.0101968, 0
Part.ActiveView().RotateAboutCenter 0.00509841, -0.00771619
Part.ActiveView().RotateAboutCenter 0, -0.0231486
Part.ActiveView().RotateAboutCenter 0, -0.0540133
Part.ActiveView().RotateAboutCenter 0, -0.154324
Part.ActiveView().RotateAboutCenter 0, -0.192905
Part.ActiveView().RotateAboutCenter 0, -0.038581
Part.ActiveView().RotateAboutCenter -0.00509841, -0.0308648
Part.ActiveView().RotateAboutCenter 0, -0.0154324
Part.ActiveView().RotateAboutCenter -0.0152952, -0.0308648
Part.ActiveView().RotateAboutCenter 0, -0.00771619
Part.ActiveView().RotateAboutCenter -0.00509841, 0
Part.ActiveView().RotateAboutCenter -0.0203936, 0
Part.ActiveView().RotateAboutCenter -0.0203936, 0
Part.ActiveView().RotateAboutCenter -0.0356889, 0
Part.ActiveView().RotateAboutCenter -0.0509841, 0.0462972
Part.ActiveView().RotateAboutCenter -0.0254921, 0.0308648
Part.ActiveView().RotateAboutCenter -0.0254921, 0.038581
Part.ActiveView().RotateAboutCenter -0.0305905, 0.0462972
Part.ActiveView().RotateAboutCenter -0.0611809, 0.100311
Part.ActiveView().RotateAboutCenter -0.0407873, 0.0848781
Part.ActiveView().RotateAboutCenter -0.0254921, 0.108027
Part.ActiveView().RotateAboutCenter 0, 0.0154324
Part.ActiveView().RotateAboutCenter 0, 0.0308648
Part.ActiveView().RotateAboutCenter 0.0152952, 0.038581
Part.ActiveView().RotateAboutCenter 0.132559, 0.200621
Part.ActiveView().RotateAboutCenter 0.203936, 0.277783
Part.ActiveView().RotateAboutCenter 0.214133, 0.308648
Part.ActiveView().RotateAboutCenter 0.132559, 0.108027
Part.ActiveView().RotateAboutCenter 0.0305905, 0.0308648
Part.ActiveView().RotateAboutCenter 0.0407873, 0.0231486
Part.ActiveView().RotateAboutCenter 0.0305905, 0.0308648
Part.ActiveView().RotateAboutCenter 0.0662794, 0.0694457
Part.ActiveView().RotateAboutCenter 0.0203936, 0.0308648
Part.ActiveView().RotateAboutCenter 0, 0.00771619
Part.ActiveView().RotateAboutCenter -0.00509841, 0.00771619
Part.ActiveView().RotateAboutCenter -0.0152952, 0.0308648
Part.ActiveView().RotateAboutCenter -0.0101968, 0.0154324
Part.ActiveView().RotateAboutCenter -0.0101968, 0.00771619
Part.ActiveView().RotateAboutCenter -0.0101968, 0.0154324
Part.ActiveView().RotateAboutCenter -0.0101968, 0.0231486
Part.ActiveView().RotateAboutCenter -0.0101968, 0.00771619
Part.ActiveView().RotateAboutCenter 0, 0.0231486
Part.ActiveView().RotateAboutCenter 0, 0.0154324
Part.ActiveView().RotateAboutCenter 0, 0
Part.ActiveView().RotateAboutCenter 0, -0.0154324
Part.ActiveView().RotateAboutCenter -0.00509841, -0.0154324
Part.ActiveView().RotateAboutCenter -0.0101968, -0.0540133
swApp.LoadFile2 "U:\CABLESLED-2\Assem1.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("U:\CABLESLED-2\Assem1.SLDASM", 2, 0, "", longstatus)
' MSGBOX
' A document named "Assem1" is already opened. Do you want to show this already-opened document?

swApp.LoadFile2 "U:\CABLESLED\Assem1.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("U:\CABLESLED\Assem1.SLDASM", 2, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Assem1.SLDASM")
Part.ViewZoomTo2 -1.41376, -0.303205, -0.32113, -1.15169, -0.599557, -0.32113
Part.ViewZoomTo2 -1.30179, -0.39263, -0.32113, -1.2543, -0.478243, -0.32113
Part.ViewZoomtofit2
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 ("Assem2.SLDASM")
Set Part = Nothing
swApp.CloseDoc "Assem2.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Assem1 - Sheet1")
Set Part = Nothing
swApp.CloseDoc "Assem1 - Sheet1"
swApp.ExitApp
End Sub