' ******************************************************************************
' swxJRNL.swj - journal recorded on 07/21/03 by jfeldman
' *****************************************************************************
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 = Application.SldWorks

Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\arm & gripper\finger.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("finger.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("left", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ShowConfiguration "left"
Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\arm & gripper\finger-left.SLDPRT", 0, TRUE, FALSE
boolstatus = Part.Extension.SelectByID("right", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("right", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ShowConfiguration "right"
Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\arm & gripper\finger-right.SLDPRT", 0, TRUE, FALSE
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point29", "SKETCHPOINT", 0.01855505168944, -0.009398, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.00978081, -0.0199975, 0)
Part.ClearSelection
' MSGBOX
' This dimension is over defined.  Its value cannot be changed.

Part.ClearSelection
Part.SetPickMode
Part.InsertSketch2 True
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\ESP2G JASON.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\ESP2G JASON.SLDASM", 2, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
boolstatus = Part.Extension.SelectByID("top-plate-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("carousel-body-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("gripper-base-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("gripper-base-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("gripper-slide-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("gripper-base-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
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.InsertSketch2 True
Part.SketchRectangle -0.0481906747536, 0.0424713419257, 0, 0.05920568612585, -0.0470992255615, 0, 1
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.01535746777862, 0.0427154825507, 0, False, 0, Nothing)
Part.SelectMidpoint
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgVERTPOINTS"
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.007731690674754, 0.04229182826715, 0, False, 0, Nothing)
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("finger.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Part1")
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.001376876421531, 0.02915854547716, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0234069, 0.0535187, 0)
Part.ClearSelection
Part.Parameter("D1@Sketch1").SystemValue = 0.00508
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.00963813495072, -0.07061203829843, 0, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.000105914, -0.0814152, 0)
Part.ClearSelection
Part.Parameter("D2@Sketch1").SystemValue = 0.04572
Part.ViewZoomtofit2
Part.SetPickMode
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("finger.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Part1")
boolstatus = Part.Extension.SelectByID("Point1@Origin", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.006889362447111, -0.07055095269747, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0338791, -0.0386445, 0)
Part.ClearSelection
Part.Parameter("D3@Sketch1").SystemValue = 0.02159
Part.SetPickMode
Part.ClearSelection
Part.ClearSelection 
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.00475996, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ShowNamedView2 "*Front", 1
boolstatus = Part.Extension.SelectByID("Part1.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ViewDisplayHiddengreyed
boolstatus = Part.Extension.SelectByID("", "FACE", 0.01353768006065, 0.000468426838514, 0.004759960000001, False, 0, Nothing)
Part.FeatureManager.HoleWizard 2, 0, 18, "1/8", 1, 0.003175, 0.00475996, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1
boolstatus = Part.Extension.SelectByID("Right", "PLANE", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("1/8 (0.125000) Diameter Hole1", "BODYFEATURE", 0, 0, 0, True, 0, Nothing)

Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("Right", "PLANE", 0, 0, 0, False, 2, Nothing)
boolstatus = Part.Extension.SelectByID("1/8 (0.125000) Diameter Hole1", "BODYFEATURE", 0, 0, 0, True, 1, Nothing)
Part.FeatureManager.InsertMirrorFeature  False, False, False, False

swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 1538
swApp.ActiveDoc.ActiveView.FrameHeight = 354
Set Part = swApp.ActivateDoc ("finger.SLDPRT")
Part.InsertSketch2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 354
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("3/16 (0.187500) Diameter Hole1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\arm & gripper\finger-left.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\arm & gripper\finger-left.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("finger-left.SLDPRT")
boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\arm & gripper\finger-right.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\arm & gripper\finger-right.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("finger-right.SLDPRT")
boolstatus = Part.Extension.SelectByID("LPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.ActivateSelectedFeature
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("finger-right.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("finger-left.SLDPRT")
boolstatus = Part.Extension.SelectByID("finger-left.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 769
swApp.ActiveDoc.ActiveView.FrameHeight = 532
Set Part = swApp.ActivateDoc ("Part1")
Part.ClearSelection
swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\Assembly.asmdot", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\Assembly.asmdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Assem1")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameWidth = 769
swApp.ActiveDoc.ActiveView.FrameHeight = 354
Set Part = swApp.ActivateDoc ("Part1")
Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\arm & gripper\sliding-plate.SLDPRT", 0, FALSE, FALSE
boolstatus = Part.Extension.SelectByID("sliding-plate.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("Assem1")
Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\arm & gripper\gripper-plate.SLDASM", 0, FALSE, FALSE
Set Part = swApp.ActivateDoc ("sliding-plate.SLDPRT")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "sliding-plate.SLDPRT"
Set Part = swApp.ActivateDoc ("gripper-plate.SLDASM")
boolstatus = Part.Extension.SelectByID("gripper-plate.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 708
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 769
swApp.ActiveDoc.ActiveView.FrameHeight = 532
Set Part = swApp.ActivateDoc ("finger-right.SLDPRT")
boolstatus = Part.Extension.SelectByID("finger-right.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1701486213266, 0.1424237555505, 0.07884973567633, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.04887962991941, 0.179147290289, -0.0622239313077, True, 0, Nothing)
Part.AddMate 1, 2, False, 0.2572792240941, 3.05432619099
Part.ClearSelection
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1757849097726, 0.117111101847, 0.07928313035146, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1291200687392, 0.1698689917184, -0.1859409443268, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("gripper-plate-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("gripper-plate-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.FixComponent
Part.ClearSelection
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1863520823402, 0.1684684141274, 0.007083776443522, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.186488853196, 0.1700590958177, -0.1304819760334, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.199671072548, 0.165820961244, -0.1474151778471, True, 0, Nothing)
Part.AddMate 5, 2, False, 0.0008128, 0
Part.ClearSelection
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Distance2", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Concentric2", "MATE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
Part.ViewZoomtofit2
Part.TranslateComponent
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1981440616375, 0.1748817724303, -0.1355074302696, False, 0, Nothing)
Part.RotateComponent
Part.TranslateComponent
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1268942545933, 0.1797393410068, -0.1244624003156, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1351676437867, 0.1613420065182, -0.1178779225779, False, 0, Nothing)
Part.ClearSelection
Part.SetPickMode
' MSGBOX
' Please select one object

boolstatus = Part.Extension.SelectByID("", "FACE", 0.1732849525771, 0.1767228273569, -0.1310649769999, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.127893472579, 0.166689338159, -0.1149944749726, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1826898284967, 0.1795081482942, -0.1265305187323, True, 0, Nothing)
Part.AddMate 5, 2, False, 0.0008128, 0.3917196066033
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1409702190862, 0.1535053014374, -0.1225128691739, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1548036642579, 0.17839855785, -0.130720482392, True, 0, Nothing)
Part.AddMate 1, 2, False, 0.02907000514638, 0
Part.ClearSelection
Part.RotateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1630865947148, 0.1696119283274, -0.1221601161202, False, 0, Nothing)
Part.ClearSelection
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
Set Part = swApp.ActivateDoc ("finger.SLDPRT")
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "finger.SLDPRT"
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
Set Part = swApp.ActivateDoc ("gripper-plate.SLDASM")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "gripper-plate.SLDASM"
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
Set Part = swApp.ActivateDoc ("finger-right.SLDPRT")
Part.Save2 FALSE
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "finger-right.SLDPRT"
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
Set Part = swApp.ActivateDoc ("finger-left.SLDPRT")
boolstatus = Part.Extension.SelectByID("finger-left.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.RotateComponent
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1961015611493, 0.242608080979, -0.1293417905537, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1925285721857, 0.2262083854682, -0.1313012907588, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1765069509128, 0.1693186422469, -0.1256390524662, True, 0, Nothing)
Part.AddMate 5, 2, False, 0.0008128, 0.316357483684
Part.ClearSelection
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1915083870476, 0.2298672770203, -0.1298813414041, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1913835543602, 0.2306000702107, -0.1289695371012, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1893900121845, 0.1800470149142, -0.1305753411867, True, 0, Nothing)
Part.AddMate 1, 2, False, 0.05006302989992, 0
Part.ClearSelection
Part.SetPickMode
Part.RotateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", 0.190911493115, 0.1667796288189, -0.1207764592298, False, 0, Nothing)
Part.ClearSelection
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\arm & gripper\finger.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\arm & gripper\finger.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("finger.SLDPRT")
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", -0.01092143214702, -0.005472183208552, 0.01060848950589, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.010271, 5.61175e-005, 0)
Part.ClearSelection
' MSGBOX
' This dimension is over defined.  Its value cannot be changed.

Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D10@Sketch1@finger.SLDPRT", "DIMENSION", -0.01070463604169, -5.228057543161e-005, 0.01060848950589, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
boolstatus = Part.SetUserPreferenceToggle(7, True)
boolstatus = Part.Extension.SelectByID("@finger-right-1@ESP2G JASON", "AXIS", 0.1595430187135, 0.1847872631825, -0.1105163969747, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("@finger-left-1@ESP2G JASON", "AXIS", 0.1764262562893, 0.1851379451468, -0.1666812508815, True, 0, Nothing)
Part.AddMate 5, -1, False, 0.0416052, 0
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("finger.SLDPRT")
Part.InsertSketch2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "ESP2G JASON.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("finger.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 354
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("finger-left.SLDPRT")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "finger-left.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("finger.SLDPRT")
boolstatus = Part.Extension.SelectByID("left", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ShowConfiguration "left"
boolstatus = Part.Extension.SelectByID("", "FACE", -0.01903116475034, 0.0163434981859, 0.004728005423544, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
Part.CreateCircle -0.005166638449992, 0.01201570158747, 0, -0.003143278747785, 0.008808793970616, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.01461021662335, 0.03208742968398, -0.02497292894039, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.01461021662335, 0.03208742968398, -0.02497292894039, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01715183782051, 0.01132252435139, 0.005170387121154, True, 0, Nothing)
Part.SketchAddConstraints "sgCORADIAL"
Part.ActiveView().RotateAboutCenter -0.00538999, 0
Part.ActiveView().RotateAboutCenter -0.0215599, -0.025253
Part.ActiveView().RotateAboutCenter -0.0485099, -0.00631325
Part.ActiveView().RotateAboutCenter -0.0808498, 0
Part.ActiveView().RotateAboutCenter -0.11319, -0.0378795
Part.ActiveView().RotateAboutCenter -0.0916298, -0.025253
Part.ActiveView().RotateAboutCenter -0.0700698, -0.0126265
Part.ActiveView().RotateAboutCenter -0.0808498, -0.025253
Part.ActiveView().RotateAboutCenter -0.1078, -0.00631325
Part.ActiveView().RotateAboutCenter -0.0700698, -0.00631325
Part.ActiveView().RotateAboutCenter -0.0646798, 0
Part.ActiveView().RotateAboutCenter -0.1078, 0
Part.ActiveView().RotateAboutCenter -0.0862398, 0
Part.ActiveView().RotateAboutCenter -0.0646798, -0.00631325
Part.ActiveView().RotateAboutCenter -0.0485099, -0.00631325
Part.ActiveView().RotateAboutCenter -0.0269499, -0.00631325
Part.ActiveView().RotateAboutCenter -0.01078, 0
Part.ActiveView().RotateAboutCenter -0.01078, -0.00631325
Part.ActiveView().RotateAboutCenter -0.01617, 0
Part.ActiveView().RotateAboutCenter -0.0431199, 0
Part.ActiveView().RotateAboutCenter -0.0269499, 0
Part.ActiveView().RotateAboutCenter -0.01617, 0
Part.ActiveView().RotateAboutCenter -0.00538999, 0
Part.ActiveView().RotateAboutCenter -0.00538999, 0
Part.ActiveView().RotateAboutCenter 0.00538999, 0
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02223064072417, -0.003521176661536, 0.002641385696393, True, 1, Nothing)
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.01461021662335, 0.03208742968398, -0.02497292894039, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01715183782051, 0.01132252435139, 0.005170387121154, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", -0.02223064072417, -0.003521176661536, 0.002641385696393, True, 1, Nothing)
Part.FeatureManager.FeatureExtrusion True, False, True, 4, 0, 0.00889, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.EditRebuild
Part.ClearSelection
Part.Save2 FALSE
boolstatus = Part.Extension.SelectByID("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ShowConfiguration "Default"
boolstatus = Part.Extension.SelectByID("left@finger.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ShowConfiguration "left"
boolstatus = Part.Extension.SelectByID("right@finger.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ShowConfiguration "right"
boolstatus = Part.Extension.SelectByID("left@finger.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.ShowConfiguration "left"
Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\arm & gripper\finger-left.SLDPRT", 0, TRUE, FALSE
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "finger.SLDPRT"
Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\ESP2G JASON.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("ESP2G JASON.SLDASM")
boolstatus = Part.Extension.SelectByID("finger-left-1@ESP2G JASON", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection
Part.RotateComponent
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1962778461618, 0.166915359954, -0.1215006674574, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1512450315486, 0.1686813804444, -0.120942840938, False, 0, Nothing)
Part.ClearSelection
' MSGBOX
' C:\Documents and Settings\jfeldman\My Documents\ESP\SolidWorks files\ESP2G Jason\ESP2G JASON.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
Set Part = Nothing
swApp.CloseDoc "ESP2G JASON.SLDASM"
swApp.ExitApp
End Sub