' ****************************************************************************** ' swxJRNL.swj - journal recorded on 04/16/04 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 Jason\collection clamp\1002145-012.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("1002145-012.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("tooling ball", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "tooling ball" boolstatus = Part.Extension.SelectByID("Default@1002145-012.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Default" Set Part = Nothing swApp.CloseDoc "1002145-012.SLDPRT" Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\ESP2G.SLDASM", 2, 0, "", longstatus, longwarnings) 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 boolstatus = Part.Extension.SelectByID("clamp-track-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Nook 6x2mm ball screw - clamp-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("BERG SS1-104-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("clamp-upper-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("clamp - spring mount-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("helical W7C 15-4-3mm-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("clamp - retaining rod-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("BERG SS1-104-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("rotorclip DSH-4-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-10@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("hall effect-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("temperature-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Flat Washer Type B Narrow_AI-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-12@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("sample heater-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("clamp-track-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Nook 6x2mm ball screw - clamp-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("BERG SS1-104-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("clamp-upper-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("clamp - spring mount-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("helical W7C 15-4-3mm-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("clamp - retaining rod-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("BERG SS1-104-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("rotorclip DSH-4-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-10@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("hall effect-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("temperature-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Flat Washer Type B Narrow_AI-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-12@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("sample heater-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("CR 16003-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("CR 16003-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.HideComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("2G puck-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.HideComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("MANIPULATOR AT COLLECTION", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditSuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03563279214757, -0.01518005026816, -0.03973020477929, False, 0, Nothing) Part.TranslateComponent boolstatus = Part.Extension.SelectByID("MANIPULATOR AT CAROUSEL", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditUnsuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.007136048191626, -0.07292896315042, -0.0256618164085, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\retainer.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\retainer.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("retainer.SLDPRT") Part.ClearSelection2 True 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("MANIPILATOR EXTENDED", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditUnsuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("LimitDistance1", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditSuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.001905258879731, -0.04114119134524, -0.02293703460812, False, 0, Nothing) Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 0.02195931128415, -0.05380048830948, -0.02527299999999, True, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("retainer.SLDPRT") boolstatus = Part.Extension.SelectByID("Chamfer1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ReorderFeature "Chamfer1", "#32 (0.116000) Diameter Hole1" Part.ClearSelection2 True Part.FeatureManager.EditRollback 3, "Chamfer1" boolstatus = Part.Extension.SelectByID("", "FACE", -0.0009206999005187, 0.01727737817381, 0.003174999999999, False, 0, Nothing) Part.InsertSketch2 True Part.ClearSelection2 True Part.CreateCircle -0.004663812446718, 0.002813705029838, 0, -0.004124197783461, -0.003276231884058, 0 Part.ClearSelection2 True Part.CreateCircle -0.001503212276215, -0.005511778346121, 0, 0.001888651321398, -0.03896788746803, 0 Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", -0.03149036999147, 0.009674520034101, 0.0015875, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01907923273657, -0.0007323341858482, 0.003174999999999, True, 0, Nothing) Part.SketchAddConstraints "sgCORADIAL" Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.006591007672634, 0.008826554134697, 0.0015875, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.006591007672634, 0.008826554134697, 0.0015875, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01584154475703, -0.0005781585677749, 0.003174999999999, True, 0, Nothing) Part.SketchAddConstraints "sgCORADIAL" Part.SetPickMode Part.ClearSelection2 True Part.CreateLine2 -0.00254, 0.033909, 0, -0.00254, -0.033909, 0 Part.SetPickMode Part.ClearSelection2 True Part.CreateLine2 -0.00254, 0.033909, 0, -0.0351134970162, 0.002274090366581, 0 Part.CreateLine2 -0.00254, -0.033909, 0, -0.02925482352941, -0.001888651321398, 0 Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.02077516453538, -0.01175589087809, 0.0015875, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0105224859335, -0.01985011082694, 0.003174999999942, True, 0, Nothing) Part.SketchAddConstraints "sgCOLINEAR" Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", -0.01761456436488, 0.01931049616368, 0.0015875, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", -0.01761456436488, 0.01931049616368, 0.0015875, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.009057817561807, 0.022085657289, 0.003174999999942, True, 0, Nothing) Part.SketchAddConstraints "sgCOLINEAR" Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, 0.003584583120205, 0.01861670588235 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, 0.003507495311168, 0.015764456948 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, -0.002659529411765, 0.01129336402387 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, -0.004124197783461, 0.01900214492754 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, -0.01961884739983, 0.004047109974425 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, -0.02085225234442, -0.001888651321398 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, -0.02293362318841, 0.001349036658142 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, -0.02277944757033, -0.001117773231032 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, -0.009674520034101, -0.01638115942029 Part.SetPickMode Part.ClearSelection2 True Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.001524, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ClearSelection2 True Part.FeatureManager.EditRollback 3, "" boolstatus = Part.Extension.SelectByID("Chamfer1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01582802478708, -0.00187880532269, 0.004886532937292, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Chamfer1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) Part.DeSelectByID "", "EDGE", 0.006689052176341, -0.01440279285684, 0.003173923543329 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("MANIPILATOR EXTENDED", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditSuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("LimitDistance1", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditUnsuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "VERTEX", -0.02413, -0.03575820618999, -0.02263431482698, False, 0, Nothing) Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "VERTEX", -0.01016, -0.03958135588894, -0.02334392500698, False, 0, Nothing) Part.TranslateComponent swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("retainer.SLDPRT") boolstatus = Part.Extension.SelectByID("Extrude3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Extrude3@retainer.SLDPRT", "DIMENSION", -0.002863639851644, -0.01457806665779, 0.004535682367468, False, 0, Nothing) Part.Parameter("D1@Extrude3").SystemValue = 0.001905 Part.EditRebuild Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ESP2G.SLDASM") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.01015999999987, -0.04014429893189, -0.02262180709013, False, 0, Nothing) Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 0.000559991343664, -0.03968465721863, -0.0232135833876, False, 0, Nothing) Part.TranslateComponent Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.001505414905068, -0.03977178154446, -0.0232336732691, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.003662389674957, -0.04023336435583, -0.02340176766542, True, 0, Nothing) Part.DeSelectByID "", "FACE", -0.003662389674957, -0.04023336435583, -0.02340176766542 Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", -0.004530960503757, -0.04042467875993, -0.02341226546024, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -0.002045901483427, -0.03982907092919, -0.0232267923266, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.002816101718793, -0.04009049954919, -0.02337580832619, True, 0, Nothing) Part.SetPickMode boolstatus = Part.Extension.SelectByID("Plane 0", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 0, -0.03865643411149, -0.02266806592216, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 1.032642103382e-006, -0.03968720913092, -0.02321744485525, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.01424387836119, -0.03212255594659, -0.02295239300783, False, 0, Nothing) Part.TranslateComponent Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -3.795395286943e-008, -0.03977358830906, -0.02319637707549, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -1.546078067349e-006, -0.03977250322217, -0.02320489464451, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", 7.607569045831e-007, -0.03986110001264, -0.02337871380504, True, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("retainer.SLDPRT") boolstatus = Part.Extension.SelectByID("", "EDGE", -0.008318959405244, 0.02397999124548, 0.004955361030056, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01862314138856, 0.003405462674039, 0.005233559581654, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01341141768933, -0.01525454016314, 0.005001991832046, True, 0, Nothing) Part.FeatureChamferType 1, 0.000762, 0.7853981633975, False, 0, 0, 0, 0 boolstatus = Part.Extension.SelectByID("Chamfer3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) 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("", "EDGE", -0.01902620340763, -0.03136963099352, -0.0182353171393, False, 0, Nothing) Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01996695700552, -0.03388868903986, -0.01628094118783, False, 0, Nothing) Part.TranslateComponent Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.00827343876324, -0.03731355046347, -0.02249823983517, False, 0, Nothing) Part.TranslateComponent swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("retainer.SLDPRT") boolstatus = Part.Extension.SelectByID("Chamfer3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0, 0, 0, True, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ESP2G.SLDASM") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -0.02296784609086, -0.03270759251986, -0.0228564238237, False, 0, Nothing) Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "EDGE", 6.435815294026e-007, -0.04161697817392, -0.02307277466459, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 4.039461600769e-007, -0.0416141549991, -0.0230687838798, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -3.01342896023e-005, -0.04160909411344, -0.0230591919183, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -5.894516544913e-005, -0.04161178085677, -0.02306502361944, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -5.894516544913e-005, -0.04161178085677, -0.02306502361944, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -1.572885406631e-005, -0.04160775074209, -0.02305627606765, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -3.134067844712e-005, -0.04161152426184, -0.02306654874612, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -4.574611403996e-005, -0.04161286763319, -0.02306946459677, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -0.001269685673037, -0.04166194144132, -0.0230572227485, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Unknown", "MANIPULATOR", -7.378912414424e-008, -0.0417719569168, -0.02337462767796, True, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("retainer.SLDPRT") boolstatus = Part.Extension.SelectByID("Chamfer3", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Chamfer3@retainer.SLDPRT", "DIMENSION", -0.01408021492505, 0.04127077635641, 0.01682105987326, False, 0, Nothing) Part.Parameter("D1@Chamfer3").SystemValue = 0.00254 Part.EditRebuild Part.ClearSelection2 True 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("", "EDGE", -0.01562179397075, -0.03461744541082, -0.02279151038775, False, 0, Nothing) Part.TranslateComponent Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("carousel", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "carousel" boolstatus = Part.Extension.SelectByID("Concentric158", "MATE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Concentric159", "MATE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Concentric159", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditUnsuppress 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("Default@ESP2G.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Default" boolstatus = Part.Extension.SelectByID("1002229-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ShowComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("ESP2G.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.AddConfiguration "camera","","",1,0,0,1,256 boolstatus = Part.Extension.SelectByID("manipulator mount-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("manipulator bottom-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("manipulator top-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("finger-left-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("finger-right-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("link-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("IKO CFS 2 FV-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("IKO CFS 2 FV-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Hex Nut Style 1_AM-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Hex Nut Style 1_AM-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-10@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-10@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.HideComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("carosel2-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.HideComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("1002229-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.HideComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("camera-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("light seal-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("camera mount-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("light seal-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("light seal-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\light seal.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\light seal.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("light seal.SLDASM") Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("retainer.SLDPRT") Set Part = Nothing swApp.CloseDoc "retainer.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("light seal.SLDASM") boolstatus = Part.Extension.SelectByID("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Default" boolstatus = Part.Extension.SelectByID("Coincident3", "MATE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Concentric3", "MATE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Coincident3", "MATE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.Save2 FALSE 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("light seal-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.CompConfigProperties3 2, 0, True, True 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("Lock Washer Spring Hi-Collar_AI-14@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-24@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-24@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.HideComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("camera mount-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\camera mount.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\camera mount.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("camera mount.SLDASM") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.1162869219133, -0.08821419999998, -0.05202483876263, False, 0, Nothing) Part.EditSuppress Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", -0.1023078185002, -0.09577701481356, -0.06921225844322, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.1044763598203, -0.09573425508762, -0.06868604432893, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.105689968703, -0.08821420000004, -0.06899381242534, False, 0, Nothing) Part.EditSuppress Part.ClearSelection2 True Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "camera mount.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ESP2G.SLDASM") Part.Save2 FALSE swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\drawings\1002357 (carousel).SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\drawings\1002357 (carousel).SLDDRW", 3, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002357 (carousel) - Sheet11") Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.1475631039085, 0.2266064995234, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.1475631039085, 0.2266064995234, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.2832178061466, 0.1531305224023, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1538610448046, 0.0779750943756, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.1588993975214, 0.187979128694, 0, False, 0, Nothing) Part.EditSketch Part.InsertBreakVertical Part.EditSketch boolstatus = Part.Extension.SelectByID("Break Line7", "BREAKLINE", 0.1580596720686, 0.1812613250715, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Break Line7", "BREAKLINE", 0.17191514204, 0.1741236587226, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2877972545281, 0.180001736893, 99.9820239205, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.2877972545281, 0.1842003641563, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.2877972545281, 0.1854599523356, 0, False, 0, Nothing) Part.BreakView Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.25252878551, 0.2257667740705, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View16", "DRAWINGVIEW", 0.2521089227836, 0.3000824766444, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.2835986272641, 0.190078442326, 0, False, 0, Nothing) Dim DrawView As Object Set DrawView = Part.SelectionManager.GetSelectedObject5(1) boolstatus = DrawView.AlignWithView(0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.3163479199237, 0.1153428770257, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1690157145148, 0.1827618604651, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.4025824635124, 0.1105435701684, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.3591600737771, 0.2508664506816, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.201468, 0.313486, -2.21922e-015, 0.474801, 0.120142, -8.69101e-016 Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.3588481465947, 0.2329247730219, 0, False, 0, Nothing) Part.EditSketch Part.ViewDisplayHiddenGreyed Part.EditSketch Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.401809793124, 0.2620773188811, 0, False, 0, Nothing) Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.3717804789683, 0.2515560993229, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3807673540076, 0.2252530504291, 249.9374065234, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.3562178417051, 0.21999244065, 249.9582176095, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.370027, 0.261858, -1.09946e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3816441223041, 0.2248146662808, 249.95431407, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2992279024314, 0.2024570747196, 249.9657509999, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.336929, 0.280928, -1.09946e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View78", "DIMENSION", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3816441223041, 0.2252530504291, 249.9537833176, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2547319113831, 0.1577418915972, 249.9601052501, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.316325, 0.29649, -1.09946e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD2@Drawing View78", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.4057552504584, 0.2785167244408, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View78", "DIMENSION", 0.3687117899305, 0.2609813585105, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View78", "DIMENSION", 0.3687117899305, 0.2441035688025, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD2@Drawing View78", "DIMENSION", 0.3384632837006, 0.2811470293304, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD3@Drawing View78", "DIMENSION", 0.3165440762877, 0.2967096665936, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.3965491833449, 0.2715025780687, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View78", "DRAWINGVIEW", 0.4331542597245, 0.2813662214045, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode Part.SetPickMode Part.EditSketch Part.ViewZoomtofit2 Part.Save2 FALSE Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem659@Drawing View9", "NOTE", 0.1243986893007, 0.2171690632076, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem659@Drawing View9", "NOTE", 0.08938024186728, 0.1724744658254, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem659@Drawing View9", "NOTE", 0.3750570498768, 0.2402075154664, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View9", "DRAWINGVIEW", 0.1349963773398, 0.1881406133614, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem659@Drawing View9", "NOTE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem658@Drawing View9", "NOTE", 0.1197909988489, 0.1853759990904, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.07693947764751, 0.1406814017098, 222.1733333333, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem658@Drawing View9", "NOTE", 0.07740024669268, 0.1402206326631, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.4598385541894, 0.1572690873346, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.329441, 0.166945, -1.1657e-015, 0.38289, 0.109349, -7.63506e-016 Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem658@Drawing View9", "NOTE", 0.3448274818667, 0.141578781269, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.EditSketch Part.SetPickMode Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.017509, 0.277433, -1.75974e-015, 0.439483, 0.00213002, 1.62692e-016 Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem658@Drawing View9", "NOTE", 0.3816178419615, 0.2451901161984, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View9", "DRAWINGVIEW", 0.2672416498139, 0.2370687297737, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem659@Drawing View9", "NOTE", 0.2570899167831, 0.2390990763799, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem658@Drawing View9", "NOTE", 0.2811156849561, 0.25229632932, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View9", "DRAWINGVIEW", 0.2618273921975, 0.2296241255511, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem659@Drawing View9", "NOTE", 0.2594586544903, 0.2326696454604, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1342539471099, 0.01373060309518, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View9", "DRAWINGVIEW", 0.3839865796686, 0.1842797180133, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3393189543329, 0.1233693198298, 222.1733333333, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.315293, 0.175143, -2.12142e-015) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View9", "DIMENSION", 0.3173235327661, 0.1764967226897, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.271979, 0.211013, -1.63588e-015, 0.425609, 0.0820856, -7.35583e-016 Part.EditSketch Part.SetPickMode Part.SetPickMode boolstatus = Part.Extension.SelectByID("Drawing View9", "DRAWINGVIEW", 0.3866776979917, 0.1524010782468, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3407243492906, 0.1235724358997, 222.1733333333, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3136204975098, 0.1747001563044, 222.1733333333, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.392345, 0.158438, -2.12142e-015) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True Part.ViewZoomtofit2 Part.EditSketch Part.SetPickMode Part.ViewZoomTo2 0.219084, 0.264883, -1.6721e-015, 0.491249, 0.0342879, -6.18653e-017 Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View9", "DIMENSION", 0.3941851596983, 0.1587082027448, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View9", "DIMENSION", 0.389568857321, 0.159367674513, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("RD1@Drawing View9", "DIMENSION", 0.3941851596983, 0.1488161262222, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View9", "DRAWINGVIEW", 0.4089133625208, 0.1518936611403, 0, False, 0, Nothing) Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.SetPickMode Part.ClearSelection2 True Part.ViewZoomTo2 0.00495961, 0.442143, -2.90991e-015, 0.586938, 0.00291435, 1.57215e-016 Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.508999, 0.0500822, -3.65968e-016, 0.608407, -0.0213234, 1.32655e-016 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.5527637310427, 0.02055750255498, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem357@Sheet Format2", "NOTE", 0.5444731102292, 0.0181659773203, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem357@Sheet Format2", "NOTE", 0.5444731102292, 0.0181659773203, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem357@Sheet Format2", "NOTE", 0.540487234838, 0.02007919750804, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.ViewZoomTo2 0.000253587, 0.454693, -2.99754e-015, 0.565761, 0.00213002, 1.62692e-016 boolstatus = Part.Extension.SelectByID("Sheet Format2", "SHEET", 0.3317579888581, 0.1529046360486, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.SaveTemplate Part.EditSketch Set Part = swApp.NewDrawing2 (13, """", 12, 0.431800, 0.558800) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2014623682835, 0.02108844023416, 0, False, 0, Nothing) Part.ClearSelection2 True ' MSGBOX ' The current sheet format has notes that have been modified. ' Do you want these deleted? Part.SetupSheet4 "Sheet4", 12, 12, 1.25, 1, False, "1002357.slddrt", 0.5588, 0.4318, "Default", True Part.SetupSheet4 "Sheet4", 12, 12, 1.25, 1, False, "1002357.slddrt", 0.5588, 0.4318, "Default", True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect swApp.PageSetup Part.PrintDirect Part.EditSketch Part.EditSketch Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "1002357 (carousel) - Sheet4" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ESP2G.SLDASM") Part.NameView "camera1", -1 swApp.LoadFile2 "C:\Program Files\SolidWorks (2)\data\templates\Drawing.drwdot", "" 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 (2)\data\templates\Drawing.drwdot", 2, 0.279400, 0.431800) Set Part = swApp.ActivateDoc ("Draw1 - Sheet1") Part.ViewZoomTo2 0.339634, 0.0803734, -5.91397e-016, 0.560342, 0.00890162, -9.23122e-017 boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.5152608293296, 0.01861549081243, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.483407807153, 0.09520199222054, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem356@Sheet Format1", "NOTE", 0.5163051907124, 0.0207042135781, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem356@Sheet Format1", "NOTE", 0.522049178318, 0.02000797265621, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem356@Sheet Format1", "NOTE", 0.518742033939, 0.01965985219527, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem117@Sheet Format1", "NOTE", 0.4952439028252, 0.03079970694554, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.4769675786255, 0.09293920922439, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1175771608833, 0.3244561545741, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 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 ("Draw1 - Sheet1") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\ESP2G.SLDASM", "Current Model View", 0.1727260047281, 0.2075906572104, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2387515933806, 0.05622587234043, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1610480094563, 0.2098364255319, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ESP2G.SLDASM") Part.ShowNamedView2 "*Left", 3 Part.ShowNamedView2 "*Right", 4 Part.ShowNamedView2 "*Back", 2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("light seal.SLDASM") Set Part = Nothing swApp.CloseDoc "light seal.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 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 ("ESP2G - Sheet1") boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1138868747045, 0.3607520567376, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 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 ("ESP2G - Sheet1") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\ESP2G.SLDASM", "*Back", 0.1435310165485, 0.3670402080378, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1282597919622, 0.155039678487, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1581285106383, 0.2653787676596, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.ViewZoomTo2 0.0810562, 0.649404, -4.42943e-015, 0.38882, 0.439393, -2.96293e-015 boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.2784713983646, 0.6204304875353, 0, False, 0, Nothing) Part.ClearSelection2 True Part.CreateLine2( 0.04204843825166, 0.09630147774267, 0, 0.04204843825166, -0.09650574220863, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.SetUserPreferenceToggle(4, True) boolstatus = Part.SetUserPreferenceToggle(4, False) boolstatus = Part.SetUserPreferenceToggle(7, True) boolstatus = Part.SetUserPreferenceToggle(7, False) boolstatus = Part.SetUserPreferenceToggle(5, True) boolstatus = Part.SetUserPreferenceToggle(5, False) boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.2520361946228, 0.6264936076595, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.2161425234872, 0.6325567277838, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.2161425234872, 0.6325567277838, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Right@ESP2G-2@Drawing View2/light seal-1@ESP2G", "PLANE", 0, 0, 0, True, 0, Nothing) Part.SketchAddConstraints "sgCOLINEAR" Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.2097116403391, 0.6292232541581, 0.02185799999995, False, 0, Nothing) Part.CreateSectionViewAt2 0.6448697232898, 0.6346946100714, 0, 0, 0, "A", 0, 0, 0, 0 Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.6453216965376, 0.4535962713063, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.707558134828, 0.3939530179447, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.2995637060356, 0.622153291676, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.2995637060356, 0.622153291676, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.2995637060356, 0.622153291676, 0, False, 0, Nothing) Part.DrawingViewRotate 1.5708 boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.2407848476503, 0.8417096156448, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.1699044595974, 0.2107012829787, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.1897855440513, 0.2029217281924, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.2926485462256, 0.6333904263673, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.2926485462256, 0.6333904263673, 0, False, 0, Nothing) Part.DrawingViewRotate 4.71239 boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.3592069593972, 0.7431685883517, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.5217132149332, 0.842574010621, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.4551548017615, 0.666237435465, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.4888662058355, 0.8607263051224, 0, False, 0, Nothing) Set DrawView = Part.SelectionManager.GetSelectedObject5(1) boolstatus = DrawView.AlignWithView(0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.5364079295295, 0.8045406316658, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.8311666164324, 0.8685058599087, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.4819510460254, 0.7500837481618, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.2018870737188, 0.357648428942, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.2183105782677, 0.5201546844779, 0, False, 0, Nothing) Part.SuppressView ' MSGBOX ' Do you want to hide dependent views also? Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.8631492305539, 0.5702895931007, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem460@Drawing View3", "NOTE", 0.7818961027859, 0.07066929682536, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.7914044475247, 0.4414947416387, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.9962660568971, 0.4821213055227, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.1906499390275, 0.4440879265675, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.ViewZoomTo2 -0.00625888, 0.441948, -5.75191e-015, 0.553877, 0.00824052, -2.72335e-015 Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.4942883360964, 0.3775980205583, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.4942883360964, 0.4045233999337, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.4898743394775, 0.005498105584159, 0, False, 0, Nothing) Part.ClearSelection2 True Part.SetupSheet4 "Sheet1", 12, 12, 1.2, 1, False, "MBARI - C reg.slddrt", 0.5588, 0.4318, "Default", True boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.4510311692311, 0.4221793864093, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.4492655705835, 0.4367455752517, 0, False, 0, Nothing) Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", -0.03667230004371, 0.09777992960547, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.5742026630619, 0.3328864121165, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.5450655348875, 0.003335445177961, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.5450655348875, 0.003335445177961, 0, False, 0, Nothing) Part.ClearSelection2 True Part.SetupSheet4 "Sheet1", 12, 12, 1.3, 1, False, "MBARI - C reg.slddrt", 0.5588, 0.4318, "Default", True Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.5922877771012, 0.4413970963524, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.5902783199857, 0.2645648701902, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", -0.01758245744666, -0.02781114011196, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.06078637005702, 0.4494349248143, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.08992349823146, 0.4373781821214, 0, False, 0, Nothing) Part.ClearSelection2 True Part.ViewZoomTo2 -0.0145683, 0.44843, -6.55851e-015, 0.564155, -0.00771657, -3.37325e-015 Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem460@Drawing View3", "NOTE", 0.2230322177958, 0.06780909050014, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem460@Drawing View3", "NOTE", 0.2230322177958, 0.06826513750507, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem460@Drawing View3", "NOTE", 0.2376257219536, 0.06826513750507, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.1961254445049, 0.0454627872585, 0, False, 0, Nothing) Dim Note As Object Dim Annotation As Object Dim TextFormat As Object Set Note = Part.InsertNote("CAMERA & LIGHT SEAL") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.01781106557668, 0.4084762031839, 0) Set TextFormat = Part.GetUserPreferenceTextFormat(swDetailingNoteTextFormat) TextFormat.Italic = False TextFormat.Underline = True TextFormat.Strikeout = False TextFormat.Bold = False TextFormat.Escapement = 0 TextFormat.LineSpacing = 0.001 TextFormat.CharHeightInPts = 22 TextFormat.TypeFaceName = "Century Gothic" TextFormat.WidthFactor = 1 TextFormat.ObliqueAngle = 0 TextFormat.LineLength = 0 TextFormat.Vertical = False TextFormat.BackWards = False TextFormat.UpsideDown = False TextFormat.CharSpacingFactor = 1 boolstatus = Annotation.SetTextFormat(0, False, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.SetPickMode boolstatus = Part.Extension.SelectByID("DetailItem461@Drawing View3", "NOTE", 0.06113553104517, 0.4057399211543, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.5158143949618, 0.03086928310069, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.5550344373859, 0.04135836421412, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem117@Sheet Format1", "NOTE", 0.5304078991196, 0.03319431125305, 0, False, 0, Nothing) Part.ViewZoomTo2 0.37444, 0.0796663, -5.78939e-016, 0.54865, 0.000314134, -2.48251e-017 boolstatus = Part.Extension.SelectByID("DetailItem117@Sheet Format1", "NOTE", 0.5141921757496, 0.02976276716044, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem117@Sheet Format1", "NOTE", 0.5198207086032, 0.03072373618423, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem117@Sheet Format1", "NOTE", 0.4944236701174, 0.02866451684754, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem117@Sheet Format1", "NOTE", 0.4931881385154, 0.02948820458221, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem117@Sheet Format1", "NOTE", 0.4929135759372, 0.02948820458221, 0, False, 0, Nothing) Part.ViewZoomTo2 0.468889, 0.0417062, -4.81995e-016, 0.551258, 0.0246834, -3.63125e-016 boolstatus = Part.Extension.SelectByID("DetailItem117@Sheet Format1", "NOTE", 0.5180250174149, 0.03102036762217, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.1907834829821, 0.3394590114317, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.ViewZoomTo2 -0.03235, 0.477693, -7.29507e-015, 0.597866, 0.00312613, -3.98119e-015 Part.EditSketch ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\drawings\1002402 (camera mount & light seal).SLDDRW", 0, FALSE, FALSE Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0351909, 0.385175, -2.7112e-015, 0.250229, 0.117992, -8.45461e-016 Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.226380048397, 0.3158961481942, 115.3592307692, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.1914856954879, 0.238211639893, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1914856954879, 0.238211639893, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.07508628468892, 0.1314909547184, 115.3592307692, False, 0, Nothing) Part.ViewZoomTo2 0.0783974, 0.268012, -9.86751e-016, 0.273245, 0.148811, -1.54373e-016 Part.ViewZoomTo2 0.0843857, 0.25317, -8.38238e-016, 0.261269, 0.150909, -1.24155e-016 Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.226979544725, 0.1556927588171, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.226979544725, 0.1556927588171, 115.3592307692, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.2265613808547, 0.1662862435305, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2265613808547, 0.1662862435305, 115.3592307692, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.188787244574, 0.166007467617, 115.3532343429, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2186162673196, 0.1694921665359, 115.3536000384, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2186162673196, 0.161407665044, 115.3498429723, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.2177799395791, 0.1591774577359, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2179193275359, 0.1628015446116, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2179193275359, 0.1629409325683, 115.3592307692, False, 0, Nothing) Part.EditSketch Part.ViewZoomTo2 0.164534, 0.203224, -4.85498e-016, 0.232973, 0.149002, -1.06868e-016 Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2214318161735, 0.1676188319397, 115.3534618818, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2223486572098, 0.1702075595716, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2218632707788, 0.1801310154937, 115.3592307692, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.1833559472551, 0.1854702662344, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1833559472551, 0.1854702662344, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1744032641949, 0.1767872423025, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1744032641949, 0.1767872423025, 115.3592307692, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.2241284074566, 0.1662166044725, 115.3592307692, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1756976280109, 0.1925892672219, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1756436961852, 0.1918342216626, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1756436961852, 0.1918342216626, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1761830144418, 0.1930746536529, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1761830144418, 0.1930746536529, 115.3592307692, False, 0, Nothing) ' MSGBOX ' Please enter a number greater than or equal to 0° and less than or equal to 360° Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.1742414687179, 0.1948544038998, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1742414687179, 0.1948544038998, 115.3592307692, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2312474084442, 0.1913488352317, 115.3424478416, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2321103176548, 0.1842298342441, 115.3385538621, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2306002265363, 0.1894612213334, 115.3272054896, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2318945903522, 0.190809516975, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2319485221779, 0.1921578126166, 115.3431557917, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2434899328698, 0.17705690143, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2350226362407, 0.1910252442777, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2350226362407, 0.1910252442777, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2357237499743, 0.1929128581759, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2357237499743, 0.1929128581759, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2481820017026, 0.1917263580113, 115.3592307692, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.2022320862373, 0.1864410390963, 115.3473367031, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1659295561503, 0.2137560936237, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1592195741286, 0.189465958705, 115.3399557106, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1594879734095, 0.1847689712898, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1594879734095, 0.1847689712898, 115.3592307692, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.1690161478803, 0.2011413274229, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1690161478803, 0.2011413274229, 115.3592307692, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.269800077847, 0.1996651313773, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.1649337948183, 0.2411408722509, 115.3592307692, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1666730221583, 0.2405611298042, 115.3592307692, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2903514107832, 0.2239418463319, 0, False, 0, Nothing) Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.ViewZoomtofit2 Part.ViewZoomTo2 0.00574597, 0.457012, -7.15066e-015, 0.565212, 0.0118338, -4.04199e-015 Part.SetPickMode Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.5528679142678, 0.02126148379353, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.5528679142678, 0.02126148379353, 0, False, 0, Nothing) Part.ClearSelection2 True Part.SetupSheet4 "Sheet1", 12, 12, 1.35, 1, False, "MBARI - C reg.slddrt", 0.5588, 0.4318, "Default", True Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.5502226832896, 0.01244404719934, 0, False, 0, Nothing) Part.ViewPropertySheet Part.EditSketch Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.5480259859761, 0.002802717314972, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.5480259859761, 0.002802717314972, 0, False, 0, Nothing) Part.ViewPropertySheet Part.EditSketch Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode Part.SetPickMode Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.5395909382138, 0.003154177638401, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.5395909382138, 0.003154177638401, 0, False, 0, Nothing) Part.ViewPropertySheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.5316555264473, 0.3788385523995, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.5476888652338, 0.4181931112393, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.5476888652338, 0.4174643231126, 0, False, 0, Nothing) Part.ViewPropertySheet Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.01858868527683, 0.0151732771949, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.01858868527683, 0.0151732771949, 0, False, 0, Nothing) Part.ViewPropertySheet Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1300932686562, 0.05962935292131, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.4944873319875, 0.4094476537193, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1701766156226, 0.4998173814255, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.EditSketch Part.SetPickMode Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1807502595681, 0.5204064772802, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.05694788010095, 0.06339131052374, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.5798153763612, 0.4255791227947, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.421769785552, 0.6363065772069, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.6022051683925, 0.6007463192748, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.4352826835662, 0.6907216741225, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.4330068270586, 0.6907216741225, 0, False, 0, Nothing) Part.UnsuppressView Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.5991443521171, 0.7476180868137, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.3374208537372, 0.8454799166428, 0, False, 0, Nothing) Part.SuppressView ' MSGBOX ' Do you want to hide dependent views also? Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.07114564234197, 0.05120599547236, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.6401097692549, 0.06941284753357, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem461@Drawing View3", "NOTE", 0.06204221631137, 0.4107913236813, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.04838707726546, 0.5427910011251, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.0005940906047742, 0.4267223192349, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.06431807281902, -0.5109305619176, 0, False, 0, Nothing) Part.EditSketch Part.ViewZoomTo2 -0.201957, 0.770377, -1.32668e-014, 0.62873, -0.028449, -7.68859e-015 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.07974139399432, 0.4170352846241, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.07974139399432, 0.4170352846241, 0, False, 0, Nothing) Part.ClearSelection2 True Part.SetupSheet4 "Sheet1", 12, 12, 1.45, 1, False, "MBARI - C reg.slddrt", 0.5588, 0.4318, "Default", True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1322856921438, 0.3759136599854, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.08050290556171, 0.3424071510205, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.02110500330576, 0.4619644670998, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.04851941973158, 0.4589184208302, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem461@Drawing View3", "NOTE", 0.04014279249036, 0.375152148418, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", -0.01544755192866, 0.4497802820216, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.4315597381257, 0.06064787108847, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.225951614932, 0.6546268936479, 0, False, 0, Nothing) Part.EditSketch Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("1002402 (camera mount & light seal).SLDDRW", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.005113260390702, 0.4513033051564, 0, False, 0, Nothing) Part.SuppressView Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.05461151227066, 0.4193198193263, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.03785825778821, 0.3614449402051, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.03785825778821, 0.3614449402051, 0, False, 0, Nothing) Part.UnsuppressView ' MSGBOX ' Do you want to show parent view also? Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.01805895703623, 0.4619644670998, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.04547337346205, 0.3789597062549, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.04471186189466, 0.3797212178223, 0, False, 0, Nothing) Part.ClearSelection2 True Part.SetupSheet4 "Sheet1", 12, 12, 1.4, 1, False, "MBARI - C reg.slddrt", 0.5588, 0.4318, "Default", True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.03709674622083, 0.4231273771632, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.03709674622083, 0.4231273771632, 0, False, 0, Nothing) Part.ClearSelection2 True Part.SetupSheet4 "Sheet1", 12, 12, 1.35, 1, False, "MBARI - C reg.slddrt", 0.5588, 0.4318, "Default", True Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.05308848913589, 0.1329914699899, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1665537126761, 0.2388415778563, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.03328918838391, 0.2426491356932, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.02034349173838, 0.4840483025539, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.005113260390702, 0.4330270275392, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.005874771958086, 0.4238888887306, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", -0.01620906349605, 0.3804827293897, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", -0.01697057506343, 0.3880978450635, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.05765755854019, 0.385051798794, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.05918058167496, 0.3957129607374, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem461@Drawing View3", "NOTE", 0.06374965107926, 0.3896208681983, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.ViewZoomtofit2 Part.ViewZoomTo2 0.00254181, 0.433481, -7.63154e-015, 0.549116, 0.00544126, -4.64255e-015 Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.08825362387478, 0.4242651897899, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.08825362387478, 0.4242651897899, 0, False, 0, Nothing) Part.ClearSelection2 True Part.NewSheet3 "Sheet2", 12, 12, 1.35, 1, False, "MBARI - C reg.slddrt", 0.5588, 0.4318, "Default", True Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.05998843498818, 0.04275126241135, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1128042441177, 0.4242651897899, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.02795385485711, 0.4264187529691, 0, False, 0, Nothing) Part.SaveTemplate Part.ClearSelection2 True Part.EditSketch Set Part = swApp.NewDrawing2 (13, """", 12, 0.431800, 0.558800) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.04992019928498, 0.4259880403333, 0, False, 0, Nothing) Part.ClearSelection2 True Part.NewSheet3 "Sheet3", 12, 12, 1.35, 1, False, "1002402.slddrt", 0.5588, 0.4318, "Default", True boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1879972293144, 0.150548141844, 0, False, 0, Nothing) 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.02680944531238, -0.1286997810046, -0.04724399999995, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\camera base.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\camera base.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("camera base.SLDPRT") Part.ClearSelection2 True ' MSGBOX ' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\camera base.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-001.SLDPRT", 0, FALSE, FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ESP2G.SLDASM") Set Part = Nothing swApp.CloseDoc "ESP2G.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402-001.SLDPRT") swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\ESP2G.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\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("camera mount-1@ESP2G/1002402-001-1@camera mount", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402-001.SLDPRT") Part.NameView "illus1", -1 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 ("1002402 (camera mount & light seal) - Sheet3") boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.3280950693069, 0.2180803762376, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-001.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet3") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-001.SLDPRT", "illus1", 0.3469916633663, 0.2384305544554, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.1870974059406, 0.2689558217822, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem461@Drawing View3", "NOTE", 0.04792568188332, 0.4097292198505, 0, False, 0, Nothing) Part.EditCopy Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.07662500990099, 0.3997783960396, 0, False, 0, Nothing) Part.Paste Part.ViewZoomTo2 0.0112137, 0.417221, -2.9436e-015, 0.26123, 0.308203, -2.18232e-015 boolstatus = Part.Extension.SelectByID("DetailItem467@Sheet3", "NOTE", 0.122369735124, 0.3938345321047, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem467@Sheet3", "NOTE", 0.06120406509166, 0.4096656467013, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.05616689226546, 0.3970727146358, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem467@Sheet3", "NOTE", 0.05544729614744, 0.3995913010489, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.173820857563, 0.3859189748064, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-001.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet3") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-001.SLDPRT", "illus1", 0.2619713820214, 0.3672094757377, 0 Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 708 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ViewZoomtofit2 Part.ViewDisplayShadedWithEdges Part.ViewDisplayHidden boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.293870300458, 0.1482367499682, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.2933441077141, 0.2034869880806, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View5", "DRAWINGVIEW", 0.2223080872839, 0.2761015867426, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.4180517880249, 0.1450795935047, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Sheet2" 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 Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402-001.SLDPRT") Set Part = Nothing swApp.CloseDoc "1002402-001.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 708 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet2") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 354 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ESP2G.SLDASM") boolstatus = Part.Extension.SelectByID("", "EDGE", 0.0156432819897, -0.08420125179026, -0.08338156202637, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\camera clamp.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\camera clamp.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("camera clamp.SLDPRT") Part.ClearSelection2 True ' MSGBOX ' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\camera clamp.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-002.SLDPRT", 0, FALSE, FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 708 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet2") boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.1244362369133, 0.0619411399641, 0, False, 0, Nothing) Part.ClearSelection2 True Part.NewSheet3 "Sheet3", 12, 12, 1.35, 1, False, "1002402.slddrt", 0.5588, 0.4318, "Default", True boolstatus = Part.Extension.SelectByID("DetailItem467@Sheet2", "NOTE", 0.02919535026245, 0.4076497727245, 0, False, 0, Nothing) Part.EditCopy Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.04875959338061, 0.4043199621749, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem473@Sheet3", "NOTE", 0.05729351300236, 0.3993792718676, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem473@Sheet3", "NOTE", 0.02495444917258, 0.408811498818, 0, False, 0, Nothing) swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 708 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1638400594059, 0.2326162178218, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-002.SLDPRT") Part.NameView "illus1", -1 Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet3") boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.3891456039604, 0.1759264356436, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-002.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet3") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-002.SLDPRT", "illus1", 0.3935063564356, 0.3052954257426, 0 Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 ' 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.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 354 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402-002.SLDPRT") Set Part = Nothing swApp.CloseDoc "1002402-002.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet3") Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 708 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ESP2G.SLDASM") boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05075140398503, -0.09540877976679, -0.003620394086397, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.05103271283025, -0.09473900650079, -0.005890216002399, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.05103271283025, -0.09473900650079, -0.005890216002399, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\puck retainer - carousel.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\puck retainer - carousel.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("puck retainer - carousel.SLDPRT") Part.ClearSelection2 True ' MSGBOX ' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\puck retainer - carousel.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-003.SLDPRT", 0, FALSE, FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet3") boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1897938439716, 0.08137847754137, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1282597919622, 0.2430737966903, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem473@Sheet3", "NOTE", 0.07211558392435, 0.4016250401891, 0, False, 0, Nothing) Part.EditCopy boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1731751583924, 0.2098364255319, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet3", "SHEET", 0.1731751583924, 0.2098364255319, 0, False, 0, Nothing) Part.ClearSelection2 True Part.NewSheet3 "Sheet4", 12, 12, 1.35, 1, False, "1002402.slddrt", 0.5588, 0.4318, "Default", True boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.04516636406619, 0.3980318108747, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem475@Sheet4", "NOTE", 0.0802003498818, 0.393989427896, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem475@Sheet4", "NOTE", 0.05010705437352, 0.4101589598109, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem475@Sheet4", "NOTE", 0.07256473758865, 0.4097098061466, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem475@Sheet4", "NOTE", 0.07525965957447, 0.4106081134752, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem475@Sheet4", "NOTE", 0.0640308179669, 0.4079131914894, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem475@Sheet4", "NOTE", 0.06447997163121, 0.4110572671395, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem475@Sheet4", "NOTE", 0.05998843498818, 0.4061165768322, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.07031896926714, 0.3607520567376, 0, False, 0, Nothing) swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\puck retainer - gate.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\puck retainer - gate.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("puck retainer - gate.SLDPRT") ' MSGBOX ' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\puck retainer - gate.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-005.SLDPRT", 0, FALSE, FALSE 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 ("1002402 (camera mount & light seal) - Sheet4") boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.3471430491803, 0.2970748606557, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-003.SLDPRT") swApp.LoadFile2 "C:\Program Files\SolidWorks (2)\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 (2)\data\templates\Assembly.asmdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Assem1") 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 Part.AddComponent "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-003.SLDPRT", 0.003119325247823, 0.1244853640864, -0.08188233463841 Set Part = swApp.ActivateDoc ("1002402-005.SLDPRT") boolstatus = Part.Extension.SelectByID("1002402-005.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("Assem1") 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.03352648427243, 0.09347388882733, -0.05901693254663, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01994863545046, 0.1200920302718, -0.03296046175257, True, 1, Nothing) Part.DeSelectByID "", "EDGE", 0.01994863545046, 0.1200920302718, -0.03296046175257 boolstatus = Part.Extension.SelectByID("", "FACE", 0.03210523421531, 0.123640416733, -0.03057613359681, True, 1, Nothing) Set Feature = Part.AddMate2 (1, 0, False, 0.02442000649815, 0, 0, 1, 1, 0.5235987755983, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", -0.02694056305987, 0.09600135758822, -0.0316421829433, False, 0, Nothing) Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", -0.04413417927304, 0.1241665927346, -0.04667416094969, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Front@1002402-005-1@Assem1", "PLANE", 0, 0, 0, True, 1, Nothing) boolstatus = Part.Extension.SelectByID("Front@1002402-003-1@Assem1", "PLANE", 0, 0, 0, True, 1, Nothing) Set Feature = Part.AddMate2 (0, 0, False, 0, 0, 0, 1, 1, 0.6949922028187, 0.5235987755983, 0.5235987755983, longstatus) Part.ClearSelection2 True Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", -0.0118190458414, 0.1410933623015, -0.02487922723896, False, 0, Nothing) Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", -0.0189132218234, 0.1273266797108, -0.0272281851752, False, 0, Nothing) ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\retainer.SLDASM", 0, FALSE, FALSE boolstatus = Part.Extension.SelectByID("", "FACE", -0.03985150978798, 0.1438436159679, -0.04924761972524, False, 0, Nothing) Part.TranslateComponent Part.NameView "illus", -1 Part.SetPickMode Part.ClearSelection2 True swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet4") boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.4567372673267, 0.1744728514851, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("retainer.SLDASM") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet4") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\retainer.SLDASM", "illus", 0.4058618217822, 0.3154705148515, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.2343388910891, 0.1381332475248, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 354 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 354 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 ("1002402-005.SLDPRT") Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "1002402-005.SLDPRT" Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet4") Set Part = swApp.ActivateDoc ("1002402-003.SLDPRT") Set Part = Nothing swApp.CloseDoc "1002402-003.SLDPRT" Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet4") Set Part = swApp.ActivateDoc ("retainer.SLDASM") ' MSGBOX ' One or more documents are being closed as a result of this operation. If you do not save them, your changes will be lost. ' Click "Yes" to close and save them. ' Click "No" to close them without the changes. ' MSGBOX ' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\retainer.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 "retainer.SLDASM" Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet4") Set Part = swApp.ActivateDoc ("ESP2G.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 708 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("", "EDGE", -0.01819445651816, -0.06585691382071, -0.03142582301346, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.02684284900315, -0.05234318073275, -0.02748841592212, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.02684284900315, -0.05234318073275, -0.02748841592212, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\retainer.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\retainer.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("retainer.SLDPRT") Part.ClearSelection2 True ' MSGBOX ' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\retainer.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-006.SLDPRT", 0, FALSE, FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet4") boolstatus = Part.Extension.SelectByID("Sheet4", "SHEET", 0.1246665626478, 0.09215816548463, 0, False, 0, Nothing) Part.ClearSelection2 True Part.NewSheet3 "Sheet5", 12, 12, 1.35, 1, False, "1002402.slddrt", 0.5588, 0.4318, "Default", True boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.06672573995272, 0.3742266666667, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem475@Sheet4", "NOTE", 0.04426805673759, 0.402972501182, 0, False, 0, Nothing) Part.EditCopy Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.05774266666667, 0.3841080472813, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem476@Sheet5", "NOTE", 0.07570881323877, 0.3742266666667, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem476@Sheet5", "NOTE", 0.03438667612293, 0.402972501182, 0, False, 0, Nothing) 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 boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2466943564356, 0.2282554653465, 0, False, 0, Nothing) Part.ClearSelection2 True Set Part = swApp.ActivateDoc ("1002402-006.SLDPRT") Part.NameView "ILLUS", -1 Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet5") boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2961162178218, 0.1715656831683, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-006.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet5") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-006.SLDPRT", "ILLUS", 0.4094957821782, 0.3677995445545, 0 Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2769296548463, 0.3194299196217, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2769296548463, 0.3194299196217, 0, False, 0, Nothing) Part.ClearSelection2 True Part.NewSheet3 "Sheet6", 12, 12, 1.35, 1, False, "1002402.slddrt", 0.5588, 0.4318, "Default", True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 708 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ESP2G.SLDASM") boolstatus = Part.Extension.SelectByID("light seal-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("camera-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("camera mount-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\camera mount.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\camera mount.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("camera mount.SLDASM") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.02680046746346, 0.0007619999998951, 0.008377598501781, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\camera spacer.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\camera spacer.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("camera spacer.SLDPRT") Part.ClearSelection2 True ' MSGBOX ' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\camera spacer.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-007.SLDPRT", 0, FALSE, FALSE 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 ("1002402 (camera mount & light seal) - Sheet6") boolstatus = Part.Extension.SelectByID("Drawing View8", "DRAWINGVIEW", 0.4349335049505, 0.3387278613861, 0, False, 0, Nothing) Part.EditDelete Set Part = swApp.ActivateDoc ("1002402-007.SLDPRT") Part.NameView "ILLUS", -1 Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet5") boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.2503283168317, 0.3634387920792, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem477@Sheet5", "NOTE", 0.2895750891089, 0.3576244554455, 0, False, 0, Nothing) Part.ViewZoomTo2 0.247421, 0.42885, -3.0248e-015, 0.421851, 0.266049, -1.88796e-015 boolstatus = Part.Extension.SelectByID("DetailItem477@Sheet5", "NOTE", 0.2954134122798, 0.4009105605986, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-007.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet5") boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.3050847841061, 0.3493299108584, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-007.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet5") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-007.SLDPRT", "ILLUS", 0.3179799465412, 0.3520164030324, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.06383778688364, 0.353090999902, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-006.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet5") boolstatus = Part.Extension.SelectByID("Sheet5", "SHEET", 0.07189726340555, 0.329449868771, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-006.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet5") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-006.SLDPRT", "ILLUS", 0.09607569297128, 0.3520164030324, 0 Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 354 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.1776666950355, 0.2340907234043, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem478@Sheet6", "NOTE", 0.2176413711584, 0.227802572104, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem478@Sheet6", "NOTE", 0.05684435933806, 0.4070148841608, 0, False, 0, Nothing) swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 354 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 ("1002402-007.SLDPRT") ' MSGBOX ' Save changes to 1002402-007.SLDPRT? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "1002402-007.SLDPRT" Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet6") Set Part = swApp.ActivateDoc ("1002402-006.SLDPRT") ' MSGBOX ' Save changes to 1002402-006.SLDPRT? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "1002402-006.SLDPRT" Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet6") Set Part = swApp.ActivateDoc ("camera mount.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 354 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "camera mount.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet6") swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 708 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ESP2G.SLDASM") boolstatus = Part.Extension.SelectByID("light seal-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("light seal-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\light seal.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\light seal.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("light seal.SLDASM") Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet6") Part.ClearSelection2 True Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("light seal.SLDASM") boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01814243188102, 0.03573454959658, -0.01765904926793, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.01697538485223, 0.04662588300928, -0.02488913061715, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\clamp bearing shaft.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\clamp bearing shaft.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("clamp bearing shaft.SLDPRT") Part.ClearSelection2 True ' MSGBOX ' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\clamp bearing shaft.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-008.SLDPRT", 0, FALSE, FALSE Part.NameView "ILLUS", -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 ("1002402 (camera mount & light seal) - Sheet6") boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.1953051803279, 0.2164839918033, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-008.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet6") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-008.SLDPRT", "ILLUS", 0.1030344754098, 0.3040827622951, 0 Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True Set Part = swApp.ActivateDoc ("light seal.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 532 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402-008.SLDPRT") ' MSGBOX ' Save changes to 1002402-008.SLDPRT? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "1002402-008.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 532 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("light seal.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet6") boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.2827686524823, 0.3787182033097, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.2594126619385, 0.3189807659574, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.1367937115839, 0.3459299858156, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-008.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-008.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402-008.SLDPRT") Part.ClearSelection2 True ' MSGBOX ' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-008.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-009.SLDPRT", 0, FALSE, FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet6") boolstatus = Part.Extension.SelectByID("Drawing View11", "DRAWINGVIEW", 0.1484717068558, 0.3477266004728, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.3708027706856, 0.3975826572104, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem480@Sheet6", "NOTE", 0.3999977588652, 0.3890487375887, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem480@Sheet6", "NOTE", 0.3528366241135, 0.4106081134752, 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 boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.4289019016393, 0.2713792213115, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-009.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet6") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-009.SLDPRT", "ILLUS", 0.4125501311475, 0.3180985655738, 0 Part.ClearSelection2 True Set Part = swApp.ActivateDoc ("1002402-009.SLDPRT") Set Part = Nothing swApp.CloseDoc "1002402-009.SLDPRT" Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet6") Set Part = swApp.ActivateDoc ("light seal.SLDASM") boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01477136230666, 0.03054045300735, -0.01223453525802, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.01477136230666, 0.03054045300735, -0.01223453525802, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-009.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-009.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("1002402-009.SLDPRT") Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "1002402-009.SLDPRT" Set Part = swApp.ActivateDoc ("light seal.SLDASM") boolstatus = Part.Extension.SelectByID("", "FACE", 0.005111953825974, 0.02819399999998, -0.02260708967066, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.005111953825974, 0.02819399999998, -0.02260708967066, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\light seal tube.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\light seal tube.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("light seal tube.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ClearSelection2 True ' MSGBOX ' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\light seal tube.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-008.SLDPRT", 0, FALSE, FALSE Part.NameView "ILLUS1", -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 ("1002402 (camera mount & light seal) - Sheet6") boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.05631513114754, 0.2258278606557, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-008.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet6") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-008.SLDPRT", "ILLUS1", 0.1228901967213, 0.3157625983607, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.1485858360656, 0.1452369918033, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-008.SLDPRT") ' MSGBOX ' Save changes to 1002402-008.SLDPRT? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "1002402-008.SLDPRT" Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet6") Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet6", "SHEET", 0.1794633096927, 0.1069802364066, 0, False, 0, Nothing) Part.ClearSelection2 True Part.NewSheet3 "Sheet7", 12, 12, 1.35, 1, False, "1002402.slddrt", 0.5588, 0.4318, "Default", True boolstatus = Part.Extension.SelectByID("Sheet7", "SHEET", 0.05819182033097, 0.3921928132388, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem482@Sheet7", "NOTE", 0.08469188652482, 0.3823114326241, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem482@Sheet7", "NOTE", 0.04202228841608, 0.4020741938534, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem478@Sheet6", "NOTE", 0.05909012765957, 0.4002775791962, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem478@Sheet6", "NOTE", 0.05909012765957, 0.4011758865248, 0, False, 0, Nothing) Part.ClearSelection2 True Part.ViewZoomtofit2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 532 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("light seal.SLDASM") boolstatus = Part.Extension.SelectByID("", "EDGE", -0.002294435796671, 0.01367958870151, -0.01326339674125, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.00804751623707, 0.01554919443737, -0.01756053476691, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\light seal release.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\light seal release.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("light seal release.SLDPRT") Part.ClearSelection2 True ' MSGBOX ' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\light seal release.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-010.SLDPRT", 0, FALSE, FALSE Part.NameView "ILLUS1", -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 ("1002402 (camera mount & light seal) - Sheet7") boolstatus = Part.Extension.SelectByID("Sheet7", "SHEET", 0.1614336557377, 0.2538594672131, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-010.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet7") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-010.SLDPRT", "ILLUS1", 0.08668270491803, 0.3180985655738, 0 Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("DetailItem482@Sheet7", "NOTE", 0.05819182033097, 0.3989301182033, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem482@Sheet7", "NOTE", 0.05819182033097, 0.3989301182033, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem482@Sheet7", "NOTE", 0.06672573995272, 0.4007267328605, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem482@Sheet7", "NOTE", 0.06717489361702, 0.4047691158392, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet7", "SHEET", 0.2041667612293, 0.1626752907801, 0, False, 0, Nothing) Part.ClearSelection2 True Part.NewSheet3 "Sheet8", 12, 12, 1.35, 1, False, "1002402.slddrt", 0.5588, 0.4318, "Default", True boolstatus = Part.Extension.SelectByID("Sheet8", "SHEET", 0.08559019385343, 0.3948877352246, 0, False, 0, Nothing) Part.Paste boolstatus = Part.Extension.SelectByID("DetailItem483@Sheet8", "NOTE", 0.1022088794326, 0.3877012765957, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem483@Sheet8", "NOTE", 0.03932736643026, 0.4097098061466, 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 Set Part = swApp.ActivateDoc ("1002402-010.SLDPRT") ' MSGBOX ' Save changes to 1002402-010.SLDPRT? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "1002402-010.SLDPRT" Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet8") Set Part = swApp.ActivateDoc ("light seal.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.003371279124792, 0.01268463526748, 0.01234197828603, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-008.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-008.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402-008.SLDPRT") Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "1002402-008.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("light seal.SLDASM") boolstatus = Part.Extension.SelectByID("", "FACE", 0.01058204601401, 0.01333499999993, 0.007034514575537, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\light seal.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\light seal.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("light seal.SLDPRT") Part.ClearSelection2 True ' MSGBOX ' C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\light seal.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Part.SaveAs2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-011.SLDPRT", 0, FALSE, FALSE swApp.LoadFile2 "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\4-40 insert.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\4-40 insert.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("4-40 insert.SLDPRT") Set Part = Nothing swApp.CloseDoc "4-40 insert.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002402-011.SLDPRT") Part.NameView "ILLUS", -1 Part.Save2 FALSE 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 ("light seal.SLDASM") Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "light seal.SLDASM" Set Part = swApp.ActivateDoc ("1002402-011.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet8") boolstatus = Part.Extension.SelectByID("Sheet8", "SHEET", 0.05981908196721, 0.2713792213115, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("1002402-011.SLDPRT") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet8") Part.CreateDrawViewFromModelView "C:\Documents and Settings\jfeldman\My Documents\SolidWorks files - in progress\ESP2G Jason\camera\1002402-011.SLDPRT", "ILLUS", 0.1217222131148, 0.3251064672131, 0 Part.ClearSelection2 True Set Part = swApp.ActivateDoc ("1002402-011.SLDPRT") Set Part = Nothing swApp.CloseDoc "1002402-011.SLDPRT" Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet8") Set Part = swApp.ActivateDoc ("ESP2G.SLDASM") Set Part = swApp.ActivateDoc ("1002402 (camera mount & light seal) - Sheet8") swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("Sheet8", "SHEET", 0.1641920851064, 0.3885995839243, 0, False, 0, Nothing) 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 Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem461@Drawing View3", "NOTE", 0.04862806137745, 0.4087595348997, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem461@Drawing View3", "NOTE", 0.04690521083409, 0.4109130980789, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.04647449819825, 0.3923924547377, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.PrintDirect swApp.PageSetup Part.PrintDirect Part.EditSketch ' MSGBOX ' Save changes to 1002402 (camera mount & light seal) - Sheet1? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "1002402 (camera mount & light seal) - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 769 swApp.ActiveDoc.ActiveView.FrameTop = 532 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ESP2G.SLDASM") boolstatus = Part.Extension.SelectByID("Default@ESP2G.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ShowConfiguration "Default" boolstatus = Part.Extension.SelectByID("manipulator mount-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("manipulator bottom-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("manipulator top-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("finger-left-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("finger-right-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("link-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("IKO CFS 2 FV-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("IKO CFS 2 FV-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Hex Nut Style 1_AM-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Hex Nut Style 1_AM-2@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-10@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Lock Washer Spring Hi-Collar_AI-10@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.HideComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("camera-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("light seal-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("camera mount-1@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-24@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Socket Head Cap Screw_AI-24@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.HideComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("bearing mount-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("bearing mount-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ShowComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("elevator track-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("elevator car temp-1@ESP2G", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("elevator car temp-1@ESP2G", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ShowComponent2 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 Set Part = Nothing swApp.CloseDoc "ESP2G.SLDASM" swApp.ExitApp End Sub