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 |