' ****************************************************************************** ' swxJRNL.swj - journal recorded on 05/29/03 by hamilton ' ***************************************************************************** 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 ("K:\Multibeam\Mid-Section\MidBody.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("MidBody") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ActiveView().RotateAboutCenter 0.00692998, 0 Part.ActiveView().RotateAboutCenter 0.0623699, -0.0398872 Part.ActiveView().RotateAboutCenter 0.0900898, -0.0478647 Part.ActiveView().RotateAboutCenter 0.214829, -0.0638195 Part.ActiveView().RotateAboutCenter 0.256409, -0.0159549 Part.ActiveView().RotateAboutCenter 0.0831598, -0.0159549 Part.ActiveView().RotateAboutCenter -0.00692998, 0 Part.ActiveView().RotateAboutCenter -0.17325, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0692998, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0970198, 0.0398872 Part.ActiveView().RotateAboutCenter -0.1386, 0.0558421 Part.ActiveView().RotateAboutCenter -0.0831598, 0.0319098 Part.EditRebuild swApp.LoadFile2 "K:\Multibeam\Mid-Section\1 PARALLEL SHELL BASE PART.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\1 PARALLEL SHELL BASE PART.SLDPRT", 1, 0, "", longstatus) swApp.LoadFile2 "K:\Multibeam\Mid-Section\0 PARALLEL SHELL MOLD.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\0 PARALLEL SHELL MOLD.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") 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 ("1 PARALLEL SHELL BASE PART") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 2 swApp.LoadFile2 "K:\Multibeam\Mid-Section\Lower Foam.21 inch Blank.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\Lower Foam.21 inch Blank.SLDDRW", 3, 0, "", longstatus) ' MSGBOX ' K:\Multibeam\Mid-Section\Lower Foam.21 inch Blank.SLDDRW is being used by Shfa. Do you want to open a copy? swApp.LoadFile2 "K:\Multibeam\Mid-Section\MidSec. 2.5in.AftSec.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\MidSec. 2.5in.AftSec.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("MidSec. 2.5in.AftSec - 2.5" Aft Section") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.ActiveView().TranslateBy 0, 0.000430938 Part.ActiveView().TranslateBy -0.00215469, 0.00775689 Part.ActiveView().TranslateBy -0.00129281, 0.00215469 Part.ActiveView().TranslateBy -0.000861876, 0.00258563 Part.ActiveView().TranslateBy -0.00172375, 0.00172375 Part.ActiveView().TranslateBy -0.000861876, 0.00129281 Part.ActiveView().TranslateBy -0.000430938, 0.000430938 Part.ActiveView().TranslateBy -0.000430938, 0 Part.ActiveView().TranslateBy -0.00129281, 0 Part.ActiveView().TranslateBy -0.000430938, 0 Part.ActiveView().TranslateBy 0, -0.000430938 Part.ActiveView().TranslateBy 0, -0.00129281 Part.ActiveView().TranslateBy 0, -0.000430938 Part.ActiveView().TranslateBy 0, -0.000861876 Part.ActiveView().TranslateBy 0.000430938, -0.000430938 Part.ActiveView().TranslateBy 0.000430938, 0 Part.ActiveView().TranslateBy 0, -0.000430938 Part.ActiveView().TranslateBy 0.00129281, 0 Part.EditSketch Part.ActiveView().TranslateBy -0.000430938, -0.000430938 Part.ActiveView().TranslateBy -0.000861876, -0.00301657 Part.ActiveView().TranslateBy -0.00129281, -0.00215469 Part.ActiveView().TranslateBy -0.000430938, -0.000861876 Part.ActiveView().TranslateBy -0.00172375, 0.00603313 Part.ActiveView().TranslateBy -0.00301657, 0.00646407 Part.ActiveView().TranslateBy 0, 0.00215469 Part.ActiveView().TranslateBy 0, 0.000430938 Part.ActiveView().TranslateBy 0.000430938, 0 Part.ActiveView().TranslateBy 0.00818782, 0.000430938 Part.ActiveView().TranslateBy 0.00301657, -0.00172375 Part.ActiveView().TranslateBy 0.00129281, -0.0034475 Part.ActiveView().TranslateBy 0, -0.000861876 Part.ActiveView().TranslateBy 0, -0.00172375 Part.ActiveView().TranslateBy 0.000861876, -0.00430938 Part.ActiveView().TranslateBy 0.00129281, -0.00215469 Part.ActiveView().TranslateBy 0.00129281, -0.00215469 Part.ActiveView().TranslateBy 0.000861876, 0 Part.ActiveView().TranslateBy 0.00172375, 0 Part.ActiveView().TranslateBy 0.000430938, 0 Part.ActiveView().TranslateBy 0.00172375, -0.00215469 Part.ActiveView().TranslateBy 0.0056022, -0.00430938 Part.ActiveView().TranslateBy 0.00129281, 0 Part.ActiveView().TranslateBy 0.00258563, 0 Part.ActiveView().TranslateBy 0.00215469, 0.000430938 Part.ActiveView().TranslateBy 0.000430938, 0.000430938 Part.ActiveView().TranslateBy 0.000430938, 0.000430938 Part.ActiveView().TranslateBy 0, 0.000430938 Part.ActiveView().TranslateBy -0.00129281, 0.00215469 Part.ActiveView().TranslateBy -0.000861876, 0.000430938 Part.ActiveView().TranslateBy -0.00129281, 0.000861876 Part.ActiveView().TranslateBy -0.0034475, 0.00129281 Part.ActiveView().TranslateBy -0.00129281, 0 Part.ActiveView().TranslateBy -0.00387844, 0 Part.ActiveView().TranslateBy -0.00129281, 0 Part.ActiveView().TranslateBy -0.00129281, -0.000430938 Part.ActiveView().TranslateBy -0.00301657, 0 Part.ActiveView().TranslateBy -0.00129281, 0.000430938 boolstatus = Part.Extension.SelectByID("2.5" Aft Section", "SHEET", 0.2844708742515, 0.1188210479042, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("2.5" Aft Section", "SHEET", 0.3090860598802, 0.09728276047904, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("2.5" Aft Section", "SHEET", 0.304690491018, 0.1271726287425, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("2.5" Aft Section", "SHEET", 0.08447249101796, 0.2502485568862, 0, False, 0, Nothing) Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.PageSetup Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection Set Part = Nothing swApp.CloseDoc "MidSec. 2.5in.AftSec - 2.5" Aft Section" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART") swApp.LoadFile2 "K:\Multibeam\Mid-Section\8.5in Forward Section.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\8.5in Forward Section.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 ("8.5in Forward Section - 16.75" Middle Section") swApp.PageSetup Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.PrintDirect Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "8.5in Forward Section - 16.75" Middle Section" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART") swApp.LoadFile2 "K:\Multibeam\Mid-Section\MidSec. 2.5in.AftSec.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\MidSec. 2.5in.AftSec.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 ("MidSec. 2.5in.AftSec - 2.5" Aft Section") Set Part = Nothing swApp.CloseDoc "MidSec. 2.5in.AftSec - 2.5" Aft Section" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART") swApp.LoadFile2 "K:\Multibeam\Mid-Section\MidSec. 2.5in.FwdSec.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\MidSec. 2.5in.FwdSec.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 ("MidSec. 2.5in.FwdSec - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.PageSetup Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "MidSec. 2.5in.FwdSec - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART") swApp.LoadFile2 "K:\Multibeam\Mid-Section\MidSec. 8 in.Blank.Top.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\MidSec. 8 in.Blank.Top.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 ("MidSec. 8 in.Blank.Top - 8" Blank Section") swApp.PageSetup Part.EditSketch boolstatus = Part.Extension.SelectByID("8" Blank Section", "SHEET", 0.170451220339, 0.08195589830508, 0, False, 0, Nothing) Part.EditSketch Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.PrintDirect Part.EditSketch Part.ClearSelection Set Part = Nothing swApp.CloseDoc "MidSec. 8 in.Blank.Top - 8" Blank Section" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART") swApp.LoadFile2 "K:\Multibeam\Mid-Section\MUCK UP FOAM INSERT.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\MUCK UP FOAM INSERT.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 ("MUCK UP FOAM INSERT - Sheet1") Part.EditSketch swApp.PageSetup Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "MUCK UP FOAM INSERT - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART") swApp.LoadFile2 "K:\Multibeam\Mid-Section\MultiBeam Syntactic Foam.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\MultiBeam Syntactic Foam.SLDDRW", 3, 0, "", longstatus) ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\MultiBeam Vehicle Nose Foam Assy.SLDASM. ' External model C:\2003 Projects\MultiBeam AUV\MultiBeam Vehicle Nose Foam Assy.SLDASM could not be found. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT could not be found. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose Section.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose Section.SLDPRT could not be found. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose Section.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose Section.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose Section.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose Section.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT could not be found. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be found. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be opened because of an unexpected error. swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("MultiBeam Syntactic Foam - Sheet8") Set Part = Nothing swApp.CloseDoc "MultiBeam Syntactic Foam - Sheet8" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART") swApp.LoadFile2 "K:\Multibeam\Mid-Section\PV Base Foam.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\PV Base Foam.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 ("PV Base Foam - Sheet1") swApp.PageSetup Part.EditSketch Part.PrintDirect Part.EditSketch Set Part = Nothing swApp.CloseDoc "PV Base Foam - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART") swApp.LoadFile2 "K:\Multibeam\Mid-Section\Upper foam.16.75 IN. MIDDLE. SLDDRW.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\Upper foam.16.75 IN. MIDDLE. SLDDRW.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 ("Upper foam.16.75 IN. MIDDLE. SLDDRW - Sheet1") swApp.PageSetup Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3755196271186, 0.2154479661017, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.PageSetup Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3465377966102, 0.2273041694915, 0, False, 0, Nothing) Part.ClearSelection Set Part = Nothing swApp.CloseDoc "Upper foam.16.75 IN. MIDDLE. SLDDRW - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART") swApp.LoadFile2 "K:\Multibeam\Mid-Section\8.5in Forward Section.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\8.5in Forward Section.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 ("8.5in Forward Section - 16.75" Middle Section") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "8.5in Forward Section - 16.75" Middle Section" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART") swApp.LoadFile2 "K:\Multibeam\Mid-Section\8.5in Forward Section.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\8.5in Forward Section.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 ("8.5in Forward Section - 16.75" Middle Section") Set Part = Nothing swApp.CloseDoc "8.5in Forward Section - 16.75" Middle Section" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1 PARALLEL SHELL BASE PART") Set Part = Nothing swApp.CloseDoc "1 PARALLEL SHELL BASE PART" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("MidBody") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\8.5in Forward Section.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\8.5in Forward Section.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("8.5in Forward Section - 16.75" Middle Section") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.Save2 FALSE Part.EditSketch Part.PrintDirect swApp.PageSetup Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "8.5in Forward Section - 16.75" Middle Section" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\MultiBeam Syntactic Foam.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\MultiBeam Syntactic Foam.SLDDRW", 3, 0, "", longstatus) ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\MultiBeam Vehicle Nose Foam Assy.SLDASM. ' External model C:\2003 Projects\MultiBeam AUV\MultiBeam Vehicle Nose Foam Assy.SLDASM could not be found. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT could not be found. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose SectionStbd.TOP.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose Section.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose Section.SLDPRT could not be found. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose Section.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose Section.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Nose Section.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Nose Section.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT could not be found. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Filler slice.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be found. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be opened because of an unexpected error. ' MSGBOX ' Cannot open C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT. ' External model C:\2003 Projects\MultiBeam AUV\Foam, Center.SLDPRT could not be opened because of an unexpected error. swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("MultiBeam Syntactic Foam - Sheet8") boolstatus = Part.Extension.SelectByID("Sheet8", "SHEET", 0.1827465423729, 0.1346501355932, 0, False, 0, Nothing) Part.ClearSelection Set Part = Nothing swApp.CloseDoc "MultiBeam Syntactic Foam - Sheet8" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\Upper foam.16.75 IN. MIDDLE. SLDDRW.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\Upper foam.16.75 IN. MIDDLE. SLDDRW.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 ("Upper foam.16.75 IN. MIDDLE. SLDDRW - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "Upper foam.16.75 IN. MIDDLE. SLDDRW - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\8.5in Forward Section.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\8.5in Forward Section.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 ("8.5in Forward Section - 16.75" Middle Section") Part.EditSketch Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "8.5in Forward Section - 16.75" Middle Section" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\Upper foam.2.5 inch ForwardSLDDRW.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\Upper foam.2.5 inch ForwardSLDDRW.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 ("Upper foam.2.5 inch ForwardSLDDRW - Sheet1") Part.ViewZoomtofit2 swApp.PageSetup Part.PrintDirect ' MSGBOX ' This drawing contains views that need to be updated. ' To update the views, click Edit, Rebuild. ' Do you want the printed drawing to include crosshatch ' on the out-of-date views? Part.PrintDirect ' MSGBOX ' This drawing contains views that need to be updated. ' To update the views, click Edit, Rebuild. ' Do you want the printed drawing to include crosshatch ' on the out-of-date views? Part.PrintDirect Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "Upper foam.2.5 inch ForwardSLDDRW - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\MidSec. 2.5in.FwdSec.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\MidSec. 2.5in.FwdSec.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 ("MidSec. 2.5in.FwdSec - Sheet1") Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "MidSec. 2.5in.FwdSec - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\Upper foam.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\Upper foam.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 ("Upper foam - 2.5" Forward Section") Set Part = Nothing swApp.CloseDoc "Upper foam - 2.5" Forward Section" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\Upper foam.2.5 inch ForwardSLDDRW.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\Upper foam.2.5 inch ForwardSLDDRW.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 ("Upper foam.2.5 inch ForwardSLDDRW - Sheet1") Part.ViewZoomtofit2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\Upper foam.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\Upper foam.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Upper foam - 2.5" Forward Section") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\Upper foam.16.75 IN. MIDDLE. SLDDRW.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\Upper foam.16.75 IN. MIDDLE. SLDDRW.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Upper foam.16.75 IN. MIDDLE. SLDDRW - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\PV Base Foam.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\PV Base Foam.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\MUCK UP FOAM INSERT.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\MUCK UP FOAM INSERT.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("MUCK UP FOAM INSERT - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\MidSec. 8 in.Blank.Top.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\MidSec. 8 in.Blank.Top.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("MidSec. 8 in.Blank.Top - 8" Blank Section") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\MidSec. 2.5in.FwdSec.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\MidSec. 2.5in.FwdSec.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("MidSec. 2.5in.FwdSec - 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.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\MidSec. 2.5in.AftSec.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\MidSec. 2.5in.AftSec.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("MidSec. 2.5in.AftSec - 2.5" Aft Section") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\Lower Foam.21 inch Blank.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\Lower Foam.21 inch Blank.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Lower Foam.21 inch Blank - 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 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") swApp.LoadFile2 "K:\Multibeam\Mid-Section\8.5in Forward Section.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\8.5in Forward Section.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("8.5in Forward Section - 16.75" Middle Section") 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.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("0 PARALLEL SHELL MOLD") Set Part = Nothing swApp.CloseDoc "0 PARALLEL SHELL MOLD" Set Part = swApp.ActivateDoc ("MidBody") Set Part = Nothing swApp.CloseDoc "MidBody" Set Part = swApp.ActivateDoc ("Upper foam.2.5 inch ForwardSLDDRW - Sheet1") swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("Upper foam.16.75 IN. MIDDLE. SLDDRW - 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 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc ("Lower Foam.21 inch Blank - 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 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Set Part = swApp.ActivateDoc ("8.5in Forward Section - 16.75" Middle Section") 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.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc ("MidSec. 8 in.Blank.Top - 8" Blank Section") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Set Part = swApp.ActivateDoc ("MidSec. 2.5in.FwdSec - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc ("MidSec. 2.5in.AftSec - 2.5" Aft Section") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Set Part = swApp.ActivateDoc ("MUCK UP FOAM INSERT - 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 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 4 swApp.ActiveDoc.ActiveView.FrameTop = 5 swApp.ActiveDoc.ActiveView.FrameLeft = 38 swApp.ActiveDoc.ActiveView.FrameTop = 45 swApp.ActiveDoc.ActiveView.FrameLeft = 114 swApp.ActiveDoc.ActiveView.FrameTop = 111 swApp.ActiveDoc.ActiveView.FrameLeft = 133 swApp.ActiveDoc.ActiveView.FrameTop = 123 Part.EditSketch Set Part = swApp.ActivateDoc ("Upper foam.2.5 inch ForwardSLDDRW - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc ("Upper foam - 2.5" Forward Section") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ArrangeWindows 2 swApp.ActiveDoc.ActiveView.FrameWidth = 406 swApp.ActiveDoc.ActiveView.FrameHeight = 280 Set Part = swApp.ActivateDoc ("Upper foam.2.5 inch ForwardSLDDRW - Sheet1") Set Part = swApp.ActivateDoc ("MUCK UP FOAM INSERT - Sheet1") Part.EditSketch Set Part = swApp.ActivateDoc ("MidSec. 2.5in.FwdSec - Sheet1") Set Part = swApp.ActivateDoc ("MidSec. 2.5in.AftSec - 2.5" Aft Section") Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") Part.EditSketch Set Part = swApp.ActivateDoc ("MidSec. 8 in.Blank.Top - 8" Blank Section") Set Part = swApp.ActivateDoc ("8.5in Forward Section - 16.75" Middle Section") Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("Lower Foam.21 inch Blank - Sheet1") Set Part = swApp.ActivateDoc ("Upper foam.16.75 IN. MIDDLE. SLDDRW - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.LoadFile2 "K:\Multibeam\Mid-Section\PV Base Foam.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\PV Base Foam.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") Part.EditSketch Part.EditSketch swApp.ArrangeWindows 2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.LoadFile2 "K:\Multibeam\Nose Section\Foam, Aft.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Nose Section\Foam, Aft.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Foam, Aft - Sheet1") 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 "Foam, Aft - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") swApp.ArrangeWindows 2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.LoadFile2 "K:\Drawings\Multibeam\MultiBeam MidBodies\MidBody\UPPER FRAME, PARALLEL SECTION.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Drawings\Multibeam\MultiBeam MidBodies\MidBody\UPPER FRAME, PARALLEL SECTION.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("UPPER FRAME, PARALLEL SECTION") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ActiveView().RotateAboutCenter 0.00719449, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0935283, 0.0239323 Part.ActiveView().RotateAboutCenter 0.0719449, 0 Part.ActiveView().RotateAboutCenter 0.0791394, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0431669, 0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.115112, -0.0159549 Part.ActiveView().RotateAboutCenter -0.0719449, -0.0239323 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.107917, 0 Part.ActiveView().RotateAboutCenter 0.179862, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0647504, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0575559, 0 Part.ActiveView().RotateAboutCenter 0.0215835, 0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, 0.00797744 Part.ActiveView().RotateAboutCenter 0.316557, 0.0877519 Part.ActiveView().RotateAboutCenter 0.172668, 0.0638195 Part.ActiveView().RotateAboutCenter 0.100723, 0.0558421 Part.ActiveView().RotateAboutCenter 0.20864, 0.0638195 Part.ActiveView().RotateAboutCenter 0.0791394, 0.0239323 Part.ActiveView().RotateAboutCenter 0.0575559, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0719449, 0 Part.ActiveView().RotateAboutCenter 0.115112, -0.0239323 Part.ActiveView().RotateAboutCenter 0.0647504, -0.0239323 Part.ActiveView().RotateAboutCenter 0.0719449, -0.0159549 Part.ActiveView().RotateAboutCenter 0.0287779, 0 Part.ActiveView().RotateAboutCenter 0.0719449, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0431669, -0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, 0 boolstatus = Part.Extension.SelectByID("", "FACE", 0.005091472546084, 2.906739417411, -0.09510791831224, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.2355948924939, 2.827685300181, 0.08004026300915, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.5798609941589, 2.804768210831, -0.01212688333555, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.8006934357516, 2.709517270835, 0.06822706138308, False, 0, Nothing) Part.ClearSelection Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.251807, -0.0159549 Part.ActiveView().RotateAboutCenter -0.136695, -0.0319098 Part.ActiveView().RotateAboutCenter -0.165473, -0.0478647 Part.ActiveView().RotateAboutCenter -0.359724, -0.0797744 Part.ActiveView().RotateAboutCenter -0.0287779, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0863338, -0.0239323 Part.ActiveView().RotateAboutCenter -0.115112, -0.0558421 Part.ActiveView().RotateAboutCenter -0.0287779, -0.0239323 Part.ActiveView().RotateAboutCenter 0.00719449, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0647504, -0.0239323 Part.ActiveView().RotateAboutCenter 0.0647504, -0.00797744 Part.ActiveView().RotateAboutCenter 0.122306, 0.00797744 Part.ActiveView().RotateAboutCenter 0.115112, 0.0239323 Part.ActiveView().RotateAboutCenter 0.0863338, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0431669, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0575559, 0.0239323 Part.ActiveView().RotateAboutCenter 0.0431669, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0863338, 0.0239323 Part.ActiveView().RotateAboutCenter 0.0791394, 0.0319098 Part.ActiveView().RotateAboutCenter 0.0863338, 0.0398872 Part.ActiveView().RotateAboutCenter 0.0359724, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0503614, 0.00797744 boolstatus = Part.Extension.SelectByID("", "FACE", 0.8175256816284, 2.776956811722, -0.01778397247631, False, 0, Nothing) Part.ActiveView().RotateAboutCenter 0, -0.0159549 Part.ActiveView().RotateAboutCenter -0.0503614, -0.0239323 Part.ActiveView().RotateAboutCenter -0.0791394, -0.0239323 Part.ActiveView().RotateAboutCenter -0.259002, -0.0319098 Part.ActiveView().RotateAboutCenter -0.194251, -0.0239323 Part.ActiveView().RotateAboutCenter -0.0503614, -0.0159549 Part.ActiveView().RotateAboutCenter -0.136695, -0.0239323 Part.ActiveView().RotateAboutCenter -0.345335, -0.0558421 Part.ActiveView().RotateAboutCenter -0.187057, -0.0558421 Part.ActiveView().RotateAboutCenter -0.122306, -0.0398872 Part.ActiveView().RotateAboutCenter -0.0719449, -0.0239323 Part.ActiveView().RotateAboutCenter -0.0503614, -0.0159549 Part.ActiveView().RotateAboutCenter -0.0431669, -0.0159549 Part.ActiveView().RotateAboutCenter -0.00719449, -0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.0791394, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0719449, 0 Part.ActiveView().RotateAboutCenter 0.0791394, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0575559, 0 Part.ActiveView().RotateAboutCenter 0.0935283, 0.0239323 Part.ActiveView().RotateAboutCenter 0.107917, 0.0398872 Part.ActiveView().RotateAboutCenter 0.136695, 0.0398872 Part.ActiveView().RotateAboutCenter 0.107917, 0.0398872 Part.ActiveView().RotateAboutCenter 0.115112, 0.0478647 Part.ActiveView().RotateAboutCenter 0.158279, 0.071797 Part.ActiveView().RotateAboutCenter 0.122306, 0.0478647 Part.ActiveView().RotateAboutCenter 0.287779, 0.0398872 Part.ActiveView().RotateAboutCenter 0.0935283, 0.0239323 Part.ActiveView().RotateAboutCenter 0.0647504, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0215835, 0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, 0 boolstatus = Part.Extension.SelectByID("", "FACE", 0.3743889442238, 2.75301090692, 0.07707027242731, False, 0, Nothing) Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0791394, 0 Part.ActiveView().RotateAboutCenter -0.194251, 0.0239323 Part.ActiveView().RotateAboutCenter -0.0431669, 0 Part.ActiveView().RotateAboutCenter -0.0287779, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0935283, -0.0239323 Part.ActiveView().RotateAboutCenter -0.244613, -0.0398872 Part.ActiveView().RotateAboutCenter -0.244613, -0.0398872 Part.ActiveView().RotateAboutCenter -0.0935283, -0.0159549 Part.ActiveView().RotateAboutCenter -0.0359724, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, -0.0398872 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0215835, -0.0159549 Part.ActiveView().RotateAboutCenter 0.0503614, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0575559, 0 Part.ActiveView().RotateAboutCenter 0.0719449, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0575559, 0.0239323 Part.ActiveView().RotateAboutCenter 0.0791394, 0.0319098 Part.ActiveView().RotateAboutCenter 0.0863338, 0.0319098 Part.ActiveView().RotateAboutCenter 0.0935283, 0.0319098 Part.ActiveView().RotateAboutCenter 0.107917, 0.00797744 Part.ActiveView().RotateAboutCenter 0.115112, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0647504, 0 Part.ActiveView().RotateAboutCenter 0.0575559, 0 Part.ActiveView().RotateAboutCenter 0.0647504, 0 Part.ActiveView().RotateAboutCenter 0.107917, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0431669, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0647504, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0359724, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0287779, 0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0215835, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0647504, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0863338, -0.00797744 Part.ActiveView().RotateAboutCenter -0.107917, -0.0398872 Part.ActiveView().RotateAboutCenter -0.345335, -0.0319098 Part.ActiveView().RotateAboutCenter -0.604337, -0.0797744 Part.ActiveView().RotateAboutCenter -0.187057, -0.0239323 Part.ActiveView().RotateAboutCenter -0.0431669, -0.0239323 Part.ActiveView().RotateAboutCenter -0.136695, -0.0398872 Part.ActiveView().RotateAboutCenter -0.0863338, -0.0159549 Part.ActiveView().RotateAboutCenter -0.0431669, 0 Part.ActiveView().RotateAboutCenter -0.0647504, -0.00797744 Part.ActiveView().RotateAboutCenter -0.100723, -0.0239323 Part.ActiveView().RotateAboutCenter -0.0647504, -0.0159549 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.00719449, -0.0159549 Part.ActiveView().RotateAboutCenter 0.0215835, -0.0239323 Part.ActiveView().RotateAboutCenter 0.0359724, -0.0159549 Part.ActiveView().RotateAboutCenter 0.0359724, -0.0159549 Part.ActiveView().RotateAboutCenter 0.00719449, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0359724, -0.0239323 Part.ActiveView().RotateAboutCenter 0.0359724, -0.0159549 Part.ActiveView().RotateAboutCenter 0.0359724, 0 Part.ActiveView().RotateAboutCenter 0.0287779, 0 Part.ActiveView().RotateAboutCenter 0.0287779, 0 Part.ActiveView().RotateAboutCenter 0.0431669, 0 Part.ActiveView().RotateAboutCenter 0.0431669, 0 Part.ActiveView().RotateAboutCenter 0.0287779, 0 Part.ActiveView().RotateAboutCenter 0.0719449, 0.0159549 Part.ActiveView().RotateAboutCenter 0.115112, 0.0398872 Part.ActiveView().RotateAboutCenter 0.402891, 0.071797 Part.ActiveView().RotateAboutCenter 0.179862, 0.00797744 Part.ActiveView().RotateAboutCenter 0.158279, 0 Part.ActiveView().RotateAboutCenter 0.316557, 0.00797744 Part.ActiveView().RotateAboutCenter 0.172668, 0.0398872 Part.ActiveView().RotateAboutCenter 0.129501, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0719449, 0.0319098 Part.ActiveView().RotateAboutCenter 0.0575559, 0.0239323 Part.ActiveView().RotateAboutCenter 0.014389, 0.0159549 Part.ActiveView().RotateAboutCenter 0.00719449, 0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, 0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.424475, 0.0558421 Part.ActiveView().RotateAboutCenter -0.762616, 0.0398872 Part.ActiveView().RotateAboutCenter -0.302168, 0.00797744 Part.ActiveView().RotateAboutCenter -0.107917, 0 Part.ActiveView().RotateAboutCenter -0.014389, 0 Part.ActiveView().RotateAboutCenter -0.014389, 0 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0.158279, -0.00797744 Part.ActiveView().RotateAboutCenter 0.294974, -0.00797744 Part.ActiveView().RotateAboutCenter 0.316557, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0791394, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0935283, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0575559, -0.0239323 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0359724, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0719449, -0.0159549 Part.ActiveView().RotateAboutCenter 0.0431669, -0.0159549 Part.ActiveView().RotateAboutCenter 0.00719449, -0.00797744 boolstatus = Part.Extension.SelectByID("", "FACE", 1.151074020046, 2.692563837324, 0.04173372006511, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.4029178544488, 2.858931745416, 0.07312918457933, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.2224271267194, 2.770469194448, 0.1061523204372, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "FACE", -0.2582998368442, 2.732993018119, 0.1040584903951, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2364268674064, 2.736430589449, 0.09791736001591, False, 0, Nothing) Part.ClearSelection Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.100723, -0.0398872 Part.ActiveView().RotateAboutCenter 0.503614, -0.0877519 Part.ActiveView().RotateAboutCenter 0.273391, -0.0638195 Part.ActiveView().RotateAboutCenter 0.518003, -0.0957293 Part.ActiveView().RotateAboutCenter 0.259002, -0.0319098 Part.ActiveView().RotateAboutCenter 0.0791394, -0.0319098 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter -0.0359724, 0 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.0287779, 0 Part.ActiveView().RotateAboutCenter -0.0647504, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0575559, 0 Part.ActiveView().RotateAboutCenter -0.0503614, 0 Part.ActiveView().RotateAboutCenter -0.0431669, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.014389, 0 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0215835, -0.0319098 Part.ActiveView().RotateAboutCenter 0.0215835, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0287779, -0.0159549 Part.ActiveView().RotateAboutCenter 0.00719449, -0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.00719449, -0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, -0.0159549 Part.ActiveView().RotateAboutCenter 0.014389, 0 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter -0.187057, -0.111684 Part.ActiveView().RotateAboutCenter -0.0287779, -0.0478647 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter -0.014389, -0.0638195 Part.ActiveView().RotateAboutCenter -0.00719449, -0.0478647 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.0638195 Part.ActiveView().RotateAboutCenter 0.00719449, 0.0398872 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter -0.014389, 0.071797 Part.ActiveView().RotateAboutCenter 0, 0.0558421 Part.ActiveView().RotateAboutCenter 0.00719449, 0.0319098 Part.ActiveView().RotateAboutCenter 0.00719449, 0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, 0.0159549 Part.ActiveView().RotateAboutCenter 0, 0.0159549 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0, 0.0239323 Part.ActiveView().RotateAboutCenter 0.014389, 0.0398872 Part.ActiveView().RotateAboutCenter 0.0287779, 0.0797744 Part.ActiveView().RotateAboutCenter 0.00719449, 0.0239323 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.0215835, 0 Part.ActiveView().RotateAboutCenter 0.0431669, 0 Part.ActiveView().RotateAboutCenter 0.0359724, 0 Part.ActiveView().RotateAboutCenter 0.0503614, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0863338, 0.0159549 Part.ActiveView().RotateAboutCenter 0.014389, 0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.0719449, -0.00797744 Part.ActiveView().RotateAboutCenter -0.100723, -0.0239323 Part.ActiveView().RotateAboutCenter -0.136695, -0.0159549 Part.ActiveView().RotateAboutCenter -0.194251, -0.0159549 Part.ActiveView().RotateAboutCenter -0.0935283, -0.0159549 Part.ActiveView().RotateAboutCenter -0.158279, -0.0159549 Part.ActiveView().RotateAboutCenter -0.107917, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0935283, 0 Part.ActiveView().RotateAboutCenter -0.0647504, 0 Part.ActiveView().RotateAboutCenter -0.0431669, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0287779, 0.071797 Part.ActiveView().RotateAboutCenter -0.0215835, 0.0877519 Part.ActiveView().RotateAboutCenter -0.014389, 0.0558421 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter -0.014389, 0.00797744 Part.ActiveView().RotateAboutCenter -0.014389, 0 Part.ActiveView().RotateAboutCenter -0.0575559, 0 Part.ActiveView().RotateAboutCenter -0.014389, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.014389, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter 0, -0.0159549 Part.ActiveView().RotateAboutCenter 0.0791394, -0.0957293 Part.ActiveView().RotateAboutCenter 0.100723, -0.0319098 Part.ActiveView().RotateAboutCenter 0.0935283, -0.00797744 Part.ActiveView().RotateAboutCenter 0.14389, 0 Part.ActiveView().RotateAboutCenter 0.0863338, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0791394, 0.0239323 Part.ActiveView().RotateAboutCenter 0.0431669, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0863338, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0431669, 0.00797744 Part.ActiveView().RotateAboutCenter 0.136695, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0647504, 0 Part.ActiveView().RotateAboutCenter 0.0791394, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0575559, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0359724, -0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.0431669, 0 Part.ActiveView().RotateAboutCenter -0.100723, -0.0159549 Part.ActiveView().RotateAboutCenter -0.0791394, -0.00797744 Part.ActiveView().RotateAboutCenter -0.158279, -0.0159549 Part.ActiveView().RotateAboutCenter -0.0647504, 0 Part.ActiveView().RotateAboutCenter -0.100723, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0287779, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0431669, -0.0638195 Part.ActiveView().RotateAboutCenter 0.0359724, -0.0478647 Part.ActiveView().RotateAboutCenter 0.0431669, -0.0398872 Part.ActiveView().RotateAboutCenter 0.0575559, -0.0398872 Part.ActiveView().RotateAboutCenter 0.0215835, -0.0319098 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0.00797744 Part.ActiveView().RotateAboutCenter -0.316557, 0.0638195 Part.ActiveView().RotateAboutCenter -0.172668, -0.0239323 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.0935283, 0.0478647 Part.ActiveView().RotateAboutCenter 0.0647504, 0.0478647 Part.ActiveView().RotateAboutCenter 0.129501, 0.0478647 Part.ActiveView().RotateAboutCenter 0.0359724, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0791394, 0.0319098 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.0503614, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0863338, 0.0319098 Part.ActiveView().RotateAboutCenter 0.122306, 0.0558421 Part.ActiveView().RotateAboutCenter 0.0935283, 0.0478647 Part.ActiveView().RotateAboutCenter 0.0503614, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0359724, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0575559, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0503614, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0431669, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0359724, 0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.187057, -0.0159549 Part.ActiveView().RotateAboutCenter -0.0719449, -0.0159549 Part.ActiveView().RotateAboutCenter -0.223029, -0.0398872 Part.ActiveView().RotateAboutCenter -0.237418, -0.0478647 Part.ActiveView().RotateAboutCenter -0.0863338, -0.0239323 Part.ActiveView().RotateAboutCenter -0.201446, -0.0398872 Part.ActiveView().RotateAboutCenter -0.0215835, -0.00797744 Part.ActiveView().RotateAboutCenter -0.014389, 0 Set Part = Nothing swApp.CloseDoc "UPPER FRAME, PARALLEL SECTION" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") Part.EditSketch swApp.ArrangeWindows 2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.LoadFile2 "K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("UPPER FRAME, PARALLEL SECTION") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.0647504, -0.0159549 Part.ActiveView().RotateAboutCenter 0.122306, -0.0319098 Part.ActiveView().RotateAboutCenter 0.0575559, -0.00797744 Part.ActiveView().RotateAboutCenter 0.107917, -0.0159549 Part.ActiveView().RotateAboutCenter 0.244613, -0.00797744 Part.ActiveView().RotateAboutCenter 0.230224, 0 Part.ActiveView().RotateAboutCenter 0.259002, -0.00797744 Part.ActiveView().RotateAboutCenter 0.309363, 0.0398872 Part.ActiveView().RotateAboutCenter 0.107917, 0.0319098 Part.ActiveView().RotateAboutCenter 0.201446, 0.0638195 Part.ActiveView().RotateAboutCenter 0.0503614, 0.0159549 Part.ActiveView().RotateAboutCenter 0.014389, 0 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.0647504, -0.0239323 Part.ActiveView().RotateAboutCenter 0.0719449, -0.0159549 Part.ActiveView().RotateAboutCenter 0.107917, -0.0239323 Part.ActiveView().RotateAboutCenter 0.0935283, -0.0319098 Part.ActiveView().RotateAboutCenter 0.359724, -0.0319098 Part.ActiveView().RotateAboutCenter 0.287779, -0.0159549 Part.ActiveView().RotateAboutCenter 0.0647504, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0359724, 0 Part.ActiveView().RotateAboutCenter 0.0431669, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0359724, -0.0478647 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, -0.0159549 Part.ActiveView().RotateAboutCenter -0.014389, -0.111684 Part.ActiveView().RotateAboutCenter -0.014389, -0.0478647 Part.ActiveView().RotateAboutCenter -0.00719449, -0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, 0.0239323 Part.ActiveView().RotateAboutCenter -0.014389, 0.0239323 Part.ActiveView().RotateAboutCenter -0.00719449, 0.0239323 Part.ActiveView().RotateAboutCenter 0, 0.0239323 Part.ActiveView().RotateAboutCenter -0.00719449, 0.0159549 Part.ActiveView().RotateAboutCenter 0, 0.0159549 Part.ActiveView().RotateAboutCenter -0.00719449, 0.0159549 Part.ActiveView().RotateAboutCenter 0, 0.0159549 Part.ActiveView().RotateAboutCenter 0.00719449, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0719449, 0 Part.ActiveView().RotateAboutCenter 0.0215835, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0215835, 0 Part.ActiveView().RotateAboutCenter 0.0503614, -0.00797744 Part.ActiveView().RotateAboutCenter 0.014389, 0 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0359724, 0.0159549 Part.ActiveView().RotateAboutCenter -0.0791394, -0.00797744 Part.ActiveView().RotateAboutCenter -0.165473, -0.00797744 Part.ActiveView().RotateAboutCenter -0.518003, 0.00797744 Part.ActiveView().RotateAboutCenter -0.129501, 0.00797744 Part.ActiveView().RotateAboutCenter -0.20864, 0 Part.ActiveView().RotateAboutCenter -0.0719449, 0 Part.ActiveView().RotateAboutCenter -0.0647504, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0431669, 0.0319098 Part.ActiveView().RotateAboutCenter -0.0791394, 0.0957293 Part.ActiveView().RotateAboutCenter -0.0359724, 0.0877519 Part.ActiveView().RotateAboutCenter -0.0215835, 0.0638195 Part.ActiveView().RotateAboutCenter -0.014389, 0.071797 Part.ActiveView().RotateAboutCenter -0.00719449, 0.0159549 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, -0.0319098 Part.ActiveView().RotateAboutCenter -0.0287779, -0.0797744 Part.ActiveView().RotateAboutCenter -0.0215835, -0.0797744 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0.014389, 0.071797 Part.ActiveView().RotateAboutCenter 0, 0.0398872 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0287779, 0.0797744 Part.ActiveView().RotateAboutCenter 0.0287779, 0.111684 Part.ActiveView().RotateAboutCenter 0.014389, 0.0398872 Part.ActiveView().RotateAboutCenter -0.00719449, 0.0638195 Part.ActiveView().RotateAboutCenter -0.0215835, 0.0877519 Part.ActiveView().RotateAboutCenter 0, 0.0478647 Part.ActiveView().RotateAboutCenter -0.014389, 0.071797 Part.ActiveView().RotateAboutCenter -0.014389, 0.111684 Part.ActiveView().RotateAboutCenter 0, 0.0558421 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.0159549 Part.ActiveView().RotateAboutCenter -0.014389, 0.0558421 Part.ActiveView().RotateAboutCenter -0.0287779, 0.0957293 Part.ActiveView().RotateAboutCenter -0.014389, 0.0638195 Part.ActiveView().RotateAboutCenter -0.014389, 0.0478647 Part.ActiveView().RotateAboutCenter -0.014389, 0.0398872 Part.ActiveView().RotateAboutCenter -0.014389, 0.0398872 Part.ActiveView().RotateAboutCenter -0.00719449, 0.0319098 Part.ActiveView().RotateAboutCenter -0.00719449, 0.0319098 Part.ActiveView().RotateAboutCenter 0, 0.0478647 Part.ActiveView().RotateAboutCenter 0, 0.0239323 Part.ActiveView().RotateAboutCenter 0, 0.0159549 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0, -0.0558421 Part.ActiveView().RotateAboutCenter -0.00719449, -0.143594 Part.ActiveView().RotateAboutCenter -0.014389, -0.159549 Part.ActiveView().RotateAboutCenter -0.0431669, -0.382917 Part.ActiveView().RotateAboutCenter -0.00719449, -0.422804 Part.ActiveView().RotateAboutCenter 0, -0.071797 Part.ActiveView().RotateAboutCenter 0, -0.111684 Part.ActiveView().RotateAboutCenter 0, -0.351007 Part.ActiveView().RotateAboutCenter 0, -0.247301 Part.ActiveView().RotateAboutCenter 0.014389, -0.135617 Part.ActiveView().RotateAboutCenter 0.00719449, -0.0638195 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.0863338, 0.0558421 Part.ActiveView().RotateAboutCenter 0.0575559, 0.0398872 Part.ActiveView().RotateAboutCenter 0.0791394, 0.0558421 Part.ActiveView().RotateAboutCenter 0.0287779, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0287779, 0 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0215835, 0 Part.ActiveView().RotateAboutCenter 0.0431669, 0 Part.ActiveView().RotateAboutCenter 0.0575559, 0.0239323 Part.ActiveView().RotateAboutCenter 0.0431669, 0.0478647 Part.ActiveView().RotateAboutCenter 0.0287779, 0.0319098 Part.ActiveView().RotateAboutCenter 0.0287779, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0431669, 0.0319098 Part.ActiveView().RotateAboutCenter 0.0431669, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0215835, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0215835, 0 Part.ActiveView().RotateAboutCenter 0.0215835, -0.0319098 Part.ActiveView().RotateAboutCenter 0.00719449, -0.0478647 Part.ActiveView().RotateAboutCenter 0, -0.0877519 Part.ActiveView().RotateAboutCenter -0.0215835, -0.0797744 Part.ActiveView().RotateAboutCenter -0.0215835, -0.0797744 Part.ActiveView().RotateAboutCenter -0.0575559, -0.0638195 Part.ActiveView().RotateAboutCenter -0.0503614, -0.0558421 Part.ActiveView().RotateAboutCenter -0.0575559, -0.0478647 Part.ActiveView().RotateAboutCenter -0.0575559, -0.0478647 Part.ActiveView().RotateAboutCenter -0.0215835, -0.0239323 Part.ActiveView().RotateAboutCenter -0.0359724, -0.0239323 Part.ActiveView().RotateAboutCenter -0.014389, -0.00797744 Part.ActiveView().RotateAboutCenter -0.014389, -0.00797744 Part.ActiveView().RotateAboutCenter -0.014389, -0.00797744 Part.ActiveView().RotateAboutCenter -0.014389, -0.00797744 Part.ActiveView().RotateAboutCenter -0.014389, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0287779, 0 Part.ActiveView().RotateAboutCenter -0.0359724, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter -0.0431669, 0 Part.ActiveView().RotateAboutCenter -0.0431669, 0 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter -0.0431669, 0 Part.ActiveView().RotateAboutCenter -0.0215835, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter -0.0287779, 0 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.0239323 Part.ActiveView().RotateAboutCenter -0.00719449, 0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, 0.0319098 Part.ActiveView().RotateAboutCenter -0.00719449, 0.0239323 Part.ActiveView().RotateAboutCenter -0.0215835, 0.0797744 Part.ActiveView().RotateAboutCenter -0.0503614, 0.119662 Part.ActiveView().RotateAboutCenter -0.0359724, 0.127639 Part.ActiveView().RotateAboutCenter -0.0503614, 0.159549 Part.ActiveView().RotateAboutCenter -0.00719449, 0.0398872 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, 0.0398872 Part.ActiveView().RotateAboutCenter -0.00719449, 0.0319098 Part.ActiveView().RotateAboutCenter -0.0431669, -0.0159549 Part.ActiveView().RotateAboutCenter -0.215835, -0.231346 Part.ActiveView().RotateAboutCenter -0.0791394, -0.351007 Part.ActiveView().RotateAboutCenter -0.0431669, -0.103707 Part.ActiveView().RotateAboutCenter -0.014389, -0.0398872 Part.ActiveView().RotateAboutCenter -0.0287779, -0.0638195 Part.ActiveView().RotateAboutCenter -0.00719449, -0.0239323 Part.ActiveView().RotateAboutCenter -0.00719449, -0.00797744 Part.ActiveView().RotateAboutCenter 0, -0.0159549 Part.ActiveView().RotateAboutCenter -0.00719449, -0.00797744 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, -0.0398872 Part.ActiveView().RotateAboutCenter 0.0287779, -0.071797 Part.ActiveView().RotateAboutCenter 0.0287779, -0.0319098 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0215835, -0.0319098 Part.ActiveView().RotateAboutCenter 0.0359724, -0.0239323 Part.ActiveView().RotateAboutCenter 0.0215835, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0359724, -0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, -0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0575559, 0.0558421 Part.ActiveView().RotateAboutCenter 0.0215835, 0.0239323 Part.ActiveView().RotateAboutCenter 0.014389, 0.0398872 Part.ActiveView().RotateAboutCenter 0.014389, 0.0398872 Part.ActiveView().RotateAboutCenter 0.0215835, 0.0558421 Part.ActiveView().RotateAboutCenter 0.014389, 0.071797 Part.ActiveView().RotateAboutCenter 0.0215835, 0.151571 Part.ActiveView().RotateAboutCenter 0.00719449, 0.111684 Part.ActiveView().RotateAboutCenter 0, 0.0319098 Part.ActiveView().RotateAboutCenter 0.00719449, 0.0319098 Part.ActiveView().RotateAboutCenter 0.014389, 0.0797744 Part.ActiveView().RotateAboutCenter 0.0215835, 0.0478647 Part.ActiveView().RotateAboutCenter 0.0359724, 0.0877519 Part.ActiveView().RotateAboutCenter 0.0215835, 0.0398872 Part.ActiveView().RotateAboutCenter 0.00719449, 0.0159549 Part.ActiveView().RotateAboutCenter 0.014389, 0.0319098 Part.ActiveView().RotateAboutCenter 0.100723, 0.0797744 Part.ActiveView().RotateAboutCenter 0.0863338, 0.071797 Part.ActiveView().RotateAboutCenter 0.014389, 0.00797744 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0287779, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0575559, 0.0159549 Part.ActiveView().RotateAboutCenter -0.0647504, 0.0159549 Part.ActiveView().RotateAboutCenter -0.0791394, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter -0.0359724, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0575559, 0 Part.ActiveView().RotateAboutCenter -0.0431669, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0431669, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter -0.0215835, 0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0.014389, 0.111684 Part.ActiveView().RotateAboutCenter 0, 0.127639 Part.ActiveView().RotateAboutCenter 0, 0.0319098 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, -0.0319098 Part.ActiveView().RotateAboutCenter -0.0359724, -0.0877519 Part.ActiveView().RotateAboutCenter -0.0287779, -0.0638195 Part.ActiveView().RotateAboutCenter -0.0287779, -0.0558421 Part.ActiveView().RotateAboutCenter -0.0287779, -0.0239323 Part.ActiveView().RotateAboutCenter -0.0359724, -0.0398872 Part.ActiveView().RotateAboutCenter -0.0287779, -0.0478647 Part.ActiveView().RotateAboutCenter -0.014389, -0.0159549 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0215835, -0.103707 Part.ActiveView().RotateAboutCenter 0.0431669, -0.0638195 Part.ActiveView().RotateAboutCenter 0.0215835, -0.0319098 Part.ActiveView().RotateAboutCenter 0.00719449, -0.00797744 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0359724, -0.0797744 Part.ActiveView().RotateAboutCenter 0.0359724, -0.0957293 Part.ActiveView().RotateAboutCenter 0.014389, -0.0558421 Part.ActiveView().RotateAboutCenter 0.00719449, -0.0478647 Part.ActiveView().RotateAboutCenter 0.0287779, -0.111684 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.0647504, 0 Part.ActiveView().RotateAboutCenter -0.0287779, 0 Part.ActiveView().RotateAboutCenter -0.0503614, 0 Part.ActiveView().RotateAboutCenter -0.0359724, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0719449, 0 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0719449, -0.0319098 Part.ActiveView().RotateAboutCenter -0.0359724, -0.0319098 Part.ActiveView().RotateAboutCenter -0.014389, -0.0239323 Part.ActiveView().RotateAboutCenter -0.0215835, -0.0159549 Part.ActiveView().RotateAboutCenter -0.0287779, -0.0159549 Part.ActiveView().RotateAboutCenter -0.0359724, -0.0319098 Part.ActiveView().RotateAboutCenter -0.0431669, -0.0558421 Part.ActiveView().RotateAboutCenter -0.0215835, -0.0478647 Part.ActiveView().RotateAboutCenter 0, -0.0319098 Part.ActiveView().RotateAboutCenter -0.00719449, -0.0398872 Part.ActiveView().RotateAboutCenter 0, -0.0159549 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0, -0.0159549 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0.00719449, 0.0239323 Part.ActiveView().RotateAboutCenter 0, 0.0159549 Part.ActiveView().RotateAboutCenter 0.00719449, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0287779, 0.0398872 Part.ActiveView().RotateAboutCenter 0.0719449, 0.0638195 Part.ActiveView().RotateAboutCenter 0.0575559, 0.071797 Part.ActiveView().RotateAboutCenter 0.20864, 0.127639 Part.ActiveView().RotateAboutCenter 0.251807, 0.111684 Part.ActiveView().RotateAboutCenter 0.374113, 0.167526 Part.ActiveView().RotateAboutCenter 0.0719449, 0.0638195 Part.ActiveView().RotateAboutCenter 0.0791394, 0.0398872 Part.ActiveView().RotateAboutCenter 0.00719449, 0.0159549 Part.ActiveView().RotateAboutCenter -0.014389, 0.0239323 Part.ActiveView().RotateAboutCenter -0.0575559, 0.0957293 Part.ActiveView().RotateAboutCenter -0.129501, 0.135617 Part.ActiveView().RotateAboutCenter -0.158279, 0.0877519 Part.ActiveView().RotateAboutCenter -0.129501, 0.0319098 Part.ActiveView().RotateAboutCenter -0.165473, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0359724, 0 Part.ActiveView().RotateAboutCenter -0.014389, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0287779, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0791394, 0.0558421 Part.ActiveView().RotateAboutCenter -0.230224, 0.0797744 Part.ActiveView().RotateAboutCenter -0.0935283, 0.071797 Part.ActiveView().RotateAboutCenter -0.014389, 0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, 0.00797744 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0719449, -0.071797 Part.ActiveView().RotateAboutCenter 0.107917, -0.143594 Part.ActiveView().RotateAboutCenter 0.0647504, -0.0638195 Part.ActiveView().RotateAboutCenter 0.0863338, -0.191459 Part.ActiveView().RotateAboutCenter 0.165473, -0.191459 Part.ActiveView().RotateAboutCenter 0.0287779, 0 Part.ActiveView().RotateAboutCenter 0.129501, 0.0159549 Part.ActiveView().RotateAboutCenter 0.215835, 0.0877519 Part.ActiveView().RotateAboutCenter 0.158279, 0.111684 Part.ActiveView().RotateAboutCenter 0.201446, 0.183481 Part.ActiveView().RotateAboutCenter 0.0863338, 0.159549 Part.ActiveView().RotateAboutCenter 0.0719449, 0.103707 Part.ActiveView().RotateAboutCenter 0.165473, 0.0319098 Part.ActiveView().RotateAboutCenter 0.115112, -0.00797744 Part.ActiveView().RotateAboutCenter 0.129501, -0.071797 Part.ActiveView().RotateAboutCenter 0.0647504, -0.127639 Part.ActiveView().RotateAboutCenter 0.00719449, -0.0797744 Part.ActiveView().RotateAboutCenter -0.0935283, -0.207413 Part.ActiveView().RotateAboutCenter -0.151084, -0.183481 Part.ActiveView().RotateAboutCenter -0.172668, -0.0398872 Part.ActiveView().RotateAboutCenter -0.122306, -0.00797744 Part.ActiveView().RotateAboutCenter -0.338141, 0.00797744 Part.ActiveView().RotateAboutCenter -0.115112, 0.00797744 Part.ActiveView().RotateAboutCenter -0.201446, 0.0478647 Part.ActiveView().RotateAboutCenter -0.0503614, 0.00797744 Part.ActiveView().RotateAboutCenter -0.136695, 0.0638195 Part.ActiveView().RotateAboutCenter -0.0215835, 0.00797744 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter -0.00719449, 0 Part.ActiveView().RotateAboutCenter -0.0287779, 0.0159549 Part.ActiveView().RotateAboutCenter -0.0503614, 0.0239323 Part.ActiveView().RotateAboutCenter 0, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0215835, 0.0558421 Part.ActiveView().RotateAboutCenter 0.00719449, 0 Part.ActiveView().RotateAboutCenter 0.0719449, 0 Part.ActiveView().RotateAboutCenter 0.0359724, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0287779, 0.0638195 Part.ActiveView().RotateAboutCenter 0.0287779, 0.0797744 Part.ActiveView().RotateAboutCenter 0.014389, 0.0398872 Part.ActiveView().RotateAboutCenter 0.00719449, 0.0159549 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter -0.00719449, -0.0478647 Part.ActiveView().RotateAboutCenter 0, -0.0239323 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.LoadFile2 "K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("UPPER FRAME, PARALLEL SECTION") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.LoadFile2 "K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", 2, 0, "", longstatus) Part.EditSketch 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 Part.ActiveView().RotateAboutCenter 0, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0503614, -0.0398872 Part.ActiveView().RotateAboutCenter -0.194251, -0.0319098 Part.ActiveView().RotateAboutCenter -0.100723, -0.0239323 Part.ActiveView().RotateAboutCenter -0.0503614, -0.0239323 Part.ActiveView().RotateAboutCenter -0.0287779, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0791394, -0.00797744 Part.ActiveView().RotateAboutCenter -0.0719449, -0.0239323 Part.ActiveView().RotateAboutCenter -0.0215835, 0 Part.ActiveView().RotateAboutCenter -0.014389, 0 Part.ActiveView().RotateAboutCenter -0.0503614, 0.0239323 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("8.5in Forward Section - 16.75" Middle Section") swApp.ActiveDoc.ActiveView.FrameLeft = 406 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.ViewZoomTo2 0.257732, 0.0768595, -2.33604e-015, 0.40995, -0.00348777, -1.77498e-015 swApp.ActiveDoc.ActiveView.FrameLeft = 406 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 406 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") Set Part = swApp.ActivateDoc ("Upper foam.16.75 IN. MIDDLE. SLDDRW - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 280 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.298412, 0.0684145, -1.92382e-015, 0.411421, -0.0127874, -1.35679e-015 Part.ViewZoomtofit2 Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 280 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 280 Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.LoadFile2 "K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("UPPER FRAME, PARALLEL SECTION") 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 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") swApp.LoadFile2 "K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("UPPER FRAME, PARALLEL SECTION") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.LoadFile2 "K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", 2, 0, "", longstatus) 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 boolstatus = Part.Extension.SelectByID("", "FACE", 0.245796833869, 2.666274411002, -0.05681580862115, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "K:\Multibeam\Mid-Section\Upper foam.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\Upper foam.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Upper foam") Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("UPPER FRAME, PARALLEL SECTION") Part.EditSketch Part.EditSketch 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.2349285697935, 2.670888463555, -0.1148959533304, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("Upper foam.16.75 IN. MIDDLE. SLDDRW - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 280 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.LoadFile2 "K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\UPPER FRAME, PARALLEL SECTION.SLDASM", 2, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("UPPER FRAME, PARALLEL SECTION") boolstatus = Part.Extension.SelectByID("", "FACE", 0.217934256429, 2.672305195609, -0.1007420921475, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "K:\Multibeam\Mid-Section\Upper foam.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\Upper foam.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Upper foam") Part.ClearSelection boolstatus = Part.Extension.SelectByID("16.75in Middle Section@Upper foam.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "16.75in Middle Section" Part.ActiveView().RotateAboutCenter 0.00682955, 0.00797744 Part.ActiveView().RotateAboutCenter -0.00682955, 0 Part.ActiveView().RotateAboutCenter -0.177568, 0.071797 Part.ActiveView().RotateAboutCenter -0.3005, 0.0558421 Part.ActiveView().RotateAboutCenter -0.252693, 0 Part.ActiveView().RotateAboutCenter -0.116102, -0.00797744 Part.ActiveView().RotateAboutCenter -0.478068, -0.0319098 Part.ActiveView().RotateAboutCenter -0.0819546, -0.0159549 Part.ActiveView().RotateAboutCenter -0.0478068, -0.0159549 Part.ActiveView().RotateAboutCenter 0, -0.00797744 boolstatus = Part.Extension.SelectByID("14.25in Middle Section", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "14.25in Middle Section" boolstatus = Part.Extension.SelectByID("18.875in Forward Section", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "18.875in Forward Section" boolstatus = Part.Extension.SelectByID("24.25in Middle Section@Upper foam.SLDPRT", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.ShowConfiguration "24.25in Middle Section" Set Part = Nothing swApp.CloseDoc "Upper foam" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("UPPER FRAME, PARALLEL SECTION") Part.ActiveView().RotateAboutCenter 0.00719449, 0.0159549 Part.ActiveView().RotateAboutCenter 0.014389, 0.0239323 Part.ActiveView().RotateAboutCenter 0.014389, 0 Part.ActiveView().RotateAboutCenter 0.0503614, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0575559, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0647504, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0863338, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0359724, 0 Part.ActiveView().RotateAboutCenter 0.0719449, 0.00797744 Part.ActiveView().RotateAboutCenter 0.0503614, -0.00797744 Part.ActiveView().RotateAboutCenter 0.0719449, -0.0159549 Part.ActiveView().RotateAboutCenter 0.0935283, 0 Part.ActiveView().RotateAboutCenter 0.0503614, 0 Part.ActiveView().RotateAboutCenter 0.0215835, 0 Part.ActiveView().RotateAboutCenter 0.0503614, 0.0159549 Part.ActiveView().RotateAboutCenter 0.0503614, 0.0398872 Part.ActiveView().RotateAboutCenter 0.0431669, 0.0239323 Part.ActiveView().RotateAboutCenter 0.014389, 0.0319098 Part.ActiveView().RotateAboutCenter 0.0431669, 0.0478647 swApp.LoadFile2 "K:\Drawings\Multibeam\MultiBeam MidBodies\MidBody\Mount Plate.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Drawings\Multibeam\MultiBeam MidBodies\MidBody\Mount Plate.SLDDRW", 3, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Mount Plate - Sheet1") Part.EditSketch Set Part = Nothing swApp.CloseDoc "Mount Plate - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("UPPER FRAME, PARALLEL SECTION") boolstatus = Part.Extension.SelectByID("BRACE TOP, PARALLEL FRAME-1@UPPER FRAME, PARALLEL SECTION", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "K:\Multibeam\Mid-Section\BRACE TOP, PARALLEL FRAME.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\BRACE TOP, PARALLEL FRAME.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("BRACE TOP, PARALLEL FRAME") Part.ClearSelection ' MSGBOX ' K:\Multibeam\Mid-Section\BRACE TOP, PARALLEL FRAME.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. swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("UPPER FRAME, PARALLEL SECTION") Part.EditSketch Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") Part.FileFind Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.LoadFile2 "K:\Multibeam\Mid-Section\Upper foam.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("K:\Multibeam\Mid-Section\Upper foam.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("Upper foam - 2.5" Forward Section") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("8.5in Forward Section - 16.75" Middle Section") Set Part = swApp.ActivateDoc ("PV Base Foam - Sheet1") Set Part = swApp.ActivateDoc ("Lower Foam.21 inch Blank - Sheet1") Set Part = swApp.ActivateDoc ("8.5in Forward Section - 16.75" Middle Section") Set Part = swApp.ActivateDoc ("BRACE TOP, PARALLEL FRAME") Set Part = swApp.ActivateDoc ("MidSec. 2.5in.AftSec - 2.5" Aft Section") Set Part = swApp.ActivateDoc ("BRACE TOP, PARALLEL FRAME") Set Part = swApp.ActivateDoc ("UPPER FRAME, PARALLEL SECTION") Set Part = swApp.ActivateDoc ("BRACE TOP, PARALLEL FRAME") swApp.ExitApp End Sub