' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/26/04 by hamilton
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\hamilton\My Documents\Accelerometer\Accelerometer.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Accelerometer.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.0169598, -0.091155
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0227888
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0227888
Part.ActiveView().RotateAboutCenter 0, 0.0227888
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0227888
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.0169598, 0
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0339195, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0339195, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0169598, 0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter -0.0169598, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0169598, 0
Part.ActiveView().RotateAboutCenter -0.0169598, 0
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.0169598, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter 0, -0.0227888
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0227888
Part.ActiveView().RotateAboutCenter 0.0254396, -0.102549
Part.ActiveView().RotateAboutCenter 0.0254396, -0.113944
Part.ActiveView().RotateAboutCenter 0.0169598, -0.091155
Part.ActiveView().RotateAboutCenter 0, -0.0341831
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0455775
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0683663
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0797606
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0569719
Part.ActiveView().RotateAboutCenter 0, -0.0569719
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0683663
Part.ActiveView().RotateAboutCenter 0, -0.0455775
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0455775
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0683663
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0683663
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0683663
Part.ActiveView().RotateAboutCenter 0, -0.0683663
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0569719
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0227888
Part.ActiveView().RotateAboutCenter 0, -0.0227888
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0455775
Part.ActiveView().RotateAboutCenter 0, -0.0227888
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0341831
Part.ActiveView().RotateAboutCenter 0, -0.0341831
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0341831
Part.ActiveView().RotateAboutCenter 0, -0.0113944
Part.ActiveView().RotateAboutCenter 0, -0.0227888
Part.ActiveView().RotateAboutCenter 0, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0227888
Part.ActiveView().RotateAboutCenter 0, -0.0227888
Part.ActiveView().RotateAboutCenter 0, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0, -0.0113944
Part.ActiveView().RotateAboutCenter 0, -0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter -0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter -0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.0169598, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.0169598, 0
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0254396, 0.0227888
Part.ActiveView().RotateAboutCenter -0.0254396, 0.0227888
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0169598, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0169598, 0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0455775
Part.ActiveView().RotateAboutCenter 0, 0.0797606
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0455775
Part.ActiveView().RotateAboutCenter 0, 0.0227888
Part.ActiveView().RotateAboutCenter 0, 0.0569719
Part.ActiveView().RotateAboutCenter -0.0169598, 0.113944
Part.ActiveView().RotateAboutCenter -0.0169598, 0.0683663
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0169598, 0.0455775
Part.ActiveView().RotateAboutCenter -0.0169598, 0.0227888
Part.ActiveView().RotateAboutCenter -0.0339195, 0.0683663
Part.ActiveView().RotateAboutCenter -0.0339195, 0.0797606
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0341831
Part.ActiveView().RotateAboutCenter -0.0423994, 0.0683663
Part.ActiveView().RotateAboutCenter -0.0508793, 0.102549
Part.ActiveView().RotateAboutCenter -0.0169598, 0.0455775
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0227888
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0227888
Part.ActiveView().RotateAboutCenter 0, 0.0341831
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0227888
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0169598, 0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter -0.0169598, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0339195, 0
Part.ActiveView().RotateAboutCenter -0.067839, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0763189, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0508793, 0
Part.ActiveView().RotateAboutCenter -0.0254396, 0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter -0.0254396, 0.0455775
Part.ActiveView().RotateAboutCenter -0.0254396, 0.0569719
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0455775
Part.ActiveView().RotateAboutCenter -0.0169598, 0.0455775
Part.ActiveView().RotateAboutCenter -0.0339195, 0.0455775
Part.ActiveView().RotateAboutCenter -0.0423994, 0.0455775
Part.ActiveView().RotateAboutCenter -0.0169598, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0254396, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0254396, 0.0227888
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0254396, 0.0113944
Part.ActiveView().RotateAboutCenter -0.0169598, 0.0113944
Part.ActiveView().RotateAboutCenter 0.0169598, -0.0227888
Part.ActiveView().RotateAboutCenter 0.0254396, -0.0227888
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0227888
Part.ActiveView().RotateAboutCenter 0.0169598, -0.0455775
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.0254396, -0.0113944
Part.ActiveView().RotateAboutCenter 0.0423994, -0.0341831
Part.ActiveView().RotateAboutCenter 0.0423994, -0.0227888
Part.ActiveView().RotateAboutCenter 0.0423994, -0.0227888
Part.ActiveView().RotateAboutCenter 0.0254396, -0.0113944
Part.ActiveView().RotateAboutCenter 0.0169598, 0
Part.ActiveView().RotateAboutCenter 0.0339195, -0.0113944
Part.ActiveView().RotateAboutCenter 0.0508793, -0.0227888
Part.ActiveView().RotateAboutCenter 0.0508793, -0.0113944
Part.ActiveView().RotateAboutCenter 0.0423994, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.0339195, 0.0113944
Part.ActiveView().RotateAboutCenter 0.0339195, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0113944
Part.ActiveView().RotateAboutCenter 0.0339195, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0341831
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0455775
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0683663
Part.ActiveView().RotateAboutCenter 0.00847988, 0.091155
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0797606
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0797606
Part.ActiveView().RotateAboutCenter 0.0254396, 0.0683663
Part.ActiveView().RotateAboutCenter 0.0254396, 0.0683663
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0569719
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0683663
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0341831
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0227888
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0227888
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0341831
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0227888
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0341831
Part.ActiveView().RotateAboutCenter 0.0339195, 0.0455775
Part.ActiveView().RotateAboutCenter 0.0508793, 0.0455775
Part.ActiveView().RotateAboutCenter 0.0763189, 0.0569719
Part.ActiveView().RotateAboutCenter 0.0423994, 0.0227888
Part.ActiveView().RotateAboutCenter 0.0339195, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.0169598, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.0169598, 0
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0, -0.0113944
Part.ActiveView().RotateAboutCenter 0, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0227888
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0341831
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0227888
Part.ActiveView().RotateAboutCenter 0, -0.0113944
Part.ActiveView().RotateAboutCenter -0.0169598, -0.0227888
Part.ActiveView().RotateAboutCenter -0.0593591, -0.0683663
Part.ActiveView().RotateAboutCenter -0.152638, -0.170916
Part.ActiveView().RotateAboutCenter -0.186557, -0.193704
Part.ActiveView().RotateAboutCenter -0.127198, -0.125338
Part.ActiveView().RotateAboutCenter -0.0593591, -0.0569719
Part.ActiveView().RotateAboutCenter -0.00847988, 0
Part.ActiveView().RotateAboutCenter -0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter -0.0254396, -0.0113944
Part.ActiveView().RotateAboutCenter -0.0423994, -0.0113944
Part.ActiveView().RotateAboutCenter -0.0508793, -0.0341831
Part.ActiveView().RotateAboutCenter -0.0508793, -0.0341831
Part.ActiveView().RotateAboutCenter -0.0339195, -0.0227888
Part.ActiveView().RotateAboutCenter -0.0508793, -0.0341831
Part.ActiveView().RotateAboutCenter -0.0254396, -0.0227888
Part.ActiveView().RotateAboutCenter -0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter -0.0254396, -0.0113944
Part.ActiveView().RotateAboutCenter -0.0339195, -0.0227888
Part.ActiveView().RotateAboutCenter 0, -0.0113944
Part.ActiveView().RotateAboutCenter -0.0169598, -0.0455775
Part.ActiveView().RotateAboutCenter 0, -0.0797606
Part.ActiveView().RotateAboutCenter 0.00847988, -0.125338
Part.ActiveView().RotateAboutCenter 0.0254396, -0.136733
Part.ActiveView().RotateAboutCenter 0.0169598, -0.091155
Part.ActiveView().RotateAboutCenter 0.0169598, -0.102549
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0569719
Part.ActiveView().RotateAboutCenter 0.0169598, -0.0455775
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0455775
Part.ActiveView().RotateAboutCenter 0, -0.0455775
Part.ActiveView().RotateAboutCenter 0.0169598, -0.0455775
Part.ActiveView().RotateAboutCenter 0.0169598, -0.0455775
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0455775
Part.ActiveView().RotateAboutCenter 0.0169598, -0.0341831
Part.ActiveView().RotateAboutCenter 0.0169598, -0.0569719
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0569719
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0227888
Part.ActiveView().RotateAboutCenter 0, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, -0.0113944
Part.ActiveView().RotateAboutCenter 0.0169598, -0.0113944
Part.ActiveView().RotateAboutCenter 0.0254396, -0.0227888
Part.ActiveView().RotateAboutCenter 0.0339195, -0.0227888
Part.ActiveView().RotateAboutCenter 0.0423994, -0.0113944
Part.ActiveView().RotateAboutCenter 0.0254396, -0.0113944
Part.ActiveView().RotateAboutCenter 0.0339195, 0
Part.ActiveView().RotateAboutCenter 0.0339195, -0.0113944
Part.ActiveView().RotateAboutCenter 0.0339195, -0.0227888
Part.ActiveView().RotateAboutCenter 0.0169598, -0.0227888
Part.ActiveView().RotateAboutCenter 0.0169598, -0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.0254396, -0.0113944
Part.ActiveView().RotateAboutCenter 0.0169598, 0
Part.ActiveView().RotateAboutCenter 0.0169598, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.0169598, 0
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0113944
Part.ActiveView().RotateAboutCenter 0.0254396, 0.0113944
Part.ActiveView().RotateAboutCenter 0.0254396, 0.0227888
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0227888
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0227888
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0227888
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0227888
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0341831
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0341831
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0341831
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0341831
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0341831
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0227888
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0227888
Part.ActiveView().RotateAboutCenter 0, 0.0341831
Part.ActiveView().RotateAboutCenter 0.0169598, 0.0341831
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0341831
Part.ActiveView().RotateAboutCenter 0, 0.0227888
Part.ActiveView().RotateAboutCenter 0.00847988, 0.0227888
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0227888
Part.ActiveView().RotateAboutCenter 0, 0.0341831
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0227888
Part.ActiveView().RotateAboutCenter 0, 0.0227888
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0227888
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0113944
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0227888
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0341831
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0455775
Part.ActiveView().RotateAboutCenter -0.00847988, 0.0113944
Part.ActiveView().RotateAboutCenter 0, 0.0113944
swApp.LoadFile2 "C:\Documents and Settings\hamilton\My Documents\Accelerometer\Bracket.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\hamilton\My Documents\Accelerometer\Bracket.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Bracket - Sheet1")
Part.EditSketch
Part.EditSketch
swApp.LoadFile2 "C:\Documents and Settings\hamilton\My Documents\Accelerometer\EndCap.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\hamilton\My Documents\Accelerometer\EndCap.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("EndCap - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ViewZoomTo2 0.0683856, 0.249546, -1.76208e-015, 0.25752, 0.0108883, -9.55429e-017
Part.EditSketch
boolstatus = Part.Extension.SelectByID("RD4@Drawing View9", "DIMENSION", 0.2210714678955, 0.03108552555966, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View9", "DRAWINGVIEW", 0.2227202230334, 0.02449050500781, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View9", "DRAWINGVIEW", 0.2124155034212, 0.01707110688698, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
Set Part = swApp.ActivateDoc ("Bracket - Sheet1")
Part.EditSketch
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.ViewZoomTo2 -0.00132862, 0.154896, -1.10114e-015, 0.192981, 0.00941265, -8.52387e-017
Part.EditSketch
boolstatus = Part.Extension.SelectByID("RD19@Drawing View3", "DIMENSION", 0.01240586010363, 0.06418878138701, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD7@Drawing View3", "DIMENSION", 0.02723059186927, 0.1282617746114, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD4@Drawing View3", "DIMENSION", 0.02245652570745, 0.1194674422081, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD9@Drawing View3", "DIMENSION", 0.03200465803109, 0.08630024571542, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD9@Drawing View3", "DIMENSION", 0.03426605779195, 0.0875565789159, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD19@Drawing View3", "DIMENSION", 0.01717992626544, 0.05464064906337, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD19@Drawing View3", "DIMENSION", 0.01868752610602, 0.05489191570347, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD19@Drawing View3", "DIMENSION", 0.02094892586688, 0.05840964866481, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.01893879274611, 0.0528817825827, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("RD2@Drawing View3", "DIMENSION", 0.07597632004783, 0.1383124402152, 0, False, 0, Nothing)
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 1, 1, 11, 11,"", "", 1,"", "", 0
boolstatus = Part.Extension.SelectByID("RD5@Drawing View3", "DIMENSION", 0.1041181837385, 0.1390662401355, 0, False, 0, Nothing)
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 1, 1, 11, 11,"", "", 1,"", "", 0
boolstatus = Part.Extension.SelectByID("RD19@Drawing View3", "DIMENSION", 0.008385593862096, 0.06092231506576, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD21@Drawing View3", "DIMENSION", 0.1048719836588, 0.1086629766839, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD7@Drawing View3", "DIMENSION", 0.07145352052611, 0.108914243324, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD21@Drawing View3", "DIMENSION", 0.0719560538063, 0.1069041102033, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD8@Drawing View3", "DIMENSION", 0.07647885332802, 0.08579771243523, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD21@Drawing View3", "DIMENSION", 0.07120225388601, 0.1053965103627, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD21@Drawing View3", "DIMENSION", 0.07120225388601, 0.1066528435632, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1@Sketch2@Bracket-3@Drawing View3", "EXTSKETCHSEGMENT", 0.01907096351944, 0.01154272960523, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.Save2 FALSE
Part.PrintDirect
Part.EditSketch
Part.PrintDirect
Part.EditSketch
Part.EditSketch
swApp.LoadFile2 "C:\Documents and Settings\hamilton\My Documents\Accelerometer\bracket_end.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\hamilton\My Documents\Accelerometer\bracket_end.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("bracket_end - Sheet1")
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3698334776119, 0.1920154701493, 0, False, 0, Nothing)
Part.EditSketch
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
Part.ViewZoomTo2 0.24329, 0.0572552, -4.19322e-016, 0.42571, -0.0106727, 5.5017e-017
boolstatus = Part.Extension.SelectByID("DetailItem85@Sheet Format1", "NOTE", 0.3757939336155, 0.01569042350746, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.4102811811094, 0.01682487243818, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem100@Sheet Format1", "NOTE", 0.4130038585431, 0.01313365853659, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2814077825796, 0.0758162168356, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.Save2 FALSE
Part.ViewZoomtofit2
Part.PrintDirect
Part.EditSketch
swApp.LoadFile2 "C:\Documents and Settings\hamilton\My Documents\Accelerometer\Gasket.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\hamilton\My Documents\Accelerometer\Gasket.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Gasket - Sheet1")

Dim Note As Object
Dim Annotation As Object
Dim TextFormat As Object
Set Note = Part.InsertNote("Material:  Butayl ")
If Not Note is Nothing Then
   Note.Angle = 0
   boolstatus = Note.SetBalloon(0, 0)
   Set Annotation = Note.GetAnnotation()
   If Not Annotation is Nothing Then
      longstatus = Annotation.SetLeader2(False, 0, True, True, False, False)
      boolstatus = Annotation.SetPosition(0.06251432835821, 0.03315173880597, 0)
      boolstatus = Annotation.SetTextFormat(0, True, TextFormat)
   End If
End If
Part.ClearSelection2 True
Part.WindowRedraw

Part.EditSketch
Part.EditSketch
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("DetailItem96@Drawing View1", "NOTE", 0.09373926865672, 0.03041270895522, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.07949631343284, 0.03534296268657, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem96@Drawing View1", "NOTE", 0.07949631343284, 0.03315173880597, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem96@Drawing View1", "NOTE", 0.1112690597015, 0.03315173880597, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem96@Drawing View1", "NOTE", 0.1112690597015, 0.03315173880597, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1025041641791, 0.04027321641791, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem96@Drawing View1", "NOTE", 0.09593049253731, 0.03096051492537, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem96@Drawing View1", "NOTE", 0.09483488059701, 0.03096051492537, 0, False, 0, Nothing)
Part.Save2 FALSE
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
swApp.LoadFile2 "C:\Documents and Settings\hamilton\My Documents\Accelerometer\Accelerometer.SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\hamilton\My Documents\Accelerometer\Accelerometer.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Accelerometer - Sheet1")
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.109625641791, 0.04111971404469, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.04881917910448, 0.04221532598498, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.1709799104478, 0.05974511702976, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.1479720597015, 0.04714557971633, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.1676930746269, 0.04166752001484, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.1868662835821, 0.02139869911931, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.2827323283582, 0.1128822961342, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.2882103880597, 0.1074042364327, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.2361688208955, 0.2158698185223, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.2175434179104, 0.2268259379253, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1934399552239, 0.2290171618059, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.2263083134328, 0.1435594304626, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.3024533432836, 0.1402725946417, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.2750630447761, 0.141368206582, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Bill Of Materials1", "BOMFEATURE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Bill Of Materials1", "BOMFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.3156006865672, 0.1030217886716, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.311218238806, 0.1052130125521, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.3353217014925, 0.09918714688051, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.3117660447761, 0.104665206582, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.3117660447761, 0.104665206582, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.2668459552239, 0.1424638185223, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.3123138507463, 0.1232906095671, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.2920450298507, 0.1391769827014, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.3829808208955, 0.1402725946417, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.3687378656716, 0.05755389314916, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem92@Sheet1", "ANNOTATIONTABLES", 0.4048930597015, 0.1402725946417, 0, False, 0, Nothing)
Part.EditDelete
Part.ClearSelection2 True
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem93@Sheet1", "ANNOTATIONTABLES", 0.4235184626866, 0.1408204006119, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem93@Sheet1", "ANNOTATIONTABLES", 0.4306399402985, 0.1419160125521, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem93@Sheet1", "ANNOTATIONTABLES", 0.4120145373134, 0.1408204006119, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem93@Sheet1", "ANNOTATIONTABLES", 0.4107564701588, 0.1140083902626, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem93@Sheet1", "ANNOTATIONTABLES", 0.3736537953948, 0.1567707950753, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem93@Sheet1", "ANNOTATIONTABLES", 0.4088698934759, 0.1580285128639, 0, False, 0, Nothing)
Part.EditDelete
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.2164390718188, 0.2366358746519, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.2076350472986, 0.1649459607012, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2309028263878, 0.2259452734487, 0, False, 0, Nothing)
Part.EditSketch
' 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.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2070061884043, 0.2580170770582, 0, False, 0, Nothing)
Part.EditSketch
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
Part.ViewZoomTo2 0.296304, 0.291975, -2.27301e-015, 0.420189, 0.23412, -1.86902e-015
boolstatus = Part.Extension.SelectByID("Line90", "SKETCHSEGMENT", 0.3241937304927, 0.2611218723081, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.32989491517, 0.2555747737032, 0, False, 0, Nothing)
Part.Paste
Part.ClearSelection2 True
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point214", "SKETCHPOINT", 0.3769339481891, 0.2555747737032, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.4163372017643, 0.2512603636771, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgCOINCIDENT"
boolstatus = Part.Extension.SelectByID("Line129", "SKETCHSEGMENT", 0.3241937304927, 0.2554206876308, 0, False, 0, Nothing)
Part.CreateLine2 0.3218787247193, 0.2607836585366, 0, 0.3218787247193, 0.2575778926439, 0
Part.ClearSelection2 True
Part.CreateLine2 0.3281604097656, 0.2607836585366, 0, 0.3281604097656, 0.2575778926439, 0
Part.SetPickMode
Part.ClearSelection2 True
Part.CreateLine2 0.3929197272135, 0.2607836585366, 0, 0.3929197272135, 0.2575778926439, 0
Part.SetPickMode
Part.ClearSelection2 True
Part.CreateLine2 0.4020621645182, 0.2607836585366, 0, 0.4020621645182, 0.2575778926439, 0
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0.333284808762, 0.2620463887423, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3339011530514, 0.2588105812227, 0, False, 0, Nothing)
Part.Paste
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("DetailItem94@Sheet Format1", "NOTE", 0.3369828744986, 0.2575778926439, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem94@Sheet Format1", "NOTE", 0.3337470669791, 0.2588105812227, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem94@Sheet Format1", "NOTE", 0.3352879277027, 0.2589646672951, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem94@Sheet Format1", "NOTE", 0.3362124441368, 0.2592728394398, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem94@Sheet Format1", "NOTE", 0.3382155630775, 0.2607836585366, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem94@Sheet Format1", "NOTE", 0.3383696491499, 0.2607836585366, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem94@Sheet Format1", "NOTE", 0.3355960998474, 0.2594269255122, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3237314722756, 0.2592728394398, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("Line131", "SKETCHSEGMENT", 0.3280458823017, 0.2592728394398, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem95@Sheet Format1", "NOTE", 0.3261968494334, 0.2575778926439, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem95@Sheet Format1", "NOTE", 0.3251182469269, 0.2575778926439, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem95@Sheet Format1", "NOTE", 0.3249641608545, 0.2575778926439, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3249641608545, 0.2543420851243, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem94@Sheet Format1", "NOTE", 0.375196220444, 0.2594269255122, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3952274098509, 0.2588105812227, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem96@Sheet Format1", "NOTE", 0.3969223566469, 0.2575778926439, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem96@Sheet Format1", "NOTE", 0.3970764427192, 0.2575778926439, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem96@Sheet Format1", "NOTE", 0.399541819877, 0.258502409078, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem96@Sheet Format1", "NOTE", 0.3987713895152, 0.258502409078, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3944569794891, 0.2531093965454, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3037002828688, 0.2492572447364, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3842872987133, 0.2350813260792, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem85@Sheet Format1", "NOTE", 0.3849036430028, 0.01689544761667, 0, False, 0, Nothing)
Part.EditCopy
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.4112523613764, 0.01627910332723, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem97@Sheet Format1", "NOTE", 0.4120227917382, 0.01489232867598, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem97@Sheet Format1", "NOTE", 0.4129473081724, 0.01473824260362, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem97@Sheet Format1", "NOTE", 0.4126391360277, 0.01504641474834, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3996959059494, 0.01735770583375, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3032380246517, 0.08685052446836, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.Save2 FALSE
Part.ViewZoomtofit2
Part.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0, 0, 0, False, 0, Nothing)
' 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.PrintDirect
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Save changes to Bracket - Sheet1?

' MSGBOX
' Save changes to EndCap - Sheet1?

' MSGBOX
' Save changes to bracket_end - Sheet1?

' MSGBOX
' Save changes to Gasket - Sheet1?

swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Accelerometer.SLDASM")
Part.ClearSelection2 True
swApp.ExitApp
End Sub