' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/25/03 by magene
' ******************************************************************************

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:\GENE\ESP\ESP2G\rotaryShuttle\rotaryShuttle.SLDASM", 2, 0, "", longstatus)
' MSGBOX
' Lightweight parts will not be used in this assembly until you save 
' the assembly in shaded mode, in SolidWorks 98Plus or a later version.

Set Part = swApp.ActivateDoc ("rotaryShuttle.SLDASM")
swApp.LoadFile2 "C:\GENE\ESP\ESP2G\rotaryShuttle\rotaryShuttleBallScrew.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\GENE\ESP\ESP2G\rotaryShuttle\rotaryShuttleBallScrew.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("rotaryShuttleBallScrew.SLDPRT")
swApp.LoadFile2 "C:\GENE\ESP\ESP2G\rotaryShuttle\BALL NUT#2.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\GENE\ESP\ESP2G\rotaryShuttle\BALL NUT#2.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("BALL NUT#2.SLDPRT")
Part.SelectByID "", "EDGE", -0.007883773718333, -0.007921480119194, -0.01025285139411
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameWidth = 1218
swApp.ActiveDoc.ActiveView.FrameHeight = 289
Part.SelectByID "BALL NUT#2.SLDPRT", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("rotaryShuttle.SLDASM")
Set Part = swApp.ActivateDoc ("rotaryShuttleBallScrew.SLDPRT")
Part.SelectByID "rotaryShuttleBallScrew.SLDPRT", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("rotaryShuttle.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 578
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "guideBarEndPlate-1@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.OpenCompFile
swApp.LoadFile2 "C:\GENE\ESP\ESP2G\rotaryShuttle\guideBarEndPlate.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\GENE\ESP\ESP2G\rotaryShuttle\guideBarEndPlate.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("guideBarEndPlate.SLDPRT")
Part.ClearSelection
' MSGBOX
' Please select a planar face.

Part.ShowNamedView2 "*Normal To", 0
Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0
Part.EditSketch
Part.ClearSelection
Part.ShowNamedView2 "*Normal To", 0
Part.CreateCircle -0.01174315068493, 0.02202650799991, 0, -0.009611463347511, 0.02294550156466, 0
Part.ClearSelection
Part.SelectByID "Arc15", "SKETCHSEGMENT", -0.009669450145304, 0.02252032676876, 0
Part.AddDimension 0.0129958, 0.0347086, 0
Part.ClearSelection
' MSGBOX
' Please enter a number between 0.0000039 and 393700.7874016

' MSGBOX
' Please enter a number between 0.0000039 and 393700.7874016

Part.Parameter("D8@Sketch1").SystemValue = 0.00426337
Part.SelectByID "D8@Sketch1@guideBarEndPlate.SLDPRT", "DIMENSION", 0.01648795389136, 0.0334220282028, 0.003879072093432
Part.SelectByID "D8@Sketch1@guideBarEndPlate.SLDPRT", "DIMENSION", 0.01648795389136, 0.03397342434165, 0.003879072093432
Part.SelectByID "D8@Sketch1@guideBarEndPlate.SLDPRT", "DIMENSION", 0.01630415517841, 0.03397342434165, 0.003879072093432
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "D8@Sketch1@guideBarEndPlate.SLDPRT", "DIMENSION", 0.01317957705827, 0.0330544307769, 0.003879072093432
Part.Parameter("D8@Sketch1").SystemValue = 0.009525
Part.SelectByID "D1@Sketch1@guideBarEndPlate.SLDPRT", "DIMENSION", -0.01174315068493, 0.03820079473949, 0
Part.Parameter("D1@Sketch1").SystemValue = 0.080264
Part.ClearSelection
Part.EditUndo 1
Part.SelectByID "D1@Sketch1@guideBarEndPlate.SLDPRT", "DIMENSION", -0.015125424736, 0.03746559988769, 0.003879072093432
Part.Parameter("D1@Sketch1").SystemValue = 0.0047625
Part.SelectByID "D6@Sketch1@guideBarEndPlate.SLDPRT", "DIMENSION", 0.04718233895398, 0.008976799380472, 0.003879072093432
Part.Parameter("D6@Sketch1").SystemValue = 0.03175
Part.SelectByID "D6@Sketch1@guideBarEndPlate.SLDPRT", "DIMENSION", 0.04791753380578, 0.01614494918551, 0.003879072093432
Part.Parameter("D6@Sketch1").SystemValue = 0.0254
Part.EditRebuild
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 578
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("rotaryShuttle.SLDASM")
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.917431
Part.ActiveView().ZoomByFactor 0.884956
Part.ActiveView().ZoomByFactor 0.952381
Part.ActiveView().ZoomByFactor 0.877193
Part.ActiveView().ZoomByFactor 0.892857
Part.ActiveView().ZoomByFactor 0.925926
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.ActiveView().ZoomByFactor 1.01
Part.SetPickMode
Part.ViewZoomTo2 -0.0745953, 0.146838, 0.0539522, -0.0272209, 0.0684254, 0.0539522
Part.SetPickMode
Part.SelectByID "", "FACE", -0.07032179147683, 0.08029316888189, 0.02548278377998
Part.AndSelectByID "", "FACE", -0.02522675925752, 0.144959541407, 0.05163532747861
Part.AddMate 1, 2, 0, 0.08683961175969, 0
Part.ClearSelection
Part.ClearSelection
Part.ViewZoomtofit2
Part.SelectByID "rotaryShuttleBallScrew-1@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.TranslateComponent
Part.ViewZoomTo2 -0.157798, 0.0753585, 0.0673553, -0.122267, 0.0389908, 0.0673553
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "", "FACE", -0.02225603909449, 0.1479629122563, 0.1825519829629
Part.ViewOrientationUndo
Part.AndSelectByID "", "FACE", -0.02656079790614, 0.1289132119249, 0.05885756462391
Part.AddMate 0, 2, 0, 0.1236944183389, 0
Part.ClearSelection
Part.ClearSelection
Part.SelectByID "rotaryShuttleBallScrew-1@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.OpenCompFile
swApp.LoadFile2 "C:\GENE\ESP\ESP2G\rotaryShuttle\rotaryShuttleBallScrew.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\GENE\ESP\ESP2G\rotaryShuttle\rotaryShuttleBallScrew.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 289
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("rotaryShuttleBallScrew.SLDPRT")
Part.ClearSelection
Part.SelectByID "Base-Extrude", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Base-Extrude", "BODYFEATURE", 0, 0, 0
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 578
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("rotaryShuttle.SLDASM")
Part.ShowNamedView2 "*Top", 5
Part.ViewZoomTo2 -0.0603404, -0.0380002, 0.104362, 0.0074528, -0.0653985, 0.104362
' 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.ViewOrientationUndo
Part.ShowNamedView2 "*Isometric", 7
Part.ViewZoomTo2 -0.19355, 0.170704, 0.0461434, -0.0320369, 0.0869116, 0.0461434
Part.SetPickMode
Part.SelectByID "", "FACE", -0.1341960951573, 0.1271080951927, 0.1113089080043
Part.AndSelectByID "", "FACE", -0.01736249063418, 0.1487672599105, 0.0424555806253
Part.AddMate 1, 2, 0, 0.1118076739426, 0
Part.ClearSelection
' MSGBOX
' Nothing has been changed.

Part.ShowNamedView2 "*Top", 5
Part.ClearSelection
Part.SelectByID "BALL NUT#2-1@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.TranslateComponent
Part.ClearSelection
Part.EditUndo 1
Part.ShowNamedView2 "*Isometric", 7
Part.SelectByID "", "EDGE", -0.02416224887594, 0.1176745202133, 0.02474402903175
Part.SelectByID "", "FACE", -0.0215708282833, 0.1255831686731, 0.02539999999993
Part.AndSelectByID "", "FACE", -0.02771385690113, 0.1238679066096, 0.05409506462388
Part.AddMate 5, 2, 0, 0.0286950646241, 0
Part.ClearSelection
Part.ClearSelection
Part.SelectByID "BALL NUT#2-1@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.TranslateComponent
Part.ShowNamedView2 "*Top", 5
Part.ShowNamedView2 "*Isometric", 7
Part.ClearSelection
Part.ShowNamedView2 "*Right", 4
Part.ShowNamedView2 "*Front", 1
Part.ShowNamedView2 "*Isometric", 7
Part.ViewDisplayShaded
Part.ViewDispTempRefaxes
Part.ViewDispOrigins
Part.ViewDispCurves
Part.ViewDispSketches
Part.SelectByID "drt50-1@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "linearGuide-1@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
Part.SelectByID "guideBarEndPlate-1@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
Part.SelectByID "guideBar-1@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
Part.SelectByID "guideBar-2@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
Part.SelectByID "BALL NUT#2-1@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
Part.SelectByID "rotaryShuttleBallScrew-1@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.CompConfigProperties3 2, 0, 1, 1
' MSGBOX
' C:\GENE\ESP\ESP2G\rotaryShuttle\rotaryShuttle.SLDASM has not been rebuilt successfully since the last feature change or an externally referenced model has changed.
' 	It is safest to rebuild before saving.
' 		Rebuild now?

Part.Save2 FALSE
Part.SelectByID "Base-Extrude@drt50-1@rotaryShuttle/drt50-1@drt50", "BODYFEATURE", 0, 0, 0
Part.FeatEdit
Part.ClearSelection
Part.InsertSketch
Part.SelectByID "drt50-1@rotaryShuttle/drt50-1@drt50", "COMPONENT", 0, 0, 0
Part.OpenCompFile
swApp.LoadFile2 "C:\GENE\ESP\ESP2G\rotaryShuttle\drt50.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\GENE\ESP\ESP2G\rotaryShuttle\drt50.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("drt50.SLDPRT")
Part.ClearSelection
Part.SelectByID "Sketch2", "SKETCH", 0, 0, 0
Part.EditDelete
Part.SelectByID "Base-Extrude", "BODYFEATURE", 0, 0, 0
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 578
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("rotaryShuttle.SLDASM")
Part.EditAssembly
' 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.SelectByID "Sketch5@rotaryShuttleBallScrew-1@rotaryShuttle", "SKETCH", 0, 0, 0
Part.SelectByID "Sketch5@rotaryShuttleBallScrew-1@rotaryShuttle", "SKETCH", 0, 0, 0
Part.ActivateSelectedFeature
Part.SelectByID "Sketch5@rotaryShuttleBallScrew-1@rotaryShuttle", "SKETCH", 0, 0, 0
Part.SelectByID "Boss-Extrude2@rotaryShuttleBallScrew-1@rotaryShuttle", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Boss-Extrude2@rotaryShuttleBallScrew-1@rotaryShuttle", "BODYFEATURE", 0, 0, 0
' MSGBOX
' This part has features defined in the context of another assembly <esp2g.sldasm>. You can edit the part, but cannot create any external references to the components of the current assembly.

Part.ClearSelection
Part.SelectByID "Boss-Extrude1@rotaryShuttleBallScrew-1@rotaryShuttle", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Boss-Extrude1@rotaryShuttleBallScrew-1@rotaryShuttle", "BODYFEATURE", 0, 0, 0
' MSGBOX
' This part has features defined in the context of another assembly <esp2g.sldasm>. You can edit the part, but cannot create any external references to the components of the current assembly.

Part.ClearSelection
Part.ShowNamedView2 "*Top", 5
Part.SelectByID "linearGuide-1@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.SelectByID "Base-Extrude@guideBar-1@rotaryShuttle", "BODYFEATURE", 0, 0, 0
Part.ClearSelection
Part.EditRebuild
Part.ClearSelection
Part.EditAssembly
Part.EditRebuild
Part.SelectByID "Boss-Extrude1@rotaryShuttleBallScrew-1@rotaryShuttle", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Boss-Extrude1@rotaryShuttleBallScrew-1@rotaryShuttle", "BODYFEATURE", 0, 0, 0
' MSGBOX
' This part has features defined in the context of another assembly <esp2g.sldasm>. You can edit the part, but cannot create any external references to the components of the current assembly.

Part.ClearSelection
Part.ClearSelection
Part.SelectByID "rotaryShuttleBallScrew-1@rotaryShuttle", "COMPONENT", 0, 0, 0
Part.BreakAllExternalReferences
Part.EditAssembly
Part.ClearSelection
Part.SelectByID "Boss-Extrude1@rotaryShuttleBallScrew-1@rotaryShuttle", "BODYFEATURE", 0, 0, 0
Part.ClearSelection
Part.ShowNamedView2 "*Back", 2
Part.ActiveView().RotateAboutCenter 0.0310463, -0.0313041
Part.ActiveView().RotateAboutCenter 0, 0.0234781
Part.ActiveView().RotateAboutCenter 0, 0.0626083
Part.ActiveView().RotateAboutCenter 0.00776158, 0.140869
Part.ActiveView().RotateAboutCenter 0.0155232, 0.172173
Part.ActiveView().RotateAboutCenter 0, 0.0313041
Part.ActiveView().RotateAboutCenter 0.00776158, 0.0391302
Part.ActiveView().RotateAboutCenter 0, 0.0234781
Part.ActiveView().RotateAboutCenter 0, 0.0234781
Part.ActiveView().RotateAboutCenter 0.00776158, 0.0391302
Part.ActiveView().RotateAboutCenter 0, 0.0313041
Part.ActiveView().RotateAboutCenter 0.00776158, 0.0234781
Part.ActiveView().RotateAboutCenter 0, 0.00782603
Part.ActiveView().RotateAboutCenter 0.00776158, 0
Part.ActiveView().RotateAboutCenter 0.00776158, 0
Part.ActiveView().RotateAboutCenter 0.00776158, 0
Part.ActiveView().RotateAboutCenter 0.00776158, 0
Part.ActiveView().RotateAboutCenter 0.0155232, 0
Part.ActiveView().RotateAboutCenter 0.0620927, 0
Part.ActiveView().RotateAboutCenter 0.19404, 0.00782603
Part.ActiveView().RotateAboutCenter 0.0620927, 0.00782603
Part.ActiveView().RotateAboutCenter 0.0155232, 0
Part.ActiveView().RotateAboutCenter 0.0465695, 0.0234781
Part.ActiveView().RotateAboutCenter 0.0232847, 0.0156521
Part.ActiveView().RotateAboutCenter 0, 0.00782603
Part.ActiveView().RotateAboutCenter 0.00776158, 0
Part.ActiveView().RotateAboutCenter -0.131947, 0.0156521
Part.ActiveView().RotateAboutCenter -0.807205, 0.148695
Part.ActiveView().RotateAboutCenter -0.457933, 0.140869
Part.ActiveView().RotateAboutCenter -0.512264, 0.164347
Part.ActiveView().RotateAboutCenter -0.131947, 0.0156521
Part.ActiveView().RotateAboutCenter -0.14747, 0.0234781
Part.ActiveView().RotateAboutCenter -0.0465695, 0.0156521
Part.ActiveView().RotateAboutCenter -0.093139, 0.00782603
Part.ActiveView().RotateAboutCenter -0.0465695, 0.00782603
Part.ActiveView().RotateAboutCenter -0.0155232, 0
Part.ActiveView().RotateAboutCenter -0.0232847, 0
Part.ActiveView().RotateAboutCenter -0.0388079, 0
Part.ActiveView().RotateAboutCenter -0.0698542, 0
Part.ActiveView().RotateAboutCenter -0.0155232, 0.00782603
Part.ActiveView().RotateAboutCenter -0.00776158, 0.00782603
Part.ActiveView().RotateAboutCenter 0.0155232, 0
Part.ActiveView().RotateAboutCenter 0.0155232, 0
Part.ActiveView().RotateAboutCenter 0.0776158, 0
Part.ActiveView().RotateAboutCenter 0.116424, -0.0156521
Part.ActiveView().RotateAboutCenter 0.116424, -0.0234781
Part.ActiveView().RotateAboutCenter 0.0620927, -0.0156521
Part.ActiveView().RotateAboutCenter 0.0232847, -0.0156521
Part.ActiveView().RotateAboutCenter 0.19404, -0.0782603
Part.ActiveView().RotateAboutCenter 0.0543311, -0.0234781
Part.ActiveView().RotateAboutCenter 0.139708, -0.0313041
Part.ActiveView().RotateAboutCenter 0.0310463, -0.00782603
Part.ActiveView().RotateAboutCenter 0.124185, -0.0234781
Part.ActiveView().RotateAboutCenter 0.0232847, -0.00782603
Part.ActiveView().RotateAboutCenter 0.108662, -0.0234781
Part.ActiveView().RotateAboutCenter 0.0232847, 0
Part.ActiveView().RotateAboutCenter 0.124185, -0.0156521
Part.ActiveView().RotateAboutCenter 0.0620927, -0.00782603
Part.ActiveView().RotateAboutCenter 0.178516, -0.0156521
Part.ActiveView().RotateAboutCenter 0.0388079, 0
Part.ActiveView().RotateAboutCenter 0.093139, -0.00782603
Part.ActiveView().RotateAboutCenter 0.170755, 0
Part.ActiveView().RotateAboutCenter 0.093139, 0
Part.ActiveView().RotateAboutCenter 0.178516, 0
Part.ActiveView().RotateAboutCenter 0.100901, 0
Part.ActiveView().RotateAboutCenter 0.14747, 0
Part.ActiveView().RotateAboutCenter 0.0698542, 0.00782603
Part.ActiveView().RotateAboutCenter 0.0853774, 0.0156521
Part.ActiveView().RotateAboutCenter 0.0310463, 0.00782603
Part.ActiveView().RotateAboutCenter 0.093139, 0
Part.ActiveView().RotateAboutCenter 0.0853774, 0
Part.ActiveView().RotateAboutCenter 0, 0.00782603
Part.ActiveView().RotateAboutCenter 0.0776158, 0
Part.ActiveView().RotateAboutCenter 0.0853774, 0.00782603
Part.ActiveView().RotateAboutCenter 0, 0.00782603
Part.ActiveView().RotateAboutCenter 0.0776158, 0.00782603
Part.ActiveView().RotateAboutCenter 0.0776158, 0.00782603
Part.ActiveView().RotateAboutCenter 0.0776158, 0
Part.ActiveView().RotateAboutCenter 0.00776158, 0.00782603
Part.ActiveView().RotateAboutCenter 0.0853774, 0
Part.ActiveView().RotateAboutCenter 0.093139, -0.0391302
Part.ActiveView().RotateAboutCenter 0.00776158, -0.0391302
Part.ActiveView().RotateAboutCenter 0.093139, -0.0313041
Part.ActiveView().RotateAboutCenter 0.0776158, 0
Part.ActiveView().RotateAboutCenter 0.0853774, -0.00782603
Part.ActiveView().RotateAboutCenter 0.0776158, 0
Part.ActiveView().RotateAboutCenter 0.0776158, 0
Part.ActiveView().RotateAboutCenter 0.0776158, 0
Part.ActiveView().RotateAboutCenter 0.0776158, 0
Part.ActiveView().RotateAboutCenter 0.0776158, 0
Part.ActiveView().RotateAboutCenter 0.0776158, 0
Part.ActiveView().RotateAboutCenter -0.00776158, -0.00782603
Part.ActiveView().RotateAboutCenter 0.0543311, 0
Part.ActiveView().RotateAboutCenter 0.0310463, 0
Part.ActiveView().RotateAboutCenter -0.19404, 0
Part.ActiveView().RotateAboutCenter -0.093139, 0
Part.ActiveView().RotateAboutCenter -0.217324, 0.0234781
Part.ActiveView().RotateAboutCenter -0.100901, 0.00782603
Part.ActiveView().RotateAboutCenter -0.240609, 0.0156521
Part.ActiveView().RotateAboutCenter -0.0853774, 0.00782603
Part.ActiveView().RotateAboutCenter -0.0310463, 0.00782603
Part.ActiveView().RotateAboutCenter -0.124185, 0.0313041
Part.ActiveView().RotateAboutCenter -0.0543311, 0.0234781
Part.ActiveView().RotateAboutCenter -0.00776158, 0
Part.ActiveView().RotateAboutCenter 0.00776158, 0
Part.ActiveView().RotateAboutCenter 0.00776158, 0
Part.ActiveView().RotateAboutCenter 0, -0.00782603
Part.AndSelectByMark "", "FACE", -0.002997137869215, 0.09601365352836, -0.07052368537589, 1
Part.SelectByID "Boss-Extrude1@rotaryShuttleBallScrew-1@rotaryShuttle", "BODYFEATURE", 0, 0, 0
Part.SelectByID "Boss-Extrude1@rotaryShuttleBallScrew-1@rotaryShuttle", "BODYFEATURE", 0, 0, 0
Part.ClearSelection
Part.ShowNamedView2 "*Top", 5
Part.ClearSelection
Part.EditAssembly
Part.ShowNamedView2 "*Isometric", 7
Part.ShowNamedView2 "*Top", 5
' 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
swApp.LoadFile2 "C:\GENE\ESP\ESP2G\esp2g.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\GENE\ESP\ESP2G\esp2g.SLDASM", 2, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("esp2g.SLDASM")
' MSGBOX
' Lightweight parts will not be used in this assembly until you save 
' the assembly in shaded mode, in SolidWorks 98Plus or a later version.

Part.ShowNamedView2 "*Isometric", 7
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 593
swApp.ActiveDoc.ActiveView.FrameHeight = 289
Set Part = swApp.ActivateDoc ("rotaryShuttle.SLDASM")
Part.SelectByID "drt50-1@rotaryShuttle/drt50-1@drt50", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("esp2g.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditUndo 1
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
Set Part = swApp.ActivateDoc ("rotaryShuttle.SLDASM")
Part.SelectByID "rotaryShuttle.SLDASM", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("esp2g.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "", "FACE", 0.2368168873602, 0.1170558813416, 0.04260044232296
Part.SelectByID "", "FACE", 0.2364325852021, 0.1159240851924, 0.0442583107295
Part.SelectByID "", "FACE", 0.1716398744161, 0.05114190418846, -0.02053440005659
Part.ActiveView().RotateAboutCenter -0.00742944, 0
Part.ActiveView().RotateAboutCenter -0.00742944, 0
Part.ActiveView().RotateAboutCenter -0.0148589, -0.00782603
Part.ActiveView().RotateAboutCenter -0.0965827, -0.0391302
Part.ActiveView().RotateAboutCenter -0.0222883, -0.0156521
Part.ActiveView().RotateAboutCenter -0.0222883, 0
Part.ActiveView().RotateAboutCenter -0.126301, -0.00782603
Part.ActiveView().RotateAboutCenter -0.0594355, -0.00782603
Part.ActiveView().RotateAboutCenter -0.0371472, -0.00782603
Part.ActiveView().RotateAboutCenter -0.0817239, -0.0156521
Part.ActiveView().RotateAboutCenter -0.0148589, -0.00782603
Part.ActiveView().RotateAboutCenter -0.0148589, 0
Part.ActiveView().RotateAboutCenter -0.0371472, -0.0156521
Part.ActiveView().RotateAboutCenter -0.126301, -0.0313041
Part.ActiveView().RotateAboutCenter -0.0222883, -0.00782603
Part.ActiveView().RotateAboutCenter -0.0445767, -0.00782603
Part.ActiveView().RotateAboutCenter -0.104012, -0.0234781
Part.ActiveView().RotateAboutCenter -0.0520061, -0.0156521
Part.ActiveView().RotateAboutCenter -0.148589, -0.0234781
Part.ActiveView().RotateAboutCenter -0.0594355, -0.00782603
Part.ActiveView().RotateAboutCenter -0.0148589, -0.00782603
Part.ActiveView().RotateAboutCenter -0.0222883, 0
Part.ActiveView().RotateAboutCenter -0.0371472, -0.0156521
Part.ActiveView().RotateAboutCenter -0.0148589, 0
Part.ActiveView().RotateAboutCenter -0.0148589, -0.00782603
Part.ActiveView().RotateAboutCenter -0.0148589, 0
Part.ActiveView().RotateAboutCenter -0.00742944, -0.00782603
Part.ActiveView().RotateAboutCenter 0, -0.00782603
Part.AndSelectByID "", "FACE", 0.1529118446622, 0.1328309762879, -0.3141162855827
Part.AddMate 0, 2, 0, 0.08168907209927, 0
Part.ClearSelection
Part.ShowNamedView2 "*Isometric", 7
Part.ClearSelection
Part.ShowNamedView2 "*Top", 5
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 289
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("rotaryShuttle.SLDASM")
Part.ViewDisplayHiddengreyed
Part.SelectByID "Coincident1", "MATE", 0, 0, 0
Part.SelectByID "Concentric1", "MATE", 0, 0, 0
Part.SelectByID "Concentric1", "MATE", 0, 0, 0
Part.DeSelectByID "", "EDGE", 0, 0, 0
Part.AndSelectByID "", "EDGE", -0.003701943589764, 0.08701844262305, 0.001359774173817
Part.ClearSelection 
Part.SelectByMark "", "EDGE", 0, 0, 0, 8
Part.AndSelectByMark "", "EDGE", -0.003701943589764, 0.08701844262305, 0.001359774173817, 8
Part.AndSelectByID "Concentric1", "MATE", 0, 0, 0
Part.EditMate 1, 0, 0, 0.01, 0.5235987755983
Part.ClearSelection
Part.ClearSelection
Part.SelectByID "", "EDGE", -0.01199199018944, 0.1060684426229, -0.0447231319244
Part.AndSelectByID "", "EDGE", -0.04783425048806, 0.08401844262295, 0.01403866897333
Part.AddMate 3, 2, 0, 0.02205, 1.570796326795
Part.ClearSelection
Part.ClearSelection 
Part.SelectByMark "", "EDGE", -0.04837090163934, 0.08401844262295, -0.02625, 8
Part.AndSelectByMark "", "EDGE", 0.04137909836066, 0.106068442623, 0.028575, 8
Part.AndSelectByID "Parallel2", "MATE", 0, 0, 0
Part.EditMate 3, 0, 0, 0.01, 0.5235987755983
Part.ClearSelection
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("esp2g.SLDASM")
Part.SelectByID "Front@rotaryShuttle-1@esp2g", "PLANE", 0, 0, 0
Part.AndSelectByID "Front@topPlate-1@esp2g", "PLANE", 0, 0, 0
Part.AndSelectByID "Top@topPlate-1@esp2g", "PLANE", 0, 0, 0
Part.ClearSelection
Part.SelectByID "Front@rotaryShuttle-1@esp2g", "PLANE", 0, 0, 0
Part.ClearSelection
' 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.SelectByID "topPlate-1@esp2g", "COMPONENT", 0, 0, 0
Part.OpenCompFile
swApp.LoadFile2 "C:\GENE\ESP\ESP2G\framework\topPlate.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\GENE\ESP\ESP2G\framework\topPlate.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("topPlate.SLDPRT")
Part.ClearSelection
Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0
Part.AndSelectByID "Top", "PLANE", 0, 0, 0
Part.SelectByID "Front", "PLANE", 0, 0, 0
Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0
Part.EditSketch
Part.ClearSelection
Part.SelectByID "Point50", "SKETCHPOINT", -0.1166067500795, 0.0340308566182, 0
Part.SelectByID "Arc21", "SKETCHSEGMENT", -0.06406168247697, 0.01414832073616, 0
Part.AndSelectByID "Front", "PLANE", 0, 0, 0
Part.ClearSelection
Part.InsertSketch
Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0
Part.EditSketch
Part.ClearSelection
Part.SelectByID "Point50", "SKETCHPOINT", -0.1166067500795, 0.0340308566182, 0
Part.AndSelectByID "Front", "PLANE", 0, 0, 0
Part.SketchAddConstraints "sgCOINCIDENT"
Part.EditRebuild
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("esp2g.SLDASM")
Part.SelectByID "carousel-1@esp2g", "COMPONENT", 0, 0, 0
Part.SelectByID "topPlate-1@esp2g", "COMPONENT", 0, 0, 0
Part.TranslateComponent
Part.ClearSelection
Part.SelectByID "carousel-1@esp2g", "COMPONENT", 0, 0, 0
Part.FixComponent
Part.ClearSelection
Part.SelectByID "Coincident42", "MATE", 0, 0, 0
Part.EditDelete
Part.SelectByID "Coincident45", "MATE", 0, 0, 0
Part.EditDelete
Part.SelectByID "", "EDGE", 0.1094162722459, 0.05114190418851, 0.07011688383486
Part.AndSelectByID "", "EDGE", 0.09851092866708, 0.05114190418857, -0.02984876563793
Part.AddMate 1, 2, 0, 0.01, 0.5235987755983
Part.ClearSelection
Part.ClearSelection
Part.SelectByID "housing-1@esp2g", "COMPONENT", 0, 0, 0
Part.TranslateComponent
Part.ClearSelection
Part.SelectByID "rotaryShuttle-1@esp2g", "COMPONENT", 0, 0, 0
Part.TranslateComponent
Part.SelectByID "", "EDGE", 0.2175609294029, 0.08314190418855, -0.3542827371087
Part.ClearSelection
Part.SelectByID "Front@rotaryShuttle-1@esp2g", "PLANE", 0, 0, 0
Part.AndSelectByID "Front@topPlate-1@esp2g", "PLANE", 0, 0, 0
Part.AddMate 0, 2, 0, 0.02723685658996, 0
Part.ClearSelection
Part.ClearSelection
Part.SelectByID "rotaryShuttle-1@esp2g", "COMPONENT", 0, 0, 0
Part.TranslateComponent
Part.SelectByID "", "FACE", 0.1666693260349, 0.1286964711613, 0.001958486467048
Part.ClearSelection
Part.SelectByID "elevator4-1@esp2g", "COMPONENT", 0, 0, 0
Part.TranslateComponent
Part.SelectByID "", "EDGE", 0.1657605474033, 0.04161690418857, 0.06920810520329
Part.ShowNamedView2 "*Isometric", 7
Part.ShowNamedView2 "*Top", 5
Part.ClearSelection
Part.EditRebuild
' 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.SelectByID "Coincident33", "MATE", 0, 0, 0
Part.SelectByID "Coincident40", "MATE", 0, 0, 0
Part.ShowNamedView2 "*Front", 1
Part.SelectByID "Distance5", "MATE", 0, 0, 0
Part.EditDelete
Part.SelectByID "Distance10", "MATE", 0, 0, 0
Part.EditDelete
Part.ShowNamedView2 "*Isometric", 7
Part.ShowNamedView2 "*Top", 5
Part.SelectByID "elevator4-1@esp2g", "COMPONENT", 0, 0, 0
Part.TranslateComponent
Part.SelectByID "", "EDGE", 0.165162193791, 0.04161690418846, 0.07368832794825
Part.ClearSelection
Part.SelectByID "Front@elevator4-1@esp2g", "PLANE", 0, 0, 0
Part.AndSelectByID "Front@topPlate-1@esp2g", "PLANE", 0, 0, 0
Part.AddMate 0, 2, 0, 0.04758452190512, 0
Part.ClearSelection
Part.ClearSelection
Part.Save2 FALSE
Part.ShowNamedView2 "*Isometric", 7
Part.ShowNamedView2 "*Front", 1
Part.Save2 FALSE
swApp.ArrangeWindows 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 192
swApp.ActiveDoc.ActiveView.FrameTop = 198
swApp.ActiveDoc.ActiveView.FrameWidth = 931
swApp.ActiveDoc.ActiveView.FrameHeight = 603
Set Part = swApp.ActivateDoc ("topPlate.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "topPlate.SLDPRT"
Set Part = swApp.ActivateDoc ("esp2g.SLDASM")
Set Part = swApp.ActivateDoc ("rotaryShuttle.SLDASM")
Set Part = Nothing
swApp.CloseDoc "rotaryShuttle.SLDASM"
Set Part = swApp.ActivateDoc ("esp2g.SLDASM")
Set Part = swApp.ActivateDoc ("drt50.SLDPRT")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "drt50.SLDPRT"
Set Part = swApp.ActivateDoc ("esp2g.SLDASM")
Set Part = swApp.ActivateDoc ("rotaryShuttleBallScrew.SLDPRT")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "rotaryShuttleBallScrew.SLDPRT"
Set Part = swApp.ActivateDoc ("esp2g.SLDASM")
Set Part = swApp.ActivateDoc ("guideBarEndPlate.SLDPRT")
Set Part = Nothing
swApp.CloseDoc "guideBarEndPlate.SLDPRT"
Set Part = swApp.ActivateDoc ("esp2g.SLDASM")
Set Part = swApp.ActivateDoc ("BALL NUT#2.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = -15
swApp.ActiveDoc.ActiveView.FrameTop = -5
swApp.ActiveDoc.ActiveView.FrameLeft = -32
swApp.ActiveDoc.ActiveView.FrameTop = -11
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "BALL NUT#2.SLDPRT"
Set Part = swApp.ActivateDoc ("esp2g.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 192
swApp.ActiveDoc.ActiveView.FrameTop = 198
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\Assembly.asmdot", ""
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\Assembly.asmdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Assem1")
swApp.LoadFile2 "C:\GENE\ESP\ESP2G\elevator\BALL NUT#2.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\GENE\ESP\ESP2G\elevator\BALL NUT#2.SLDPRT", 1, 0, "", longstatus)
' MSGBOX
' A document named "BALL NUT#2" is already opened. Do you want to show this already-opened document?

swApp.LoadFile2 "C:\GENE\ESP\ESP2G\elevator\BALL NUT#2.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\GENE\ESP\ESP2G\elevator\BALL NUT#2.SLDPRT", 1, 0, "", longstatus)
' MSGBOX
' A document named "BALL NUT#2" is already opened. Do you want to show this already-opened document?

swApp.ActiveDoc.ActiveView.FrameLeft = -32
swApp.ActiveDoc.ActiveView.FrameTop = -11
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("BALL NUT#2.SLDPRT")
swApp.LoadFile2 "C:\GENE\ESP\ESP2G\elevator\ballScrewLS.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\GENE\ESP\ESP2G\elevator\ballScrewLS.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ballScrewLS.SLDPRT")
swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\Assembly.asmdot", ""
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\Assembly.asmdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Assem2")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 593
swApp.ActiveDoc.ActiveView.FrameHeight = 433
Set Part = swApp.ActivateDoc ("ballScrewLS.SLDPRT")
Part.SelectByID "ballScrewLS.SLDPRT", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Assem2")
Set Part = swApp.ActivateDoc ("BALL NUT#2.SLDPRT")
Part.SelectByID "", "EDGE", 0.009349537271305, 0.006695842472539, -0.0004525542433385
Set Part = swApp.ActivateDoc ("Assem2")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ShowNamedView2 "*Isometric", 7
Part.ViewDisplayHiddengreyed
Part.ViewZoomTo2 -0.000988648, 0.0457856, -0.0953186, 0.0832329, -0.0748043, -0.0953186
Part.SetPickMode
Part.SelectByID "", "FACE", 0.03399567826648, -0.05381388930857, 0.014277443087
Part.AndSelectByID "", "FACE", 0.002748114534313, 0.003889636583835, -0.04650610049924
Part.AddMate 1, 2, 0, 0.06179770735507, 0
Part.ClearSelection
Part.ClearSelection 
Part.SelectByMark "", "FACE", -0.004762500000001, 0, -0.1707938885177, 8
Part.AndSelectByMark "", "FACE", -0.0047625, 0, 0, 8
Part.AndSelectByID "Concentric1", "MATE", 0, 0, 0
Part.EditMate 1, 1, 0, 0.01, 0.5235987755983
Part.ClearSelection
Part.ClearSelection
Part.SelectByID "Concentric1", "MATE", 0, 0, 0
Part.ClearSelection 
Part.SelectByMark "", "FACE", -0.004762500000001, 0, -0.1707938885177, 8
Part.AndSelectByMark "", "FACE", 0.004399254701665, 0.001824270900901, -0.0387604, 8
Part.AndSelectByID "Concentric1", "MATE", 0, 0, 0
Part.EditMate 1, 0, 0, 0.01, 0.5235987755983
Part.ClearSelection
Part.ClearSelection
Part.SelectByID "BALL NUT#2-1@Assem2", "COMPONENT", 0, 0, 0
Part.TranslateComponent
Part.ClearSelection
Part.ShowNamedView2 "*Top", 5
Part.ShowNamedView2 "*Top", 5
Part.ShowNamedView2 "*Right", 4
Part.ShowNamedView2 "*Front", 1
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
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.ShowNamedView2 "*Top", 5
Part.CreateCircle 0, 0, 0, 0.05026662883087, 0.055023723042, 0
Part.CreateCircle 0, 0, 0, 0.04646095346198, 0.05153518728717, 0
Part.ClearSelection
Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.05355688995759, 0.0441152497827, 0
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0.05842970697868, 0.046263521416, 0
Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.05751280102162, 0.03881717975288, 0
' MSGBOX
' A dimension could not be created from the selected items.

Part.ClearSelection
Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.05015187982104, 0.04795085688219, 0
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0.05501014927788, 0.05028148315084, 0
' MSGBOX
' Cannot dimension between concentric arcs.

Part.ClearSelection
Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.05814412567169, 0.03786497557366, 0
Part.AndSelectByID "Arc1", "SKETCHSEGMENT", 0.06148430425326, 0.04211916905538, 0
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.06178864980425, 0.04167141498426, 0
' MSGBOX
' A dimension could not be created from the selected items.

Part.ClearSelection
Part.SelectByID "Point2", "SKETCHPOINT", 0, 0, 0
' MSGBOX
' A dimension could not be created from the selected items.

Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Arc2", "SKETCHSEGMENT", -0.04707029229271, 0.05097924390179, 0
Part.EditDelete
Part.CreateCircle -0.01855266742338, 0.01284415437003, 0, 0.07246640181612, 0.08578626560726, 0
Part.ClearSelection
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.05824259784908, 0.04649885877324, 0
Part.AndSelectByID "Arc3", "SKETCHSEGMENT", 0.08762204246321, 0.06113445916785, 0
Part.AddDimension 0.0128442, 0, -0.0994233
Part.ClearSelection
Part.Parameter("D1@Sketch1").SystemValue = 0.0225649
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.ViewZoomtofit2
Part.SelectByID "D1@Sketch1@Part1.SLDPRT", "DIMENSION", 0.05344465011258, 0, 0.1418930109513
Part.Parameter("D1@Sketch1").SystemValue = 0.0015875
Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.1040171115864, 0.16011544269, 0
Part.AndSelectByID "Arc3", "SKETCHSEGMENT", -0.0841623205857, 0.1756041269794, 0
Part.SketchAddConstraints "sgTANGENT"
Part.ViewZoomTo2 -0.189003, 0.131803, -2.74244e-016, -0.163142, 0.111868, -1.35042e-016
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.1749240712953, 0.1227302253253, 0
Part.AddDimension -0.184218, 0, -0.124111
Part.ClearSelection
Part.Parameter("D2@Sketch1").SystemValue = 0.0254
Part.ViewZoomtofit2
Part.ClearSelection
Part.SelectByID "D1@Sketch1@Part1.SLDPRT", "DIMENSION", -0.131229210999, 0, -0.2020192310154
Part.ViewZoomtofit2
Part.SelectByID "Point2", "SKETCHPOINT", -0.1753381383537, 0.1213879419372, 0
' MSGBOX
' The sketch is over defined.  Consider deleting some over defining dimensions or relations.

Part.EditUndo 1
Part.SelectByID "Point2", "SKETCHPOINT", -0.1753381383537, 0.1213879419372, 0
' MSGBOX
' The sketch is over defined.  Consider deleting some over defining dimensions or relations.

Part.EditUndo 1
Part.ClearSelection
Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.1784895158942, 0.1336907391637, 0
Part.AndSelectByID "Arc3", "SKETCHSEGMENT", -0.1732432415224, 0.1350508260278, 0
' MSGBOX
' The sketch is over defined.  Consider deleting some over defining dimensions or relations.

Part.SketchAddConstraints "sgCONCENTRIC"
Part.ClearSelection
' MSGBOX
' The sketch is no longer over defined.

Part.SelectByID "Point2", "SKETCHPOINT", -0.1753381383537, 0.1213879419372, 0
Part.ViewZoomtofit2
Part.FeatureExtrusion3 1, 0, 0, 0, 0, 0.254, 0.00254, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, 0, 0, 1
Part.SaveAs2 "C:\GENE\ESP\ESP2G\elevator\guideTube.SLDPRT", 0, FALSE, FALSE
Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0
Part.EditSketch
Part.ClearSelection
Part.ShowNamedView2 "*Top", 5
Part.CreateLine2( -0.001976218327537, 0, 0, 0.01866507381627, 0, 0 ).ConstructionGeometry = TRUE
Part.CreateLine2 0.008941489913816, 0.001106260794762, 0, 0.01712977109483, 0.001106260794762, 0
Part.ClearSelection
Part.SelectByID "Line1", "SKETCHSEGMENT", 0.01644741432975, 0, 0
Part.AndSelectByID "Line2", "SKETCHSEGMENT", 0.01587878369218, 0.001106260794762, 0
Part.AddDimension 0.018267, 0, -0.00719061
Part.ClearSelection
Part.Parameter("D3@Sketch1").SystemValue = 0.0015875
Part.SetPickMode
Part.ClearSelection
Part.AndSelectByID "Line2", "SKETCHSEGMENT", 0, 0, 0
Part.AndSelectByID "Line1", "SKETCHSEGMENT", 0, 0, 0
Part.SketchMirror
Part.ClearSelection
Part.SetPickMode
Part.SelectByID "Arc3", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01366112420565, 0.0008219454759771
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01269445212178, 0.0009356716034912
Part.SetPickMode
Part.SelectByID "Arc3", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01349053501438, -0.000542768054192
Part.SetPickMode
Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01269445212178, -0.0005996311179491
Part.SetPickMode
Part.SelectByID "Line3", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01502583773582, -0.001452577074305
Part.SetPickMode
Part.SelectByID "Line3", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, 0.01036306650774, -0.001509440138062
Part.SetPickMode
Part.SelectByID "Line2", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 1, 0.01593564675593, 0.001674891432333
Part.SetPickMode
Part.SelectByID "Line2", "SKETCHSEGMENT", 0.0, 0.0, 0.0
Part.SketchTrim 1, 0, 0.01076110795404, 0.001845480623604
Part.EditRebuild
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 609
swApp.ActiveDoc.ActiveView.FrameHeight = 289
Part.SelectByID "guideTube.SLDPRT", "COMPONENT", 0, 0, 0
Set Part = swApp.ActivateDoc ("Assem2")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 289
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomtofit2
Part.SelectByID "Front@guideTube-1@Assem2", "PLANE", 0, 0, 0
Part.ShowNamedView2 "*Isometric", 7
Part.AndSelectByID "Top", "PLANE", 0, 0, 0
Part.AddMate 0, 2, 0, 0, 1.570796326795
Part.ClearSelection
Part.ClearSelection
Part.SelectByID "Top@guideTube-1@Assem2", "PLANE", 0, 0, 0
Part.ViewZoomTo2 0.224474, 0.14991, -0.0915005, 0.250955, 0.126438, -0.0915005
Part.AndSelectByID "", "FACE", -0.001953747283835, 0.002729190566697, -0.3344757770355
Part.AddMate 0, 2, 0, 0.1760008885177, 0
Part.ClearSelection
Part.ShowNamedView2 "*Top", 5
Part.ClearSelection
Part.ShowNamedView2 "*Isometric", 7
Part.SetPickMode
Part.SetPickMode
Part.SelectByID "guideTube-1@Assem2", "COMPONENT", 0, 0, 0
Part.SelectByID "Base-Extrude@guideTube-1@Assem2", "BODYFEATURE", 0, 0, 0
' MSGBOX
' Editing a part is not allowed because the assembly has not been saved.  Please save the assembly before editing the part.

' 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.SaveAs2 "C:\GENE\ESP\ESP2G\elevator\elevator5.SLDASM", 0, FALSE, FALSE
Part.SelectByID "Base-Extrude@guideTube-1@elevator5", "BODYFEATURE", 0, 0, 0
Part.ClearSelection
Part.ViewZoomTo2 -0.0183901, 0.0236643, -0.0958736, 0.0259505, -0.019549, -0.0958736
Part.AndSelectByMark "", "FACE", -0.002356173254441, 0.002673917576203, -0.007112000000006, 1
Part.ShowNamedView2 "*Top", 5
Part.ViewZoomTo2 -0.0381908, 0.0278568, -0.000584916, 0.0376716, -0.00823902, -0.000584916
Part.SelectByID "Base-Extrude@guideTube-1@elevator5", "BODYFEATURE", 0, 0, 0
Part.ClearSelection
Part.ShowNamedView2 "*Top", 5
Part.EditAssembly
Part.ClearSelection
' 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.ShowNamedView2 "*Front", 1
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
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 ("Part2")
Part.SelectByID "Top", "PLANE", 0, 0, 0
Part.ActivateSelectedFeature
Part.InsertSketch
Part.ShowNamedView2 "*Top", 5
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
Part.InsertSketch
Part.SelectByID "Top", "PLANE", 0, 0, 0
Part.InsertSketch
Part.CreateCircle 0, 0, 0, 0.02996969353008, 0.02743257661748, 0
Part.CreateCircle 0, 0, 0, 0.01601555051078, 0.01220987514188, 0
Part.FeatureExtrusion3 1, 0, 0, 0, 0, 0.01905, 0.00254, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, 0, 0, 1
Part.SaveAs2 "C:\GENE\ESP\ESP2G\elevator\guidePlug.SLDPRT", 0, FALSE, FALSE
swApp.ActiveDoc.ActiveView.FrameLeft = 609
swApp.ActiveDoc.ActiveView.FrameTop = 578
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("esp2g.SLDASM")
Part.Save2 FALSE
swApp.ActiveDoc.ActiveView.FrameLeft = 609
swApp.ActiveDoc.ActiveView.FrameTop = 289
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Assem1")
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 609
swApp.ActiveDoc.ActiveView.FrameTop = 578
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("esp2g.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("guidePlug.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 609
swApp.ActiveDoc.ActiveView.FrameTop = 289
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Assem1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("guidePlug.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("guideTube.SLDPRT")
Part.ClearSelection
Part.ClearSelection
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("guidePlug.SLDPRT")
Part.ClearSelection
swApp.ExitApp
End Sub