' ****************************************************************************** ' swxJRNL.swj - journal recorded on 04/17/03 by jon ' ***************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long Dim Annotation As Object Dim Gtol As Object Dim DatumTag As Object Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = Application.SldWorks Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\guralp housing\bbdrawings\Cap-Clevis_handle.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Cap-Clevis_handle - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 -0.00203595, 0.00815601, -0.199098, 0.0334989, -0.00716633, -0.199098 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.01319325473194, 0.003743209948932, -0.1990982211885, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.01319325473194, 0.003743209948932, -0.1990982211885, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem126@Sheet Format1", "NOTE", 0.01358779366766, -0.001464704002463, -0.1990982211885, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("DetailItem127@Sheet Format1", "NOTE", 0.01358779366766, -0.001464704002463, -0.1990982211885, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("DetailItem128@Sheet Format1", "NOTE", 0.003724320274863, -0.001175375449608, -0.1990982211885, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("DetailItem130@Sheet Format1", "NOTE", 0.003724320274863, -0.001175375449608, -0.1990982211885, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.00843248490769, 0.00795162526319, -0.1990982211885, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.Save2 FALSE swApp.LoadFile2 "G:\Work In Progress\200009-BroadBand_Seis\guralp housing\bbdrawings\100252.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\guralp housing\bbdrawings\100252.SLDDRW", 3, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("100252 - Sheet2") Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View8", "DRAWINGVIEW", 0.2698275314632, 0.2497255208491, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "G:\Work In Progress\200009-BroadBand_Seis\guralp housing\bbdrawings\guralt_can.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\guralp housing\bbdrawings\guralt_can.SLDASM", 2, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("guralt_can.SLDASM") Part.ClearSelection boolstatus = Part.Extension.SelectByID("guralt_can.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ViewFeatureManagerByDependencies boolstatus = Part.Extension.SelectByID("Angle1", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditUnsuppress Part.ClearSelection boolstatus = Part.Extension.SelectByID("Angle1", "MATE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Angle1", "MATE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("Angle1", "MATE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Angle1@guralt_can.SLDASM", "DIMENSION", -0.4194752737437, 0.01774076337993, 0.3063863913885, False, 0, Nothing) Part.EditRebuild Part.ClearSelection boolstatus = Part.Extension.SelectByID("Section@guralt_can.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "Section" ' 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("Open-Top@guralt_can.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "Open-Top" boolstatus = Part.Extension.SelectByID("Display", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "Display" boolstatus = Part.Extension.SelectByID("Default@guralt_can.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "Default" boolstatus = Part.Extension.SelectByID("domed", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.DeleteConfiguration "domed" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("100252 - Sheet1") Part.EditSketch ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE swApp.LoadFile2 "G:\Work In Progress\200009-BroadBand_Seis\guralp housing\bbdrawings\101249.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\guralp housing\bbdrawings\101249.SLDDRW", 3, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("101249 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.Save2 FALSE swApp.LoadFile2 "G:\Work In Progress\200009-BroadBand_Seis\guralp housing\bbdrawings\101250.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\guralp housing\bbdrawings\101250.SLDDRW", 3, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("101250 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.LoadFile2 "G:\Work In Progress\200009-BroadBand_Seis\guralp housing\bbdrawings\101251.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\guralp housing\bbdrawings\101251.SLDDRW", 3, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("101251 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Cap-Clevis_handle - Sheet1") swApp.LoadFile2 "G:\Work In Progress\200009-BroadBand_Seis\guralp housing\bbdrawings\Mount.Shoulder.Bushing.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\guralp housing\bbdrawings\Mount.Shoulder.Bushing.SLDDRW", 3, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Mount.Shoulder.Bushing - Sheet2") Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet2", "SHEET", 0.2276882404965, 0.03223908301009, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch 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 = 307 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Set Part = swApp.ActivateDoc ("Cap-Clevis_handle - Sheet1") Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Set Part = swApp.ActivateDoc ("101251 - Sheet1") Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("101250 - Sheet1") Part.PrintDirect Set Part = swApp.ActivateDoc ("101249 - Sheet1") Part.EditSketch Part.PrintDirect Set Part = swApp.ActivateDoc ("100252 - Sheet2") Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Set Part = swApp.ActivateDoc ("Cap-Clevis_handle - Sheet1") Set Part = swApp.ActivateDoc ("101251 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("100252 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch ' MSGBOX ' Drag and drop failed. Set Part = swApp.ActivateDoc ("Cap-Clevis_handle - Sheet1") Part.EditSketch Set Part = swApp.ActivateDoc ("Mount.Shoulder.Bushing - Sheet2") Part.Save2 FALSE Part.ClearSelection Set Part = Nothing swApp.CloseDoc "Mount.Shoulder.Bushing - Sheet2" Set Part = swApp.ActivateDoc ("Cap-Clevis_handle - Sheet1") Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Cap-Clevis_handle - Sheet1" Set Part = swApp.ActivateDoc ("100252 - Sheet1") Set Part = swApp.ActivateDoc ("101251 - Sheet1") Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "101251 - Sheet1" Set Part = swApp.ActivateDoc ("100252 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("101250 - Sheet1") Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "101250 - Sheet1" Set Part = swApp.ActivateDoc ("100252 - Sheet1") Set Part = swApp.ActivateDoc ("101249 - Sheet1") Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "101249 - Sheet1" Set Part = swApp.ActivateDoc ("100252 - Sheet1") Set Part = Nothing swApp.CloseDoc "100252 - Sheet1" Set Part = swApp.ActivateDoc ("guralt_can.SLDASM") Set Part = Nothing swApp.CloseDoc "guralt_can.SLDASM" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\Tiburon\Tiburon_Assem.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Tiburon_Assem.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ShowNamedView2 "*Top", 5 Part.InsertNewPart swApp.LoadFile2 "C:\Program Files\SolidWorks2001_Plus\data\templates\Part.prtdot", "" Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks2001_Plus\data\templates\Part.prtdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Part1") Part.SaveAs2 "G:\Work In Progress\200009-BroadBand_Seis\Join1.SLDPRT", 0, FALSE, FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Tiburon_Assem.SLDASM") Part.AddComponent "G:\Work In Progress\200009-BroadBand_Seis\Join1.SLDPRT", 0, 0, 0 Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Light.Bar.Strut-2@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Light.Bar.Strut-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/New.Light.Bar-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Clamp.TitanII.Fndtn.Tube-3@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Clamp.TitanII.Fndtn.Tube-2@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Clamp.TitanII.Fndtn.Tube-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/FNDTN.Tube.2B-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/REV1.THIN.FNDTN.PLATE-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/FNDTN.Tube.2A-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/REV1.FNDTN.PLATE-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/TOP.Tiburon.Frame.Tube-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Frame.Gusset1-2@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Frame.Gusset2-2@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Frame.Gusset2-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Frame.Gusset1-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Fwd.Stbd.Vert. Tube-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Fwd.Stbd.Angular.Spprt.Tube-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/FWD.Vert. Tube-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Fwd.Angular.Spprt.Tube-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/MidFrame.Tube Assy-1@TIBURON.FRAME/Curved.MidFrame.Perimeter.Tube-4@MidFrame.Tube Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/MidFrame.Tube Assy-1@TIBURON.FRAME/Curved.MidFrame.Perimeter.Tube-3@MidFrame.Tube Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Loongit.Tube4-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Longit.Tube3-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Cntr.Longit.Tube-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Longit.Tube2-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Longit.Tube1-2@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Lateral.Tube.4-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Lateral.Tube.3-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Lateral.Tube2-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Lateral.Tube 1-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Curved.Perimeter.Frame-2@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TIBURON.FRAME-1@Tiburon_Assem/Curved.Perimeter.Frame-1@TIBURON.FRAME", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 4-3@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 1-3@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 1-4@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 3-2@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 3-3@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 2-2@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 2-3@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 6-1@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 5-1@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 10-1@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 10-2@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 7-1@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube.11-1@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 8-1@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Tube 8-3@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 4-3@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 1-3@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 1-4@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 3-2@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 3-3@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 2-2@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 2-3@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 6-1@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 5-1@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 10-1@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 10-2@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 7-1@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube.11-1@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 8-1@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Toolsled.Frame.Assy-1@Ben.Bio.TLSLD.Frame/Tube 8-3@Toolsled.Frame.Assy", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Vertica.Tube-1@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Vertica.Tube-2@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Vertica.Tube-3@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Vertica.Tube-4@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Vertica.Tube-5@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Vertica.Tube-6@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Vertica.Tube-7@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Long.Vertical.Tube.-1@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ben.Bio.TLSLD.Frame-1@Tiburon_Assem/Long.Vertical.Tube.-2@Ben.Bio.TLSLD.Frame", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Raptor_Arm-1@Tiburon_Assem/Raptor_Base-1@Raptor_Arm", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Raptor_Arm-1@Tiburon_Assem/Upper_Arm-1@Raptor_Arm", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Raptor_Arm-1@Tiburon_Assem/ForeArm-1@Raptor_Arm", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Raptor_Arm-1@Tiburon_Assem/Wrist_Pitch-1@Raptor_Arm", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Raptor_Arm-1@Tiburon_Assem/Wrist_Yaw-1@Raptor_Arm", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.InsertJoin2(True, False) Part.ClearSelection Part.EditAssembly swApp.LoadFile2 "G:\Work In Progress\200009-BroadBand_Seis\Join1.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\Join1.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Join1.SLDPRT") Part.ViewZoomtofit2 ' MSGBOX ' G:\Work In Progress\200009-BroadBand_Seis\Join1.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 "G:\Work In Progress\200009-BroadBand_Seis\Join1.X_T", 0, TRUE, FALSE Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Join1.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Tiburon_Assem.SLDASM") Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Tiburon_Assem.SLDASM" swApp.LoadFile2 "G:\Work In Progress\200009-BroadBand_Seis\Join1.x_t", "" Set Part = swApp.ActiveDoc Part.ShowNamedView2 "*Top", 5 boolstatus = Part.Extension.SelectByID("Front", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ShowNamedView2 "*Front", 1 Part.ShowNamedView2 "*Bottom", 6 Part.ShowNamedView2 "*Isometric", 7 Part.SaveAs2 "G:\Work In Progress\200009-BroadBand_Seis\Tiburon_Joined.SLDPRT", 0, FALSE, FALSE Part.ClearSelection Set Part = Nothing swApp.CloseDoc "Tiburon_Joined.SLDPRT" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\Tiburon_Joined.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Tiburon_Joined.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ActiveView().RotateAboutCenter -0.0146391, 0.00727381 Part.ActiveView().RotateAboutCenter -0.180549, 0.138202 Part.ActiveView().RotateAboutCenter -0.234225, 0.0290952 Part.ActiveView().RotateAboutCenter -0.15615, -0.00727381 Part.ActiveView().RotateAboutCenter -0.278142, -0.0872857 Part.ActiveView().RotateAboutCenter -0.0683157, -0.0218214 Part.ActiveView().RotateAboutCenter -0.0243985, -0.0581905 Part.ActiveView().RotateAboutCenter -0.117113, -0.101833 Part.ActiveView().RotateAboutCenter -0.00487969, -0.00727381 Part.ViewZoomTo2 -0.66074, 1.46088, -2.33427, -0.124238, 0.871388, -2.33427 boolstatus = Part.Extension.SelectByID("", "FACE", 0.6908787658567, 0.3190339797801, 1.278019926805, False, 0, Nothing) Part.SetPickMode Part.ClearSelection Part.SetPickMode boolstatus = Part.Extension.SelectByID("", "FACE", 0.8159774339537, 0.07567899583472, 1.328585204261, False, 0, Nothing) Part.ClearSelection Set Part = Nothing swApp.CloseDoc "Tiburon_Joined.SLDPRT" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\Tiburon_Joined.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Tiburon_Joined.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 ' MSGBOX ' Unknown error opening G:\Work In Progress\200009-BroadBand_Seis\Tiburon_Joined.SLDPRT. ' MSGBOX ' SolidWorks encountered an error opening the document. ' Please contact your local SolidWorks support representative for help in troubleshooting this problem. Set Part = Nothing swApp.CloseDoc "Tiburon_Joined.SLDPRT" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\Tiburon_Joined.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Tiburon_Joined.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = Nothing swApp.CloseDoc "Tiburon_Joined.SLDPRT" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\Tiburon_Joined.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Tiburon_Joined.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("Imported1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Imported2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Tiburon_Joined.SLDPRT" swApp.LoadFile2 "G:\Work In Progress\200009-BroadBand_Seis\-Join1.x_t", "" Set Part = swApp.ActiveDoc Set Part = Nothing swApp.CloseDoc "-Join1.sldprt" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\-Join1.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("-Join1.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.LoadFile2 "G:\Work In Progress\200009-BroadBand_Seis\Tiburon\Tiburon_Assem.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\Tiburon\Tiburon_Assem.SLDASM", 2, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Tiburon_Assem.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 2 Set Part = swApp.ActivateDoc ("-Join1.SLDPRT") swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SaveAs2 "G:\Work In Progress\200009-BroadBand_Seis\Tib.X_T", 0, TRUE, FALSE Set Part = Nothing swApp.CloseDoc "-Join1.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Tiburon_Assem.SLDASM") Set Part = Nothing swApp.CloseDoc "Tiburon_Assem.SLDASM" swApp.LoadFile2 "G:\Work In Progress\200009-BroadBand_Seis\Tib.x_t", "" Set Part = swApp.ActiveDoc Set Part = Nothing swApp.CloseDoc "Tib.sldprt" swApp.LoadFile2 "G:\Work In Progress\200009-BroadBand_Seis\Tib.x_t", "" Set Part = swApp.ActiveDoc Part.SaveAs2 "G:\Work In Progress\200009-BroadBand_Seis\Tiburon-Joined.SLDPRT", 0, FALSE, FALSE Set Part = Nothing swApp.CloseDoc "Tiburon-Joined.SLDPRT" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\Tiburon-Joined.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Tiburon-Joined.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = Nothing swApp.CloseDoc "Tiburon-Joined.SLDPRT" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\Tiburon-Joined.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Tiburon-Joined.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = Nothing swApp.CloseDoc "Tiburon-Joined.SLDPRT" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\b_band_UW.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("b_band_UW.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 ' MSGBOX ' File name entered was invalid, not found, locked or of an incompatible type. boolstatus = Part.Extension.SelectByID("Tiburon_Assem-1@b_band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.EditDelete swApp.LoadFile2 "G:\Work In Progress\200009-BroadBand_Seis\Tiburon-Joined.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\Tiburon-Joined.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Tiburon-Joined.SLDPRT") swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 1567 swApp.ActiveDoc.ActiveView.FrameHeight = 461 boolstatus = Part.Extension.SelectByID("Tiburon-Joined.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("b_band_UW.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ViewZoomtofit2 Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "VERTEX", -17.67368879967, -21.59851265914, -34.79908632669, False, 0, Nothing) Part.RotateComponent Part.ClearSelection Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.5082893884622, 3.022002437112, -36.17745055146, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("Right@Tiburon-Joined-1@b_band_UW", "PLANE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("RIGHT SIDE", "PLANE", 0, 0, 0, True, 0, Nothing) Part.AddMate 3, 2, False, 0, 0.1268629995994 Part.ClearSelection Part.AddMate 5, 2, False, 0.458940179586, 0 Part.ClearSelection Part.ClearSelection boolstatus = Part.Extension.SelectByID("Right@Tiburon-Joined-1@b_band_UW", "PLANE", 0.458940179586, 0.988211574427, -0.6415081849209, False, 8, Nothing) boolstatus = Part.Extension.SelectByID("RIGHT SIDE", "PLANE", 0, 0, 0, True, 8, Nothing) boolstatus = Part.Extension.SelectByID("Distance14", "MATE", 0, 0, 0, True, 0, Nothing) Part.EditMate 5, 0, True, 0.458940179586, 0.5235987755983 Part.ClearSelection Part.ClearSelection boolstatus = Part.Extension.SelectByID("Top@Tiburon-Joined-1@b_band_UW", "PLANE", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.2246745891725, 0.08879263241977, -2.27175123225, True, 0, Nothing) Part.AddMate 3, -1, False, 1.674669286175, 0.5235987755983 Part.ClearSelection Part.AddMate 5, -1, False, 1.322244286175, 0.5235987755983 Part.ClearSelection Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "FACE", -0.5437684514611, 0.336853496176, -0.9406900409616, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.8710594158698, 0, 1.341972435534, True, 0, Nothing) Part.AddMate 0, 2, False, 0.3361486255075, 0.05178107721132 Part.ClearSelection Part.ClearSelection ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "b_band_UW.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Tiburon-Joined.SLDPRT") Part.ClearSelection Set Part = Nothing swApp.CloseDoc "Tiburon-Joined.SLDPRT" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\b_band_UW.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("b_band_UW.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = Nothing swApp.CloseDoc "b_band_UW.SLDASM" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\b_band_UW.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("b_band_UW.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.LoadFile2 "C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Case.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Case.SLDASM", 2, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") boolstatus = Part.Extension.SelectByID("Open-Top", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "Open-Top" boolstatus = Part.Extension.SelectByID("Default", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "Default" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("b_band_UW.SLDASM") Set Part = Nothing swApp.CloseDoc "b_band_UW.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") Set Part = Nothing swApp.CloseDoc "Ball_Case.SLDASM" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\BattSphere.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("BattSphere.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = Nothing swApp.CloseDoc "BattSphere.SLDPRT" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\board.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("board.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = Nothing swApp.CloseDoc "board.SLDPRT" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\200009-BroadBand_Seis\b_band_UW.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("b_band_UW.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = Nothing swApp.CloseDoc "b_band_UW.SLDASM" Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\Keck_b-band_UW.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Keck_b-band_UW.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("BB_base_V3-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("guralt_can-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("BB_base_V3-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("guralt_can-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("guralt_can-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ClearSelection boolstatus = Part.Extension.SelectByID("guralt_can-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ReplaceComponents "C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Case.SLDASM", "", False, 0, True boolstatus = Part.Extension.SelectByID("Ball_Case-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.EditSuppress Part.ClearSelection ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE swApp.LoadFile2 "C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Case_Assembly.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Case_Assembly.SLDDRW", 3, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case_Assembly - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Keck_b-band_UW.SLDASM") swApp.LoadFile2 "C:\Jon\SW_files\Keck_BroadBand_Seis\PVC_Pipe.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\PVC_Pipe.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("PVC_Pipe.SLDPRT") boolstatus = Part.Extension.SelectByID("Bottom", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sketch5", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Key_Bottm", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) Part.EditDelete Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D6@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", 0.225856993913, 0.02408055052693, -0.2913178890803, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D3@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", 0.08047665437173, -0.177711689668, -0.3223897184533, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("PVC_Pipe.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("PVC_Pipe.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.AddConfiguration "24inSchd40 ","","",0,0,0,1,256 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D3@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", 0.08710369926817, -0.178330122151, -0.3223609696706, False, 0, Nothing) Part.EditRebuild boolstatus = Part.Extension.SelectByID("D4@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", 0.06855923298981, -0.02552274019128, -0.3010866021773, False, 0, Nothing) Part.EditRebuild Part.ClearSelection boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D5@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", 0.1871420607814, -0.1530020647817, -0.3170272708463, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D5@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", 0.238963815716, -0.1460122827935, -0.3151308831045, False, 0, Nothing) Part.EditRebuild Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("D2@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", -0.009964236217902, 0.04154701866479, 0.07702028217506, False, 0, Nothing) ' MSGBOX ' This dimension, D2@Sketch1, cannot be changed because it is driven by equation 1. Please suppress the equation before changing the dimension value. Part.ClearSelection boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", -0.1855724362286, -0.01970982740816, 0.06852868424261, False, 0, Nothing) Part.EditRebuild Part.ClearSelection boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.2414268039146, -0.4871596229718, 0.1558073722834, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", -0.1969601218893, -0.5693391922304, 0.2092117331595, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.3239840710261, -0.2385703629398, -0.39601815872, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.09840036022933, 0.06796695719499, -0.3749558428042, False, 0, Nothing) Part.ClearSelection Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Cut-Extrude1@PVC_Pipe.SLDPRT", "DIMENSION", 0.2515205281379, 0.788058090604, -0.1766756343078, False, 0, Nothing) Part.EditRebuild Part.ClearSelection Part.EditRebuild boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D4@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", 0.2283319767975, -0.09603655874272, -0.1491319252572, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D4@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", 0.1868392661475, -0.09851158956705, -0.295111807348, False, 0, Nothing) Part.EditRebuild Part.ClearSelection boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D5@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", 0.2491340367408, -0.3671672882298, -0.298915973397, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.3150192761643, -0.3992491740542, -0.2971820922858, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.374576, -0.470387, 0) Part.ClearSelection ' MSGBOX ' This dimension is over defined. Its value cannot be changed. Part.ClearSelection Part.SetPickMode boolstatus = Part.Extension.SelectByID("D5@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", 0.4716011680921, -0.3329295088525, -0.2898050235991, False, 0, Nothing) Part.Parameter("D5@Sketch1").SystemValue = 0.926871 boolstatus = Part.Extension.SelectByID("D5@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", 0.4729554222087, -0.5098136989739, -0.3784806094686, False, 0, Nothing) Part.Parameter("D5@Sketch1").SystemValue = 0.952729 Part.ClearSelection Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Sketch1@PVC_Pipe.SLDPRT", "DIMENSION", -0.3843714024194, 0.1044028243533, -0.6153235323391, False, 0, Nothing) Part.ClearSelection 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 = 1567 swApp.ActiveDoc.ActiveView.FrameHeight = 307 boolstatus = Part.Extension.SelectByID("PVC_Pipe.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("Keck_b-band_UW.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 307 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("ground-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.EditPart Part.ClearSelection boolstatus = Part.Extension.SelectByID("Cut-Extrude1@ground-1@Keck_b-band_UW", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2@ground-1@Keck_b-band_UW", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Sketch2@ground-1@Keck_b-band_UW", "DIMENSION", -22.32189175291, -84.71797504538, -91.36935803212, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("Cut-Extrude1@ground-1@Keck_b-band_UW", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.EditAssembly Part.ClearSelection ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("PVC_Pipe-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.TranslateComponent Part.ClearSelection Part.SetPickMode Part.SmartMateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 10.27419676495, 1.412190321105, -4.102296163181, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "FACE", 10.27419676495, 1.412190321105, -4.102296163181, False, 0, Nothing) Part.ClearSelection Part.SmartMateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 11.10531441477, 1.112679488897, -3.831954047191, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "FACE", 11.10531441477, 1.112679488897, -3.831954047191, False, 0, Nothing) Part.ClearSelection Part.EditRebuild boolstatus = Part.Extension.SelectByID("PVC_Pipe-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("PVC_Pipe-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("Ball_Case-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Ball_Case-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection ' MSGBOX ' C:\Jon\SW_files\Keck_BroadBand_Seis\Keck_b-band_UW.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? ' 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("Ball_Case-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("Ball_Case-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.CompConfigProperties3 2, 0, True, True Part.ClearSelection boolstatus = Part.Extension.SelectByID("Keck_b-band_UW.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ViewFeatureManagerByDependencies boolstatus = Part.Extension.SelectByID("Keck_b-band_UW.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ViewFeatureManagerByFeatures boolstatus = Part.Extension.SelectByID("Keck_b-band_UW.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ViewFeatureManagerByDependencies boolstatus = Part.Extension.SelectByID("Coincident10", "MATE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Coincident10", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditSuppress Part.ClearSelection Part.TranslateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 10.9386731887, 0.01595658515964, -3.375065077728, False, 0, Nothing) Part.ClearSelection Part.SetPickMode Part.SmartMateComponent boolstatus = Part.Extension.SelectByID("", "FACE", 10.73902065493, 0.2029882129642, -3.766460905886, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "FACE", 10.73902065493, 0.2029882129642, -3.766460905886, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("Coincident10", "MATE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 10.91137141811, 0.2009007013044, -3.420513007547, True, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "FACE", 10.9474, -0.6096, -3.5821112, False, 8, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 10.84702696173, 0.2009007013044, -3.553153425964, True, 8, Nothing) boolstatus = Part.Extension.SelectByID("Coincident10", "MATE", 0, 0, 0, True, 0, Nothing) Part.EditMate 0, 1, False, 0.01, 0.5235987755983 Part.ClearSelection boolstatus = Part.Extension.SelectByID("Coincident10", "MATE", 0, 0, 0, False, 0, Nothing) Part.EditUnsuppress Part.ClearSelection ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("ground-1@Keck_b-band_UW", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.EditPart Part.ClearSelection boolstatus = Part.Extension.SelectByID("Keck_b-band_UW.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ViewFeatureManagerByFeatures boolstatus = Part.Extension.SelectByID("Base-Extrude@ground-1@Keck_b-band_UW", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D1@Base-Extrude@ground-1@Keck_b-band_UW", "DIMENSION", -33.7923958065, -30.32234467356, -57.65108661862, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Base-Extrude@ground-1@Keck_b-band_UW", "DIMENSION", -35.05126717624, -30.05369188013, -57.0996531812, False, 0, Nothing) Part.EditRebuild Part.ClearSelection Part.EditAssembly Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Keck_b-band_UW.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("PVC_Pipe.SLDPRT") Part.ClearSelection Set Part = Nothing swApp.CloseDoc "PVC_Pipe.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 614 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Ball_Case_Assembly - Sheet4") Set Part = Nothing swApp.CloseDoc "Ball_Case_Assembly - Sheet4" Set Part = swApp.OpenDoc4 ("C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Case.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Ball_Case.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Trimetric", 8 Part.ShowNamedView2 "*Dimetric", 9 boolstatus = Part.Extension.SelectByID("Handle Down_OnBottom", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "Handle Down_OnBottom" boolstatus = Part.Extension.SelectByID("domed@Ball_Case.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "domed" Part.ViewZoomtofit2 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.01 Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.PrintDirect Part.SaveAs2 "C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Case.TIF", 0, TRUE, FALSE Part.SaveAs2 "C:\Jon\SW_files\Keck_BroadBand_Seis\Ball_Housing\Ball_Case.JPG", 0, TRUE, FALSE boolstatus = Part.Extension.SelectByID("Open-Top", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "Open-Top" boolstatus = Part.Extension.SelectByID("domed@Ball_Case.SLDASM", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "domed" Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Ball_Case.SLDASM" swApp.ExitApp End Sub