' ******************************************************************************
' swxJRNL.swj - journal recorded on 01/14/05 by jfeldman
' *****************************************************************************
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\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\drawings\1002330 (misc mounting).SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("1002330 (misc mounting) - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.07591915772871, 0.01830222239748, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem363@Sheet1", "ANNOTATIONTABLES", 0.2645285804416, 0.05512100473186, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.04083711041009, 0.03045936750789, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.04083711041009, 0.03045936750789, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.NewSheet3 "Sheet2", 12, 12, 1.8, 1, False, "1002330.slddrt", 0.4318, 0.2794, "Default", True
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.09398120189274, 0.04018508359621, 0, False, 0, Nothing)
Part.ClearSelection2 True
' MSGBOX
' The current sheet format has notes and sketch data.
' Do you want to delete these items?

Part.SetupSheet4 "Sheet1", 12, 12, 1.8, 1, False, "1002330.slddrt", 0.4318, 0.2794, "Default", True
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1408730473186, 0.01760752839117, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D1@Sketch3@1002330 (misc mounting).SLDDRW", "DIMENSION", 0.2575816403785, 0.1687034747634, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("D7@Sketch3@1002330 (misc mounting).SLDDRW", "DIMENSION", 0.2836326656151, 0.1822500078864, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2763383785489, 0.172176944795, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.240561637224, 0.1527255126183, 0, False, 0, Nothing)
Part.InsertHorizontalOrdinate
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2693914384858, 0.1857234779195, 222.1829361156, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.267655, 0.162104, -1.08599e-015)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2548028643533, 0.1850287839132, 222.1825501745, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.254803, 0.185029, -1.08599e-015)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1151693690852, 0.200312052052, 222.1769318023, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.115169, 0.200312, -1.08599e-015)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("DetailItem352@Drawing View1", "CENTERMARKSYM", 0.0981493659306, 0.1909336829653, 0, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0981494, 0.190934, -1.08599e-015)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("DetailItem353@Drawing View1", "CENTERMARKSYM", 0.03840568138801, 0.190238988959, 0, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0384057, 0.190239, -1.08599e-015)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02312241324921, 0.1902389889605, 222.1728564993, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0231224, 0.190239, -1.08599e-015)
Part.ClearSelection2 True
Part.SetPickMode
Part.ClearSelection2 True
Part.InsertVerticalOrdinate
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2575816403785, 0.1805132728722, 222.1804878023, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.304126, 0.178777, -1.08599e-015)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2082583659306, 0.1951018470047, 222.1845518023, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.208258, 0.195102, -1.08599e-015)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("DetailItem353@Drawing View1", "CENTERMARKSYM", 0.04604731545741, 0.2006593990536, 0, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0460473, 0.200659, -1.08599e-015)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.197837955836, 0.2041328690867, 222.1845518023, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.197838, 0.204133, -1.08599e-015)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2304885741325, 0.2173320552066, 222.1728564993, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.230489, 0.217332, -1.08599e-015)
Part.ClearSelection2 True
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.310378384858, 0.1728716388013, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1707448895899, 0.03810100157729, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2263204100946, 0.161061840694, 0, False, 0, Nothing)
Part.SelectionManager.GetSelectedObject3(1).SetDisplayTangentEdges2 0
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2304885741325, 0.156546329653, 0, False, 0, Nothing)
Part.SelectionManager.GetSelectedObject3(1).SetDisplayTangentEdges2 2
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.Save2 FALSE
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SetPickMode
Part.ClearSelection2 True
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\drawings\1002098 (Nook 6mm ball screws).SLDDRW", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\drawings\1002098 (Nook 6mm ball screws).SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002098 (Nook 6mm ball screws) - Sheet1")
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("DetailItem198@Drawing View1", "NOTE", 0.03180608832808, 0.2593610425868, 0, False, 0, Nothing)
Part.EditCopy
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
' MSGBOX
' Save changes to 1002098 (Nook 6mm ball screws) - Sheet1?

