' ******************************************************************************
' swxJRNL.swj - journal recorded on 10/31/02 by craig
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc4 ("C:\soliddata\oasis3\oasis3 can\oasis3 spline\oasis3 spline.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("oasis3 spline.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "spline base end plate-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SelectByID "spline base end plate-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
Part.ClearSelection
Part.SelectByID "old oasis can rails-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.AndSelectByID "old oasis can rails-2@oasis3 spline", "COMPONENT", 0, 0, 0
Part.AndSelectByID "old oasis can rails-3@oasis3 spline", "COMPONENT", 0, 0, 0
Part.AndSelectByID "old oasis can rails-4@oasis3 spline", "COMPONENT", 0, 0, 0
Part.AndSelectByID "spline end plate-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.SelectByID "old oasis can rails-2@oasis3 spline", "COMPONENT", 0, 0, 0
Part.SelectByID "old oasis can rails-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.SelectByID "old oasis can rails-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "old oasis can rails-4@oasis3 spline", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.AndSelectByID "old oasis can rails-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.AndSelectByID "old oasis can rails-2@oasis3 spline", "COMPONENT", 0, 0, 0
Part.AndSelectByID "old oasis can rails-3@oasis3 spline", "COMPONENT", 0, 0, 0
Part.AndSelectByID "old oasis can rails-4@oasis3 spline", "COMPONENT", 0, 0, 0
Part.SelectByID "old oasis can rails-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.SelectByID "old oasis can rails-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
Part.ClearSelection
Part.SelectByID "old oasis can rails-2@oasis3 spline", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
Part.ClearSelection
Part.SelectByID "old oasis can rails-3@oasis3 spline", "COMPONENT", 0, 0, 0
Part.SelectByID "old oasis can rails-3@oasis3 spline", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
Part.ClearSelection
Part.SelectByID "spline end plate-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
Part.ClearSelection
' MSGBOX
' The internal ID of document C:\soliddata\oasis3\oasis3 can\oasis3 spline\oasis3 spline rails.SLDPRT, which is already open, does not match the internal ID saved with the referencing document.  Select YES to accept this document anyway.

Part.SelectByID "old oasis can rails-4@oasis3 spline", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
Part.ClearSelection
Part.SelectByID "spline end plate-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "conncetor board-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
Part.Save2 FALSE
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0191923, -0.03279
Part.ActiveView().RotateAboutCenter 0.0335865, -0.059022
Part.ActiveView().RotateAboutCenter 0.0479807, -0.072138
Part.ActiveView().RotateAboutCenter 0.0239903, -0.03279
Part.ActiveView().RotateAboutCenter 0.0287884, 0
Part.ActiveView().RotateAboutCenter 0.067173, -0.013116
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.0143942, -0.006558
Part.ActiveView().RotateAboutCenter -0.067173, -0.013116
Part.ActiveView().RotateAboutCenter -0.067173, -0.039348
Part.ActiveView().RotateAboutCenter -0.0431826, -0.019674
Part.ActiveView().RotateAboutCenter -0.0623749, 0.045906
Part.ActiveView().RotateAboutCenter -0.0383846, 0.0983699
Part.ActiveView().RotateAboutCenter -0.0143942, 0.118044
Part.ActiveView().RotateAboutCenter 0, 0.170508
Part.ActiveView().RotateAboutCenter 0.0143942, 0.104928
Part.ActiveView().RotateAboutCenter 0.196721, 0.078696
Part.ActiveView().RotateAboutCenter 0.29748, 0.013116
Part.ActiveView().RotateAboutCenter 0.230307, -0.026232
Part.ActiveView().RotateAboutCenter 0.0575768, -0.013116
Part.ActiveView().RotateAboutCenter 0.0191923, 0
Part.ActiveView().RotateAboutCenter 0.0383846, 0
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter 0.0479807, -0.019674
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.SetPickMode
Part.SetPickMode
Part.SelectByID "conncetor board-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.SelectByID "conncetor board-1@oasis3 spline", "COMPONENT", 0, 0, 0
Part.SelectByID "Sketch1@conncetor board-1@oasis3 spline", "SKETCH", 0, 0, 0
Part.EditSketch
Part.ClearSelection
Part.SelectByID "D2@Sketch1@conncetor board-1@oasis3 spline", "DIMENSION", -0.08910726948643, 0.02622847472583, 0.04856243093601
Part.SelectByID "D2@Sketch1@conncetor board-1@oasis3 spline", "DIMENSION", -0.1673011209487, -0.0313401177234, 0.04209765799705
Part.Parameter("D2@Sketch1@conncetor board.Part").SystemValue = 0.06985
Part.ClearSelection
Part.EditRebuild
Part.SelectByID "oasis3 spline.SLDASM", "COMPONENT", 0, 0, 0
Part.EditAssembly
Part.ClearSelection
Part.SetPickMode
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.Save2 FALSE
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Set Part = Nothing
swApp.CloseDoc "oasis3 spline.SLDASM"
Set Part = swApp.OpenDoc4 ("C:\soliddata\oasis3\oasis3 can\oasis2 top.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("oasis2 top.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter -0.00479807, -0.006558
Part.ActiveView().RotateAboutCenter -0.177529, 0
Part.ActiveView().RotateAboutCenter -0.451018, 0.03279
Part.ActiveView().RotateAboutCenter -0.316673, 0.019674
Part.ActiveView().RotateAboutCenter -0.307076, 0.006558
Part.ActiveView().RotateAboutCenter -0.470211, 0.006558
Part.ActiveView().RotateAboutCenter -0.383846, 0.019674
Part.ActiveView().RotateAboutCenter -0.0911633, 0
Part.ActiveView().RotateAboutCenter 0.0239903, 0.006558
Part.ActiveView().RotateAboutCenter 0.0527788, 0.026232
Part.ActiveView().RotateAboutCenter 0.0287884, 0.039348
Part.ActiveView().RotateAboutCenter 0.0143942, 0.013116
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00959614, 0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0.006558
Part.ActiveView().RotateAboutCenter 0.0431826, 0.03279
Part.ActiveView().RotateAboutCenter 0.0383846, 0.03279
Part.ActiveView().RotateAboutCenter 0.00479807, 0.006558
Part.ActiveView().RotateAboutCenter 0.00959614, 0.013116
Part.ActiveView().RotateAboutCenter 0.0143942, 0.026232
Part.ActiveView().RotateAboutCenter 0.0143942, 0.039348
Part.ActiveView().RotateAboutCenter 0.0239903, 0.052464
Part.ActiveView().RotateAboutCenter 0.00479807, 0.026232
Part.ActiveView().RotateAboutCenter 0.00479807, 0.026232
Part.ActiveView().RotateAboutCenter 0, 0.045906
Part.ActiveView().RotateAboutCenter 0.00959614, 0.019674
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00959614, 0.006558
Part.ActiveView().RotateAboutCenter 0.0287884, 0
Part.ActiveView().RotateAboutCenter 0.0143942, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0.006558
Part.ActiveView().RotateAboutCenter 0.0287884, 0.059022
Part.ActiveView().RotateAboutCenter 0.0143942, 0.052464
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.00959614, 0.006558
Part.ActiveView().RotateAboutCenter -0.0191923, 0
Part.ActiveView().RotateAboutCenter -0.0143942, 0
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter -0.0527788, -0.111486
Part.ActiveView().RotateAboutCenter -0.14874, -0.144276
Part.ActiveView().RotateAboutCenter -0.0527788, -0.039348
Part.ActiveView().RotateAboutCenter -0.00959614, 0
Part.ActiveView().RotateAboutCenter -0.00959614, -0.006558
Part.ActiveView().RotateAboutCenter -0.0767691, -0.059022
Part.ActiveView().RotateAboutCenter -0.0863652, -0.06558
Part.ActiveView().RotateAboutCenter -0.0239903, -0.019674
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0143942, -0.013116
Part.ActiveView().RotateAboutCenter 0.0335865, -0.026232
Part.ActiveView().RotateAboutCenter 0.00479807, -0.006558
Part.ActiveView().RotateAboutCenter 0, -0.013116
Part.ActiveView().RotateAboutCenter -0.0143942, -0.026232
Part.ActiveView().RotateAboutCenter -0.00959614, -0.013116
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter 0.00959614, -0.006558
Part.ActiveView().RotateAboutCenter 0.00959614, -0.006558
Part.ActiveView().RotateAboutCenter 0.0383846, -0.006558
Part.ActiveView().RotateAboutCenter 0.0287884, 0
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.00959614, 0
Part.ActiveView().RotateAboutCenter -0.00959614, 0
Part.ActiveView().RotateAboutCenter -0.00959614, 0.006558
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.SetPickMode
Part.SetPickMode
Part.SelectByID "", "FACE", 0.06440694244747, 0.05815606412921, -0.0124459999999
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.ViewDisplayShaded
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0479807, 0.026232
Part.ActiveView().RotateAboutCenter 0.0815672, 0.072138
Part.ActiveView().RotateAboutCenter 0.00959614, 0.006558
Part.ActiveView().RotateAboutCenter 0.0287884, 0
Part.ActiveView().RotateAboutCenter 0.0767691, -0.006558
Part.ActiveView().RotateAboutCenter 0.0863652, -0.013116
Part.ActiveView().RotateAboutCenter 0.0431826, -0.013116
Part.ActiveView().RotateAboutCenter 0.0335865, -0.013116
Part.ActiveView().RotateAboutCenter 0.0431826, -0.019674
Part.ActiveView().RotateAboutCenter 0.0575768, -0.052464
Part.ActiveView().RotateAboutCenter 0.071971, -0.052464
Part.ActiveView().RotateAboutCenter 0.182327, -0.045906
Part.ActiveView().RotateAboutCenter 0.278288, -0.045906
Part.ActiveView().RotateAboutCenter 0.0479807, 0
Part.ActiveView().RotateAboutCenter 0.0239903, 0.006558
Part.ActiveView().RotateAboutCenter 0.071971, 0.026232
Part.ActiveView().RotateAboutCenter 0.0623749, 0.006558
Part.ActiveView().RotateAboutCenter 0.0863652, 0
Part.ActiveView().RotateAboutCenter 0.0527788, -0.019674
Part.ActiveView().RotateAboutCenter 0.00959614, -0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0335865, 0
Part.ActiveView().RotateAboutCenter 0.0383846, 0.019674
Part.ActiveView().RotateAboutCenter 0.268692, 0.091812
Part.ActiveView().RotateAboutCenter 0.129548, 0.039348
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0143942, 0
Part.ActiveView().RotateAboutCenter 0.0287884, 0
Part.ActiveView().RotateAboutCenter 0.0911633, 0
Part.ActiveView().RotateAboutCenter 0.12475, 0
Part.ActiveView().RotateAboutCenter 0.0527788, 0.091812
Part.ActiveView().RotateAboutCenter 0.0479807, 0.06558
Part.ActiveView().RotateAboutCenter 0.259096, 0.137718
Part.ActiveView().RotateAboutCenter 0.143942, 0.078696
Part.ActiveView().RotateAboutCenter 0.0335865, 0.013116
Part.ActiveView().RotateAboutCenter 0.00479807, -0.006558
Part.ActiveView().RotateAboutCenter 0.0479807, -0.026232
Part.ActiveView().RotateAboutCenter 0.0239903, -0.039348
Part.ActiveView().RotateAboutCenter -0.0143942, -0.3279
Part.ActiveView().RotateAboutCenter -0.0815672, -0.275436
Part.ActiveView().RotateAboutCenter -0.0287884, -0.019674
Part.ActiveView().RotateAboutCenter 0.00959614, 0.006558
Part.ActiveView().RotateAboutCenter 0.191923, 0.341016
Part.ActiveView().RotateAboutCenter 0.100759, 0.616452
Part.ActiveView().RotateAboutCenter 0, 0.013116
Part.ActiveView().RotateAboutCenter -0.0143942, 0
Part.ActiveView().RotateAboutCenter -0.0335865, -0.06558
Part.ActiveView().RotateAboutCenter -0.00959614, -0.03279
Part.ActiveView().RotateAboutCenter -0.0143942, -0.019674
Part.ActiveView().RotateAboutCenter -0.0239903, -0.045906
Part.ActiveView().RotateAboutCenter -0.0575768, -0.0983699
Part.ActiveView().RotateAboutCenter -0.071971, -0.085254
Part.ActiveView().RotateAboutCenter -0.067173, -0.072138
Part.ActiveView().RotateAboutCenter -0.0287884, -0.026232
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter -0.00479807, 0.006558
Part.ActiveView().RotateAboutCenter -0.0479807, 0
Part.ActiveView().RotateAboutCenter -0.0431826, -0.026232
Part.ActiveView().RotateAboutCenter -0.0815672, -0.085254
Part.ActiveView().RotateAboutCenter -0.0287884, -0.039348
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter -0.00479807, -0.052464
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter 0.0239903, 0.006558
Part.ActiveView().RotateAboutCenter 0.14874, 0.039348
Part.ActiveView().RotateAboutCenter 0.0767691, 0.013116
Part.ActiveView().RotateAboutCenter 0.0239903, 0.006558
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0287884, 0
Part.ActiveView().RotateAboutCenter 0.0623749, 0
Part.ActiveView().RotateAboutCenter 0.0431826, 0
Part.ActiveView().RotateAboutCenter 0.0239903, 0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.0191923, 0.006558
Part.ActiveView().RotateAboutCenter -0.0143942, 0.006558
Part.ActiveView().RotateAboutCenter -0.0383846, 0.039348
Part.ActiveView().RotateAboutCenter -0.0479807, 0.013116
Part.ActiveView().RotateAboutCenter -0.00959614, 0
Part.ActiveView().RotateAboutCenter -0.0383846, 0.006558
Part.ActiveView().RotateAboutCenter -0.201519, 0
Part.ActiveView().RotateAboutCenter -0.393442, -0.026232
Part.ActiveView().RotateAboutCenter -0.259096, -0.026232
Part.ActiveView().RotateAboutCenter -0.230307, -0.013116
Part.ActiveView().RotateAboutCenter -0.220711, 0
Part.ActiveView().RotateAboutCenter -0.287884, 0.013116
Part.ActiveView().RotateAboutCenter -0.393442, 0.03279
Part.ActiveView().RotateAboutCenter -0.191923, 0.03279
Part.ActiveView().RotateAboutCenter -0.0479807, 0
Part.ActiveView().RotateAboutCenter -0.0191923, 0.006558
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter -0.00479807, 0.006558
Part.ActiveView().RotateAboutCenter -0.071971, 0.03279
Part.ActiveView().RotateAboutCenter -0.335865, 0.078696
Part.ActiveView().RotateAboutCenter -0.191923, 0.039348
Part.ActiveView().RotateAboutCenter -0.00959614, 0.006558
Part.ActiveView().RotateAboutCenter 0.0383846, -0.013116
Part.ActiveView().RotateAboutCenter 0.0191923, 0
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter 0.0239903, 0
Part.ActiveView().RotateAboutCenter 0.0383846, 0.013116
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.0191923, 0
Part.ActiveView().RotateAboutCenter -0.0479807, -0.039348
Part.ActiveView().RotateAboutCenter -0.0623749, -0.026232
Part.ActiveView().RotateAboutCenter -0.071971, -0.013116
Part.ActiveView().RotateAboutCenter -0.0287884, 0
Part.ActiveView().RotateAboutCenter -0.00959614, -0.006558
Part.ActiveView().RotateAboutCenter -0.0287884, 0.006558
Part.ActiveView().RotateAboutCenter -0.0863652, 0.006558
Part.ActiveView().RotateAboutCenter -0.067173, 0.013116
Part.ActiveView().RotateAboutCenter -0.071971, 0.072138
Part.ActiveView().RotateAboutCenter -0.0623749, 0.118044
Part.ActiveView().RotateAboutCenter -0.00479807, 0.006558
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter 0.0287884, 0.072138
Part.ActiveView().RotateAboutCenter 0.268692, 0.334458
Part.ActiveView().RotateAboutCenter 0.239903, 0.059022
Part.ActiveView().RotateAboutCenter 0.0815672, -0.006558
Part.ActiveView().RotateAboutCenter 0.0239903, -0.045906
Part.ActiveView().RotateAboutCenter 0.00479807, -0.104928
Part.ActiveView().RotateAboutCenter -0.00959614, -0.026232
Part.ActiveView().RotateAboutCenter -0.0143942, -0.019674
Part.ActiveView().RotateAboutCenter -0.0479807, -0.059022
Part.ActiveView().RotateAboutCenter -0.0239903, -0.03279
Part.ActiveView().RotateAboutCenter -0.00959614, -0.013116
Part.ActiveView().RotateAboutCenter -0.0143942, 0
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.SetPickMode
Part.SelectByID "", "FACE", 0.01088280809438, 0.01959212464104, -0.01244600000012
swApp.LoadFile2 "C:\Program Files\SolidWorks\data\Templates\Part.prtdot", ""
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\Templates\Part.prtdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Part1")
Part.SelectByID "Top", "PLANE", 0, 0, 0
Part.InsertSketch
Part.CreateCircle 0, 0, 0, 0.014700944334, 0.01867127236581, 0
Part.ClearSelection
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.01475582979154, 0.01862792697088, 0
Part.AddDimension 0.032943, 0, -0.0401325
Part.ClearSelection
Part.Parameter("D1@Sketch1").SystemValue = 0.022352
Part.ClearSelection
Part.ViewZoomTo2 -0.0402398, 0.0394887, -2.75748e-016, 0.0509704, -0.0416348, 2.90734e-016
Part.CreateLine2( -0.0194313754649, 0, 0, 0.02701704652799, 0, 0 ).ConstructionGeometry = TRUE
Part.CreateCircle 0.01629197686644, 0, 0, 0.01822732778281, -0.004137367247805, 0
Part.CreateCircle -0.01789922265611, 0, 0, -0.01717346606247, -0.003572889897197, 0
Part.CreateCircle -0.01789922265611, 0, 0, -0.0173347453055, -0.001314980494765, 0
Part.CreateCircle 0.01629197686644, 0, 0, 0.01693709383856, -0.001556899359311, 0
Part.ClearSelection
Part.SelectByID "Arc5", "SKETCHSEGMENT", 0.0170230444513, 0.001518437258864, 0
Part.AddDimension 0.0239527, 0, -0.00884561
Part.ClearSelection
Part.Parameter("D2@Sketch1").SystemValue = 0.0034798
Part.SelectByID "Arc4", "SKETCHSEGMENT", -0.01672268403396, 0.000814595145796, 0
Part.AddDimension -0.0213667, 0, 0.0106692
Part.ClearSelection
Part.SelectByID "D2@Sketch1@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.Parameter("D3@Sketch1").SystemValue = 0.0034798
Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.01987877624715, 0.002828119713729, 0
Part.AddDimension 0.0271783, 0, -0.00247508
Part.ClearSelection
Part.SelectByID "D3@Sketch1@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.Parameter("D4@Sketch1").SystemValue = 0.008128
Part.SelectByID "Arc3", "SKETCHSEGMENT", -0.01508664310192, 0.002319840749284, 0
Part.AddDimension -0.0298339, 0, -0.00457171
Part.ClearSelection
Part.SelectByID "D4@Sketch1@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.Parameter("D5@Sketch1").SystemValue = 0.008128
Part.SelectByID "Arc4", "SKETCHSEGMENT", -0.01771412502573, 0.001730026264895, 0
Part.AddDimension 0.0152437, 0, -0.000539731
Part.ClearSelection
Part.SelectByID "D5@Sketch1@Part1.SLDPRT", "DIMENSION", 0, 0, 0
' MSGBOX
' This dimension is over defined.  Its value cannot be changed.

' MSGBOX
' The sketch is no longer over defined.

Part.SelectByID "Arc4", "SKETCHSEGMENT", -0.01633670790624, -0.0007653755068267, 0
Part.AndSelectByID "Arc5", "SKETCHSEGMENT", 0.01583356322692, -0.001678424542571, 0
Part.AddDimension -0.00120682, 0, -0.0258606
Part.ClearSelection
Part.Parameter("D6@Sketch1").SystemValue = 0.028575
Part.SelectByID "Point2", "SKETCHPOINT", 0, 0, 0
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0.01101749354911, -0.001875583081426, 0
Part.SelectByID "Arc5", "SKETCHSEGMENT", 0.009686008144102, -0.001430946868739, 0
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Point2", "SKETCHPOINT", 0, 0, 0
Part.AndSelectByID "Arc5", "SKETCHSEGMENT", 0.01005642957662, -0.001625933686586, 0
Part.AddDimension 0.00363156, 0, -0.0213448
Part.ClearSelection
Part.Parameter("D7@Sketch1").SystemValue = 0.0142875
Part.CreateLine2 -0.01290796161153, 0.003822691438597, 0, -0.003635972999041, 0.01056800247683, 0
Part.CreateLine2 -0.0154247053491, -0.003901648368827, 0, -0.003635972999041, -0.01056800247683, 0
Part.CreateLine2 0.003635972999041, -0.01056800247683, 0, 0.0142875, -0.004064, 0
Part.CreateLine2 0.0142875, 0.004064, 0, 0.003635972999041, 0.01056800247683, 0
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Arc3", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, -0.01031909823366, -0.0006698635226415
Part.SetPickMode
Part.SelectByID "Arc3", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, -0.01023845861214, 0.0007816496646364
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, -0.01120613407033, 0.001346127015245
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, -0.01120613407033, 0.002878279824038
Part.SetPickMode
Part.SelectByID "Arc3", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, -0.01128677369184, 0.003039559067069
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, -0.01128677369184, -0.0005085842796106
Part.SetPickMode
Part.SelectByID "Arc3", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, -0.01144805293488, -0.002605214439012
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, -0.01056101709821, -0.00316969178962
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, 0.01000208638823, -0.004621204976898
Part.SetPickMode
Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01137295995399, -0.002766493682043
Part.SetPickMode
Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01032464487429, -0.00123434087325
Part.SetPickMode
Part.SelectByID "Arc6", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, 0.0108891222249, -0.001556899359311
Part.SetPickMode
Part.SelectByID "Arc6", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, 0.01096976184642, 0.001184847772214
Part.SetPickMode
Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01040528449581, 0.001829964744337
Part.SetPickMode
Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01064720336035, 0.002717000581007
Part.SetPickMode
Part.SelectByID "Arc6", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, 0.01064720336035, 0.0032008383101
Part.SetPickMode
Part.AndSelectByID "Arc3", "SKETCHSEGMENT", -0.01792911708916, 0.001804084525724, 0
Part.AndSelectByID "Line2", "SKETCHSEGMENT", -0.01129970617095, 0.004992686746936, 0
Part.SketchAddConstraints "sgTANGENT"
Part.DeSelectByID "Arc3", "SKETCHSEGMENT", -0.01745783287991, -0.002542653226568, 0
Part.AndSelectByID "Line3", "SKETCHSEGMENT", -0.01031495022815, -0.006791139454889, 0
Part.SetPickMode
Part.ClearSelection
Part.AndSelectByID "Arc3", "SKETCHSEGMENT", -0.01757028978174, -0.002395701828046, 0
Part.AndSelectByID "Line3", "SKETCHSEGMENT", -0.01296922345468, -0.005290187130074, 0
Part.SketchAddConstraints "sgTANGENT"
Part.DeSelectByID "Arc3", "SKETCHSEGMENT", -0.01757028978174, -0.002395701828046, 0
Part.DeSelectByID "Line3", "SKETCHSEGMENT", -0.01296922345468, -0.005290187130074, 0
Part.AndSelectByID "Line3", "SKETCHSEGMENT", -0.009222509647568, -0.007436752957074, 0
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0.0003189511721415, -0.01117144780903, 0
Part.SketchAddConstraints "sgTANGENT"
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Line2", "SKETCHSEGMENT", -0.005399696302517, 0.008226639761622, 0
Part.AndSelectByID "Arc6", "SKETCHSEGMENT", -0.005977368556113, 0.00944320078916, 0
Part.SketchAddConstraints "sgTANGENT"
Part.ClearSelection
Part.AndSelectByID "Arc6", "SKETCHSEGMENT", 0.001675804517014, 0.01104964502691, 0
Part.AndSelectByID "Line5", "SKETCHSEGMENT", 0.01083306354786, 0.006173337303347, 0
Part.SketchAddConstraints "sgTANGENT"
Part.DeSelectByID "Line5", "SKETCHSEGMENT", 0.009574792449175, 0.007114959802673, 0
Part.DeSelectByID "Arc6", "SKETCHSEGMENT", 0.002245350302625, 0.01094812212293, 0
Part.AndSelectByID "Line5", "SKETCHSEGMENT", 0.01190160728778, 0.005608603114019, 0
Part.AndSelectByID "Arc2", "SKETCHSEGMENT", 0.0167430486003, 0.003238267603451, 0
Part.SketchAddConstraints "sgTANGENT"
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Line4", "SKETCHSEGMENT", 0.01072943945248, -0.006236611928009, 0
Part.AndSelectByID "Arc2", "SKETCHSEGMENT", 0.01784207738083, -0.001970044579115, 0
Part.SketchAddConstraints "sgTANGENT"
Part.ClearSelection
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0009687883182798, -0.01113393125515, 0
Part.AndSelectByID "Line4", "SKETCHSEGMENT", 0.01104542214114, -0.006450797634594, 0
Part.SketchAddConstraints "sgTANGENT"
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.0006616748169077, -0.01115639558445, 0
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Line3", "SKETCHSEGMENT", -0.008021420396045, -0.008282113469843, 0
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.FeatureExtrusion3 1, 0, 0, 0, 0, 0.0016002, 0.00254, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, 0, 0, 1
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "", "FACE", 0.001972890004765, 0.001600200000041, -0.003016240377804
Part.SelectByID "Front", "PLANE", 0, 0, 0
Part.InsertSketch
Part.CreateLine2( 0, -0.0002022913087134, 0, 0, 0.01426973321084, 0 ).ConstructionGeometry = TRUE
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.934579
Part.ActiveView().ZoomByFactor 0.925926
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 1.01
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Line1", "SKETCHSEGMENT", 0, 0.01354795379202, 0
Part.SelectByID "Point2", "SKETCHPOINT", 0, 0.01426973321084, 0
Part.CreateLine2 -0.001298392515854, 0.01897759522196, 0, 0.005406034293283, 0.01897759522196, 0
Part.CreateLine2 0.009324818977497, 0.0007528857266962, 0, 0.009324818977497, 0.008259955181998, 0
Part.CreateLine2 0.01135503272956, 0.0016002, 0, 0.01102453281643, 0.002783099478759, 0
Part.ClearSelection
Part.EditUndo 1
Part.CreateCircle 0.009702533163927, 0.01897759522196, 0, 0.005500462839891, 0.01690016719659, 0
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.01205537644443, 0.0148255188446, 0
Part.EditDelete
Part.SetPickMode
Part.AndSelectByID "Line3", "SKETCHSEGMENT", 0, 0, 0
Part.EditDelete
Part.SketchRectangle 0.002337106528537, 0.01765559556945, 0, 0.004036820367473, 0.01420895361827, 0, 1
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SelectByID "Line1", "SKETCHSEGMENT", 0, 0.01557816754408, 0
Part.AndSelectByID "Line6", "SKETCHSEGMENT", 0.002337106528537, 0.01562538181739, 0
Part.AddDimension -0.00200661, 0.0141617, 0
Part.ClearSelection
Part.Parameter("D1@Sketch2").SystemValue = 0.0021082
Part.SelectByID "Line1", "SKETCHSEGMENT", 0, 0.01170659713317, 0
Part.AndSelectByID "Line8", "SKETCHSEGMENT", 0.002753813838936, 0.01529488190426, 0
Part.AddDimension -0.00375353, 0.019497, 0
Part.ClearSelection
Part.SelectByID "D1@Sketch2@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.Parameter("D2@Sketch2").SystemValue = 0.004572
Part.SelectByID "Line5", "SKETCHSEGMENT", 0.001392821062462, 0.01765559556945, 0
Part.AndSelectByID "", "EDGE", 0.004320106007296, -2.542646164249e-006, 0.01030726249235
Part.AddDimension 0.0196175, 0.00901538, 0
Part.ClearSelection
Part.SelectByID "D2@Sketch2@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.Parameter("D3@Sketch2").SystemValue = 0.013716
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Line7", "SKETCHSEGMENT", 0.001864963795499, 0.01420895361827, 0
Part.SelectByID "Line7", "SKETCHSEGMENT", 0.001770535248892, 0.01420895361827, 0
Part.ClearSelection
Part.SelectByID "Line8", "SKETCHSEGMENT", 0.002286, 0.01246202550603, 0
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Line6", "SKETCHSEGMENT", 0.0010541, 0.01236759695943, 0
Part.AddDimension -0.00564211, 0.0117538, 0
Part.ClearSelection
Part.Parameter("D4@Sketch2").SystemValue = 0.005588
Part.CreateLine2 0.007530676591953, -0.001182899478759, 0, 0.007530676591953, 0.005285455963859, 0
Part.ClearSelection
Part.SelectByID "Line1", "SKETCHSEGMENT", 0, 0.00216931392581, 0
Part.AndSelectByID "Line10", "SKETCHSEGMENT", 0.007530676591953, 0.002971956571974, 0
Part.AddDimension 0.000354107, -0.00444068, 0
Part.ClearSelection
Part.Parameter("D5@Sketch2").SystemValue = 0.01016
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Line4", "SKETCHSEGMENT", 0.009324818977497, 0.006937955529492, 0
Part.SelectByID "", "EDGE", 0.008805461971156, 0.001555528372861, 0.00783212338672
Part.SketchUseEdge
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Line10", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, 0.01003303307705, 0.0006584571800886
Part.SetPickMode
Part.SelectByID "Line12", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01126060418295, 0.001838814012683
Part.SetPickMode
Part.SelectByID "Line4", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, 0.00786117650508, 0.001036171366519
Part.SetPickMode
Part.SelectByID "Line12", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, 0.006964105312308, 0.001697171192772
Part.CreateLine2 0.002286, 0.008128, 0, 0.007955605051687, 0.004435599044391, 0
Part.CreateLine2 0.002286, 0.013716, 0, 0.01016, 0.008587959358826, 0
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Line10", "SKETCHSEGMENT", 0.01016, 0.00467167041091, 0
Part.SelectByID "Point18", "SKETCHPOINT", 0.01016, 0.005285455963859, 0
Part.SetPickMode
Part.SetPickMode
Part.SelectByID "Line4", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 2, 1, 0.00786117650508, 0.007362883989226
Part.SetPickMode
Part.SelectByID "Line4", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.007955605051687, 0.008684883641732
Part.AndSelectByID "Line10", "SKETCHSEGMENT", 0.01016, 0.006937955529492, 0
Part.AndSelectByID "Line14", "SKETCHSEGMENT", 0.008996418252943, 0.009345756474426, 0
Part.ClearSelection 
Part.SelectByMark "Line10", "SKETCHSEGMENT", 0.01016, 0.006937955529492, 0, 1
Part.AndSelectByMark "Line14", "SKETCHSEGMENT", 0.008996418252943, 0.009345756474426, 0, 1
Part.SketchFillet2 0.00635, 2
Part.ClearSelection
Part.SelectByID "D6@Sketch2@Part1.SLDPRT", "DIMENSION", 0.01508496032056, 0.01104559730692, 0
Part.Parameter("D6@Sketch2").SystemValue = 0.00381
Part.ClearSelection
Part.AndSelectByID "Line4", "SKETCHSEGMENT", 0.007955605051688, 0.003538527851619, 0
Part.AndSelectByID "Line13", "SKETCHSEGMENT", 0.007099761431468, 0.004992977869255, 0
Part.ClearSelection 
Part.SelectByMark "Line4", "SKETCHSEGMENT", 0.007955605051688, 0.003538527851619, 0, 1
Part.AndSelectByMark "Line13", "SKETCHSEGMENT", 0.007099761431468, 0.004992977869255, 0, 1
Part.SketchFillet2 0.00381, 2
Part.ClearSelection
Part.AndSelectByID "Arc3", "SKETCHSEGMENT", 0.007084028859266, 0.004795387176712, 0
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "D7@Sketch2@Part1.SLDPRT", "DIMENSION", 0.01126060418295, 0.005899241516809, 0
Part.Parameter("D7@Sketch2").SystemValue = 0.002032
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Line14", "SKETCHSEGMENT", 0.003871386069858, 0.01268349756183, 0
Part.SelectByID "Point14", "SKETCHPOINT", 0.002286, 0.013716, 0
Part.SelectByID "Line14", "SKETCHSEGMENT", 0.004561465858653, 0.01223407449825, 0
Part.SelectByID "Point14", "SKETCHPOINT", 0.002286, 0.013716, 0
Part.SelectByID "Line14", "SKETCHSEGMENT", 0.003113468672697, 0.01317710071337, 0
Part.EditDelete
Part.CreateLine2 0.008429238244831, 0.009715139524014, 0, 0.002286, 0.01317023960559, 0
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "D6@Sketch2@Part1.SLDPRT", "DIMENSION", 0.01517938886717, 0.01118724012683, 0
Part.SelectByID "D6@Sketch2@Part1.SLDPRT", "DIMENSION", 0.01447117476761, 0.01038459748067, 0
Part.Parameter("D6@Sketch2").SystemValue = 0.00381
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Line8", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.002195463708626, 0.01047902602728
Part.SetPickMode
Part.SetPickMode
Part.ViewZoomTo2 -0.00214825, 0.016853, -1.12097e-016, 0.00616146, 0.00991245, -6.36313e-017
Part.AndSelectByID "Line8", "SKETCHSEGMENT", 0.002286, 0.01347929128522, 0
Part.AndSelectByID "Line15", "SKETCHSEGMENT", 0.002547686130944, 0.01302306123869, 0
' MSGBOX
' The fillet could not be added because the specified radius would eliminate one of the elements.

Part.ClearSelection
Part.AndSelectByID "Line8", "SKETCHSEGMENT", 0.002286, 0.01344479576745, 0
Part.AndSelectByID "Line15", "SKETCHSEGMENT", 0.002502154362605, 0.01304866936428, 0
' MSGBOX
' The fillet could not be added because the specified radius would eliminate one of the elements.

Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Line8", "SKETCHSEGMENT", 0.002286, 0.01343789666389, 0
Part.SelectByID "Point32", "SKETCHPOINT", 0.002286, 0.01317023960559, 0
Part.AndSelectByID "Line8", "SKETCHSEGMENT", 0.002286, 0.01310673969329, 0
' MSGBOX
' Please select two entities.

Part.ClearSelection
Part.AndSelectByID "Line8", "SKETCHSEGMENT", 0.002286, 0.01306534507196, 0
Part.AndSelectByID "Line15", "SKETCHSEGMENT", 0.002500875090033, 0.01254869586009, 0
Part.ClearSelection 
Part.SelectByMark "Line8", "SKETCHSEGMENT", 0.002286, 0.01306534507196, 0, 1
Part.AndSelectByMark "Line15", "SKETCHSEGMENT", 0.002500875090033, 0.01254869586009, 0, 1
Part.SketchFillet2 0.00127, 2
Part.ClearSelection
Part.SelectByID "Point35", "SKETCHPOINT", 0.002286, 0.01317023960559, 0
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.ViewZoomTo2 0.00498301, 0.00677888, 6.133e-018, 0.0133429, -0.000572646, 5.74685e-017
Part.SetPickMode
Part.CreateLine2 0.01046738937191, 0.0016002, 0, 0.01046738937191, 0.002058119942112, 0
Part.CreateLine2 0.01046738937191, 0.002058119942112, 0, 0.009817005535701, 0.002248119714486, 0
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SelectByID "Line12", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 2, 1, 0.009919313105441, 0.001612351245387
Part.SetPickMode
Part.SelectByID "Line10", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, 0.01015315897913, 0.00192658163816
Part.SetPickMode
Part.SelectByID "Line17", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01000700530808, 0.002218888980275
Part.SelectByID "Line16", "SKETCHSEGMENT", 0.01046738937191, 0.001868120169737, 0
Part.AndSelectByID "Line10", "SKETCHSEGMENT", 0.01016, 0.002591580841471, 0
Part.AddDimension 0.0110812, 0.00268658, 0
Part.ClearSelection
Part.Parameter("D9@Sketch2").SystemValue = 0.000381
Part.SelectByID "Line16", "SKETCHSEGMENT", 0.010541, 0.001882735536843, 0
Part.AddDimension 0.0114832, 0.00197043, 0
Part.ClearSelection
Part.SelectByID "D9@Sketch2@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.Parameter("D10@Sketch2").SystemValue = 0.000381
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.AndSelectByID "Line10", "SKETCHSEGMENT", 0.01016, 0.002343119600674, 0
Part.AndSelectByID "Line17", "SKETCHSEGMENT", 0.01027616666117, 0.002097086540119, 0
Part.ClearSelection 
Part.SelectByMark "Line10", "SKETCHSEGMENT", 0.01016, 0.002343119600674, 0, 1
Part.AndSelectByMark "Line17", "SKETCHSEGMENT", 0.01027616666117, 0.002097086540119, 0, 1
Part.SketchFillet2 0.000254, 2
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.ViewZoomtofit2
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.AndSelectByID "D11@Sketch2@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.AndSelectByID "D9@Sketch2@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.AndSelectByID "D8@Sketch2@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.AndSelectByID "D7@Sketch2@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.AndSelectByID "D5@Sketch2@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.AndSelectByID "D4@Sketch2@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.AndSelectByID "D2@Sketch2@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.AndSelectByID "D1@Sketch2@Part1.SLDPRT", "DIMENSION", 0, 0, 0
Part.AndSelectByID "Line4", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line5", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line6", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line7", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line8", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line10", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line12", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line13", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line15", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line16", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line17", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Arc2", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Arc3", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Arc4", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Arc5", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line1", "SKETCHSEGMENT", 0, 0, 0
Part.FeatureRevolve 6.28318530718, 0, 0, 0
Part.ShowNamedView2 "*Back", 2
Part.ShowNamedView2 "*Bottom", 6
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "", "FACE", -0.001174677314898, 0, 0.003790292136073
Part.ViewDisplayHiddengreyed
Part.SelectByID "", "EDGE", 0.003492707216298, 0.009715139524019, 0.007643233728939
Part.SelectByID "", "FACE", 0.001362625685282, 0, 0.009209470148804
Part.InsertSketch
Part.SelectByID "", "EDGE", 0.001801171882844, 0.009715139524019, 0.008175754111693
Part.SketchUseEdge
Part.ClearSelection
Part.FeatureCut5 1, 0, 0, 0, 0, 0.0016002, 0.0016002, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, 0, 0, -1, 0
Part.ViewDisplayShaded
Part.ShowNamedView2 "*Isometric", 7
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.0191923, 0
Part.ActiveView().RotateAboutCenter -0.0479807, 0
Part.ActiveView().RotateAboutCenter -0.0527788, 0
Part.ActiveView().RotateAboutCenter -0.0479807, -0.013116
Part.ActiveView().RotateAboutCenter -0.0287884, -0.019674
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0287884, 0.013116
Part.ActiveView().RotateAboutCenter 0.0383846, 0.026232
Part.ActiveView().RotateAboutCenter 0.100759, 0.059022
Part.ActiveView().RotateAboutCenter 0.143942, 0.072138
Part.ActiveView().RotateAboutCenter 0.0623749, 0.078696
Part.ActiveView().RotateAboutCenter 0.0191923, 0.045906
Part.ActiveView().RotateAboutCenter 0.00959614, 0.052464
Part.ActiveView().RotateAboutCenter 0.00479807, 0.019674
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00479807, -0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, -0.006558
Part.ActiveView().RotateAboutCenter 0.00959614, -0.013116
Part.ActiveView().RotateAboutCenter 0.00479807, -0.013116
Part.ActiveView().RotateAboutCenter 0.00479807, -0.019674
Part.ActiveView().RotateAboutCenter 0.00479807, -0.052464
Part.ActiveView().RotateAboutCenter -0.00479807, -0.078696
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.00479807, -0.013116
Part.ActiveView().RotateAboutCenter -0.0863652, -0.039348
Part.ActiveView().RotateAboutCenter -0.182327, -0.059022
Part.ActiveView().RotateAboutCenter -0.153538, -0.03279
Part.ActiveView().RotateAboutCenter -0.0383846, -0.006558
Part.ActiveView().RotateAboutCenter -0.0287884, 0.006558
Part.ActiveView().RotateAboutCenter -0.0623749, 0.052464
Part.ActiveView().RotateAboutCenter -0.0287884, 0.045906
Part.ActiveView().RotateAboutCenter -0.00959614, 0.013116
Part.ActiveView().RotateAboutCenter 0.00479807, 0.006558
Part.ActiveView().RotateAboutCenter 0.0191923, 0.019674
Part.ActiveView().RotateAboutCenter 0.0143942, 0.013116
Part.ActiveView().RotateAboutCenter 0.0191923, 0.013116
Part.ActiveView().RotateAboutCenter 0.0383846, 0.013116
Part.ActiveView().RotateAboutCenter 0.0383846, 0.006558
Part.ActiveView().RotateAboutCenter 0.0239903, 0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.00479807, 0.006558
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0143942, 0
Part.ActiveView().RotateAboutCenter 0.0287884, -0.013116
Part.ActiveView().RotateAboutCenter 0.0287884, -0.013116
Part.ActiveView().RotateAboutCenter 0.0191923, -0.006558
Part.ActiveView().RotateAboutCenter 0.0191923, -0.019674
Part.ActiveView().RotateAboutCenter 0.0239903, -0.013116
Part.ActiveView().RotateAboutCenter 0.00959614, -0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0143942, 0
Part.ActiveView().RotateAboutCenter 0.0239903, 0.006558
Part.ActiveView().RotateAboutCenter 0.0191923, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.SetPickMode
Part.SetPickMode
Part.SelectByID "Boss-Revolve1", "BODYFEATURE", 0, 0, 0
Part.SelectedFeatureProperties 10485760, 1, 0.96, 0.6, 0.02, 0, 0, 0, 0, "Boss-Revolve1"
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Boss-Revolve1", "BODYFEATURE", 0, 0, 0
Part.SelectedFeatureProperties 4194304, 1, 0.96, 0.6, 0.02, 0, 0, 0, 0, "Boss-Revolve1"
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Base-Extrude", "BODYFEATURE", 0, 0, 0
Part.FeatEdit
Part.ClearSelection
Part.EditRebuild
Part.SelectByID "Base-Extrude", "BODYFEATURE", 0, 0, 0
Part.SelectedFeatureProperties 12632256, 1, 0.96, 0.6, 0.02, 0, 0, 0, 0, "Base-Extrude"
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.ActiveView().RotateAboutCenter -0.00959614, -0.006558
Part.ActiveView().RotateAboutCenter -0.0383846, -0.03279
Part.ActiveView().RotateAboutCenter -0.0911633, -0.03279
Part.ActiveView().RotateAboutCenter -0.0575768, -0.006558
Part.ActiveView().RotateAboutCenter -0.0575768, 0.006558
Part.ActiveView().RotateAboutCenter -0.0383846, 0.019674
Part.ActiveView().RotateAboutCenter -0.0287884, 0.019674
Part.ActiveView().RotateAboutCenter -0.00959614, 0.006558
Part.ActiveView().RotateAboutCenter 0, -0.013116
Part.ActiveView().RotateAboutCenter 0, -0.039348
Part.ActiveView().RotateAboutCenter -0.0911633, -0.052464
Part.ActiveView().RotateAboutCenter -0.201519, -0.052464
Part.ActiveView().RotateAboutCenter -0.182327, -0.03279
Part.ActiveView().RotateAboutCenter -0.0911633, 0.006558
Part.ActiveView().RotateAboutCenter -0.0335865, 0.026232
Part.ActiveView().RotateAboutCenter -0.00959614, 0.026232
Part.ActiveView().RotateAboutCenter 0, 0.045906
Part.ActiveView().RotateAboutCenter 0.00479807, 0.059022
Part.ActiveView().RotateAboutCenter 0.00959614, 0.045906
Part.ActiveView().RotateAboutCenter 0.00479807, 0.019674
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter -0.0191923, -0.052464
Part.ActiveView().RotateAboutCenter -0.0287884, -0.13116
Part.ActiveView().RotateAboutCenter -0.0335865, -0.13116
Part.ActiveView().RotateAboutCenter -0.0191923, -0.059022
Part.ActiveView().RotateAboutCenter -0.00959614, -0.019674
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00959614, -0.006558
Part.ActiveView().RotateAboutCenter 0.0191923, -0.006558
Part.ActiveView().RotateAboutCenter 0.0383846, -0.006558
Part.ActiveView().RotateAboutCenter 0.0527788, -0.006558
Part.ActiveView().RotateAboutCenter 0.0527788, 0.019674
Part.ActiveView().RotateAboutCenter 0.105558, 0.03279
Part.ActiveView().RotateAboutCenter 0.143942, 0.052464
Part.ActiveView().RotateAboutCenter 0.0959614, 0.045906
Part.ActiveView().RotateAboutCenter 0.0431826, 0.026232
Part.ActiveView().RotateAboutCenter 0.0239903, 0.013116
Part.ActiveView().RotateAboutCenter 0.0239903, 0.019674
Part.ActiveView().RotateAboutCenter 0.0431826, 0.052464
Part.ActiveView().RotateAboutCenter 0.0431826, 0.124602
Part.ActiveView().RotateAboutCenter 0.0479807, 0.275436
Part.ActiveView().RotateAboutCenter 0.0479807, 0.367248
Part.ActiveView().RotateAboutCenter 0.0431826, 0.367248
Part.ActiveView().RotateAboutCenter 0.0239903, 0.301668
Part.ActiveView().RotateAboutCenter 0.00479807, 0.019674
Part.ActiveView().RotateAboutCenter -0.0143942, 0
Part.ActiveView().RotateAboutCenter -0.17273, -0.03279
Part.ActiveView().RotateAboutCenter -0.239903, -0.059022
Part.ActiveView().RotateAboutCenter -0.230307, -0.078696
Part.ActiveView().RotateAboutCenter -0.0959614, -0.052464
Part.ActiveView().RotateAboutCenter -0.00959614, -0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, -0.013116
Part.ActiveView().RotateAboutCenter 0.0431826, -0.045906
Part.ActiveView().RotateAboutCenter 0.0911633, -0.072138
Part.ActiveView().RotateAboutCenter 0.0911633, -0.06558
Part.ActiveView().RotateAboutCenter 0.0383846, -0.059022
Part.ActiveView().RotateAboutCenter 0.0239903, -0.052464
Part.ActiveView().RotateAboutCenter 0.0287884, -0.059022
Part.ActiveView().RotateAboutCenter 0.0143942, -0.078696
Part.ActiveView().RotateAboutCenter 0, -0.183624
Part.ActiveView().RotateAboutCenter -0.0335865, -0.06558
Part.ActiveView().RotateAboutCenter -0.143942, -0.059022
Part.ActiveView().RotateAboutCenter -0.182327, -0.039348
Part.ActiveView().RotateAboutCenter -0.163134, -0.013116
Part.ActiveView().RotateAboutCenter -0.0527788, 0.019674
Part.ActiveView().RotateAboutCenter -0.0431826, 0.085254
Part.ActiveView().RotateAboutCenter -0.0191923, 0.059022
Part.ActiveView().RotateAboutCenter -0.0191923, 0.039348
Part.ActiveView().RotateAboutCenter -0.00959614, 0.019674
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.00479807, 0.006558
Part.ActiveView().RotateAboutCenter -0.00959614, 0.006558
Part.ActiveView().RotateAboutCenter -0.00959614, 0.026232
Part.ActiveView().RotateAboutCenter -0.0143942, 0.03279
Part.ActiveView().RotateAboutCenter -0.0143942, 0.039348
Part.ActiveView().RotateAboutCenter -0.00959614, 0.026232
Part.ActiveView().RotateAboutCenter 0, 0.013116
Part.ActiveView().RotateAboutCenter 0, 0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0.019674
Part.ActiveView().RotateAboutCenter 0.0287884, 0.03279
Part.ActiveView().RotateAboutCenter 0.0287884, 0.013116
Part.ActiveView().RotateAboutCenter 0.0191923, 0.006558
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.00479807, 0.006558
Part.ActiveView().RotateAboutCenter 0.00959614, 0
Part.ActiveView().RotateAboutCenter 0.0143942, 0.006558
Part.ActiveView().RotateAboutCenter 0.0335865, 0.006558
Part.ActiveView().RotateAboutCenter 0.0431826, 0.006558
Part.ActiveView().RotateAboutCenter 0.0479807, 0.019674
Part.ActiveView().RotateAboutCenter 0.0479807, 0.019674
Part.ActiveView().RotateAboutCenter 0.0383846, 0.019674
Part.ActiveView().RotateAboutCenter 0.0335865, 0.019674
Part.ActiveView().RotateAboutCenter 0.0383846, 0.006558
Part.ActiveView().RotateAboutCenter 0.0527788, 0
Part.ActiveView().RotateAboutCenter 0.0383846, -0.019674
Part.ActiveView().RotateAboutCenter 0.0431826, -0.045906
Part.ActiveView().RotateAboutCenter 0.0479807, -0.039348
Part.ActiveView().RotateAboutCenter 0.0527788, -0.052464
Part.ActiveView().RotateAboutCenter 0.0431826, -0.059022
Part.ActiveView().RotateAboutCenter 0.0479807, -0.03279
Part.ActiveView().RotateAboutCenter 0.0575768, -0.019674
Part.ActiveView().RotateAboutCenter 0.0911633, -0.03279
Part.ActiveView().RotateAboutCenter 0.0527788, -0.03279
Part.ActiveView().RotateAboutCenter 0.0383846, -0.013116
Part.ActiveView().RotateAboutCenter 0.0239903, -0.006558
Part.ActiveView().RotateAboutCenter 0.0143942, -0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, 0
Part.ActiveView().RotateAboutCenter 0.0143942, -0.019674
Part.ActiveView().RotateAboutCenter 0.0287884, -0.026232
Part.ActiveView().RotateAboutCenter 0.0287884, -0.026232
Part.ActiveView().RotateAboutCenter 0.0287884, -0.006558
Part.ActiveView().RotateAboutCenter 0.0287884, -0.019674
Part.ActiveView().RotateAboutCenter 0.0239903, -0.019674
Part.ActiveView().RotateAboutCenter 0.00479807, -0.006558
Part.ActiveView().RotateAboutCenter 0.00959614, -0.006558
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, -0.026232
Part.SaveAs2 "C:\soliddata\oasis3\oasis3 can\barry ME-100-02.SLDPRT", 0, FALSE, FALSE
Set Part = Nothing
swApp.CloseDoc "barry ME-100-02.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("oasis2 top.SLDASM")
Part.SelectByID "", "FACE", -0.003310239463048, 0.0208770601663, -0.01244600000012
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "", "FACE", -0.004808495388005, 0.02232930928974, -0.01244600000012
Part.InsertSketch
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SelectByID "", "FACE", -0.01575017779081, 0.03268680177086, -0.01244600000007
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.AddComponent "C:\soliddata\oasis3\oasis3 can\barry ME-100-02.SLDPRT", 0.02385984095427, 0.01817892644135, 0.0252730125
Part.ShowNamedView2 "*Isometric", 7
Part.SelectByID "", "FACE", 0.02851477340994, 0.01952000931129, 0.03386426806111
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "", "EDGE", 0.02796837891293, 0.01702351552279, 0.03523821263377
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0
Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0
Part.EditDelete
' MSGBOX
' Entities which do not belong to the active sketch cannot be deleted.

Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Sketch1"
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.EditRebuild
Part.SetPickMode
Part.SelectByID "", "FACE", 0.03315501277802, 0.0197109065258, 0.02794264254544
Part.TranslateComponent
Part.ActiveView().RotateAboutCenter -0.0143942, -0.006558
Part.ActiveView().RotateAboutCenter -0.177529, -0.078696
Part.ActiveView().RotateAboutCenter -0.2495, -0.19674
Part.ActiveView().RotateAboutCenter -0.345461, -0.406596
Part.ActiveView().RotateAboutCenter -0.100759, -0.19674
Part.ActiveView().RotateAboutCenter -0.0239903, -0.039348
Part.ActiveView().RotateAboutCenter -0.00959614, -0.045906
Part.ActiveView().RotateAboutCenter 0, -0.026232
Part.ActiveView().RotateAboutCenter 0, -0.06558
Part.ActiveView().RotateAboutCenter 0.0239903, -0.072138
Part.ActiveView().RotateAboutCenter 0.0383846, -0.072138
Part.ActiveView().RotateAboutCenter 0.0575768, -0.052464
Part.ActiveView().RotateAboutCenter 0.0575768, -0.006558
Part.ActiveView().RotateAboutCenter 0.0383846, 0
Part.ActiveView().RotateAboutCenter 0.0431826, -0.019674
Part.ActiveView().RotateAboutCenter 0.00479807, -0.039348
Part.ActiveView().RotateAboutCenter -0.00479807, -0.045906
Part.ActiveView().RotateAboutCenter -0.0287884, -0.059022
Part.ActiveView().RotateAboutCenter -0.0767691, -0.249204
Part.ActiveView().RotateAboutCenter -0.0575768, -0.091812
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ActiveView().RotateAboutCenter 0, -0.006558
Part.ClearSelection
Part.SelectByID "", "FACE", 0.03315501277802, 0.0197109065258, 0.02794264254544
Part.SelectByID "", "FACE", 0.09263239320438, 0.03432786948414, -0.05466579231535
Part.AndSelectByID "", "FACE", 0.03807086195815, 0.02838233294372, -0.01244600000001
Part.AddMate 0, 2, 0, 0.03293900796602, 1.570796326795
Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.00479807, 0
Part.ActiveView().RotateAboutCenter -0.0143942, -0.013116
Part.ActiveView().RotateAboutCenter -0.0287884, -0.045906
Part.ActiveView().RotateAboutCenter -0.0479807, -0.0983699
Part.ActiveView().RotateAboutCenter -0.0335865, -0.059022
Part.ActiveView().RotateAboutCenter -0.0335865, -0.039348
Part.ActiveView().RotateAboutCenter -0.0239903, -0.03279
Part.ActiveView().RotateAboutCenter -0.0191923, -0.006558
Part.ActiveView().RotateAboutCenter -0.0191923, -0.019674
Part.ActiveView().RotateAboutCenter -0.00959614, -0.013116
Part.ActiveView().RotateAboutCenter -0.00479807, -0.013116
Part.ActiveView().RotateAboutCenter -0.00479807, -0.039348
Part.ActiveView().RotateAboutCenter -0.00479807, -0.045906
Part.ActiveView().RotateAboutCenter -0.00479807, -0.026232
Part.ActiveView().RotateAboutCenter -0.00959614, -0.072138
Part.ActiveView().RotateAboutCenter -0.0143942, -0.091812
Part.ActiveView().RotateAboutCenter -0.00479807, -0.013116
Part.ActiveView().RotateAboutCenter 0.00479807, -0.006558
Part.ActiveView().RotateAboutCenter 0.00479807, -0.006558
Part.SetPickMode
Part.SelectByID "", "FACE", 0.07673222688481, 0.03160200146081, -0.02305822986489
Part.TranslateComponent
Part.ClearSelection
Part.SelectByID "", "FACE", 0.07673222688481, 0.03160200146081, -0.02305822986489
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "", "FACE", 0.0311823613411, -0.03430956332443, -0.01244599999978
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.EditRebuild
Part.EditRebuild
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
swApp.ExitApp
End Sub