Project

General

Profile

Statistics
| Branch: | Revision:

colonymech / CAD / Storage Station / swxJRNL.swj @ 2046891e

History | View | Annotate | Download (97.1 KB)

1
' ******************************************************************************
2
' swxJRNL.swj - journal recorded on 10/17/10 by Dan
3
' *****************************************************************************
4
Dim swApp As Object
5

    
6
Dim Part As Object
7
Dim boolstatus As Boolean
8
Dim longstatus As Long, longwarnings As Long
9

    
10
Sub main()
11

    
12
Set swApp = _
13
Application.SldWorks
14

    
15
Set Part = swApp.OpenDoc6("G:\Colony Scout\Storage Station\STATION, POWER, ESTOP 880203.SLDPRT", 1, 0, "", longstatus, longwarnings)
16
swApp.ActivateDoc2 "STATION, POWER, ESTOP 880203", False, longstatus
17
Set Part = swApp.ActiveDoc
18
Set Part = swApp.ActiveDoc
19
Dim myModelView As Object
20
Set myModelView = Part.ActiveView
21
myModelView.FrameLeft = 0
22
myModelView.FrameTop = 0
23
Set myModelView = Part.ActiveView
24
myModelView.FrameState = swWindowState_e.swWindowMaximized
25
Set myModelView = Part.ActiveView
26
myModelView.FrameState = swWindowState_e.swWindowMaximized
27
boolstatus = Part.Extension.SelectByID2("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
28
Part.EditSketch
29
Part.ClearSelection2 True
30
boolstatus = Part.Extension.SelectByID2("D8@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
31
boolstatus = Part.Extension.SelectByID2("D7@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
32
boolstatus = Part.Extension.SelectByID2("D4@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
33
boolstatus = Part.Extension.SelectByID2("D2@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
34
boolstatus = Part.Extension.SelectByID2("D1@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
35
boolstatus = Part.Extension.SketchBoxSelect("-0.016426", "0.081505", "0.000000", "0.015372", "0.057525", "0.000000")
36
Part.ClearSelection2 True
37
Part.SketchManager.InsertSketch True
38
boolstatus = Part.Extension.SelectByID2("Arc1@Sketch4", "EXTSKETCHSEGMENT", -0.006959164890719, 0.07656601949058, 0, False, 0, Nothing, 0)
39
boolstatus = Part.Extension.SelectByID2("Line1@Sketch4", "EXTSKETCHSEGMENT", 0, 0.07180803718089, 0, True, 0, Nothing, 0)
40
boolstatus = Part.Extension.SelectByID2("Sketch4", "SKETCHREGION", -0.0111412689836, 0.07014825285618, 0, True, 0, Nothing, 0)
41
Part.ClearSelection2 True
42
boolstatus = Part.Extension.SelectByID2("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
43
boolstatus = Part.Extension.SelectByID2("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
44
Part.EditSketch
45
Part.ClearSelection2 True
46
boolstatus = Part.Extension.SelectByID2("D3@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
47
boolstatus = Part.Extension.SketchBoxSelect("0.010732", "0.078208", "0.000000", "0.016895", "0.057616", "0.000000")
48
Part.ClearSelection2 True
49
boolstatus = Part.Extension.SelectByID2("Point11", "SKETCHPOINT", 0, 0.05842, 0, False, 0, Nothing, 0)
50
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.0007180912213622, 0.0588297778921, 0.008911916159718, False, 0, Nothing, 0)
51
boolstatus = Part.Extension.SketchBoxSelect("-0.000718", "0.058830", "0.000000", "0.000598", "0.057868", "0.000000")
52
boolstatus = Part.Extension.SketchBoxSelect("-0.002786", "0.079019", "0.000000", "0.004478", "0.068209", "0.000000")
53
Part.ClearSelection2 True
54
boolstatus = Part.Extension.SelectByID2("Point20", "SKETCHPOINT", 0, 0.0776478, 0, False, 0, Nothing, 0)
55
Part.ClearSelection2 True
56
boolstatus = Part.Extension.SketchBoxSelect("-0.013969", "0.073864", "0.000000", "-0.009762", "0.066506", "0.000000")
57
Part.ClearSelection2 True
58
boolstatus = Part.Extension.SelectByID2("D8@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
59
boolstatus = Part.Extension.SketchBoxSelect("-0.014403", "0.069885", "0.000000", "-0.010016", "0.056803", "0.000000")
60
Part.ClearSelection2 True
61
boolstatus = Part.Extension.SelectByID2("D8@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", -0.01348162935871, 0.06269296991783, 0, False, 0, Nothing, 0)
62
Part.ClearSelection2 True
63
boolstatus = Part.Extension.SelectByID2("D8@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", -0.0138422399331, 0.06215205405625, 0, False, 0, Nothing, 0)
64
Part.ClearSelection2 True
65
boolstatus = Part.Extension.SelectByID2("D2@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0.001230945295232, 0.06532516597547, 0, False, 0, Nothing, 0)
66
boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", -6.883905179088e-005, 0.07220034107419, 0, True, 0, Nothing, 0)
67
boolstatus = Part.Extension.SelectByID2("Sketch4", "SKETCHREGION", -0.006841399596807, 0.06850621714055, 0, True, 0, Nothing, 0)
68
boolstatus = Part.DeSelectByID("Line1", "SKETCHSEGMENT", 0, 0.06936133842149, 0)
69
boolstatus = Part.Extension.SelectByID2("Sketch4", "SKETCHCONTOUR", -0.007320267514132, 0.05842, 0, True, 0, Nothing, 0)
70
boolstatus = Part.Extension.SelectByID2("Line8", "SKETCHSEGMENT", -0.003078865960687, 0.05831317147179, 0, True, 0, Nothing, 0)
71
Set myModelView = Part.ActiveView
72
myModelView.RotateAboutPoint 0, 0.06361952336103, -0.006350902030062, 0.06088879676997, 0.006293166773958
73
Set myModelView = Part.ActiveView
74
myModelView.RotateAboutPoint 0, 0.06998147569713, -0.006350902030062, 0.06088879676997, 0.006293166773958
75
Set myModelView = Part.ActiveView
76
myModelView.RotateAboutPoint 0, 0.05725757102493, -0.006350902030062, 0.06088879676997, 0.006293166773958
77
Set myModelView = Part.ActiveView
78
myModelView.RotateAboutPoint 0, 0.1654107607387, -0.006350902030062, 0.06088879676997, 0.006293166773958
79
Set myModelView = Part.ActiveView
80
myModelView.RotateAboutPoint 0, 0.1399629513943, -0.006350902030062, 0.06088879676997, 0.006293166773958
81
Set myModelView = Part.ActiveView
82
myModelView.RotateAboutPoint 0.003725208680146, 0.120877094386, -0.006350902030062, 0.06088879676997, 0.006293166773958
83
Set myModelView = Part.ActiveView
84
myModelView.RotateAboutPoint 0.01117562604044, 0.1654107607387, -0.006350902030062, 0.06088879676997, 0.006293166773958
85
Set myModelView = Part.ActiveView
86
myModelView.RotateAboutPoint 0.01490083472058, 0.09542928504154, -0.006350902030062, 0.06088879676997, 0.006293166773958
87
Set myModelView = Part.ActiveView
88
myModelView.RotateAboutPoint 0.01117562604044, 0.09542928504154, -0.006350902030062, 0.06088879676997, 0.006293166773958
89
Set myModelView = Part.ActiveView
90
myModelView.RotateAboutPoint 0.003725208680146, 0.05089561868882, -0.006350902030062, 0.06088879676997, 0.006293166773958
91
Part.ClearSelection2 True
92
Set myModelView = Part.ActiveView
93
myModelView.RotateAboutPoint -0.02607646076102, -0.03817171401662, 0.003947040189303, 0.06352539999999, -0.001297770884662
94
Set myModelView = Part.ActiveView
95
myModelView.RotateAboutPoint -0.01490083472058, -0.02544780934441, 0.003947040189303, 0.06352539999999, -0.001297770884662
96
Set myModelView = Part.ActiveView
97
myModelView.RotateAboutPoint -0.007450417360292, -0.01272390467221, 0.003947040189303, 0.06352539999999, -0.001297770884662
98
Set myModelView = Part.ActiveView
99
myModelView.RotateAboutPoint -0.02980166944117, -0.06361952336103, 0.003947040189303, 0.06352539999999, -0.001297770884662
100
Set myModelView = Part.ActiveView
101
myModelView.RotateAboutPoint -0.02980166944117, -0.05089561868882, 0.003947040189303, 0.06352539999999, -0.001297770884662
102
Set myModelView = Part.ActiveView
103
myModelView.RotateAboutPoint -0.03725208680146, -0.07634342803323, 0.003947040189303, 0.06352539999999, -0.001297770884662
104
Set myModelView = Part.ActiveView
105
myModelView.RotateAboutPoint -0.0484277128419, -0.08270538036934, 0.003947040189303, 0.06352539999999, -0.001297770884662
106
Set myModelView = Part.ActiveView
107
myModelView.RotateAboutPoint -0.02980166944117, -0.03817171401662, 0.003947040189303, 0.06352539999999, -0.001297770884662
108
Set myModelView = Part.ActiveView
109
myModelView.RotateAboutPoint -0.02980166944117, -0.03180976168051, 0.003947040189303, 0.06352539999999, -0.001297770884662
110
Set myModelView = Part.ActiveView
111
myModelView.RotateAboutPoint -0.02607646076102, -0.02544780934441, 0.003947040189303, 0.06352539999999, -0.001297770884662
112
Set myModelView = Part.ActiveView
113
myModelView.RotateAboutPoint -0.02607646076102, -0.01908585700831, 0.003947040189303, 0.06352539999999, -0.001297770884662
114
Set myModelView = Part.ActiveView
115
myModelView.RotateAboutPoint -0.02607646076102, -0.02544780934441, 0.003947040189303, 0.06352539999999, -0.001297770884662
116
Set myModelView = Part.ActiveView
117
myModelView.RotateAboutPoint -0.02235125208088, -0.03180976168051, 0.003947040189303, 0.06352539999999, -0.001297770884662
118
Set myModelView = Part.ActiveView
119
myModelView.RotateAboutPoint -0.01117562604044, -0.01908585700831, 0.003947040189303, 0.06352539999999, -0.001297770884662
120
' MSGBOX
121
' The sketch segment being trimmed has a midpoint or equal length relation.  Trimming the segment will delete the relation.  Do you want to continue?
122

    
123
Part.SetPickMode
124
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
125
boolstatus = Part.SketchManager.SketchTrim(1, 0.004604344523926, 0.07721255799385, 0)
126
Part.SetPickMode
127
boolstatus = Part.Extension.SelectByID2("Line14", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
128
boolstatus = Part.SketchManager.SketchTrim(1, 0.01334969886747, 0.07218275071844, 0)
129
Part.SetPickMode
130
boolstatus = Part.Extension.SelectByID2("Line12", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
131
boolstatus = Part.SketchManager.SketchTrim(1, 0.01295161260424, 0.06839661712974, 0)
132
Part.EditUndo2 1
133
Part.EditUndo2 1
134
Part.EditUndo2 1
135
boolstatus = Part.Extension.SelectByID2("D8@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", -0.01436310719164, 0.06355790789745, -0.003122413662777, False, 0, Nothing, 0)
136
boolstatus = Part.Extension.SelectByID2("D8@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", -0.01580419679579, 0.06345805546061, -0.003888707182023, False, 0, Nothing, 0)
137
Dim myDimension As Object
138
Set myDimension = Part.Parameter("D8@Sketch4")
139
myDimension.SystemValue = 0.00127
140
' MSGBOX
141
' At least one segment being filleted has a midpoint or equal length relation. Geometry may have to move to satisfy this relation when the fillet is created.  Do you want to continue?
142

    
143
boolstatus = Part.Extension.SelectByID2("Fillet<1>", "SKETCHPOINT", -0.013462, 0.073279, 0, True, 0, Nothing, 0)
144
' MSGBOX
145
' At least one segment being filleted has a midpoint or equal length relation. Geometry may have to move to satisfy this relation when the fillet is created.  Do you want to continue?
146

    
147
boolstatus = Part.Extension.SelectByID2("Fillet<2>", "SKETCHPOINT", 0.013462, 0.073279, 0, True, 0, Nothing, 0)
148
Dim skSegment As Object
149
Set skSegment = Part.SketchManager.CreateFillet(0.00127, 1)
150
Set skSegment = Part.SketchManager.CreateFillet(0.00127, 1)
151
Set skSegment = Part.SketchManager.CreateLine(-0.000000, 0.077648, 0.000000, 0.000000, 0.058251, 0.000000)
152
Part.SetPickMode
153
Part.ClearSelection2 True
154
boolstatus = Part.Extension.SelectByID2("Point44", "SKETCHPOINT", 0, 0.05825125148164, 0, False, 0, Nothing, 0)
155
boolstatus = Part.Extension.SelectByID2("D9@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
156
boolstatus = Part.Extension.SelectByID2("D3@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
157
boolstatus = Part.Extension.SelectByID2("D2@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
158
boolstatus = Part.Extension.SelectByID2("D1@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
159
boolstatus = Part.Extension.SketchBoxSelect("0.018544", "0.078130", "0.000000", "0.007719", "0.056331", "0.000000")
160
Part.ClearSelection2 True
161
boolstatus = Part.Extension.SelectByID2("D9@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
162
boolstatus = Part.Extension.SelectByID2("D3@Sketch4@STATION, POWER, ESTOP 880203.SLDPRT", "DIMENSION", 0, 0, 0, True, 0, Nothing, 0)
163
boolstatus = Part.Extension.SketchBoxSelect("0.008248", "0.079914", "0.000000", "0.017071", "0.056754", "0.000000")
164
Part.ClearSelection2 True
165
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0.00142486185771, 0.07396221743142, 0.008623415044034, True, 0, Nothing, 0)
166
Part.SplitOpenSegment 0.005755828662741, 0.07691348410414, 0
167
Part.ClearSelection2 True
168
boolstatus = Part.Extension.SelectByID2("Line8", "SKETCHSEGMENT", 0.003737590710975, 0.05697290187246, 0.003681367900239, True, 0, Nothing, 0)
169
Part.SplitOpenSegment 0.00560334409181, 0.05842, 0
170
Part.ClearSelection2 True
171
Part.ClearSelection2 True
172
Part.ClearSelection2 True
173
boolstatus = Part.Extension.SelectByID2("Line17", "SKETCHSEGMENT", 0.001292081817127, 0.05526230149351, 0.0088469446261, False, 0, Nothing, 0)
174
boolstatus = Part.Extension.SelectByID2("Point46", "SKETCHPOINT", 0.00560334409181, 0.05842, 0, False, 0, Nothing, 0)
175
boolstatus = Part.Extension.SelectByID2("Line17", "SKETCHSEGMENT", -0.001126426260356, 0.05526840720515, 0.00886955853008, False, 0, Nothing, 0)
176
Part.ClearSelection2 True
177
boolstatus = Part.Extension.SelectByID2("Line17", "SKETCHSEGMENT", 0.004735512741632, 0.05569926815124, 0.007583720967489, False, 0, Nothing, 0)
178
Part.ClearSelection2 True
179
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", -0.0007219192031618, 0.07448599985877, 0.007723905570135, False, 0, Nothing, 0)
180
boolstatus = Part.Extension.SelectByID2("Arc8", "SKETCHSEGMENT", 0.001579789828652, 0.07379188603829, 0.008640634737828, False, 0, Nothing, 0)
181
Part.ClearSelection2 True
182
boolstatus = Part.Extension.SelectByID2("Point45", "SKETCHPOINT", 0.005755828662741, 0.07691348410414, 0, False, 0, Nothing, 0)
183
boolstatus = Part.Extension.SelectByID2("Arc8", "SKETCHSEGMENT", -0.001454847557929, 0.07490081459815, 0.007501734937066, False, 0, Nothing, 0)
184
Part.ClearSelection2 True
185
Part.SketchManager.InsertSketch True
186
boolstatus = Part.Extension.SelectByID2("Line16@Sketch4", "EXTSKETCHSEGMENT", 0, 0.07534647479335, 0, False, 0, Nothing, 0)
187
boolstatus = Part.Extension.SelectByID2("Line16@Sketch4", "EXTSKETCHSEGMENT", -0.02655807371409, 0.07675032558262, 0, True, 0, Nothing, 0)
188
Part.ClearSelection2 True
189
boolstatus = Part.Extension.SelectByID2("Line16@Sketch4", "EXTSKETCHSEGMENT", -0.02655807371409, 0.07675032558262, 0, False, 4, Nothing, 0)
190
boolstatus = Part.Extension.SelectByID2("Sketch4", "SKETCH", 0, 0, 0, True, 0, Nothing, 0)
191
Dim myFeature As Object
192
Set myFeature = Part.FeatureManager.FeatureRevolve(6.28318530718, False, 0, 0, 0, False, True, True)
193
Part.SelectionManager.EnableContourSelection = False
194
Set myModelView = Part.ActiveView
195
myModelView.RotateAboutPoint 0.02980166944117, 0.02544780934441, -0.004752629982164, 0.07217428613339, 0.01259515590425
196
Set myModelView = Part.ActiveView
197
myModelView.RotateAboutPoint 0.03725208680146, 0.03817171401662, -0.004752629982164, 0.07217428613339, 0.01259515590425
198
Set myModelView = Part.ActiveView
199
myModelView.RotateAboutPoint 0.02980166944117, 0.01908585700831, -0.004752629982164, 0.07217428613339, 0.01259515590425
200
Set myModelView = Part.ActiveView
201
myModelView.RotateAboutPoint 0.02980166944117, 0.03180976168051, -0.004752629982164, 0.07217428613339, 0.01259515590425
202
Set myModelView = Part.ActiveView
203
myModelView.RotateAboutPoint 0.02607646076102, 0.01272390467221, -0.004752629982164, 0.07217428613339, 0.01259515590425
204
Set myModelView = Part.ActiveView
205
myModelView.RotateAboutPoint 0.02607646076102, 0.01908585700831, -0.004752629982164, 0.07217428613339, 0.01259515590425
206
Set myModelView = Part.ActiveView
207
myModelView.RotateAboutPoint 0.02235125208088, 0.01272390467221, -0.004752629982164, 0.07217428613339, 0.01259515590425
208
Set myModelView = Part.ActiveView
209
myModelView.RotateAboutPoint 0.02607646076102, 0.006361952336103, -0.004752629982164, 0.07217428613339, 0.01259515590425
210
Set myModelView = Part.ActiveView
211
myModelView.RotateAboutPoint 0.03352687812131, 0.01908585700831, -0.004752629982164, 0.07217428613339, 0.01259515590425
212
Set myModelView = Part.ActiveView
213
myModelView.RotateAboutPoint 0.02607646076102, 0.01272390467221, -0.004752629982164, 0.07217428613339, 0.01259515590425
214
Set myModelView = Part.ActiveView
215
myModelView.RotateAboutPoint 0.02607646076102, 0, -0.004752629982164, 0.07217428613339, 0.01259515590425
216
Set myModelView = Part.ActiveView
217
myModelView.RotateAboutPoint 0.02607646076102, 0.006361952336103, -0.004752629982164, 0.07217428613339, 0.01259515590425
218
Set myModelView = Part.ActiveView
219
myModelView.RotateAboutPoint 0.02607646076102, 0, -0.004752629982164, 0.07217428613339, 0.01259515590425
220
Set myModelView = Part.ActiveView
221
myModelView.RotateAboutPoint 0.02607646076102, 0.006361952336103, -0.004752629982164, 0.07217428613339, 0.01259515590425
222
Set myModelView = Part.ActiveView
223
myModelView.RotateAboutPoint 0.01862604340073, 0, -0.004752629982164, 0.07217428613339, 0.01259515590425
224
Set myModelView = Part.ActiveView
225
myModelView.RotateAboutPoint 0.007450417360292, 0, -0.004752629982164, 0.07217428613339, 0.01259515590425
226
Set myModelView = Part.ActiveView
227
myModelView.RotateAboutPoint 0.01117562604044, 0, -0.004752629982164, 0.07217428613339, 0.01259515590425
228
Part.ClearSelection2 True
229
Part.ShowNamedView2 "*Trimetric", 8
230
boolstatus = Part.Extension.SelectByID2("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
231
boolstatus = Part.Extension.SelectByID2("ButtonDown", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
232
boolstatus = Part.Extension.SelectByID2("ButtonDown", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
233
boolstatus = Part.ShowConfiguration2("ButtonDown")
234
Part.ClearSelection2 True
235
Part.ClearSelection2 True
236
Part.ClearSelection2 True
237
Part.ClearSelection2 True
238
Part.ClearSelection2 True
239
boolstatus = Part.Extension.SelectByID2("ButtonDown", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
240
boolstatus = Part.Extension.SelectByID2("Default@STATION, POWER, ESTOP 880203.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
241
boolstatus = Part.Extension.SelectByID2("ButtonDown", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
242
boolstatus = Part.Extension.SelectByID2("Default@STATION, POWER, ESTOP 880203.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
243
boolstatus = Part.ShowConfiguration2("Default")
244
boolstatus = Part.Extension.SelectByID2("ButtonDown@STATION, POWER, ESTOP 880203.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
245
Part.EditDelete
246
boolstatus = Part.DeleteConfiguration2("ButtonDown")
247
Set myModelView = Part.ActiveView
248
myModelView.FrameState = swWindowState_e.swWindowMaximized
249
Set myModelView = Part.ActiveView
250
myModelView.FrameState = swWindowState_e.swWindowMaximized
251
Set myModelView = Part.ActiveView
252
myModelView.FrameState = swWindowState_e.swWindowMaximized
253
Set myModelView = Part.ActiveView
254
myModelView.FrameState = swWindowState_e.swWindowMaximized
255
Set myModelView = Part.ActiveView
256
myModelView.FrameState = swWindowState_e.swWindowMaximized
257
Set myModelView = Part.ActiveView
258
myModelView.FrameState = swWindowState_e.swWindowMaximized
259
Set myModelView = Part.ActiveView
260
myModelView.FrameState = swWindowState_e.swWindowMaximized
261
Set myModelView = Part.ActiveView
262
myModelView.FrameState = swWindowState_e.swWindowMaximized
263
' MSGBOX
264
' The design table generated the following configurations:
265
' ButtonDown
266
' ButtonUp
267

    
268
Part.CloseFamilyTable
269
boolstatus = Part.Extension.SelectByID2("ButtonUp", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
270
boolstatus = Part.Extension.SelectByID2("ButtonUp", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
271
boolstatus = Part.ShowConfiguration2("ButtonUp")
272
boolstatus = Part.Extension.SelectByID2("ButtonDown", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
273
boolstatus = Part.ShowConfiguration2("ButtonDown")
274
boolstatus = Part.Extension.SelectByID2("ButtonUp@STATION, POWER, ESTOP 880203.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
275
boolstatus = Part.ShowConfiguration2("ButtonUp")
276
boolstatus = Part.Extension.SelectByID2("ButtonDown@STATION, POWER, ESTOP 880203.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
277
boolstatus = Part.ShowConfiguration2("ButtonDown")
278
boolstatus = Part.Extension.SelectByID2("ButtonUp@STATION, POWER, ESTOP 880203.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
279
boolstatus = Part.ShowConfiguration2("ButtonUp")
280
boolstatus = Part.Extension.SelectByID2("ButtonDown@STATION, POWER, ESTOP 880203.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
281
boolstatus = Part.ShowConfiguration2("ButtonDown")
282
boolstatus = Part.Extension.SelectByID2("ButtonUp@STATION, POWER, ESTOP 880203.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
283
boolstatus = Part.ShowConfiguration2("ButtonUp")
284
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.001786259244113, 0.07725567477365, 0.003825528818311, False, 0, Nothing, 0)
285
Part.ShowNamedView2 "*Top", 5
286
Set myModelView = Part.ActiveView
287
myModelView.RotateAboutCenter -0.09313021700365, 0.006361952336103
288
Set myModelView = Part.ActiveView
289
myModelView.RotateAboutCenter -0.03352687812131, 0
290
Set myModelView = Part.ActiveView
291
myModelView.RotateAboutCenter -0.02980166944117, 0.01272390467221
292
Set myModelView = Part.ActiveView
293
myModelView.RotateAboutCenter -0.04097729548161, 0.006361952336103
294
Set myModelView = Part.ActiveView
295
myModelView.RotateAboutCenter -0.06705375624263, 0.02544780934441
296
Set myModelView = Part.ActiveView
297
myModelView.RotateAboutCenter -0.0894050083235, 0.02544780934441
298
Set myModelView = Part.ActiveView
299
myModelView.RotateAboutCenter -0.0484277128419, 0.01908585700831
300
Set myModelView = Part.ActiveView
301
myModelView.RotateAboutCenter -0.06705375624263, 0
302
Set myModelView = Part.ActiveView
303
myModelView.RotateAboutCenter -0.04097729548161, 0.006361952336103
304
Set myModelView = Part.ActiveView
305
myModelView.RotateAboutCenter -0.0484277128419, 0.01272390467221
306
Set myModelView = Part.ActiveView
307
myModelView.RotateAboutCenter -0.0484277128419, 0.006361952336103
308
Set myModelView = Part.ActiveView
309
myModelView.RotateAboutCenter -0.0484277128419, 0.01908585700831
310
Set myModelView = Part.ActiveView
311
myModelView.RotateAboutCenter -0.04097729548161, 0.006361952336103
312
Set myModelView = Part.ActiveView
313
myModelView.RotateAboutCenter -0.02607646076102, 0.006361952336103
314
Set myModelView = Part.ActiveView
315
myModelView.RotateAboutCenter -0.01490083472058, 0
316
Set myModelView = Part.ActiveView
317
myModelView.RotateAboutCenter -0.007450417360292, 0
318
Set myModelView = Part.ActiveView
319
myModelView.RotateAboutPoint -0.03352687812131, -0.01272390467221, 0.0006480260127262, 0.07629987519994, 0.007717917246111
320
Set myModelView = Part.ActiveView
321
myModelView.RotateAboutPoint -0.01117562604044, 0, 0.0006480260127262, 0.07629987519994, 0.007717917246111
322
Set myModelView = Part.ActiveView
323
myModelView.RotateAboutPoint -0.01117562604044, 0, 0.0006480260127262, 0.07629987519994, 0.007717917246111
324
Set myModelView = Part.ActiveView
325
myModelView.RotateAboutPoint -0.02980166944117, -0.01272390467221, 0.0006480260127262, 0.07629987519994, 0.007717917246111
326
Set myModelView = Part.ActiveView
327
myModelView.RotateAboutPoint -0.01490083472058, -0.006361952336103, 0.0006480260127262, 0.07629987519994, 0.007717917246111
328
Set myModelView = Part.ActiveView
329
myModelView.RotateAboutPoint -0.02235125208088, -0.006361952336103, 0.0006480260127262, 0.07629987519994, 0.007717917246111
330
Set myModelView = Part.ActiveView
331
myModelView.RotateAboutPoint -0.02980166944117, -0.01908585700831, 0.0006480260127262, 0.07629987519994, 0.007717917246111
332
Set myModelView = Part.ActiveView
333
myModelView.RotateAboutPoint -0.04470250416175, -0.02544780934441, 0.0006480260127262, 0.07629987519994, 0.007717917246111
334
Set myModelView = Part.ActiveView
335
myModelView.RotateAboutPoint -0.01862604340073, -0.01908585700831, 0.0006480260127262, 0.07629987519994, 0.007717917246111
336
Set myModelView = Part.ActiveView
337
myModelView.RotateAboutPoint -0.01490083472058, -0.006361952336103, 0.0006480260127262, 0.07629987519994, 0.007717917246111
338
Set myModelView = Part.ActiveView
339
myModelView.RotateAboutPoint -0.007450417360292, 0, 0.0006480260127262, 0.07629987519994, 0.007717917246111
340
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.001786259244113, 0.07725567477365, 0.003825528818311, True, 0, Nothing, 0)
341
Part.ShowNamedView2 "*Top", 5
342
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.001786259244113, 0.07725567477365, 0.003825528818311, True, 0, Nothing, 0)
343
boolstatus = Part.DeSelectByID("", "FACE", -0.001785824676109, 0.07743406026947, -0.002562270187461)
344
boolstatus = Part.Extension.SketchBoxSelect("0.000000", "0.000000", "0.000000", "0.000000", "0.000000", "0.000000")
345
boolstatus = Part.DeSelectByID("", "FACE", 0.0047673754397, 0.07670554550214, -0.004425739414706)
346
boolstatus = Part.Extension.SketchBoxSelect("0.000000", "0.000000", "0.000000", "0.000000", "0.000000", "0.000000")
347
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.0005435118579463, 0.07714662188664, -0.004736317619247, True, 0, Nothing, 0)
348
boolstatus = Part.Extension.SketchBoxSelect("0.000000", "0.000000", "0.000000", "0.000000", "0.000000", "0.000000")
349
boolstatus = Part.Extension.SketchBoxSelect("0.000000", "0.000000", "0.000000", "0.000000", "0.000000", "0.000000")
350
boolstatus = Part.Extension.SketchBoxSelect("0.000000", "0.000000", "0.000000", "0.000000", "0.000000", "0.000000")
351
boolstatus = Part.Extension.SketchBoxSelect("0.000000", "0.000000", "0.000000", "0.000000", "0.000000", "0.000000")
352
boolstatus = Part.Extension.SketchBoxSelect("0.000000", "0.000000", "0.000000", "0.000000", "0.000000", "0.000000")
353
boolstatus = Part.Extension.SketchBoxSelect("0.000000", "0.000000", "0.000000", "0.000000", "0.000000", "0.000000")
354
Part.ClearSelection2 True
355
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.001786259244113, 0.07725567477365, 0.003825528818311, False, 0, Nothing, 0)
356
Part.ClearSelection2 True
357
Set myModelView = Part.ActiveView
358
myModelView.RotateAboutCenter -0.02607646076102, 0
359
Set myModelView = Part.ActiveView
360
myModelView.RotateAboutCenter -0.02235125208088, 0.006361952336103
361
Set myModelView = Part.ActiveView
362
myModelView.RotateAboutCenter -0.01862604340073, 0.006361952336103
363
Set myModelView = Part.ActiveView
364
myModelView.RotateAboutCenter -0.02980166944117, 0.006361952336103
365
Set myModelView = Part.ActiveView
366
myModelView.RotateAboutCenter -0.0484277128419, 0.01908585700831
367
Set myModelView = Part.ActiveView
368
myModelView.RotateAboutCenter -0.02980166944117, 0.006361952336103
369
Set myModelView = Part.ActiveView
370
myModelView.RotateAboutCenter -0.07077896492277, 0.02544780934441
371
Set myModelView = Part.ActiveView
372
myModelView.RotateAboutCenter -0.08195459096321, 0.05089561868882
373
Set myModelView = Part.ActiveView
374
myModelView.RotateAboutCenter -0.04470250416175, 0.02544780934441
375
Set myModelView = Part.ActiveView
376
myModelView.RotateAboutCenter -0.08195459096321, 0.06998147569713
377
Set myModelView = Part.ActiveView
378
myModelView.RotateAboutCenter -0.04097729548161, 0.01908585700831
379
Set myModelView = Part.ActiveView
380
myModelView.RotateAboutCenter -0.08195459096321, 0.06361952336103
381
Set myModelView = Part.ActiveView
382
myModelView.RotateAboutCenter -0.04097729548161, 0.03180976168051
383
Set myModelView = Part.ActiveView
384
myModelView.RotateAboutCenter -0.06332854756248, 0.04453366635272
385
Set myModelView = Part.ActiveView
386
myModelView.RotateAboutCenter -0.03352687812131, 0.03817171401662
387
Set myModelView = Part.ActiveView
388
myModelView.RotateAboutCenter -0.02607646076102, 0.01908585700831
389
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.001835712720833, 0.07689494982856, 0.005530096335178, False, 0, Nothing, 0)
390
Part.ShowNamedView2 "*Top", 5
391
Part.ClearSelection2 True
392
Set myModelView = Part.ActiveView
393
myModelView.RotateAboutCenter -0.0484277128419, -0.01272390467221
394
Set myModelView = Part.ActiveView
395
myModelView.RotateAboutCenter -0.04470250416175, -0.006361952336103
396
Set myModelView = Part.ActiveView
397
myModelView.RotateAboutCenter -0.07077896492277, -0.006361952336103
398
Set myModelView = Part.ActiveView
399
myModelView.RotateAboutCenter -0.08195459096321, 0
400
Set myModelView = Part.ActiveView
401
myModelView.RotateAboutCenter -0.07450417360292, -0.01272390467221
402
Set myModelView = Part.ActiveView
403
myModelView.RotateAboutCenter -0.08195459096321, -0.01908585700831
404
Set myModelView = Part.ActiveView
405
myModelView.RotateAboutCenter -0.07077896492277, -0.01272390467221
406
Set myModelView = Part.ActiveView
407
myModelView.RotateAboutCenter -0.05587813020219, -0.01272390467221
408
Set myModelView = Part.ActiveView
409
myModelView.RotateAboutCenter -0.05215292152204, -0.006361952336103
410
Set myModelView = Part.ActiveView
411
myModelView.RotateAboutCenter -0.05215292152204, 0
412
Set myModelView = Part.ActiveView
413
myModelView.RotateAboutCenter -0.01862604340073, 0
414
Set myModelView = Part.ActiveView
415
myModelView.RotateAboutCenter -0.0484277128419, 0
416
Set myModelView = Part.ActiveView
417
myModelView.RotateAboutCenter -0.01862604340073, 0
418
Set myModelView = Part.ActiveView
419
myModelView.RotateAboutCenter -0.0484277128419, -0.006361952336103
420
Set myModelView = Part.ActiveView
421
myModelView.RotateAboutCenter -0.03352687812131, 0.01908585700831
422
Set myModelView = Part.ActiveView
423
myModelView.RotateAboutCenter -0.03725208680146, 0.01908585700831
424
Set myModelView = Part.ActiveView
425
myModelView.RotateAboutCenter -0.02980166944117, 0.01908585700831
426
Set myModelView = Part.ActiveView
427
myModelView.RotateAboutCenter -0.03352687812131, 0.01272390467221
428
Set myModelView = Part.ActiveView
429
myModelView.RotateAboutCenter -0.02980166944117, 0.03180976168051
430
Set myModelView = Part.ActiveView
431
myModelView.RotateAboutCenter -0.03725208680146, 0.01272390467221
432
Set myModelView = Part.ActiveView
433
myModelView.RotateAboutCenter -0.03725208680146, 0.02544780934441
434
Set myModelView = Part.ActiveView
435
myModelView.RotateAboutCenter -0.04097729548161, 0.02544780934441
436
Set myModelView = Part.ActiveView
437
myModelView.RotateAboutCenter -0.03725208680146, 0.02544780934441
438
Set myModelView = Part.ActiveView
439
myModelView.RotateAboutCenter -0.03352687812131, 0.01908585700831
440
Set myModelView = Part.ActiveView
441
myModelView.RotateAboutCenter -0.04097729548161, 0.01272390467221
442
Set myModelView = Part.ActiveView
443
myModelView.RotateAboutCenter -0.03725208680146, 0.02544780934441
444
Set myModelView = Part.ActiveView
445
myModelView.RotateAboutCenter -0.02607646076102, 0.01272390467221
446
Set myModelView = Part.ActiveView
447
myModelView.RotateAboutCenter -0.02607646076102, 0.01272390467221
448
Set myModelView = Part.ActiveView
449
myModelView.RotateAboutCenter -0.02607646076102, 0.01272390467221
450
Set myModelView = Part.ActiveView
451
myModelView.RotateAboutCenter -0.02235125208088, 0.006361952336103
452
Set myModelView = Part.ActiveView
453
myModelView.RotateAboutCenter -0.01862604340073, 0.006361952336103
454
Set myModelView = Part.ActiveView
455
myModelView.RotateAboutCenter -0.01117562604044, 0.006361952336103
456
Set myModelView = Part.ActiveView
457
myModelView.RotateAboutCenter -0.01490083472058, 0
458
Set myModelView = Part.ActiveView
459
myModelView.RotateAboutPoint 0.007450417360292, -0.01272390467221, -0.002986839749255, 0.07271799551511, 0.01310329762936
460
Set myModelView = Part.ActiveView
461
myModelView.RotateAboutPoint 0.02980166944117, -0.03180976168051, -0.002986839749255, 0.07271799551511, 0.01310329762936
462
Set myModelView = Part.ActiveView
463
myModelView.RotateAboutPoint 0.01117562604044, -0.01908585700831, -0.002986839749255, 0.07271799551511, 0.01310329762936
464
Set myModelView = Part.ActiveView
465
myModelView.RotateAboutPoint 0.05215292152204, -0.03180976168051, -0.002986839749255, 0.07271799551511, 0.01310329762936
466
Set myModelView = Part.ActiveView
467
myModelView.RotateAboutPoint 0.01490083472058, -0.01272390467221, -0.002986839749255, 0.07271799551511, 0.01310329762936
468
Set myModelView = Part.ActiveView
469
myModelView.RotateAboutPoint 0.03725208680146, -0.03180976168051, -0.002986839749255, 0.07271799551511, 0.01310329762936
470
Set myModelView = Part.ActiveView
471
myModelView.RotateAboutPoint 0.02235125208088, -0.006361952336103, -0.002986839749255, 0.07271799551511, 0.01310329762936
472
Set myModelView = Part.ActiveView
473
myModelView.RotateAboutPoint 0.01117562604044, -0.006361952336103, -0.002986839749255, 0.07271799551511, 0.01310329762936
474
Set myModelView = Part.ActiveView
475
myModelView.RotateAboutPoint 0.01490083472058, -0.01272390467221, -0.002986839749255, 0.07271799551511, 0.01310329762936
476
Set myModelView = Part.ActiveView
477
myModelView.RotateAboutPoint 0.003725208680146, 0, -0.002986839749255, 0.07271799551511, 0.01310329762936
478
boolstatus = Part.Extension.SelectByID2("Revolve2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
479
Part.ClearSelection2 True
480
boolstatus = Part.Extension.SketchBoxSelect("0.000000", "0.000000", "0.000000", "0.000000", "0.000000", "0.000000")
481
Part.ShowNamedView2 "*Trimetric", 8
482
Set Part = Nothing
483
swApp.CloseDoc "STATION, POWER, ESTOP 880203"
484
Set Part = swApp.OpenDoc6("G:\Colony Scout\Storage Station\STATION, CHASSIS, TOP ASSY.SLDASM", 2, 0, "", longstatus, longwarnings)
485
swApp.ActivateDoc2 "STATION, CHASSIS, TOP ASSY", False, longstatus
486
Set Part = swApp.ActiveDoc
487
Set Part = swApp.ActiveDoc
488
Set myModelView = Part.ActiveView
489
myModelView.FrameLeft = 0
490
myModelView.FrameTop = 0
491
Set myModelView = Part.ActiveView
492
myModelView.FrameState = swWindowState_e.swWindowMaximized
493
Set myModelView = Part.ActiveView
494
myModelView.FrameState = swWindowState_e.swWindowMaximized
495
Set Part = Nothing
496
swApp.CloseDoc "STATION, CHASSIS, TOP ASSY"
497
Set Part = swApp.OpenDoc6("G:\Colony Scout\Storage Station\STATION, TOP ASSY.SLDASM", 2, 0, "", longstatus, longwarnings)
498
swApp.ActivateDoc2 "STATION, TOP ASSY", False, longstatus
499
Set Part = swApp.ActiveDoc
500
Dim RouteMgr As Object
501
Set RouteMgr = Part.GetRouteManager()
502
Set Part = swApp.ActiveDoc
503
Set myModelView = Part.ActiveView
504
myModelView.FrameLeft = 0
505
myModelView.FrameTop = 0
506
Set myModelView = Part.ActiveView
507
myModelView.FrameState = swWindowState_e.swWindowMaximized
508
Set myModelView = Part.ActiveView
509
myModelView.FrameState = swWindowState_e.swWindowMaximized
510
boolstatus = Part.AddComponent("G:\Colony Scout\Storage Station\STATION, POWER, ESTOP 880203.SLDPRT", -0.4259262889901, 0.1886411387996, 0.2281189727557)
511
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.4271491816251, 0.1942182358417, 0.2358331443803, False, 0, Nothing, 0)
512
Part.ClearSelection2 True
513
Set myModelView = Part.ActiveView
514
myModelView.RotateAboutCenter -0.01046643771423, 0
515
Set myModelView = Part.ActiveView
516
myModelView.RotateAboutCenter -0.01395525028564, 0.006361952336103
517
Set myModelView = Part.ActiveView
518
myModelView.RotateAboutCenter -0.0313993131427, 0.01272390467221
519
Set myModelView = Part.ActiveView
520
myModelView.RotateAboutCenter -0.1290860651422, 0.06361952336103
521
Set myModelView = Part.ActiveView
522
myModelView.RotateAboutCenter -0.1569965657135, 0.06998147569713
523
Set myModelView = Part.ActiveView
524
myModelView.RotateAboutCenter -0.313993131427, 0.06998147569713
525
Set myModelView = Part.ActiveView
526
myModelView.RotateAboutCenter -0.003488812571411, 0
527
Set myModelView = Part.ActiveView
528
myModelView.RotateAboutPoint -0.02442168799988, 0.02544780934441, -0.4315848987412, 0.1811165065339, 0.2328347008738
529
Set myModelView = Part.ActiveView
530
myModelView.RotateAboutPoint -0.003488812571411, 0.006361952336103, -0.4315848987412, 0.1811165065339, 0.2328347008738
531
Set myModelView = Part.ActiveView
532
myModelView.RotateAboutPoint -0.006977625142822, 0.006361952336103, -0.4315848987412, 0.1811165065339, 0.2328347008738
533
Set myModelView = Part.ActiveView
534
myModelView.RotateAboutPoint -0.01046643771423, 0.01272390467221, -0.4315848987412, 0.1811165065339, 0.2328347008738
535
Set myModelView = Part.ActiveView
536
myModelView.RotateAboutPoint -0.006977625142822, 0.006361952336103, -0.4315848987412, 0.1811165065339, 0.2328347008738
537
Set myModelView = Part.ActiveView
538
myModelView.RotateAboutPoint -0.01744406285706, 0.01272390467221, -0.4315848987412, 0.1811165065339, 0.2328347008738
539
Set myModelView = Part.ActiveView
540
myModelView.RotateAboutPoint -0.01744406285706, 0.02544780934441, -0.4315848987412, 0.1811165065339, 0.2328347008738
541
Set myModelView = Part.ActiveView
542
myModelView.RotateAboutPoint -0.01395525028564, 0.01908585700831, -0.4315848987412, 0.1811165065339, 0.2328347008738
543
Set myModelView = Part.ActiveView
544
myModelView.RotateAboutPoint -0.02442168799988, 0.03180976168051, -0.4315848987412, 0.1811165065339, 0.2328347008738
545
Set myModelView = Part.ActiveView
546
myModelView.RotateAboutPoint -0.02093287542847, 0.02544780934441, -0.4315848987412, 0.1811165065339, 0.2328347008738
547
Set myModelView = Part.ActiveView
548
myModelView.RotateAboutPoint -0.02093287542847, 0.02544780934441, -0.4315848987412, 0.1811165065339, 0.2328347008738
549
Set myModelView = Part.ActiveView
550
myModelView.RotateAboutPoint -0.01046643771423, 0.01908585700831, -0.4315848987412, 0.1811165065339, 0.2328347008738
551
Set myModelView = Part.ActiveView
552
myModelView.RotateAboutPoint -0.02442168799988, 0.02544780934441, -0.4315848987412, 0.1811165065339, 0.2328347008738
553
Set myModelView = Part.ActiveView
554
myModelView.RotateAboutPoint -0.01395525028564, 0.006361952336103, -0.4315848987412, 0.1811165065339, 0.2328347008738
555
Set myModelView = Part.ActiveView
556
myModelView.RotateAboutPoint -0.01046643771423, 0.01272390467221, -0.4315848987412, 0.1811165065339, 0.2328347008738
557
Set myModelView = Part.ActiveView
558
myModelView.RotateAboutPoint -0.01046643771423, 0.006361952336103, -0.4315848987412, 0.1811165065339, 0.2328347008738
559
Set myModelView = Part.ActiveView
560
myModelView.RotateAboutPoint -0.006977625142822, 0, -0.4315848987412, 0.1811165065339, 0.2328347008738
561
Set myModelView = Part.ActiveView
562
myModelView.RotateAboutPoint -0.003488812571411, 0.006361952336103, -0.4315848987412, 0.1811165065339, 0.2328347008738
563
Set myModelView = Part.ActiveView
564
myModelView.RotateAboutPoint -0.003488812571411, 0, -0.4315848987412, 0.1811165065339, 0.2328347008738
565
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.4184742387597, 0.1995758512996, 0.231339838045, True, 1, Nothing, 0)
566
Set myModelView = Part.ActiveView
567
myModelView.RotateAboutCenter 0.01046643771423, -0.01272390467221
568
Set myModelView = Part.ActiveView
569
myModelView.RotateAboutCenter 0.01744406285706, -0.01272390467221
570
Set myModelView = Part.ActiveView
571
myModelView.RotateAboutCenter 0.01046643771423, -0.01272390467221
572
Set myModelView = Part.ActiveView
573
myModelView.RotateAboutCenter 0.01395525028564, -0.01272390467221
574
Set myModelView = Part.ActiveView
575
myModelView.RotateAboutCenter 0.02093287542847, -0.006361952336103
576
Set myModelView = Part.ActiveView
577
myModelView.RotateAboutCenter 0.01046643771423, -0.006361952336103
578
Set myModelView = Part.ActiveView
579
myModelView.RotateAboutCenter 0.02093287542847, -0.01272390467221
580
Set myModelView = Part.ActiveView
581
myModelView.RotateAboutCenter 0.02442168799988, -0.01272390467221
582
Set myModelView = Part.ActiveView
583
myModelView.RotateAboutCenter 0.03488812571411, -0.02544780934441
584
Set myModelView = Part.ActiveView
585
myModelView.RotateAboutCenter 0.02791050057129, -0.01272390467221
586
Set myModelView = Part.ActiveView
587
myModelView.RotateAboutCenter 0.03488812571411, -0.01908585700831
588
Set myModelView = Part.ActiveView
589
myModelView.RotateAboutCenter 0.0313993131427, -0.02544780934441
590
Set myModelView = Part.ActiveView
591
myModelView.RotateAboutCenter 0.03488812571411, -0.02544780934441
592
Set myModelView = Part.ActiveView
593
myModelView.RotateAboutCenter 0.02791050057129, -0.01908585700831
594
Set myModelView = Part.ActiveView
595
myModelView.RotateAboutCenter 0.0313993131427, -0.02544780934441
596
Set myModelView = Part.ActiveView
597
myModelView.RotateAboutCenter 0.03488812571411, -0.03180976168051
598
Set myModelView = Part.ActiveView
599
myModelView.RotateAboutCenter 0.02791050057129, -0.01908585700831
600
Set myModelView = Part.ActiveView
601
myModelView.RotateAboutCenter 0.02791050057129, -0.02544780934441
602
Set myModelView = Part.ActiveView
603
myModelView.RotateAboutCenter 0.02791050057129, -0.01908585700831
604
Set myModelView = Part.ActiveView
605
myModelView.RotateAboutCenter 0.02791050057129, -0.03180976168051
606
Set myModelView = Part.ActiveView
607
myModelView.RotateAboutCenter 0.02442168799988, -0.01272390467221
608
Set myModelView = Part.ActiveView
609
myModelView.RotateAboutCenter 0.0313993131427, -0.02544780934441
610
Set myModelView = Part.ActiveView
611
myModelView.RotateAboutCenter 0.02093287542847, -0.01272390467221
612
Set myModelView = Part.ActiveView
613
myModelView.RotateAboutCenter 0.02442168799988, -0.01908585700831
614
Set myModelView = Part.ActiveView
615
myModelView.RotateAboutCenter 0.03837693828552, -0.03180976168051
616
Set myModelView = Part.ActiveView
617
myModelView.RotateAboutCenter 0.006977625142822, -0.01272390467221
618
Set myModelView = Part.ActiveView
619
myModelView.RotateAboutCenter 0.01395525028564, -0.006361952336103
620
Set myModelView = Part.ActiveView
621
myModelView.RotateAboutCenter 0.003488812571411, -0.006361952336103
622
Set myModelView = Part.ActiveView
623
myModelView.RotateAboutCenter 0.003488812571411, 0
624
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.02648754197475, 0.1296932954221, 0.1151624017882, True, 1, Nothing, 0)
625
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.07739771656867, 0.1302941392842, 0.02833402928428, True, 1, Nothing, 0)
626
Set myModelView = Part.ActiveView
627
myModelView.RotateAboutCenter -0.04186575085693, 0.01908585700831
628
Set myModelView = Part.ActiveView
629
myModelView.RotateAboutCenter -0.04186575085693, 0.03180976168051
630
Set myModelView = Part.ActiveView
631
myModelView.RotateAboutCenter -0.0313993131427, 0.01908585700831
632
Set myModelView = Part.ActiveView
633
myModelView.RotateAboutCenter -0.02791050057129, 0.01272390467221
634
Set myModelView = Part.ActiveView
635
myModelView.RotateAboutCenter -0.0313993131427, 0.03180976168051
636
Set myModelView = Part.ActiveView
637
myModelView.RotateAboutCenter -0.02442168799988, 0.01272390467221
638
Set myModelView = Part.ActiveView
639
myModelView.RotateAboutCenter -0.0313993131427, 0.01908585700831
640
Set myModelView = Part.ActiveView
641
myModelView.RotateAboutCenter -0.04186575085693, 0.01908585700831
642
Set myModelView = Part.ActiveView
643
myModelView.RotateAboutCenter -0.03488812571411, 0.03817171401662
644
Set myModelView = Part.ActiveView
645
myModelView.RotateAboutCenter -0.05930981371399, 0.03817171401662
646
Set myModelView = Part.ActiveView
647
myModelView.RotateAboutCenter -0.04535456342835, 0.03817171401662
648
Set myModelView = Part.ActiveView
649
myModelView.RotateAboutCenter -0.05582100114258, 0.05089561868882
650
Set myModelView = Part.ActiveView
651
myModelView.RotateAboutCenter -0.05233218857117, 0.03817171401662
652
Set myModelView = Part.ActiveView
653
myModelView.RotateAboutCenter -0.05930981371399, 0.03180976168051
654
Set myModelView = Part.ActiveView
655
myModelView.RotateAboutCenter -0.0627986262854, 0.04453366635272
656
Set myModelView = Part.ActiveView
657
myModelView.RotateAboutCenter -0.04535456342835, 0.03180976168051
658
Set myModelView = Part.ActiveView
659
myModelView.RotateAboutCenter -0.03837693828552, 0.01908585700831
660
Set myModelView = Part.ActiveView
661
myModelView.RotateAboutCenter -0.03488812571411, 0.01908585700831
662
Set myModelView = Part.ActiveView
663
myModelView.RotateAboutCenter -0.02791050057129, 0.02544780934441
664
Set myModelView = Part.ActiveView
665
myModelView.RotateAboutCenter -0.0313993131427, 0.01908585700831
666
Set myModelView = Part.ActiveView
667
myModelView.RotateAboutCenter -0.02093287542847, 0.01272390467221
668
Set myModelView = Part.ActiveView
669
myModelView.RotateAboutCenter -0.02093287542847, 0.01908585700831
670
Set myModelView = Part.ActiveView
671
myModelView.RotateAboutCenter -0.02093287542847, 0.006361952336103
672
Set myModelView = Part.ActiveView
673
myModelView.RotateAboutCenter -0.006977625142822, 0.006361952336103
674
Set myModelView = Part.ActiveView
675
myModelView.RotateAboutCenter -0.01395525028564, 0.006361952336103
676
Set myModelView = Part.ActiveView
677
myModelView.RotateAboutCenter -0.01046643771423, 0.006361952336103
678
Set myModelView = Part.ActiveView
679
myModelView.RotateAboutCenter -0.01046643771423, 0.006361952336103
680
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.4190993082897, 0.1995758512996, 0.2324159332118, True, 1, Nothing, 0)
681
Dim myMate As Object
682
Set myMate = Part.AddMate3(0, 1, False, 0.06928171201538, 0, 0, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, False, longstatus)
683
Part.ClearSelection2 True
684
Part.EditRebuild3
685

    
686
Part.ShowNamedView2 "*Top", 5
687
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.4324780526214, 0.1568254449331, 0.2323011625167, False, 0, Nothing, 0)
688
Part.TranslateComponent
689
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.4229778540785, 0.1579319651581, 0.2264548864903, False, 0, Nothing, 0)
690
Part.TranslateComponent
691
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.04573024958011, 0.1588191392842, 0.08872256229814, False, 0, Nothing, 0)
692
boolstatus = Part.Extension.SelectByID2("XAL J174-1@STATION, TOP ASSY", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
693
Part.EditDelete
694
Set myModelView = Part.ActiveView
695
myModelView.RotateAboutPoint 0.0313993131427, -0.03180976168051, 0.02900564249483, 0.1302941392842, 0.03161997524983
696
Set myModelView = Part.ActiveView
697
myModelView.RotateAboutPoint 0.02791050057129, -0.04453366635272, 0.02900564249483, 0.1302941392842, 0.03161997524983
698
Set myModelView = Part.ActiveView
699
myModelView.RotateAboutPoint 0.02791050057129, -0.03180976168051, 0.02900564249483, 0.1302941392842, 0.03161997524983
700
Set myModelView = Part.ActiveView
701
myModelView.RotateAboutPoint 0.0627986262854, -0.09542928504154, 0.02900564249483, 0.1302941392842, 0.03161997524983
702
Set myModelView = Part.ActiveView
703
myModelView.RotateAboutPoint 0.09768675199951, -0.120877094386, 0.02900564249483, 0.1302941392842, 0.03161997524983
704
Set myModelView = Part.ActiveView
705
myModelView.RotateAboutPoint 0.1255972525708, -0.1272390467221, 0.02900564249483, 0.1302941392842, 0.03161997524983
706
Set myModelView = Part.ActiveView
707
myModelView.RotateAboutPoint 0.136063690285, -0.1145151420499, 0.02900564249483, 0.1302941392842, 0.03161997524983
708
Set myModelView = Part.ActiveView
709
myModelView.RotateAboutPoint 0.04186575085693, -0.04453366635272, 0.02900564249483, 0.1302941392842, 0.03161997524983
710
Set myModelView = Part.ActiveView
711
myModelView.RotateAboutPoint 0.04186575085693, -0.05089561868882, 0.02900564249483, 0.1302941392842, 0.03161997524983
712
Set myModelView = Part.ActiveView
713
myModelView.RotateAboutPoint 0.006977625142822, -0.01272390467221, 0.02900564249483, 0.1302941392842, 0.03161997524983
714
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.06398484390814, 0.1315255944092, 0.04846138387313, True, 1, Nothing, 0)
715
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.03988972453732, 0.1291321258668, 0.09619508222727, True, 1, Nothing, 0)
716
Set myMate = Part.AddMate3(1, 1, False, 0.03279448281878, 0, 0, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, False, longstatus)
717
Part.ClearSelection2 True
718
Part.EditRebuild3
719

    
720
Part.ShowNamedView2 "*Trimetric", 8
721
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.04552626314393, 0.1575264610184, 0.08905691768285, False, 0, Nothing, 0)
722
boolstatus = Part.CompConfigProperties4(2, 0, True, True, "ButtonDown", False)
723
Part.ClearSelection2 True
724
boolstatus = Part.EditRebuild3()
725
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.05021129361779, 0.1514395536118, 0.08759470565042, False, 0, Nothing, 0)
726
boolstatus = Part.CompConfigProperties4(2, 0, True, True, "ButtonUp", False)
727
Part.ClearSelection2 True
728
boolstatus = Part.EditRebuild3()
729
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.04890123535961, 0.1568961238569, 0.0892908989951, False, 0, Nothing, 0)
730
Part.OpenCompFile
731
Set Part = swApp.OpenDoc6("G:\Colony Scout\Storage Station\STATION, POWER, ESTOP 880203.SLDPRT", 1, 0, "", longstatus, longwarnings)
732
Set Part = swApp.ActiveDoc
733
Set myModelView = Part.ActiveView
734
myModelView.FrameLeft = 0
735
myModelView.FrameTop = 21
736
Set myModelView = Part.ActiveView
737
myModelView.FrameState = swWindowState_e.swWindowMaximized
738
Set myModelView = Part.ActiveView
739
myModelView.FrameState = swWindowState_e.swWindowMaximized
740
swApp.ActivateDoc2 "STATION, POWER, ESTOP 880203", False, longstatus
741
Set Part = swApp.ActiveDoc
742
Set RouteMgr = Part.GetRouteManager()
743
Part.ClearSelection2 True
744
boolstatus = Part.Extension.SelectByID2("ButtonUp", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
745
boolstatus = Part.Extension.SelectByID2("ButtonDown@STATION, POWER, ESTOP 880203.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
746
boolstatus = Part.ShowConfiguration2("ButtonDown")
747
Part.ClearSelection2 True
748
boolstatus = Part.Extension.SelectByID2("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing, 0)
749
boolstatus = Part.ShowConfiguration2("Default")
750
Part.ClearSelection2 True
751
Set Part = Nothing
752
swApp.CloseDoc "STATION, POWER, ESTOP 880203"
753
Set Part = swApp.ActiveDoc
754
Set myModelView = Part.ActiveView
755
myModelView.FrameLeft = 0
756
myModelView.FrameTop = 0
757
Set myModelView = Part.ActiveView
758
myModelView.FrameState = swWindowState_e.swWindowMaximized
759
Set myModelView = Part.ActiveView
760
myModelView.FrameState = swWindowState_e.swWindowMaximized
761
swApp.ActivateDoc2 "STATION, TOP ASSY", False, longstatus
762
Set Part = swApp.ActiveDoc
763
Set RouteMgr = Part.GetRouteManager()
764
Part.ShowNamedView2 "*Trimetric", 8
765
Set myModelView = Part.ActiveView
766
myModelView.RotateAboutCenter -0.01395525028564, -0.01908585700831
767
Set myModelView = Part.ActiveView
768
myModelView.RotateAboutCenter -0.02093287542847, -0.03180976168051
769
Set myModelView = Part.ActiveView
770
myModelView.RotateAboutCenter -0.01744406285706, -0.02544780934441
771
Set myModelView = Part.ActiveView
772
myModelView.RotateAboutCenter -0.01744406285706, -0.01908585700831
773
Set myModelView = Part.ActiveView
774
myModelView.RotateAboutCenter -0.01395525028564, -0.02544780934441
775
Set myModelView = Part.ActiveView
776
myModelView.RotateAboutCenter -0.01744406285706, -0.01272390467221
777
Set myModelView = Part.ActiveView
778
myModelView.RotateAboutCenter -0.01395525028564, -0.01908585700831
779
Set myModelView = Part.ActiveView
780
myModelView.RotateAboutCenter -0.01395525028564, -0.01272390467221
781
Set myModelView = Part.ActiveView
782
myModelView.RotateAboutCenter -0.01395525028564, -0.006361952336103
783
Set myModelView = Part.ActiveView
784
myModelView.RotateAboutCenter -0.006977625142822, -0.006361952336103
785
Set myModelView = Part.ActiveView
786
myModelView.RotateAboutCenter -0.01744406285706, -0.01908585700831
787
Set myModelView = Part.ActiveView
788
myModelView.RotateAboutCenter -0.01744406285706, -0.006361952336103
789
Set myModelView = Part.ActiveView
790
myModelView.RotateAboutCenter -0.0313993131427, -0.01908585700831
791
Set myModelView = Part.ActiveView
792
myModelView.RotateAboutCenter -0.02442168799988, -0.006361952336103
793
Set myModelView = Part.ActiveView
794
myModelView.RotateAboutCenter -0.01744406285706, -0.006361952336103
795
Set myModelView = Part.ActiveView
796
myModelView.RotateAboutCenter -0.01395525028564, -0.01908585700831
797
Set myModelView = Part.ActiveView
798
myModelView.RotateAboutCenter -0.01744406285706, -0.01272390467221
799
Set myModelView = Part.ActiveView
800
myModelView.RotateAboutCenter -0.02093287542847, -0.02544780934441
801
Set myModelView = Part.ActiveView
802
myModelView.RotateAboutCenter -0.02442168799988, -0.01908585700831
803
Set myModelView = Part.ActiveView
804
myModelView.RotateAboutCenter -0.01395525028564, -0.03180976168051
805
Set myModelView = Part.ActiveView
806
myModelView.RotateAboutCenter -0.03488812571411, -0.05089561868882
807
Set myModelView = Part.ActiveView
808
myModelView.RotateAboutCenter -0.01395525028564, -0.02544780934441
809
Set myModelView = Part.ActiveView
810
myModelView.RotateAboutCenter -0.006977625142822, -0.01272390467221
811
Set myModelView = Part.ActiveView
812
myModelView.RotateAboutCenter -0.003488812571411, -0.01272390467221
813
Set myModelView = Part.ActiveView
814
myModelView.RotateAboutCenter -0.006977625142822, -0.01272390467221
815
Set myModelView = Part.ActiveView
816
myModelView.RotateAboutCenter 0, -0.01272390467221
817
Set myModelView = Part.ActiveView
818
myModelView.RotateAboutCenter -0.003488812571411, -0.01272390467221
819
Set myModelView = Part.ActiveView
820
myModelView.RotateAboutCenter -0.003488812571411, -0.01272390467221
821
Set myModelView = Part.ActiveView
822
myModelView.RotateAboutCenter 0, -0.01272390467221
823
Set myModelView = Part.ActiveView
824
myModelView.RotateAboutCenter 0, -0.01908585700831
825
Set myModelView = Part.ActiveView
826
myModelView.RotateAboutCenter 0, -0.03817171401662
827
Set myModelView = Part.ActiveView
828
myModelView.RotateAboutCenter 0, -0.01908585700831
829
Set myModelView = Part.ActiveView
830
myModelView.RotateAboutCenter 0, -0.01908585700831
831
Set myModelView = Part.ActiveView
832
myModelView.RotateAboutCenter 0, -0.01272390467221
833
Set myModelView = Part.ActiveView
834
myModelView.RotateAboutCenter 0, -0.02544780934441
835
Set myModelView = Part.ActiveView
836
myModelView.RotateAboutCenter 0, -0.02544780934441
837
Set myModelView = Part.ActiveView
838
myModelView.RotateAboutCenter 0.003488812571411, -0.03180976168051
839
Set myModelView = Part.ActiveView
840
myModelView.RotateAboutCenter 0.01046643771423, -0.04453366635272
841
Set myModelView = Part.ActiveView
842
myModelView.RotateAboutCenter 0.006977625142822, -0.03817171401662
843
Set myModelView = Part.ActiveView
844
myModelView.RotateAboutCenter 0.01395525028564, -0.03817171401662
845
Set myModelView = Part.ActiveView
846
myModelView.RotateAboutCenter 0.006977625142822, -0.03817171401662
847
Set myModelView = Part.ActiveView
848
myModelView.RotateAboutCenter 0.01046643771423, -0.03817171401662
849
Set myModelView = Part.ActiveView
850
myModelView.RotateAboutCenter 0.03837693828552, -0.1017912373776
851
Set myModelView = Part.ActiveView
852
myModelView.RotateAboutCenter 0.01395525028564, -0.03817171401662
853
Set myModelView = Part.ActiveView
854
myModelView.RotateAboutCenter 0.02093287542847, -0.03817171401662
855
Set myModelView = Part.ActiveView
856
myModelView.RotateAboutCenter 0.02093287542847, -0.05089561868882
857
Set myModelView = Part.ActiveView
858
myModelView.RotateAboutCenter 0.01744406285706, -0.04453366635272
859
Set myModelView = Part.ActiveView
860
myModelView.RotateAboutCenter 0.02791050057129, -0.07634342803323
861
Set myModelView = Part.ActiveView
862
myModelView.RotateAboutCenter 0.02791050057129, -0.06998147569713
863
Set myModelView = Part.ActiveView
864
myModelView.RotateAboutCenter 0.03488812571411, -0.08906733270544
865
Set myModelView = Part.ActiveView
866
myModelView.RotateAboutCenter 0.03837693828552, -0.08906733270544
867
Set myModelView = Part.ActiveView
868
myModelView.RotateAboutCenter 0.04884337599976, -0.1590488084026
869
Set myModelView = Part.ActiveView
870
myModelView.RotateAboutCenter 0.02093287542847, -0.06361952336103
871
Set myModelView = Part.ActiveView
872
myModelView.RotateAboutCenter 0.05930981371399, -0.1526868560665
873
Set myModelView = Part.ActiveView
874
myModelView.RotateAboutCenter 0.01395525028564, -0.05725757102493
875
Set myModelView = Part.ActiveView
876
myModelView.RotateAboutCenter 0.01395525028564, -0.04453366635272
877
Set myModelView = Part.ActiveView
878
myModelView.RotateAboutCenter 0.01395525028564, -0.03817171401662
879
Set myModelView = Part.ActiveView
880
myModelView.RotateAboutCenter 0.01046643771423, -0.03817171401662
881
Set myModelView = Part.ActiveView
882
myModelView.RotateAboutCenter 0, -0.006361952336103
883
Set myModelView = Part.ActiveView
884
myModelView.RotateAboutCenter -0.006977625142822, -0.01272390467221
885
Set myModelView = Part.ActiveView
886
myModelView.RotateAboutCenter -0.006977625142822, -0.01908585700831
887
Set myModelView = Part.ActiveView
888
myModelView.RotateAboutCenter -0.01046643771423, -0.01272390467221
889
Set myModelView = Part.ActiveView
890
myModelView.RotateAboutCenter -0.01046643771423, -0.01272390467221
891
Set myModelView = Part.ActiveView
892
myModelView.RotateAboutCenter -0.01046643771423, -0.01908585700831
893
Set myModelView = Part.ActiveView
894
myModelView.RotateAboutCenter -0.01395525028564, -0.01272390467221
895
Set myModelView = Part.ActiveView
896
myModelView.RotateAboutCenter -0.01395525028564, -0.03180976168051
897
Set myModelView = Part.ActiveView
898
myModelView.RotateAboutCenter -0.006977625142822, -0.02544780934441
899
Set myModelView = Part.ActiveView
900
myModelView.RotateAboutCenter -0.01395525028564, -0.01908585700831
901
Set myModelView = Part.ActiveView
902
myModelView.RotateAboutCenter -0.02093287542847, -0.03817171401662
903
Set myModelView = Part.ActiveView
904
myModelView.RotateAboutCenter -0.03488812571411, -0.05089561868882
905
Set myModelView = Part.ActiveView
906
myModelView.RotateAboutCenter -0.01744406285706, -0.02544780934441
907
Set myModelView = Part.ActiveView
908
myModelView.RotateAboutCenter -0.01744406285706, -0.02544780934441
909
Set myModelView = Part.ActiveView
910
myModelView.RotateAboutCenter -0.01395525028564, -0.01908585700831
911
Set myModelView = Part.ActiveView
912
myModelView.RotateAboutCenter -0.01395525028564, -0.01908585700831
913
Set myModelView = Part.ActiveView
914
myModelView.RotateAboutCenter -0.01744406285706, -0.02544780934441
915
Set myModelView = Part.ActiveView
916
myModelView.RotateAboutCenter -0.01046643771423, -0.01272390467221
917
Set myModelView = Part.ActiveView
918
myModelView.RotateAboutCenter -0.006977625142822, -0.02544780934441
919
Set myModelView = Part.ActiveView
920
myModelView.RotateAboutCenter -0.006977625142822, -0.01272390467221
921
Set myModelView = Part.ActiveView
922
myModelView.RotateAboutCenter -0.003488812571411, -0.01908585700831
923
Set myModelView = Part.ActiveView
924
myModelView.RotateAboutCenter 0, -0.01272390467221
925
Set myModelView = Part.ActiveView
926
myModelView.RotateAboutCenter -0.003488812571411, -0.01908585700831
927
Set myModelView = Part.ActiveView
928
myModelView.RotateAboutCenter 0, -0.01272390467221
929
Set myModelView = Part.ActiveView
930
myModelView.RotateAboutCenter 0, -0.01272390467221
931
Set myModelView = Part.ActiveView
932
myModelView.RotateAboutCenter 0, -0.006361952336103
933
Set myModelView = Part.ActiveView
934
myModelView.RotateAboutCenter 0, -0.006361952336103
935
Set myModelView = Part.ActiveView
936
myModelView.RotateAboutCenter 0.01744406285706, -0.03180976168051
937
Set myModelView = Part.ActiveView
938
myModelView.RotateAboutCenter 0.01395525028564, -0.03180976168051
939
Set myModelView = Part.ActiveView
940
myModelView.RotateAboutCenter 0.01744406285706, -0.03180976168051
941
Set myModelView = Part.ActiveView
942
myModelView.RotateAboutCenter 0.01744406285706, -0.03817171401662
943
Set myModelView = Part.ActiveView
944
myModelView.RotateAboutCenter 0.01744406285706, -0.03180976168051
945
Set myModelView = Part.ActiveView
946
myModelView.RotateAboutCenter 0.02442168799988, -0.05089561868882
947
Set myModelView = Part.ActiveView
948
myModelView.RotateAboutCenter 0.01744406285706, -0.03817171401662
949
Set myModelView = Part.ActiveView
950
myModelView.RotateAboutCenter 0.01744406285706, -0.02544780934441
951
Set myModelView = Part.ActiveView
952
myModelView.RotateAboutCenter 0.02442168799988, -0.03180976168051
953
Set myModelView = Part.ActiveView
954
myModelView.RotateAboutCenter 0.01744406285706, -0.02544780934441
955
Set myModelView = Part.ActiveView
956
myModelView.RotateAboutCenter 0.01395525028564, -0.01908585700831
957
Set myModelView = Part.ActiveView
958
myModelView.RotateAboutCenter 0.03488812571411, -0.05089561868882
959
Set myModelView = Part.ActiveView
960
myModelView.RotateAboutCenter 0.006977625142822, -0.006361952336103
961
Set myModelView = Part.ActiveView
962
myModelView.RotateAboutCenter 0.01046643771423, -0.01272390467221
963
Set myModelView = Part.ActiveView
964
myModelView.RotateAboutCenter 0.006977625142822, -0.006361952336103
965
Set myModelView = Part.ActiveView
966
myModelView.RotateAboutCenter 0.006977625142822, 0
967
Set myModelView = Part.ActiveView
968
myModelView.RotateAboutCenter 0.006977625142822, -0.006361952336103
969
Set myModelView = Part.ActiveView
970
myModelView.RotateAboutCenter 0.006977625142822, -0.006361952336103
971
Set myModelView = Part.ActiveView
972
myModelView.RotateAboutCenter 0.006977625142822, -0.006361952336103
973
Set myModelView = Part.ActiveView
974
myModelView.RotateAboutCenter 0.003488812571411, 0
975
Set myModelView = Part.ActiveView
976
myModelView.RotateAboutCenter 0.006977625142822, 0
977
Set myModelView = Part.ActiveView
978
myModelView.RotateAboutCenter 0.003488812571411, -0.006361952336103
979
Set myModelView = Part.ActiveView
980
myModelView.RotateAboutCenter 0.003488812571411, 0
981
Set myModelView = Part.ActiveView
982
myModelView.RotateAboutCenter 0.01046643771423, 0
983
Set myModelView = Part.ActiveView
984
myModelView.RotateAboutCenter 0.006977625142822, 0
985
Set myModelView = Part.ActiveView
986
myModelView.RotateAboutCenter 0.006977625142822, 0
987
Set myModelView = Part.ActiveView
988
myModelView.RotateAboutCenter 0.006977625142822, 0
989
Set myModelView = Part.ActiveView
990
myModelView.RotateAboutCenter 0.01046643771423, 0
991
Set myModelView = Part.ActiveView
992
myModelView.RotateAboutCenter 0.006977625142822, 0
993
Set myModelView = Part.ActiveView
994
myModelView.RotateAboutCenter 0.01395525028564, 0
995
Set myModelView = Part.ActiveView
996
myModelView.RotateAboutCenter 0.01046643771423, 0
997
Set myModelView = Part.ActiveView
998
myModelView.RotateAboutCenter 0.006977625142822, 0.006361952336103
999
Set myModelView = Part.ActiveView
1000
myModelView.RotateAboutCenter 0.006977625142822, 0.006361952336103
1001
Set myModelView = Part.ActiveView
1002
myModelView.RotateAboutCenter 0.01046643771423, 0.006361952336103
1003
Set myModelView = Part.ActiveView
1004
myModelView.RotateAboutCenter 0.003488812571411, 0
1005
Set myModelView = Part.ActiveView
1006
myModelView.RotateAboutCenter 0.003488812571411, 0.01272390467221
1007
Set myModelView = Part.ActiveView
1008
myModelView.RotateAboutCenter 0.003488812571411, 0.006361952336103
1009
Set myModelView = Part.ActiveView
1010
myModelView.RotateAboutPoint -0.003488812571411, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1011
Set myModelView = Part.ActiveView
1012
myModelView.RotateAboutPoint -0.003488812571411, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1013
Set myModelView = Part.ActiveView
1014
myModelView.RotateAboutPoint -0.003488812571411, 0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1015
Set myModelView = Part.ActiveView
1016
myModelView.RotateAboutPoint -0.01744406285706, 0.05725757102493, 0.07708807462905, 0.08905885567827, 0.1451380866282
1017
Set myModelView = Part.ActiveView
1018
myModelView.RotateAboutPoint -0.01395525028564, 0.05089561868882, 0.07708807462905, 0.08905885567827, 0.1451380866282
1019
Set myModelView = Part.ActiveView
1020
myModelView.RotateAboutPoint -0.0313993131427, 0.09542928504154, 0.07708807462905, 0.08905885567827, 0.1451380866282
1021
Set myModelView = Part.ActiveView
1022
myModelView.RotateAboutPoint -0.02791050057129, 0.07634342803323, 0.07708807462905, 0.08905885567827, 0.1451380866282
1023
Set myModelView = Part.ActiveView
1024
myModelView.RotateAboutPoint -0.0313993131427, 0.06361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1025
Set myModelView = Part.ActiveView
1026
myModelView.RotateAboutPoint -0.04884337599976, 0.06998147569713, 0.07708807462905, 0.08905885567827, 0.1451380866282
1027
Set myModelView = Part.ActiveView
1028
myModelView.RotateAboutPoint -0.02093287542847, 0.03817171401662, 0.07708807462905, 0.08905885567827, 0.1451380866282
1029
Set myModelView = Part.ActiveView
1030
myModelView.RotateAboutPoint -0.01744406285706, 0.01908585700831, 0.07708807462905, 0.08905885567827, 0.1451380866282
1031
Set myModelView = Part.ActiveView
1032
myModelView.RotateAboutPoint -0.01046643771423, 0.02544780934441, 0.07708807462905, 0.08905885567827, 0.1451380866282
1033
Set myModelView = Part.ActiveView
1034
myModelView.RotateAboutPoint -0.006977625142822, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1035
Set myModelView = Part.ActiveView
1036
myModelView.RotateAboutPoint -0.003488812571411, 0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1037
Set myModelView = Part.ActiveView
1038
myModelView.RotateAboutPoint -0.006977625142822, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1039
Set myModelView = Part.ActiveView
1040
myModelView.RotateAboutPoint -0.003488812571411, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1041
Set myModelView = Part.ActiveView
1042
myModelView.RotateAboutPoint -0.006977625142822, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1043
Set myModelView = Part.ActiveView
1044
myModelView.RotateAboutPoint -0.006977625142822, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1045
Set myModelView = Part.ActiveView
1046
myModelView.RotateAboutPoint -0.01395525028564, 0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1047
Set myModelView = Part.ActiveView
1048
myModelView.RotateAboutPoint -0.01395525028564, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1049
Set myModelView = Part.ActiveView
1050
myModelView.RotateAboutPoint -0.01395525028564, 0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1051
Set myModelView = Part.ActiveView
1052
myModelView.RotateAboutPoint -0.01395525028564, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1053
Set myModelView = Part.ActiveView
1054
myModelView.RotateAboutPoint -0.01046643771423, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1055
Set myModelView = Part.ActiveView
1056
myModelView.RotateAboutPoint -0.02093287542847, 0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1057
Set myModelView = Part.ActiveView
1058
myModelView.RotateAboutPoint -0.01046643771423, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1059
Set myModelView = Part.ActiveView
1060
myModelView.RotateAboutPoint -0.02442168799988, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1061
Set myModelView = Part.ActiveView
1062
myModelView.RotateAboutPoint -0.01744406285706, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1063
Set myModelView = Part.ActiveView
1064
myModelView.RotateAboutPoint -0.006977625142822, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1065
Set myModelView = Part.ActiveView
1066
myModelView.RotateAboutPoint -0.02093287542847, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1067
Set myModelView = Part.ActiveView
1068
myModelView.RotateAboutPoint -0.006977625142822, -0.03817171401662, 0.07708807462905, 0.08905885567827, 0.1451380866282
1069
Set myModelView = Part.ActiveView
1070
myModelView.RotateAboutPoint -0.006977625142822, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1071
Set myModelView = Part.ActiveView
1072
myModelView.RotateAboutPoint -0.003488812571411, -0.03180976168051, 0.07708807462905, 0.08905885567827, 0.1451380866282
1073
Set myModelView = Part.ActiveView
1074
myModelView.RotateAboutPoint 0, -0.01908585700831, 0.07708807462905, 0.08905885567827, 0.1451380866282
1075
Set myModelView = Part.ActiveView
1076
myModelView.RotateAboutPoint 0, -0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1077
Set myModelView = Part.ActiveView
1078
myModelView.RotateAboutPoint -0.003488812571411, -0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1079
Set myModelView = Part.ActiveView
1080
myModelView.RotateAboutPoint 0, -0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1081
Set myModelView = Part.ActiveView
1082
myModelView.RotateAboutPoint 0, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1083
Set myModelView = Part.ActiveView
1084
myModelView.RotateAboutPoint 0.003488812571411, -0.02544780934441, 0.07708807462905, 0.08905885567827, 0.1451380866282
1085
Set myModelView = Part.ActiveView
1086
myModelView.RotateAboutPoint 0.01046643771423, -0.01908585700831, 0.07708807462905, 0.08905885567827, 0.1451380866282
1087
Set myModelView = Part.ActiveView
1088
myModelView.RotateAboutPoint 0.003488812571411, -0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1089
Set myModelView = Part.ActiveView
1090
myModelView.RotateAboutPoint 0.02093287542847, -0.01908585700831, 0.07708807462905, 0.08905885567827, 0.1451380866282
1091
Set myModelView = Part.ActiveView
1092
myModelView.RotateAboutPoint 0.01395525028564, -0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1093
Set myModelView = Part.ActiveView
1094
myModelView.RotateAboutPoint 0.02093287542847, -0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1095
Set myModelView = Part.ActiveView
1096
myModelView.RotateAboutPoint 0.006977625142822, -0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1097
Set myModelView = Part.ActiveView
1098
myModelView.RotateAboutPoint 0.02093287542847, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1099
Set myModelView = Part.ActiveView
1100
myModelView.RotateAboutPoint 0.02093287542847, -0.01908585700831, 0.07708807462905, 0.08905885567827, 0.1451380866282
1101
Set myModelView = Part.ActiveView
1102
myModelView.RotateAboutPoint 0.003488812571411, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1103
Set myModelView = Part.ActiveView
1104
myModelView.RotateAboutPoint 0.01744406285706, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1105
Set myModelView = Part.ActiveView
1106
myModelView.RotateAboutPoint 0.01744406285706, -0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1107
Set myModelView = Part.ActiveView
1108
myModelView.RotateAboutPoint 0.02442168799988, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1109
Set myModelView = Part.ActiveView
1110
myModelView.RotateAboutPoint 0.01046643771423, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1111
Set myModelView = Part.ActiveView
1112
myModelView.RotateAboutPoint 0.01395525028564, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1113
Set myModelView = Part.ActiveView
1114
myModelView.RotateAboutPoint 0.01046643771423, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1115
Set myModelView = Part.ActiveView
1116
myModelView.RotateAboutPoint 0.003488812571411, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1117
Set myModelView = Part.ActiveView
1118
myModelView.RotateAboutPoint 0.01046643771423, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1119
Set myModelView = Part.ActiveView
1120
myModelView.RotateAboutPoint 0.006977625142822, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1121
Set myModelView = Part.ActiveView
1122
myModelView.RotateAboutPoint 0.003488812571411, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1123
Set myModelView = Part.ActiveView
1124
myModelView.RotateAboutPoint 0.01046643771423, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1125
Set myModelView = Part.ActiveView
1126
myModelView.RotateAboutPoint 0.01046643771423, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1127
Set myModelView = Part.ActiveView
1128
myModelView.RotateAboutPoint 0.003488812571411, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1129
Set myModelView = Part.ActiveView
1130
myModelView.RotateAboutPoint 0.003488812571411, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1131
Set myModelView = Part.ActiveView
1132
myModelView.RotateAboutPoint 0.01744406285706, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1133
Set myModelView = Part.ActiveView
1134
myModelView.RotateAboutPoint 0.003488812571411, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1135
Set myModelView = Part.ActiveView
1136
myModelView.RotateAboutPoint 0.01046643771423, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1137
Set myModelView = Part.ActiveView
1138
myModelView.RotateAboutPoint 0.006977625142822, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1139
Set myModelView = Part.ActiveView
1140
myModelView.RotateAboutPoint 0, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1141
Set myModelView = Part.ActiveView
1142
myModelView.RotateAboutPoint 0.006977625142822, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1143
Set myModelView = Part.ActiveView
1144
myModelView.RotateAboutPoint 0.003488812571411, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1145
Set myModelView = Part.ActiveView
1146
myModelView.RotateAboutPoint 0.01395525028564, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1147
Set myModelView = Part.ActiveView
1148
myModelView.RotateAboutPoint 0.006977625142822, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1149
Set myModelView = Part.ActiveView
1150
myModelView.RotateAboutPoint 0.01395525028564, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1151
Set myModelView = Part.ActiveView
1152
myModelView.RotateAboutPoint 0.01046643771423, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1153
Set myModelView = Part.ActiveView
1154
myModelView.RotateAboutPoint 0.01046643771423, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1155
Set myModelView = Part.ActiveView
1156
myModelView.RotateAboutPoint 0.003488812571411, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1157
Set myModelView = Part.ActiveView
1158
myModelView.RotateAboutPoint 0.003488812571411, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1159
Set myModelView = Part.ActiveView
1160
myModelView.RotateAboutPoint 0.006977625142822, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1161
Set myModelView = Part.ActiveView
1162
myModelView.RotateAboutPoint 0, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1163
Set myModelView = Part.ActiveView
1164
myModelView.RotateAboutPoint 0, 0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1165
Set myModelView = Part.ActiveView
1166
myModelView.RotateAboutPoint 0, 0.02544780934441, 0.07708807462905, 0.08905885567827, 0.1451380866282
1167
Set myModelView = Part.ActiveView
1168
myModelView.RotateAboutPoint -0.01744406285706, 0.03180976168051, 0.07708807462905, 0.08905885567827, 0.1451380866282
1169
Set myModelView = Part.ActiveView
1170
myModelView.RotateAboutPoint -0.05582100114258, 0.06361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1171
Set myModelView = Part.ActiveView
1172
myModelView.RotateAboutPoint -0.01744406285706, 0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1173
Set myModelView = Part.ActiveView
1174
myModelView.RotateAboutPoint -0.0313993131427, 0.02544780934441, 0.07708807462905, 0.08905885567827, 0.1451380866282
1175
Set myModelView = Part.ActiveView
1176
myModelView.RotateAboutPoint -0.0313993131427, 0.01908585700831, 0.07708807462905, 0.08905885567827, 0.1451380866282
1177
Set myModelView = Part.ActiveView
1178
myModelView.RotateAboutPoint -0.04186575085693, 0.02544780934441, 0.07708807462905, 0.08905885567827, 0.1451380866282
1179
Set myModelView = Part.ActiveView
1180
myModelView.RotateAboutPoint -0.01046643771423, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1181
Set myModelView = Part.ActiveView
1182
myModelView.RotateAboutPoint -0.01395525028564, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1183
Set myModelView = Part.ActiveView
1184
myModelView.RotateAboutPoint -0.003488812571411, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1185
Set myModelView = Part.ActiveView
1186
myModelView.RotateAboutPoint -0.003488812571411, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1187
Set myModelView = Part.ActiveView
1188
myModelView.RotateAboutPoint -0.006977625142822, -0.02544780934441, 0.07708807462905, 0.08905885567827, 0.1451380866282
1189
Set myModelView = Part.ActiveView
1190
myModelView.RotateAboutPoint -0.006977625142822, -0.04453366635272, 0.07708807462905, 0.08905885567827, 0.1451380866282
1191
Set myModelView = Part.ActiveView
1192
myModelView.RotateAboutPoint -0.006977625142822, -0.02544780934441, 0.07708807462905, 0.08905885567827, 0.1451380866282
1193
Set myModelView = Part.ActiveView
1194
myModelView.RotateAboutPoint -0.02442168799988, -0.06998147569713, 0.07708807462905, 0.08905885567827, 0.1451380866282
1195
Set myModelView = Part.ActiveView
1196
myModelView.RotateAboutPoint -0.02093287542847, -0.03817171401662, 0.07708807462905, 0.08905885567827, 0.1451380866282
1197
Set myModelView = Part.ActiveView
1198
myModelView.RotateAboutPoint -0.003488812571411, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1199
Set myModelView = Part.ActiveView
1200
myModelView.RotateAboutPoint -0.003488812571411, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1201
Set myModelView = Part.ActiveView
1202
myModelView.RotateAboutPoint 0, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1203
Set myModelView = Part.ActiveView
1204
myModelView.RotateAboutPoint 0, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1205
Set myModelView = Part.ActiveView
1206
myModelView.RotateAboutPoint 0.01046643771423, -0.01908585700831, 0.07708807462905, 0.08905885567827, 0.1451380866282
1207
Set myModelView = Part.ActiveView
1208
myModelView.RotateAboutPoint 0.01046643771423, -0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1209
Set myModelView = Part.ActiveView
1210
myModelView.RotateAboutPoint 0.01046643771423, -0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1211
Set myModelView = Part.ActiveView
1212
myModelView.RotateAboutPoint 0, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1213
Set myModelView = Part.ActiveView
1214
myModelView.RotateAboutPoint 0.006977625142822, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1215
Set myModelView = Part.ActiveView
1216
myModelView.RotateAboutPoint 0.006977625142822, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1217
Set myModelView = Part.ActiveView
1218
myModelView.RotateAboutPoint 0.006977625142822, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1219
Set myModelView = Part.ActiveView
1220
myModelView.RotateAboutPoint 0.006977625142822, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1221
Set myModelView = Part.ActiveView
1222
myModelView.RotateAboutPoint 0.01395525028564, -0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1223
Set myModelView = Part.ActiveView
1224
myModelView.RotateAboutPoint 0.02093287542847, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1225
Set myModelView = Part.ActiveView
1226
myModelView.RotateAboutPoint 0.04535456342835, -0.02544780934441, 0.07708807462905, 0.08905885567827, 0.1451380866282
1227
Set myModelView = Part.ActiveView
1228
myModelView.RotateAboutPoint 0.02442168799988, -0.01272390467221, 0.07708807462905, 0.08905885567827, 0.1451380866282
1229
Set myModelView = Part.ActiveView
1230
myModelView.RotateAboutPoint 0.006977625142822, -0.006361952336103, 0.07708807462905, 0.08905885567827, 0.1451380866282
1231
Set myModelView = Part.ActiveView
1232
myModelView.RotateAboutPoint 0.003488812571411, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1233
Set myModelView = Part.ActiveView
1234
myModelView.RotateAboutPoint 0.003488812571411, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1235
Set myModelView = Part.ActiveView
1236
myModelView.RotateAboutPoint 0.003488812571411, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1237
Set myModelView = Part.ActiveView
1238
myModelView.RotateAboutPoint 0.01046643771423, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1239
Set myModelView = Part.ActiveView
1240
myModelView.RotateAboutPoint 0.006977625142822, 0, 0.07708807462905, 0.08905885567827, 0.1451380866282
1241
Part.ShowNamedView2 "*Trimetric", 8
1242
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.1340117338388, 0.1344140880426, 0.08444860959139, False, 0, Nothing, 0)
1243
Part.TranslateComponent
1244
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.1551380449407, 0.1302941392841, -0.04076677375264, False, 0, Nothing, 0)
1245
Part.TranslateComponent
1246
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.07391507932164, 0.1468524140357, 0.07729091427012, False, 0, Nothing, 0)
1247
Part.TranslateComponent
1248
Part.ClearSelection2 True
1249
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.05068495015809, 0.1275702148407, 0.08700576225294, False, 0, Nothing, 0)
1250
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.05709891479324, 0.1302941392842, 0.08963432155548, False, 0, Nothing, 0)
1251
Part.OpenCompFile
1252
Set Part = swApp.OpenDoc6("G:\Colony Scout\Storage Station\CHARGING, PLATE, Base.SLDPRT", 1, 0, "", longstatus, longwarnings)
1253
Set Part = swApp.ActiveDoc
1254
Set myModelView = Part.ActiveView
1255
myModelView.FrameLeft = 0
1256
myModelView.FrameTop = 21
1257
Set myModelView = Part.ActiveView
1258
myModelView.FrameState = swWindowState_e.swWindowMaximized
1259
Set myModelView = Part.ActiveView
1260
myModelView.FrameState = swWindowState_e.swWindowMaximized
1261
swApp.ActivateDoc2 "CHARGING, PLATE, Base", False, longstatus
1262
Set Part = swApp.ActiveDoc
1263
Set RouteMgr = Part.GetRouteManager()
1264
Part.ClearSelection2 True
1265
Part.ShowNamedView2 "*Top", 5
1266
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.1616210619547, 0.003174999999999, -0.06244001642114, False, 0, Nothing, 0)
1267
Part.ClearSelection2 True
1268
Set myModelView = Part.ActiveView
1269
myModelView.RotateAboutCenter 0.007450417360292, -0.02544780934441
1270
Set myModelView = Part.ActiveView
1271
myModelView.RotateAboutCenter 0.01490083472058, -0.03817171401662
1272
Set myModelView = Part.ActiveView
1273
myModelView.RotateAboutCenter 0, -0.006361952336103
1274
Set myModelView = Part.ActiveView
1275
myModelView.RotateAboutCenter 0.003725208680146, -0.01272390467221
1276
Set myModelView = Part.ActiveView
1277
myModelView.RotateAboutCenter 0.003725208680146, -0.01272390467221
1278
Set myModelView = Part.ActiveView
1279
myModelView.RotateAboutCenter 0.003725208680146, -0.01272390467221
1280
Set myModelView = Part.ActiveView
1281
myModelView.RotateAboutCenter 0.007450417360292, -0.01908585700831
1282
Set myModelView = Part.ActiveView
1283
myModelView.RotateAboutCenter 0.007450417360292, -0.03180976168051
1284
Set myModelView = Part.ActiveView
1285
myModelView.RotateAboutCenter 0.01490083472058, -0.03817171401662
1286
Set myModelView = Part.ActiveView
1287
myModelView.RotateAboutCenter 0.01117562604044, -0.03180976168051
1288
Set myModelView = Part.ActiveView
1289
myModelView.RotateAboutCenter 0.01117562604044, -0.03817171401662
1290
Set myModelView = Part.ActiveView
1291
myModelView.RotateAboutCenter 0.01117562604044, -0.03817171401662
1292
Set myModelView = Part.ActiveView
1293
myModelView.RotateAboutCenter 0.01117562604044, -0.03817171401662
1294
Set myModelView = Part.ActiveView
1295
myModelView.RotateAboutCenter 0.01117562604044, -0.03180976168051
1296
Set myModelView = Part.ActiveView
1297
myModelView.RotateAboutCenter 0, -0.01908585700831
1298
Set myModelView = Part.ActiveView
1299
myModelView.RotateAboutCenter 0.01117562604044, -0.03180976168051
1300
Set myModelView = Part.ActiveView
1301
myModelView.RotateAboutCenter 0.007450417360292, -0.02544780934441
1302
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.1162767529685, 0.001775519733542, 0.04399544468011, False, 0, Nothing, 0)
1303
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.1162767529685, 0.001775519733542, 0.04399544468011, False, 0, Nothing, 0)
1304
Part.FeatEdit
1305
Part.ClearSelection2 True
1306
boolstatus = Part.Extension.SelectByID2("D1@Sketch4@CHARGING, PLATE, Base.SLDPRT", "DIMENSION", 0.1246877807464, -0.05941451047012, 0.03412211010252, False, 0, Nothing, 0)
1307
Set myDimension = Part.Parameter("D1@Sketch4")
1308
myDimension.SystemValue = 0.022225
1309
Part.ClearSelection2 True
1310
Part.SketchManager.InsertSketch True
1311
Part.ShowNamedView2 "*Trimetric", 8
1312
boolstatus = Part.Extension.SelectByID2("Cut-Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
1313
Part.ClearSelection2 True
1314
Set Part = Nothing
1315
swApp.CloseDoc "CHARGING, PLATE, Base"
1316
Set Part = swApp.ActiveDoc
1317
Set myModelView = Part.ActiveView
1318
myModelView.FrameLeft = 0
1319
myModelView.FrameTop = 0
1320
Set myModelView = Part.ActiveView
1321
myModelView.FrameState = swWindowState_e.swWindowMaximized
1322
Set myModelView = Part.ActiveView
1323
myModelView.FrameState = swWindowState_e.swWindowMaximized
1324
swApp.ActivateDoc2 "STATION, TOP ASSY", False, longstatus
1325
Set Part = swApp.ActiveDoc
1326
Set RouteMgr = Part.GetRouteManager()
1327
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.04924413070131, 0.1305972625544, 0.09083817545451, False, 0, Nothing, 0)
1328
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.04925614393954, 0.1302532504099, 0.09086094132238, False, 0, Nothing, 0)
1329
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.06106885870298, 0.1302941392842, 0.0772634173095, False, 0, Nothing, 0)
1330
Part.OpenCompFile
1331
Set Part = swApp.OpenDoc6("G:\Colony Scout\Storage Station\CHARGING, PLATE, Base.SLDPRT", 1, 0, "", longstatus, longwarnings)
1332
Set Part = swApp.ActiveDoc
1333
Set myModelView = Part.ActiveView
1334
myModelView.FrameLeft = 0
1335
myModelView.FrameTop = 21
1336
Set myModelView = Part.ActiveView
1337
myModelView.FrameState = swWindowState_e.swWindowMaximized
1338
Set myModelView = Part.ActiveView
1339
myModelView.FrameState = swWindowState_e.swWindowMaximized
1340
swApp.ActivateDoc2 "CHARGING, PLATE, Base", False, longstatus
1341
Set Part = swApp.ActiveDoc
1342
Set RouteMgr = Part.GetRouteManager()
1343
Part.ClearSelection2 True
1344
boolstatus = Part.Extension.SelectByID2("Cut-Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
1345
Part.FeatEdit
1346
Part.ClearSelection2 True
1347
boolstatus = Part.Extension.SelectByID2("D1@Sketch4@CHARGING, PLATE, Base.SLDPRT", "DIMENSION", 0.129015702551, -0.02677945162371, -0.01404229137367, False, 0, Nothing, 0)
1348
Set myDimension = Part.Parameter("D1@Sketch4")
1349
myDimension.SystemValue = 0.01651
1350
Part.ClearSelection2 True
1351
Part.SketchManager.InsertSketch True
1352
Part.ShowNamedView2 "*Trimetric", 8
1353
Set Part = Nothing
1354
swApp.CloseDoc "CHARGING, PLATE, Base"
1355
Set Part = swApp.ActiveDoc
1356
Set myModelView = Part.ActiveView
1357
myModelView.FrameLeft = 0
1358
myModelView.FrameTop = 0
1359
Set myModelView = Part.ActiveView
1360
myModelView.FrameState = swWindowState_e.swWindowMaximized
1361
Set myModelView = Part.ActiveView
1362
myModelView.FrameState = swWindowState_e.swWindowMaximized
1363
swApp.ActivateDoc2 "STATION, TOP ASSY", False, longstatus
1364
Set Part = swApp.ActiveDoc
1365
Set RouteMgr = Part.GetRouteManager()
1366
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.06615933824617, 0.2055531515909, -0.04217205654845, False, 0, Nothing, 0)
1367
Part.OpenCompFile
1368
Set Part = swApp.OpenDoc6("G:\Colony Scout\Storage Station\DIAGNOSTIC, Screen Cabinet.SLDPRT", 1, 0, "", longstatus, longwarnings)
1369
Set Part = swApp.ActiveDoc
1370
Set myModelView = Part.ActiveView
1371
myModelView.FrameLeft = 0
1372
myModelView.FrameTop = 21
1373
Set myModelView = Part.ActiveView
1374
myModelView.FrameState = swWindowState_e.swWindowMaximized
1375
Set myModelView = Part.ActiveView
1376
myModelView.FrameState = swWindowState_e.swWindowMaximized
1377
swApp.ActivateDoc2 "DIAGNOSTIC, Screen Cabinet", False, longstatus
1378
Set Part = swApp.ActiveDoc
1379
Set RouteMgr = Part.GetRouteManager()
1380
Part.ClearSelection2 True
1381
Set myModelView = Part.ActiveView
1382
myModelView.RotateAboutCenter 0, -0.01272390467221
1383
Set myModelView = Part.ActiveView
1384
myModelView.RotateAboutCenter 0, -0.01908585700831
1385
Set myModelView = Part.ActiveView
1386
myModelView.RotateAboutCenter 0, -0.01272390467221
1387
Set myModelView = Part.ActiveView
1388
myModelView.RotateAboutCenter 0, -0.01908585700831
1389
Set myModelView = Part.ActiveView
1390
myModelView.RotateAboutCenter 0, -0.006361952336103
1391
Set myModelView = Part.ActiveView
1392
myModelView.RotateAboutCenter 0, -0.006361952336103
1393
Set myModelView = Part.ActiveView
1394
myModelView.RotateAboutCenter 0, -0.01908585700831
1395
Set myModelView = Part.ActiveView
1396
myModelView.RotateAboutCenter 0, -0.01908585700831
1397
Set myModelView = Part.ActiveView
1398
myModelView.RotateAboutCenter 0, -0.03180976168051
1399
Set myModelView = Part.ActiveView
1400
myModelView.RotateAboutCenter 0, -0.1399629513943
1401
Set myModelView = Part.ActiveView
1402
myModelView.RotateAboutCenter 0, -0.08270538036934
1403
Set myModelView = Part.ActiveView
1404
myModelView.RotateAboutCenter 0, -0.08906733270544
1405
Set myModelView = Part.ActiveView
1406
myModelView.RotateAboutCenter 0.003725208680146, -0.1081531897137
1407
Set myModelView = Part.ActiveView
1408
myModelView.RotateAboutCenter 0, -0.1081531897137
1409
Set myModelView = Part.ActiveView
1410
myModelView.RotateAboutCenter 0.007450417360292, -0.1272390467221
1411
Set myModelView = Part.ActiveView
1412
myModelView.RotateAboutCenter 0, -0.1081531897137
1413
Set myModelView = Part.ActiveView
1414
myModelView.RotateAboutCenter 0, -0.1272390467221
1415
Set myModelView = Part.ActiveView
1416
myModelView.RotateAboutCenter 0, -0.120877094386
1417
Set myModelView = Part.ActiveView
1418
myModelView.RotateAboutCenter 0, -0.1081531897137
1419
Set myModelView = Part.ActiveView
1420
myModelView.RotateAboutCenter 0, -0.08906733270544
1421
Set myModelView = Part.ActiveView
1422
myModelView.RotateAboutCenter 0, -0.08270538036934
1423
Set myModelView = Part.ActiveView
1424
myModelView.RotateAboutCenter 0, -0.08906733270544
1425
Set myModelView = Part.ActiveView
1426
myModelView.RotateAboutCenter 0.003725208680146, -0.06998147569713
1427
Set myModelView = Part.ActiveView
1428
myModelView.RotateAboutCenter 0, -0.06998147569713
1429
Set myModelView = Part.ActiveView
1430
myModelView.RotateAboutCenter 0.003725208680146, -0.05089561868882
1431
Set myModelView = Part.ActiveView
1432
myModelView.RotateAboutCenter 0.003725208680146, -0.06361952336103
1433
Set myModelView = Part.ActiveView
1434
myModelView.RotateAboutCenter 0, -0.05725757102493
1435
Set myModelView = Part.ActiveView
1436
myModelView.RotateAboutCenter 0.007450417360292, -0.06998147569713
1437
Set myModelView = Part.ActiveView
1438
myModelView.RotateAboutCenter 0.003725208680146, -0.06361952336103
1439
Set myModelView = Part.ActiveView
1440
myModelView.RotateAboutCenter 0.003725208680146, -0.06361952336103
1441
Set myModelView = Part.ActiveView
1442
myModelView.RotateAboutCenter 0.01117562604044, -0.06998147569713
1443
Set myModelView = Part.ActiveView
1444
myModelView.RotateAboutCenter 0.003725208680146, -0.04453366635272
1445
Set myModelView = Part.ActiveView
1446
myModelView.RotateAboutCenter 0.003725208680146, -0.04453366635272
1447
Set myModelView = Part.ActiveView
1448
myModelView.RotateAboutCenter 0.003725208680146, -0.04453366635272
1449
Set myModelView = Part.ActiveView
1450
myModelView.RotateAboutCenter 0, -0.04453366635272
1451
Set myModelView = Part.ActiveView
1452
myModelView.RotateAboutCenter 0, -0.02544780934441
1453
Set myModelView = Part.ActiveView
1454
myModelView.RotateAboutCenter 0, -0.01908585700831
1455
Set myModelView = Part.ActiveView
1456
myModelView.RotateAboutCenter 0.003725208680146, -0.01908585700831
1457
Set myModelView = Part.ActiveView
1458
myModelView.RotateAboutCenter 0.003725208680146, -0.01272390467221
1459
Set myModelView = Part.ActiveView
1460
myModelView.RotateAboutCenter 0, -0.01272390467221
1461
Set myModelView = Part.ActiveView
1462
myModelView.RotateAboutCenter 0, -0.006361952336103
1463
Set myModelView = Part.ActiveView
1464
myModelView.RotateAboutCenter 0.003725208680146, -0.006361952336103
1465
Set myModelView = Part.ActiveView
1466
myModelView.RotateAboutCenter 0, -0.006361952336103
1467
Set myModelView = Part.ActiveView
1468
myModelView.RotateAboutCenter 0, -0.006361952336103
1469
Set myModelView = Part.ActiveView
1470
myModelView.RotateAboutCenter 0.003725208680146, -0.01908585700831
1471
Set myModelView = Part.ActiveView
1472
myModelView.RotateAboutCenter 0.003725208680146, -0.006361952336103
1473
Set myModelView = Part.ActiveView
1474
myModelView.RotateAboutCenter 0, -0.006361952336103
1475
Set myModelView = Part.ActiveView
1476
myModelView.RotateAboutCenter 0, -0.01272390467221
1477
Set myModelView = Part.ActiveView
1478
myModelView.RotateAboutCenter 0, -0.006361952336103
1479
Set myModelView = Part.ActiveView
1480
myModelView.RotateAboutCenter 0.003725208680146, -0.006361952336103
1481
Set myModelView = Part.ActiveView
1482
myModelView.RotateAboutCenter 0.003725208680146, -0.01908585700831
1483
Set myModelView = Part.ActiveView
1484
myModelView.RotateAboutCenter 0.007450417360292, -0.01272390467221
1485
Set myModelView = Part.ActiveView
1486
myModelView.RotateAboutCenter 0, -0.01908585700831
1487
Set myModelView = Part.ActiveView
1488
myModelView.RotateAboutCenter 0.007450417360292, -0.01908585700831
1489
Set myModelView = Part.ActiveView
1490
myModelView.RotateAboutCenter 0.01117562604044, -0.02544780934441
1491
Set myModelView = Part.ActiveView
1492
myModelView.RotateAboutCenter 0.02607646076102, -0.08270538036934
1493
Set myModelView = Part.ActiveView
1494
myModelView.RotateAboutCenter 0.01490083472058, -0.03817171401662
1495
Set myModelView = Part.ActiveView
1496
myModelView.RotateAboutCenter 0.01862604340073, -0.03817171401662
1497
Set myModelView = Part.ActiveView
1498
myModelView.RotateAboutCenter 0.01490083472058, -0.05089561868882
1499
Set myModelView = Part.ActiveView
1500
myModelView.RotateAboutCenter 0.02235125208088, -0.05089561868882
1501
Set myModelView = Part.ActiveView
1502
myModelView.RotateAboutCenter 0.02607646076102, -0.05725757102493
1503
Set myModelView = Part.ActiveView
1504
myModelView.RotateAboutCenter 0.02607646076102, -0.05089561868882
1505
Set myModelView = Part.ActiveView
1506
myModelView.RotateAboutCenter 0.02607646076102, -0.06361952336103
1507
Set myModelView = Part.ActiveView
1508
myModelView.RotateAboutCenter 0.02980166944117, -0.05725757102493
1509
Set myModelView = Part.ActiveView
1510
myModelView.RotateAboutCenter 0.02980166944117, -0.05089561868882
1511
Set myModelView = Part.ActiveView
1512
myModelView.RotateAboutCenter 0.02607646076102, -0.04453366635272
1513
Set myModelView = Part.ActiveView
1514
myModelView.RotateAboutCenter 0.02607646076102, -0.05089561868882
1515
Set myModelView = Part.ActiveView
1516
myModelView.RotateAboutCenter 0.04097729548161, -0.08906733270544
1517
Set myModelView = Part.ActiveView
1518
myModelView.RotateAboutCenter 0.01862604340073, -0.02544780934441
1519
Set myModelView = Part.ActiveView
1520
myModelView.RotateAboutCenter 0.007450417360292, -0.01272390467221
1521
Set myModelView = Part.ActiveView
1522
myModelView.RotateAboutCenter 0.007450417360292, -0.01908585700831
1523
Set myModelView = Part.ActiveView
1524
myModelView.RotateAboutCenter 0.007450417360292, -0.006361952336103
1525
Set myModelView = Part.ActiveView
1526
myModelView.RotateAboutCenter 0.003725208680146, -0.006361952336103
1527
Set myModelView = Part.ActiveView
1528
myModelView.RotateAboutCenter 0.007450417360292, -0.006361952336103
1529
Set myModelView = Part.ActiveView
1530
myModelView.RotateAboutCenter 0.003725208680146, 0
1531
Set myModelView = Part.ActiveView
1532
myModelView.RotateAboutCenter 0.003725208680146, -0.006361952336103
1533
Set myModelView = Part.ActiveView
1534
myModelView.RotateAboutCenter 0.007450417360292, 0
1535
Set myModelView = Part.ActiveView
1536
myModelView.RotateAboutCenter 0.007450417360292, 0
1537
Set myModelView = Part.ActiveView
1538
myModelView.RotateAboutCenter 0, -0.006361952336103
1539
Set myModelView = Part.ActiveView
1540
myModelView.RotateAboutCenter -0.007450417360292, 0.04453366635272
1541
Set myModelView = Part.ActiveView
1542
myModelView.RotateAboutCenter -0.01117562604044, 0.06361952336103
1543
Set myModelView = Part.ActiveView
1544
myModelView.RotateAboutCenter -0.01862604340073, 0.06998147569713
1545
Set myModelView = Part.ActiveView
1546
myModelView.RotateAboutCenter -0.01490083472058, 0.08270538036934
1547
Set myModelView = Part.ActiveView
1548
myModelView.RotateAboutCenter -0.02980166944117, 0.1017912373776
1549
Set myModelView = Part.ActiveView
1550
myModelView.RotateAboutCenter -0.02235125208088, 0.09542928504154
1551
Set myModelView = Part.ActiveView
1552
myModelView.RotateAboutCenter -0.07822938228307, 0.3753551878301
1553
Set myModelView = Part.ActiveView
1554
myModelView.RotateAboutCenter -0.02980166944117, 0.1272390467221
1555
Set myModelView = Part.ActiveView
1556
myModelView.RotateAboutCenter -0.01490083472058, 0.1399629513943
1557
Set myModelView = Part.ActiveView
1558
myModelView.RotateAboutCenter -0.01862604340073, 0.120877094386
1559
Set myModelView = Part.ActiveView
1560
myModelView.RotateAboutCenter -0.01490083472058, 0.1081531897137
1561
Set myModelView = Part.ActiveView
1562
myModelView.RotateAboutCenter -0.01490083472058, 0.1017912373776
1563
Set myModelView = Part.ActiveView
1564
myModelView.RotateAboutCenter -0.003725208680146, 0.09542928504154
1565
Set myModelView = Part.ActiveView
1566
myModelView.RotateAboutCenter -0.003725208680146, 0.08906733270544
1567
Set myModelView = Part.ActiveView
1568
myModelView.RotateAboutCenter 0, 0.07634342803323
1569
Set myModelView = Part.ActiveView
1570
myModelView.RotateAboutCenter 0, 0.07634342803323
1571
Set myModelView = Part.ActiveView
1572
myModelView.RotateAboutCenter 0, 0.06998147569713
1573
Set myModelView = Part.ActiveView
1574
myModelView.RotateAboutCenter 0, 0.06998147569713
1575
Set myModelView = Part.ActiveView
1576
myModelView.RotateAboutCenter 0.003725208680146, 0.1336009990582
1577
Set myModelView = Part.ActiveView
1578
myModelView.RotateAboutCenter 0.003725208680146, 0.05725757102493
1579
Set myModelView = Part.ActiveView
1580
myModelView.RotateAboutCenter 0.003725208680146, 0.04453366635272
1581
Set myModelView = Part.ActiveView
1582
myModelView.RotateAboutCenter 0.007450417360292, 0.02544780934441
1583
Set myModelView = Part.ActiveView
1584
myModelView.RotateAboutCenter 0.003725208680146, 0.03180976168051
1585
Set myModelView = Part.ActiveView
1586
myModelView.RotateAboutCenter 0.003725208680146, 0.03817171401662
1587
Set myModelView = Part.ActiveView
1588
myModelView.RotateAboutCenter 0.003725208680146, 0.03180976168051
1589
Set myModelView = Part.ActiveView
1590
myModelView.RotateAboutCenter 0.003725208680146, 0.03817171401662
1591
Set myModelView = Part.ActiveView
1592
myModelView.RotateAboutCenter 0.007450417360292, 0.04453366635272
1593
Set myModelView = Part.ActiveView
1594
myModelView.RotateAboutCenter 0.007450417360292, 0.04453366635272
1595
Set myModelView = Part.ActiveView
1596
myModelView.RotateAboutCenter 0.003725208680146, 0.05089561868882
1597
Set myModelView = Part.ActiveView
1598
myModelView.RotateAboutCenter 0.007450417360292, 0.05089561868882
1599
Set myModelView = Part.ActiveView
1600
myModelView.RotateAboutCenter 0.01862604340073, 0.1145151420499
1601
Set myModelView = Part.ActiveView
1602
myModelView.RotateAboutCenter 0.003725208680146, 0.04453366635272
1603
Set myModelView = Part.ActiveView
1604
myModelView.RotateAboutCenter 0.01117562604044, 0.05725757102493
1605
Set myModelView = Part.ActiveView
1606
myModelView.RotateAboutCenter 0.007450417360292, 0.04453366635272
1607
Set myModelView = Part.ActiveView
1608
myModelView.RotateAboutCenter 0.007450417360292, 0.04453366635272
1609
Set myModelView = Part.ActiveView
1610
myModelView.RotateAboutCenter 0, 0.05089561868882
1611
Set myModelView = Part.ActiveView
1612
myModelView.RotateAboutCenter 0.007450417360292, 0.04453366635272
1613
Set myModelView = Part.ActiveView
1614
myModelView.RotateAboutCenter 0.007450417360292, 0.05725757102493
1615
Set myModelView = Part.ActiveView
1616
myModelView.RotateAboutCenter 0.003725208680146, 0.05089561868882
1617
Set myModelView = Part.ActiveView
1618
myModelView.RotateAboutCenter 0.003725208680146, 0.06361952336103
1619
Set myModelView = Part.ActiveView
1620
myModelView.RotateAboutCenter 0.003725208680146, 0.05089561868882
1621
Set myModelView = Part.ActiveView
1622
myModelView.RotateAboutCenter 0, 0.06361952336103
1623
Set myModelView = Part.ActiveView
1624
myModelView.RotateAboutCenter 0.003725208680146, 0.1590488084026
1625
Set myModelView = Part.ActiveView
1626
myModelView.RotateAboutCenter 0, 0.05725757102493
1627
Set myModelView = Part.ActiveView
1628
myModelView.RotateAboutCenter 0, 0.06998147569713
1629
Set myModelView = Part.ActiveView
1630
myModelView.RotateAboutCenter 0, 0.06998147569713
1631
Set myModelView = Part.ActiveView
1632
myModelView.RotateAboutCenter 0, 0.06361952336103
1633
Set myModelView = Part.ActiveView
1634
myModelView.RotateAboutCenter 0, 0.05725757102493
1635
Set myModelView = Part.ActiveView
1636
myModelView.RotateAboutCenter 0, 0.04453366635272
1637
Set myModelView = Part.ActiveView
1638
myModelView.RotateAboutCenter 0, 0.05089561868882
1639
Set myModelView = Part.ActiveView
1640
myModelView.RotateAboutCenter 0, 0.06361952336103
1641
Set myModelView = Part.ActiveView
1642
myModelView.RotateAboutCenter 0, 0.02544780934441
1643
Set myModelView = Part.ActiveView
1644
myModelView.RotateAboutCenter 0, 0.01908585700831
1645
Set myModelView = Part.ActiveView
1646
myModelView.RotateAboutCenter 0, 0.03817171401662
1647
Set myModelView = Part.ActiveView
1648
myModelView.RotateAboutCenter 0, 0.006361952336103
1649
Set myModelView = Part.ActiveView
1650
myModelView.RotateAboutCenter 0, 0.006361952336103
1651
Set myModelView = Part.ActiveView
1652
myModelView.RotateAboutCenter -0.02235125208088, 0.03817171401662
1653
Set myModelView = Part.ActiveView
1654
myModelView.RotateAboutCenter -0.04097729548161, 0.04453366635272
1655
Set myModelView = Part.ActiveView
1656
myModelView.RotateAboutCenter -0.01862604340073, 0.02544780934441
1657
Set myModelView = Part.ActiveView
1658
myModelView.RotateAboutCenter -0.01490083472058, 0.01908585700831
1659
Set myModelView = Part.ActiveView
1660
myModelView.RotateAboutCenter -0.01862604340073, 0.01908585700831
1661
Set myModelView = Part.ActiveView
1662
myModelView.RotateAboutCenter -0.007450417360292, 0.01272390467221
1663
Set myModelView = Part.ActiveView
1664
myModelView.RotateAboutCenter -0.01490083472058, 0.006361952336103
1665
Set myModelView = Part.ActiveView
1666
myModelView.RotateAboutCenter -0.01117562604044, 0.006361952336103
1667
Set myModelView = Part.ActiveView
1668
myModelView.RotateAboutCenter -0.003725208680146, 0.006361952336103
1669
Set myModelView = Part.ActiveView
1670
myModelView.RotateAboutCenter -0.007450417360292, 0.006361952336103
1671
Set myModelView = Part.ActiveView
1672
myModelView.RotateAboutCenter -0.003725208680146, 0
1673
Set myModelView = Part.ActiveView
1674
myModelView.RotateAboutCenter -0.01117562604044, 0.006361952336103
1675
Set myModelView = Part.ActiveView
1676
myModelView.RotateAboutCenter -0.003725208680146, 0
1677
Set myModelView = Part.ActiveView
1678
myModelView.RotateAboutCenter -0.003725208680146, 0
1679
Set myModelView = Part.ActiveView
1680
myModelView.RotateAboutCenter -0.003725208680146, 0
1681
Set myModelView = Part.ActiveView
1682
myModelView.RotateAboutCenter -0.003725208680146, 0
1683
Set myModelView = Part.ActiveView
1684
myModelView.RotateAboutCenter -0.003725208680146, 0
1685
Part.ShowNamedView2 "*Trimetric", 8
1686
Set myModelView = Part.ActiveView
1687
myModelView.FrameState = swWindowState_e.swWindowMaximized
1688
Set myModelView = Part.ActiveView
1689
myModelView.FrameState = swWindowState_e.swWindowMaximized
1690
swApp.ExitApp
1691
End Sub