Part.ClearSelection2 True
Set Part = Nothing
swApp.CloseDoc "1002098 (Nook 6mm ball screws) - Sheet1"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002330 (misc mounting) - Sheet1")
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.05711397163121, 0.2478133286052, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem359@Drawing View1", "NOTE", 0.07481470921986, 0.2436484491726, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem359@Drawing View1", "NOTE", 0.03698372104019, 0.2575313806147, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1400644869976, 0.1534093947991, 0, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\internal structure\1002330-003.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\internal structure\1002330-003.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002330-003.SLDPRT")
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("colllection", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "colllection"
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\ESP2G.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\ESP2G.SLDASM", 2, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ESP2G.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", -0.1444785509137, -0.0931627020675, -0.2078974310327, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\internal structure\main strut 1.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\internal structure\main strut 1.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("main strut 1.SLDPRT")
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Fillet4", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.EditSuppress
Part.ClearSelection2 True
' MSGBOX
' Save changes to main strut 1.SLDPRT?

Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "main strut 1.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ESP2G.SLDASM")
boolstatus = Part.Extension.SelectByID("1002436-001-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("1002436-002-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("1002436-003-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("1002436-004-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("1002436-005-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("1002436-006-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("1002436-007-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("1002436-008-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("1002436-009-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-16@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-23@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-19@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-26@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-11@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-12@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-17@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-18@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-13@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-14@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-19@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-20@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-20@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("1002330-004-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("1002330-003-2@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("1002330-003-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("rotary valve-4@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/1002562-001-1@small rotary valve", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Hamilton small washer-1@small rotary valve", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/1002562-001-1@small rotary valve", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Hamilton valve - small-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Hamilton small washer-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/encoder devices ED-12-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Fairloc shaft extender - small-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/1002562-004-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/1002562-005-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/250 - 28-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/1002562-003-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/maxon-GP16A104 to 1 - REmax17-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Socket Set Screw Half Dog Point_AM-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Fairloc S51FCZ-250250-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/BSP-20-50-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Lock Washer Spring Hi-Collar_AI-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Lock Washer Spring Hi-Collar_AI-2@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Hamilton valve-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/250 - 28-9@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Fairloc shaft extender-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/fully threaded stud-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Flat Washer Type B Narrow_AI-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Machine Screw Nut Hex_AI-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/250 - 28-16@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/250 - 28-15@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/flexible rotary valve mount 1-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Lock Washer Spring Hi-Collar_AI-3@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Flat Washer Narrow_AM-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/1002330-005-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Flat Washer Type B Regular_AI-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Socket Button Head Cap Screw_AI-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Lock Washer Spring Hi-Collar_AI-4@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Lock Washer Spring Hi-Collar_AI-5@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Socket Head Cap Screw_AI-1@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Socket Head Cap Screw_AI-2@small rotary valve", "COMPONENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/Socket Head Cap Screw_AI-2@small rotary valve", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/flexible rotary valve mount 1-1@small rotary valve", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
boolstatus = Part.Extension.SelectByID("DerivedCirPattern4@small rotary valve-1@ESP2G", "COMPPATTERN", 0, 0, 0, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("small rotary valve-1@ESP2G/1002330-005-1@small rotary valve", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ShowComponent2
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("", "FACE", 0.06566817436075, 0.07591914246284, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.07879035132976, 0.08377470390913, -0.02576223607758, False, 0, Nothing)
Part.HideComponent2
Part.ClearSelection2 True
' 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
boolstatus = Part.Extension.SelectByID("", "FACE", -0.06259299677112, 0.134801661963, 0.04281065687663, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\internal structure\1002330-004.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\internal structure\1002330-004.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002330-004.SLDPRT")
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002330-003.SLDPRT")
boolstatus = Part.Extension.SelectByID("Default@1002330-003.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Default@1002330-003.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
boolstatus = Part.Extension.SelectByID("colllection@1002330-003.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "colllection"
boolstatus = Part.Extension.SelectByID("Default@1002330-003.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
boolstatus = Part.Extension.SelectByID("colllection@1002330-003.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("colllection@1002330-003.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "colllection"
boolstatus = Part.Extension.SelectByID("Default@1002330-003.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "Default"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002330 (misc mounting) - Sheet1")
Part.SetPickMode
Part.InsertHorizontalOrdinate
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("DetailItem359@Drawing View1", "NOTE", 0.05121372576832, 0.2589196737589, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem359@Drawing View1", "NOTE", 0.03941323404255, 0.2606550401891, 0, False, 0, Nothing)
Part.EditCopy
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.06752617021277, 0.2426072293144, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem360@Sheet2", "NOTE", 0.08418568794326, 0.2384423498818, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem360@Sheet2", "NOTE", 0.03767786761229, 0.2571843073286, 0, False, 0, Nothing)
Part.Save2 FALSE
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002330-003.SLDPRT")
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
boolstatus = Part.Extension.SelectByID("colllection@1002330-003.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "colllection"
Part.ShowNamedView2 "ILLUS", -1
Part.DeleteNamedView "ILLUS"
Part.NameView "2", -1
Set Part = swApp.ActivateDoc ("1002330 (misc mounting) - Sheet2")
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2700519672131, 0.1600069877049, 0, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("1002330-003.SLDPRT")
Set Part = swApp.ActivateDoc ("1002330 (misc mounting) - Sheet2")
Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\internal structure\1002330-003.SLDPRT", "2", 0.1509176393443, 0.1807652418033, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.2583190409836, 0.1744475122951, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1445999098361, 0.04538532377049, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.NewSheet3 "Sheet3", 12, 12, 1.8, 1, False, "C:\PROGRA~1\SOLIDW~2\data\1002330.slddrt", 0.4318, 0.2794, "Default", True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 532
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("DetailItem360@Sheet2", "NOTE", 0.03455420803783, 0.2585726004728, 0, False, 0, Nothing)
Part.EditCopy
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.03698372104019, 0.2561430874704, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.InsertHorizontalOrdinate
Part.SetPickMode
Part.SetPickMode
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("DetailItem360@Sheet2", "NOTE", 0.04496640661939, 0.259613820331, 0, False, 0, Nothing)
Part.EditCopy
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.03524835460993, 0.2353186903073, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem362@Sheet3", "NOTE", 0.05433738534279, 0.233236250591, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("DetailItem362@Sheet3", "NOTE", 0.05884933806147, 0.2585726004728, 0, False, 0, Nothing)
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 532
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
Set Part = swApp.ActivateDoc ("1002330-004.SLDPRT")
Part.DeleteNamedView "ILLUS"
Part.NameView "0", -1
Set Part = swApp.ActivateDoc ("1002330 (misc mounting) - Sheet3")
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.3368393934426, 0.1717399139344, 0, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("1002330-004.SLDPRT")
Set Part = swApp.ActivateDoc ("1002330 (misc mounting) - Sheet3")
Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\internal structure\1002330-004.SLDPRT", "0", 0.121134057377, 0.1563968565574, 0
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.2781747622951, 0.1618120532787, 0, False, 0, Nothing)
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.3314241967213, 0.08419423360656, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.NewSheet3 "Sheet4", 12, 12, 1.8, 1, False, "C:\PROGRA~1\SOLIDW~2\data\1002330.slddrt", 0.4318, 0.2794, "Default", True
Set Part = swApp.ActivateDoc ("ESP2G.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 532
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1010505882231, 0.1020527370419, -0.01771028801242, False, 0, Nothing)
Part.OpenCompFile
swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\internal structure\1002330-005.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\internal structure\1002330-005.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002330-005.SLDPRT")
Part.ClearSelection2 True
Part.ViewDisplayShadedWithEdges
Part.NameView "0", -1
Part.NameView "1", -1
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 ("1002330 (misc mounting) - Sheet4")
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1566450693069, 0.221057960396, 0, False, 0, Nothing)
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.09355666666667, 0.2335833238771, 0, False, 0, Nothing)
Part.Paste
boolstatus = Part.Extension.SelectByID("DetailItem364@Sheet4", "NOTE", 0.1171576501182, 0.2325421040189, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("DetailItem364@Sheet4", "NOTE", 0.04218982033097, 0.259613820331, 0, False, 0, Nothing)
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 0
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
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2354300907686, 0.1616960692171, 0, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("1002330-005.SLDPRT")
Set Part = swApp.ActivateDoc ("1002330 (misc mounting) - Sheet4")
Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\internal structure\1002330-005.SLDPRT", "1", 0.08169808629473, 0.154503928657, 0
Part.ClearSelection2 True
Set Part = swApp.ActivateDoc ("1002330-005.SLDPRT")
Part.ShowNamedView2 "0", -1
Set Part = swApp.ActivateDoc ("1002330 (misc mounting) - Sheet4")
boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2336320556285, 0.1437157178167, 0, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("1002330-005.SLDPRT")
Set Part = swApp.ActivateDoc ("1002330 (misc mounting) - Sheet4")
Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G\internal structure\1002330-005.SLDPRT", "0", 0.2597035651592, 0.2093440004283, 0
Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.EditSketch
Part.InsertHorizontalOrdinate
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.07724422222222, 0.02568642553191, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D9@Sketch3@1002330 (misc mounting).SLDDRW", "DIMENSION", 0.3070067375887, 0.2006113617021, 0, False, 0, Nothing)
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"2X ", "", 1,"", "", 0
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.128958141844, 0.04130472340426, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("RD1@Drawing View1", "DIMENSION", 0.1921254799054, 0.1572272009456, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> <hw-cbdepth", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> <hw-cbdept", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> <hw-cbdep", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> <hw-cbde", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> <hw-cbd", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> <hw-cb", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> <hw-c", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> <hw-", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> <hw", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> <h", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> <", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> ", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> .", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> .1", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"<HOLE-SPOT><MOD-DIAM> <hw-cbdia> <HOLE-DEPTH> .10", "", 0,"<NUM_INST>X <MOD-DIAM> <hw-thruholedia> <hw-thru>", "", 0
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1306935082742, 0.039569356974, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D4@Sketch5@1002330 (misc mounting).SLDDRW", "DIMENSION", 0.2799350212766, 0.1246023120567, 0, False, 0, Nothing)
Part.EditSketch
Part.EditDimensionProperties2 0, 0.000254, 0, "", "", 1, 9, 0, 1, 11, 11,"", "", 1,"", "", 0
Part.EditDimensionProperties2 0, 0.000254, 0, "", "", 0, 2, 0, 1, 11, 11,"", "", 1,"", "", 0
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1282639952719, 0.02568642553191, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D2@Sketch3@1002330 (misc mounting).SLDDRW", "DIMENSION", 0.2542515981087, 0.1565330543735, 0, False, 0, Nothing)
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"", "", 1,"", "", 0
boolstatus = Part.Extension.SelectByID("D6@Sketch3@1002330 (misc mounting).SLDDRW", "DIMENSION", 0.02448908274232, 0.1537564680851, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"", "", 1,"", "", 0
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.03386006146572, 0.1311967044917, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("D3@Sketch3@1002330 (misc mounting).SLDDRW", "DIMENSION", 0.1143810638298, 0.1513269550827, 0, False, 0, Nothing)
Part.EditSketch
Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 11, 11,"", "", 1,"", "", 0
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.055725678487, 0.1249493853428, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("RD2@Drawing View2", "DIMENSION", 0.2195442695035, 0.1294613380615, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1466588794326, 0.03540447754137, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
' MSGBOX
' Save changes to ESP2G.SLDASM?

' 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.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 532
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002330-005.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 769
swApp.ActiveDoc.ActiveView.FrameTop = 354
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("1002330-004.SLDPRT")
swApp.ExitApp
End Sub