' ****************************************************************************** ' swxJRNL.swj - journal recorded on 10/27/03 by gashler ' ***************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long Dim Annotation As Object Dim Gtol As Object Dim DatumTag As Object Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = Application.SldWorks Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\DMOTailSection1.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditRebuild boolstatus = Part.Extension.SelectByID("TAILCONE FOAM PACK-2@DMOTailSection1", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TOP TAIL SHELL-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/SHELL INSERT RING-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TAIL FLANGE TOP PORT-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TAIL FLANGE TOP STARBOARD-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TAIL FLANGE TOP STARBOARD-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection swApp.LoadFile2 "G:\Drawings\TailSection\1 TAIL SHELL BASE PART.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\1 TAIL SHELL BASE PART.SLDPRT", 1, 0, "", longstatus) swApp.LoadFile2 "G:\Drawings\TailSection\0 SERIES 58 EXTENDED SHELL.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\0 SERIES 58 EXTENDED SHELL.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 SERIES 58 EXTENDED SHELL.SLDPRT") 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 TAIL SHELL BASE PART.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 2 swApp.LoadFile2 "G:\Drawings\TailSection\0 TAIL FLANGE BASE PART.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\0 TAIL FLANGE BASE PART.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("0 TAIL FLANGE BASE PART.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 2 swApp.LoadFile2 "G:\Drawings\TailSection\1 TAIL FLANGE TOP PART.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\1 TAIL FLANGE TOP PART.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("1 TAIL FLANGE TOP PART.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 2 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") Part.EditRebuild Part.ActiveView().RotateAboutCenter 0, 0.0340655 Part.ActiveView().RotateAboutCenter 0, 0.193038 Part.ActiveView().RotateAboutCenter 0.00961712, 0.0454206 Part.ActiveView().RotateAboutCenter 0.00961712, 0.0227103 Part.ActiveView().RotateAboutCenter 0, 0.102196 Part.ActiveView().RotateAboutCenter 0, 0.113552 Part.ActiveView().RotateAboutCenter 0.0288514, 0.215748 Part.ActiveView().RotateAboutCenter 0.00961712, 0.181682 Part.ActiveView().RotateAboutCenter 0.00961712, 0.37472 Part.ActiveView().RotateAboutCenter 0, 0.261169 Part.ActiveView().RotateAboutCenter 0, 0.0908412 Part.ActiveView().RotateAboutCenter 0, 0.0227103 Part.ActiveView().RotateAboutCenter 0, -0.0340655 Part.ActiveView().RotateAboutCenter 0.0384685, -0.35201 Part.ActiveView().RotateAboutCenter 0, -0.272524 Part.ActiveView().RotateAboutCenter 0, -0.249813 Part.ActiveView().RotateAboutCenter -0.0288514, -0.261169 Part.ActiveView().RotateAboutCenter -0.0673198, -0.261169 Part.ActiveView().RotateAboutCenter -0.0288514, -0.0908412 Part.ActiveView().RotateAboutCenter -0.0480856, -0.158972 Part.ActiveView().RotateAboutCenter -0.0577027, -0.147617 Part.ActiveView().RotateAboutCenter -0.0288514, -0.0227103 Part.ActiveView().RotateAboutCenter 0, -0.0113552 Part.ActiveView().RotateAboutCenter 0.0961712, -0.124907 Part.ActiveView().RotateAboutCenter 0.076937, -0.102196 Part.ActiveView().RotateAboutCenter 0.0192342, -0.0340655 Part.ActiveView().RotateAboutCenter 0.0192342, -0.0227103 Part.ActiveView().RotateAboutCenter 0.0288514, 0 Part.ActiveView().RotateAboutCenter 0.0865541, -0.0113552 Part.ActiveView().RotateAboutCenter 0.0288514, 0 boolstatus = Part.Extension.SelectByID("TAILCONE FOAM PACK-1@DMOTailSection1", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("CompensatorMount-1@DMOTailSection1", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("MountClamp-1@DMOTailSection1", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("MountClamp-1@DMOTailSection1", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("TAILCONE FOAM PACK-1@DMOTailSection1", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ShowComponent2 Part.EditRebuild Part.ClearSelection Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter -0.00961712, 0.102196 Part.ActiveView().RotateAboutCenter -0.0288514, 0.0908412 Part.ActiveView().RotateAboutCenter -0.0288514, 0.0908412 Part.ActiveView().RotateAboutCenter -0.00961712, 0.102196 Part.ActiveView().RotateAboutCenter 0, 0.0908412 Part.ActiveView().RotateAboutCenter 0, 0.181682 Part.ActiveView().RotateAboutCenter 0.0288514, 0.193038 Part.ActiveView().RotateAboutCenter 0.105788, 0.37472 Part.ActiveView().RotateAboutCenter 0.0673198, 0.329299 Part.ActiveView().RotateAboutCenter 0.0577027, 0.193038 Part.ActiveView().RotateAboutCenter 0.0480856, 0.227103 Part.ActiveView().RotateAboutCenter 0.00961712, 0.0340655 Part.ActiveView().RotateAboutCenter 0, -0.0113552 Part.ActiveView().RotateAboutCenter -0.0384685, -0.193038 Part.ActiveView().RotateAboutCenter -0.076937, -0.204393 Part.ActiveView().RotateAboutCenter -0.076937, -0.249813 Part.ActiveView().RotateAboutCenter -0.0384685, -0.0908412 Part.ActiveView().RotateAboutCenter -0.00961712, -0.170327 Part.ActiveView().RotateAboutCenter 0, -0.0454206 Part.ActiveView().RotateAboutCenter 0, -0.0113552 boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/BOTTOM TAIL SHELL-1@BOTTOM TAIL SHELL SUB-ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.EditRebuild boolstatus = Part.Extension.SelectByID("DMOTailSection1.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DMOTailSection1.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.DimPreferences Part.ClearSelection boolstatus = Part.Extension.SelectByID("DMOTailSection1.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1136758849458, 0.2301295044561, 0.02355282213921, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.02663101585765, 0.2537710451576, 0.02329979603741, False, 0, Nothing) Part.ClearSelection Part.EditRebuild boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/BOTTOM TAIL SHELL-1@BOTTOM TAIL SHELL SUB-ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.CompConfigProperties3 2, 0, True, True boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TOP TAIL SHELL-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.CompConfigProperties3 2, 0, True, True boolstatus = Part.Extension.SelectByID("", "FACE", 0.1873901308815, 0.1508364205304, 0.1829841962908, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.02354543831498, 0.2264705962402, 0.0498228037286, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/Tail Botttom Port Flange w inserts-2@BOTTOM TAIL SHELL SUB-ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/BOTTOM TAIL SHELL-1@BOTTOM TAIL SHELL SUB-ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/BOTTOM TAIL SHELL-1@BOTTOM TAIL SHELL SUB-ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.HideComponent2 Part.ClearSelection boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TOP TAIL SHELL-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.HideComponent2 Part.ClearSelection Part.ActiveView().RotateAboutCenter 0, -0.0113552 Part.ActiveView().RotateAboutCenter 0.0384685, -0.158972 Part.ActiveView().RotateAboutCenter 0.0288514, -0.124907 Part.ActiveView().RotateAboutCenter 0.00961712, -0.204393 Part.ActiveView().RotateAboutCenter 0, -0.340655 Part.ActiveView().RotateAboutCenter 0.0384685, -0.261169 Part.ActiveView().RotateAboutCenter 0.211577, -0.363365 Part.ActiveView().RotateAboutCenter 0.192342, -0.124907 Part.ActiveView().RotateAboutCenter 0.192342, -0.113552 Part.ActiveView().RotateAboutCenter 0.0384685, -0.0113552 Part.ActiveView().RotateAboutCenter 0.00961712, 0 Part.ActiveView().RotateAboutCenter 0.0288514, 0 Part.ActiveView().RotateAboutCenter 0.105788, 0.124907 Part.ActiveView().RotateAboutCenter 0.0384685, 0.0567758 Part.ActiveView().RotateAboutCenter 0, 0.124907 Part.ActiveView().RotateAboutCenter -0.115405, 0.215748 Part.ActiveView().RotateAboutCenter -0.192342, 0.204393 Part.ActiveView().RotateAboutCenter -0.0961712, 0.124907 Part.ActiveView().RotateAboutCenter -0.115405, 0.170327 Part.ActiveView().RotateAboutCenter -0.076937, 0.181682 Part.ActiveView().RotateAboutCenter -0.0577027, 0.113552 Part.ActiveView().RotateAboutCenter -0.0865541, 0.193038 Part.ActiveView().RotateAboutCenter -0.0288514, 0.0681309 Part.ActiveView().RotateAboutCenter -0.0192342, 0.0227103 Part.ActiveView().RotateAboutCenter 0.00961712, -0.0113552 Part.ActiveView().RotateAboutCenter 0.0865541, -0.227103 Part.ActiveView().RotateAboutCenter 0.00961712, -0.238458 Part.ActiveView().RotateAboutCenter 0, -0.317944 Part.ActiveView().RotateAboutCenter 0.0288514, -0.136262 Part.ActiveView().RotateAboutCenter 0.0480856, -0.113552 Part.ActiveView().RotateAboutCenter 0.00961712, -0.0227103 swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\MBARI AUV Ops.drwdot", "" Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\templates\mbari drawing template 1 item.slddrt", 2, 0.279400, 0.431800) Set Part = swApp.ActivateDoc ("Draw1 - Sheet1") boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3505778747079, 0.07445763434439, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection Part.ViewZoomtofit2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 6 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameLeft = 65 swApp.ActiveDoc.ActiveView.FrameTop = 113 swApp.ActiveDoc.ActiveView.FrameLeft = 72 swApp.ActiveDoc.ActiveView.FrameTop = 120 swApp.ActiveDoc.ActiveView.FrameLeft = 71 swApp.ActiveDoc.ActiveView.FrameTop = 120 swApp.ActiveDoc.ActiveView.FrameLeft = 69 swApp.ActiveDoc.ActiveView.FrameTop = 121 swApp.ActiveDoc.ActiveView.FrameLeft = 68 swApp.ActiveDoc.ActiveView.FrameTop = 121 swApp.ActiveDoc.ActiveView.FrameLeft = 11 swApp.ActiveDoc.ActiveView.FrameTop = 112 swApp.ActiveDoc.ActiveView.FrameLeft = -43 swApp.ActiveDoc.ActiveView.FrameTop = 106 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TAIL FLANGE TOP PORT-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TAIL FLANGE TOP PORT-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 2 swApp.ActiveDoc.ActiveView.FrameTop = 5 swApp.ActiveDoc.ActiveView.FrameLeft = 22 swApp.ActiveDoc.ActiveView.FrameTop = 90 swApp.ActiveDoc.ActiveView.FrameLeft = 45 swApp.ActiveDoc.ActiveView.FrameTop = 166 swApp.ActiveDoc.ActiveView.FrameLeft = 50 swApp.ActiveDoc.ActiveView.FrameTop = 217 swApp.ActiveDoc.ActiveView.FrameLeft = 43 swApp.ActiveDoc.ActiveView.FrameTop = 301 swApp.ActiveDoc.ActiveView.FrameLeft = 36 swApp.ActiveDoc.ActiveView.FrameTop = 367 swApp.ActiveDoc.ActiveView.FrameLeft = 36 swApp.ActiveDoc.ActiveView.FrameTop = 368 swApp.ActiveDoc.ActiveView.FrameLeft = 36 swApp.ActiveDoc.ActiveView.FrameTop = 366 swApp.ActiveDoc.ActiveView.FrameLeft = 36 swApp.ActiveDoc.ActiveView.FrameTop = 297 swApp.ActiveDoc.ActiveView.FrameLeft = 36 swApp.ActiveDoc.ActiveView.FrameTop = 210 swApp.ActiveDoc.ActiveView.FrameLeft = 41 swApp.ActiveDoc.ActiveView.FrameTop = 162 swApp.ActiveDoc.ActiveView.FrameLeft = 52 swApp.ActiveDoc.ActiveView.FrameTop = 137 swApp.ActiveDoc.ActiveView.FrameLeft = 61 swApp.ActiveDoc.ActiveView.FrameTop = 124 swApp.ActiveDoc.ActiveView.FrameLeft = 76 swApp.ActiveDoc.ActiveView.FrameTop = 122 swApp.ActiveDoc.ActiveView.FrameLeft = 77 swApp.ActiveDoc.ActiveView.FrameTop = 122 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 85 swApp.ActiveDoc.ActiveView.FrameTop = 132 swApp.ActiveDoc.ActiveView.FrameLeft = 178 swApp.ActiveDoc.ActiveView.FrameTop = 223 swApp.ActiveDoc.ActiveView.FrameLeft = 201 swApp.ActiveDoc.ActiveView.FrameTop = 256 Set Part = swApp.ActivateDoc ("Draw1 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = -37 swApp.ActiveDoc.ActiveView.FrameTop = 95 swApp.ActiveDoc.ActiveView.FrameLeft = -25 swApp.ActiveDoc.ActiveView.FrameTop = 36 swApp.ActiveDoc.ActiveView.FrameLeft = -22 swApp.ActiveDoc.ActiveView.FrameTop = 1 swApp.ActiveDoc.ActiveView.FrameLeft = -20 swApp.ActiveDoc.ActiveView.FrameTop = -16 Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") Set Part = swApp.ActivateDoc ("Draw1 - Sheet1") boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1642287374302, 0.2242809357542, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT - Sheet1") Part.Create3rdAngleViews "G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT" Part.ClearSelection Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2318934860335, 0.2107479860335, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1777616871508, 0.2218203994413, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1919097709497, 0.1947545, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2331237541899, 0.2021361089385, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1845281620112, 0.07357308659218, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1851432960894, 0.06434607541899, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1513109217877, 0.2359684832402, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1531563240223, 0.2242809357542, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.SetUserPreferenceToggle(6, False) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2601896536313, 0.203366377095, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.3733743240223, 0.09387251117318, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.3389268156425, 0.09510277932961, 0, False, 0, Nothing) Part.EditSketch Part.ViewZoomTo2 0.266956, 0.143083, -1.84954e-015, 0.378911, 0.0600401, -1.26966e-015 boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.3363803667489, 0.1014835067024, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.3343476750882, 0.1013271458054, 0, False, 0, Nothing) Part.EditSketch Part.ViewDisplayHiddenGreyed boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3046391046628, 0.1307229944368, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.161412523033, 0.1049234464358, 0, False, 0, Nothing) Part.EditSketch Part.ViewDisplayHiddenGreyed Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1426492153959, 0.1305666335398, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameWidth = 951 swApp.ActiveDoc.ActiveView.FrameHeight = 627 swApp.ActiveDoc.ActiveView.FrameWidth = 982 swApp.ActiveDoc.ActiveView.FrameHeight = 636 Part.EditSketch Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.787402 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.934579 Part.ActiveView().ZoomByFactor 0.892857 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.980392 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1784136220059, 0.1871385456586, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1922278748302, 0.1881493446458, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1140594198241, 0.2575575417633, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1140594198241, 0.2575575417633, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08339851721399, 0.2083653243643, -3499.223828375, False, 0, Nothing) Part.AddHoleCallout2 0.126526, 0.245091, -2.70617e-015 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".328", 1,"5.136.484", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".328", 1,"5x.136.484", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11,"", ".328", 1,"5x .136.484", "", 0 Part.ClearSelection Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = -27 swApp.ActiveDoc.ActiveView.FrameTop = -12 swApp.ActiveDoc.ActiveView.FrameLeft = -59 swApp.ActiveDoc.ActiveView.FrameTop = 5 swApp.ActiveDoc.ActiveView.FrameLeft = -78 swApp.ActiveDoc.ActiveView.FrameTop = 8 swApp.ActiveDoc.ActiveView.FrameLeft = -86 swApp.ActiveDoc.ActiveView.FrameTop = 8 Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 195 swApp.ActiveDoc.ActiveView.FrameTop = 250 swApp.ActiveDoc.ActiveView.FrameLeft = 108 swApp.ActiveDoc.ActiveView.FrameTop = 160 swApp.ActiveDoc.ActiveView.FrameLeft = 81 swApp.ActiveDoc.ActiveView.FrameTop = 116 swApp.ActiveDoc.ActiveView.FrameLeft = 80 swApp.ActiveDoc.ActiveView.FrameTop = 106 swApp.ActiveDoc.ActiveView.FrameLeft = 79 swApp.ActiveDoc.ActiveView.FrameTop = 105 swApp.ActiveDoc.ActiveView.FrameLeft = 73 swApp.ActiveDoc.ActiveView.FrameTop = 80 swApp.ActiveDoc.ActiveView.FrameLeft = 45 swApp.ActiveDoc.ActiveView.FrameTop = 39 swApp.ActiveDoc.ActiveView.FrameLeft = 15 swApp.ActiveDoc.ActiveView.FrameTop = 4 swApp.ActiveDoc.ActiveView.FrameLeft = 10 swApp.ActiveDoc.ActiveView.FrameTop = -3 Part.ActiveView().RotateAboutCenter 0, -0.0227103 Part.ActiveView().RotateAboutCenter 0.0368567, -0.193038 Part.ActiveView().RotateAboutCenter 0.0276425, -0.261169 Part.ActiveView().RotateAboutCenter -0.0184283, -0.363365 Part.ActiveView().RotateAboutCenter -0.0184283, -0.306589 Part.ActiveView().RotateAboutCenter 0, -0.0567758 Part.ActiveView().RotateAboutCenter 0.0829275, -0.0454206 Part.ActiveView().RotateAboutCenter 0.0829275, -0.0113552 Part.ActiveView().RotateAboutCenter 0.0184283, 0 Part.ActiveView().RotateAboutCenter 0.0644992, 0.0227103 Part.ActiveView().RotateAboutCenter 0.055285, 0.0340655 Part.ActiveView().RotateAboutCenter 0.0460708, 0.0340655 Part.ActiveView().RotateAboutCenter 0.0276425, 0.147617 Part.ActiveView().RotateAboutCenter 0.055285, 0.227103 Part.ActiveView().RotateAboutCenter 0.0184283, 0.0794861 Part.ActiveView().RotateAboutCenter 0.00921417, 0.0113552 Part.ActiveView().RotateAboutCenter 0.0368567, 0.0454206 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter -0.0276425, 0.124907 Part.ActiveView().RotateAboutCenter -0.0644992, 0.295234 Part.ActiveView().RotateAboutCenter -0.0184283, 0.0681309 Part.ActiveView().RotateAboutCenter -0.0368567, 0.170327 Part.ActiveView().RotateAboutCenter -0.0368567, 0.147617 Part.ActiveView().RotateAboutCenter -0.055285, 0.136262 Part.ActiveView().RotateAboutCenter -0.0460708, 0.124907 Part.ActiveView().RotateAboutCenter -0.0368567, 0.158972 Part.ActiveView().RotateAboutCenter -0.00921417, 0.0567758 Part.ActiveView().RotateAboutCenter -0.0184283, 0.0681309 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0, 0.0227103 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0.00921417, 0 Part.ActiveView().RotateAboutCenter 0.0184283, 0 Part.ActiveView().RotateAboutCenter 0.00921417, -0.0113552 Part.ActiveView().RotateAboutCenter 0, -0.0113552 Part.ActiveView().RotateAboutCenter 0.00921417, -0.0227103 Part.ActiveView().RotateAboutCenter 0.00921417, -0.0681309 Part.ActiveView().RotateAboutCenter 0.0184283, -0.102196 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0, 0.0227103 Part.ActiveView().RotateAboutCenter -0.00921417, 0.0454206 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0.00921417, 0 Part.ActiveView().RotateAboutCenter 0.00921417, 0 Part.ActiveView().RotateAboutCenter 0.00921417, -0.0340655 Part.ActiveView().RotateAboutCenter 0.00921417, -0.102196 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0, 0.0340655 Part.ActiveView().RotateAboutCenter 0, 0.0681309 Part.ActiveView().RotateAboutCenter 0, 0.0794861 Part.ActiveView().RotateAboutCenter 0, 0.0908412 Part.ActiveView().RotateAboutCenter 0.0184283, 0.0908412 Part.ActiveView().RotateAboutCenter 0.00921417, 0.0681309 Part.ActiveView().RotateAboutCenter 0.00921417, 0.0340655 Part.ActiveView().RotateAboutCenter 0.00921417, 0 Part.ActiveView().RotateAboutCenter 0.0184283, -0.0113552 Part.ActiveView().RotateAboutCenter 0.0276425, -0.0227103 Part.ActiveView().RotateAboutCenter 0.0184283, -0.0113552 Part.ActiveView().RotateAboutCenter 0.0368567, -0.0227103 Part.ActiveView().RotateAboutCenter 0.0184283, 0 Part.ActiveView().RotateAboutCenter 0.00921417, 0 Part.ActiveView().RotateAboutCenter 0.0184283, 0 Part.ActiveView().RotateAboutCenter 0.0184283, 0 Part.ActiveView().RotateAboutCenter 0.00921417, 0 Part.ActiveView().RotateAboutCenter 0.0184283, 0 Part.ActiveView().RotateAboutCenter 0.0276425, 0 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter -0.00921417, 0.0681309 Part.ActiveView().RotateAboutCenter -0.00921417, 0.113552 Part.ActiveView().RotateAboutCenter 0, 0.0454206 Part.ActiveView().RotateAboutCenter 0, 0.0113552 Part.ActiveView().RotateAboutCenter 0.0184283, 0.0113552 Part.ActiveView().RotateAboutCenter 0.055285, 0.0113552 Part.ActiveView().RotateAboutCenter 0.0276425, 0 Part.ActiveView().RotateAboutCenter 0.00921417, 0 Part.ActiveView().RotateAboutCenter 0.0184283, 0 Part.ActiveView().RotateAboutCenter 0.0184283, -0.0113552 Part.ActiveView().RotateAboutCenter 0.00921417, -0.0113552 Part.ActiveView().RotateAboutCenter 0.00921417, -0.0340655 Part.ActiveView().RotateAboutCenter 0, -0.0113552 Part.ActiveView().RotateAboutCenter 0, -0.0113552 swApp.ActiveDoc.ActiveView.FrameWidth = 949 swApp.ActiveDoc.ActiveView.FrameHeight = 623 swApp.ActiveDoc.ActiveView.FrameWidth = 950 swApp.ActiveDoc.ActiveView.FrameHeight = 623 swApp.ActiveDoc.ActiveView.FrameWidth = 935 swApp.ActiveDoc.ActiveView.FrameHeight = 587 swApp.ActiveDoc.ActiveView.FrameWidth = 888 swApp.ActiveDoc.ActiveView.FrameHeight = 541 swApp.ActiveDoc.ActiveView.FrameWidth = 859 swApp.ActiveDoc.ActiveView.FrameHeight = 523 swApp.ActiveDoc.ActiveView.FrameWidth = 824 swApp.ActiveDoc.ActiveView.FrameHeight = 502 swApp.ActiveDoc.ActiveView.FrameWidth = 806 swApp.ActiveDoc.ActiveView.FrameHeight = 486 swApp.ActiveDoc.ActiveView.FrameWidth = 775 swApp.ActiveDoc.ActiveView.FrameHeight = 463 swApp.ActiveDoc.ActiveView.FrameWidth = 737 swApp.ActiveDoc.ActiveView.FrameHeight = 447 swApp.ActiveDoc.ActiveView.FrameWidth = 726 swApp.ActiveDoc.ActiveView.FrameHeight = 443 swApp.ActiveDoc.ActiveView.FrameWidth = 713 swApp.ActiveDoc.ActiveView.FrameHeight = 433 swApp.ActiveDoc.ActiveView.FrameWidth = 687 swApp.ActiveDoc.ActiveView.FrameHeight = 415 swApp.ActiveDoc.ActiveView.FrameWidth = 669 swApp.ActiveDoc.ActiveView.FrameHeight = 403 swApp.ActiveDoc.ActiveView.FrameWidth = 650 swApp.ActiveDoc.ActiveView.FrameHeight = 389 swApp.ActiveDoc.ActiveView.FrameWidth = 618 swApp.ActiveDoc.ActiveView.FrameHeight = 374 swApp.ActiveDoc.ActiveView.FrameLeft = 19 swApp.ActiveDoc.ActiveView.FrameTop = 7 swApp.ActiveDoc.ActiveView.FrameLeft = 110 swApp.ActiveDoc.ActiveView.FrameTop = 86 swApp.ActiveDoc.ActiveView.FrameLeft = 215 swApp.ActiveDoc.ActiveView.FrameTop = 202 swApp.ActiveDoc.ActiveView.FrameLeft = 273 swApp.ActiveDoc.ActiveView.FrameTop = 287 swApp.ActiveDoc.ActiveView.FrameLeft = 315 swApp.ActiveDoc.ActiveView.FrameTop = 327 swApp.ActiveDoc.ActiveView.FrameLeft = 319 swApp.ActiveDoc.ActiveView.FrameTop = 330 Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT - Sheet1") boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2869060466264, 0.2117346543459, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = -81 swApp.ActiveDoc.ActiveView.FrameTop = 7 swApp.ActiveDoc.ActiveView.FrameLeft = -41 swApp.ActiveDoc.ActiveView.FrameTop = -6 swApp.ActiveDoc.ActiveView.FrameLeft = -25 swApp.ActiveDoc.ActiveView.FrameTop = -7 swApp.ActiveDoc.ActiveView.FrameLeft = -37 swApp.ActiveDoc.ActiveView.FrameTop = -7 swApp.ActiveDoc.ActiveView.FrameLeft = -109 swApp.ActiveDoc.ActiveView.FrameTop = -13 swApp.ActiveDoc.ActiveView.FrameLeft = -136 swApp.ActiveDoc.ActiveView.FrameTop = -13 swApp.ActiveDoc.ActiveView.FrameLeft = -138 swApp.ActiveDoc.ActiveView.FrameTop = -13 Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT - Sheet1") Part.CreateDrawViewFromModelView "G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT", "Current Model View", 0.3280118721038, 0.1851169476843, 0 ' MSGBOX ' SolidWorks has determined that this view may need Isometric (True) dimensions ' instead of standard Projected dimensions. ' Do you want to switch the view to use Isometric (True) dimensions? Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = -121 swApp.ActiveDoc.ActiveView.FrameTop = -12 swApp.ActiveDoc.ActiveView.FrameLeft = -62 swApp.ActiveDoc.ActiveView.FrameTop = 6 swApp.ActiveDoc.ActiveView.FrameLeft = -16 swApp.ActiveDoc.ActiveView.FrameTop = 17 swApp.ActiveDoc.ActiveView.FrameLeft = 8 swApp.ActiveDoc.ActiveView.FrameTop = 23 swApp.ActiveDoc.ActiveView.FrameLeft = 6 swApp.ActiveDoc.ActiveView.FrameTop = 22 swApp.ActiveDoc.ActiveView.FrameLeft = -19 swApp.ActiveDoc.ActiveView.FrameTop = 4 swApp.ActiveDoc.ActiveView.FrameLeft = -28 swApp.ActiveDoc.ActiveView.FrameTop = -3 swApp.ActiveDoc.ActiveView.FrameLeft = -58 swApp.ActiveDoc.ActiveView.FrameTop = -11 swApp.ActiveDoc.ActiveView.FrameLeft = -68 swApp.ActiveDoc.ActiveView.FrameTop = -11 swApp.ActiveDoc.ActiveView.FrameLeft = -70 swApp.ActiveDoc.ActiveView.FrameTop = -11 swApp.ActiveDoc.ActiveView.FrameLeft = -71 swApp.ActiveDoc.ActiveView.FrameTop = -11 swApp.ActiveDoc.ActiveView.FrameLeft = -70 swApp.ActiveDoc.ActiveView.FrameTop = -17 swApp.ActiveDoc.ActiveView.FrameLeft = -80 swApp.ActiveDoc.ActiveView.FrameTop = -17 swApp.ActiveDoc.ActiveView.FrameLeft = -84 swApp.ActiveDoc.ActiveView.FrameTop = -17 swApp.ActiveDoc.ActiveView.FrameLeft = -83 swApp.ActiveDoc.ActiveView.FrameTop = -17 swApp.ActiveDoc.ActiveView.FrameWidth = 982 swApp.ActiveDoc.ActiveView.FrameHeight = 635 swApp.ActiveDoc.ActiveView.FrameWidth = 915 swApp.ActiveDoc.ActiveView.FrameHeight = 556 swApp.ActiveDoc.ActiveView.FrameWidth = 858 swApp.ActiveDoc.ActiveView.FrameHeight = 528 swApp.ActiveDoc.ActiveView.FrameWidth = 853 swApp.ActiveDoc.ActiveView.FrameHeight = 524 swApp.ActiveDoc.ActiveView.FrameWidth = 854 swApp.ActiveDoc.ActiveView.FrameHeight = 524 swApp.ActiveDoc.ActiveView.FrameWidth = 856 swApp.ActiveDoc.ActiveView.FrameHeight = 526 swApp.ActiveDoc.ActiveView.FrameLeft = -79 swApp.ActiveDoc.ActiveView.FrameTop = -17 swApp.ActiveDoc.ActiveView.FrameLeft = -24 swApp.ActiveDoc.ActiveView.FrameTop = 5 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 19 swApp.ActiveDoc.ActiveView.FrameLeft = 10 swApp.ActiveDoc.ActiveView.FrameTop = 27 swApp.ActiveDoc.ActiveView.FrameLeft = 9 swApp.ActiveDoc.ActiveView.FrameTop = 24 Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.2784659486356, 0.163736635634, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.03103, 0.152425, -2.31282e-015, 0.266448, 0.0294143, -1.45384e-015 Part.EditSketch Part.EditSketch Part.EditSketch Part.ActiveView().TranslateBy 0, -0.00277239 Part.ActiveView().TranslateBy 0.000693098, -0.00693098 Part.ActiveView().TranslateBy 0.000693098, -0.00485169 Part.ActiveView().TranslateBy -0.000693098, -0.00415859 Part.ActiveView().TranslateBy -0.00762408, -0.0207929 Part.ActiveView().TranslateBy -0.00485169, -0.0152482 Part.ActiveView().TranslateBy -0.0013862, -0.00901027 Part.ActiveView().TranslateBy -0.0013862, -0.00277239 Part.ActiveView().TranslateBy -0.000693098, -0.00346549 Part.ActiveView().TranslateBy -0.00277239, -0.00901027 Part.ActiveView().TranslateBy -0.00277239, -0.00762408 Part.ActiveView().TranslateBy 0, -0.0013862 Part.ActiveView().TranslateBy -0.000693098, 0 Part.ActiveView().TranslateBy -0.00207929, -0.00623788 Part.ActiveView().TranslateBy -0.00554478, -0.0110896 Part.ActiveView().TranslateBy -0.00277239, -0.00623788 Part.ActiveView().TranslateBy -0.00207929, -0.00693098 Part.ActiveView().TranslateBy -0.00346549, -0.0103965 Part.ActiveView().TranslateBy -0.000693098, -0.00485169 Part.EditSketch Part.ActiveView().TranslateBy 0.000693098, 0 Part.ActiveView().TranslateBy 0.000693098, 0.00762408 Part.ActiveView().TranslateBy 0.000693098, 0.0103965 Part.ActiveView().TranslateBy 0, 0.00970337 Part.ActiveView().TranslateBy 0.000693098, 0.00693098 Part.ActiveView().TranslateBy 0.000693098, 0.00831717 Part.ActiveView().TranslateBy 0.00485169, 0.0131689 Part.ActiveView().TranslateBy 0.00623788, 0.0110896 Part.ActiveView().TranslateBy 0.00693098, 0.00693098 Part.ActiveView().TranslateBy 0.00554478, 0.00485169 Part.ActiveView().TranslateBy 0.00415859, 0.00346549 Part.ActiveView().TranslateBy 0.000693098, 0.000693098 Part.ActiveView().TranslateBy 0, 0.000693098 Part.ActiveView().TranslateBy 0, 0.000693098 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.05785929092132, 0.143444731262, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.05899292320337, 0.1457119958261, 0, False, 0, Nothing) Part.InsertVerticalOrdinate Part.ClearSelection Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07675316228883, 0.09847731738292, -3499.271900727, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0499239, 0.0980994, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "SILH_VERTEX", 0.08242132369908, 0.100744581947, -3499.284947477, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0824213, 0.100745, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07939830428028, 0.1026339690838, -3499.272246622, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0793983, 0.102634, 0) Part.ClearSelection Part.ClearSelection Part.EditUndo 1 Part.EditUndo 1 Part.EditUndo 1 Part.EditSketch Part.ViewZoomTo2 0.0552141, 0.132108, -2.51545e-015, 0.132301, 0.050109, -1.94286e-015 Part.EditSketch Part.InsertVerticalOrdinate boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07761401430301, 0.09845448728835, -3499.272114013, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.05831, 0.0981128, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.08188481647671, 0.1013586327665, -3499.27224707, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0818848, 0.101359, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07761401430301, 0.102725289462, -3499.272246501, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.077614, 0.102725, 0) Part.ClearSelection Part.ClearSelection Part.InsertHorizontalOrdinate Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.925926 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.980392 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07030553762307, 0.1005766629072, -3499.272246391, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0681676, 0.119513, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.08130058255452, 0.1030200062253, -3499.272247056, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0813006, 0.10302, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.08404934378738, 0.1030200062253, -3499.272236105, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0840493, 0.10302, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.111536956116, 0.1027145883106, -3499.266931643, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.111537, 0.102715, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1130640456898, 0.1030200062253, -3499.266133248, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.113064, 0.10302, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1402462401036, 0.1030200062253, -3499.252595085, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.140246, 0.10302, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.143605837166, 0.1030200062253, -3499.250916637, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.143606, 0.10302, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1698717778356, 0.1033254241401, -3499.224950641, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.169872, 0.103325, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1723151211537, 0.1033254241401, -3499.221807769, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.172315, 0.103325, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1994973155675, 0.1033254241401, -3499.17282702, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.199497, 0.103325, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.2022460768004, 0.1033254241401, -3499.167041226, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.202246, 0.103325, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.2129357038171, 0.1030200062253, -3499.164296614, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.212936, 0.10302, 0) Part.ClearSelection Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.InsertVerticalOrdinate boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.07061095553784, 0.2102216943069, -3499.214303375, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0532021, 0.211749, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem84@Drawing View2", "CENTERMARKSYM", 0.08313309004309, 0.2086946047575, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0831331, 0.208695, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem85@Drawing View2", "CENTERMARKSYM", 0.1124532098603, 0.2077783510132, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.112453, 0.207778, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem86@Drawing View2", "CENTERMARKSYM", 0.1420787475922, 0.2062512614394, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.142079, 0.206251, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem87@Drawing View2", "CENTERMARKSYM", 0.1710934494946, 0.2025862464623, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.171093, 0.202586, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem88@Drawing View2", "CENTERMARKSYM", 0.2004135693118, 0.1958670523375, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.200414, 0.195867, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2043840022037, 0.193423708995, -3499.214303375, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.204384, 0.193424, 0) Part.ClearSelection Part.ClearSelection Part.InsertHorizontalOrdinate boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07061095553784, 0.2090000226479, -3499.214303375, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.070611, 0.231601, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem84@Drawing View2", "CENTERMARKSYM", 0.08282767212833, 0.2086946047575, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0828277, 0.208695, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem85@Drawing View2", "CENTERMARKSYM", 0.1121477919455, 0.208083768928, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.112148, 0.208084, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem86@Drawing View2", "CENTERMARKSYM", 0.1417733296775, 0.2059458435247, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.141773, 0.205946, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem87@Drawing View2", "CENTERMARKSYM", 0.1710934494946, 0.2025862464623, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.171093, 0.202586, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem88@Drawing View2", "CENTERMARKSYM", 0.2004135693118, 0.1958670523375, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.200414, 0.195867, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.2120194500728, 0.1937291269097, -3499.214303375, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.212019, 0.193729, 0) Part.ClearSelection Part.ClearSelection boolstatus = Part.Extension.SelectByID("D8@Sketch4@TAIL FLANGE TOP PORT.SLDDRW", "DIMENSION", 0.06969470179355, 0.233738873768, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View2", "DIMENSION", 0.1323053743198, 0.2462610082733, 0, False, 0, Nothing) Part.ClearSelection Part.EditSketch Part.EditSketch Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.925926 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.961538 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.SetPickMode Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2476034596032, 0.2048740808526, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2361425101042, 0.1672821664959, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2457697076834, 0.1576549689168, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.2673162927415, 0.2420075572294, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.2581475331423, 0.2337556735901, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2838200600201, 0.1145617988005, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.284278498, 0.1182293026402, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.2861122499199, 0.1173124266803, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.3186613464971, 0.08522176808306, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.3696637720706, 0.1941359101124, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.3873377688604, 0.1220260032103, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.3908725682183, 0.1163703242376, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2643267512039, 0.2386743820225, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2501875537721, 0.1898941508828, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Note = Part.InsertNote("Note: Part conforms ot inside of fairing part.") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.2424109951846, 0.163736635634, 0) End If End If Part.ClearSelection Part.WindowRedraw Part.EditSketch Part.EditSketch Part.EditSketch Part.SetPickMode Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.233927, 0.186359, -2.8909e-015, 0.375319, 0.0909198, -2.22445e-015 boolstatus = Part.Extension.SelectByID("DetailItem89@Drawing View2", "NOTE", 0.2793181586895, 0.1620157614041, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem89@Drawing View2", "NOTE", 0.2793181586895, 0.1620157614041, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.231807, 0.176462, -2.93594e-015, 0.352697, 0.117784, -2.52619e-015 boolstatus = Part.Extension.SelectByID("DetailItem89@Drawing View2", "NOTE", 0.2849749724293, 0.161482420891, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem89@Drawing View2", "NOTE", 0.2871094692486, 0.1620645563872, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT - Sheet1") boolstatus = Part.Extension.SelectByID("DetailItem89@Drawing View2", "NOTE", 0.3150519730657, 0.1570193820869, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem89@Drawing View2", "NOTE", 0.3156341085618, 0.1572134272523, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameWidth = 859 swApp.ActiveDoc.ActiveView.FrameHeight = 531 swApp.ActiveDoc.ActiveView.FrameWidth = 899 swApp.ActiveDoc.ActiveView.FrameHeight = 579 swApp.ActiveDoc.ActiveView.FrameWidth = 909 swApp.ActiveDoc.ActiveView.FrameHeight = 596 swApp.ActiveDoc.ActiveView.FrameWidth = 910 swApp.ActiveDoc.ActiveView.FrameHeight = 596 Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3546609766864, 0.06105358598386, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3546609766864, 0.06105358598386, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem81@Sheet Format1", "NOTE", 0.3507324936186, 0.06033931633517, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem81@Sheet Format1", "NOTE", 0.3507324936186, 0.06033931633517, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem81@Sheet Format1", "NOTE", 0.3616251057612, 0.06141072080821, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3618036731734, 0.0799817316743, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem82@Sheet Format1", "NOTE", 0.3975171556081, 0.06158928822038, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem82@Sheet Format1", "NOTE", 0.3975171556081, 0.06158928822038, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format1", "NOTE", 0.3748390942621, 0.02569723837343, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format1", "NOTE", 0.3748390942621, 0.02569723837343, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 2 swApp.ActiveDoc.ActiveView.FrameTop = 28 swApp.ActiveDoc.ActiveView.FrameLeft = -103 swApp.ActiveDoc.ActiveView.FrameTop = 76 swApp.ActiveDoc.ActiveView.FrameLeft = -182 swApp.ActiveDoc.ActiveView.FrameTop = 92 swApp.ActiveDoc.ActiveView.FrameLeft = -236 swApp.ActiveDoc.ActiveView.FrameTop = 98 swApp.ActiveDoc.ActiveView.FrameLeft = -254 swApp.ActiveDoc.ActiveView.FrameTop = 99 swApp.ActiveDoc.ActiveView.FrameLeft = -310 swApp.ActiveDoc.ActiveView.FrameTop = 103 swApp.ActiveDoc.ActiveView.FrameLeft = -353 swApp.ActiveDoc.ActiveView.FrameTop = 110 swApp.ActiveDoc.ActiveView.FrameLeft = -388 swApp.ActiveDoc.ActiveView.FrameTop = 150 swApp.ActiveDoc.ActiveView.FrameLeft = -385 swApp.ActiveDoc.ActiveView.FrameTop = 193 swApp.ActiveDoc.ActiveView.FrameLeft = -365 swApp.ActiveDoc.ActiveView.FrameTop = 266 swApp.ActiveDoc.ActiveView.FrameLeft = -334 swApp.ActiveDoc.ActiveView.FrameTop = 366 swApp.ActiveDoc.ActiveView.FrameLeft = -323 swApp.ActiveDoc.ActiveView.FrameTop = 400 swApp.ActiveDoc.ActiveView.FrameLeft = -316 swApp.ActiveDoc.ActiveView.FrameTop = 419 swApp.ActiveDoc.ActiveView.FrameLeft = -315 swApp.ActiveDoc.ActiveView.FrameTop = 422 swApp.ActiveDoc.ActiveView.FrameLeft = -315 swApp.ActiveDoc.ActiveView.FrameTop = 420 swApp.ActiveDoc.ActiveView.FrameLeft = -287 swApp.ActiveDoc.ActiveView.FrameTop = 312 swApp.ActiveDoc.ActiveView.FrameLeft = -248 swApp.ActiveDoc.ActiveView.FrameTop = 151 swApp.ActiveDoc.ActiveView.FrameLeft = -210 swApp.ActiveDoc.ActiveView.FrameTop = 89 swApp.ActiveDoc.ActiveView.FrameLeft = -128 swApp.ActiveDoc.ActiveView.FrameTop = 57 swApp.ActiveDoc.ActiveView.FrameLeft = -74 swApp.ActiveDoc.ActiveView.FrameTop = 30 swApp.ActiveDoc.ActiveView.FrameLeft = -71 swApp.ActiveDoc.ActiveView.FrameTop = 27 swApp.ActiveDoc.ActiveView.FrameLeft = -28 swApp.ActiveDoc.ActiveView.FrameTop = 20 swApp.ActiveDoc.ActiveView.FrameLeft = 3 swApp.ActiveDoc.ActiveView.FrameTop = 6 swApp.ActiveDoc.ActiveView.FrameLeft = 36 swApp.ActiveDoc.ActiveView.FrameTop = -5 swApp.ActiveDoc.ActiveView.FrameLeft = 37 swApp.ActiveDoc.ActiveView.FrameTop = -5 swApp.ActiveDoc.ActiveView.FrameLeft = 38 swApp.ActiveDoc.ActiveView.FrameTop = -6 boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format1", "NOTE", 0.3766247683838, 0.02480440131256, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format1", "NOTE", 0.3766247683838, 0.02480440131256, 0, False, 0, Nothing) Part.SaveAs2 "G:\Drawings\TailSection\ShopDrawings\TailFlangeTopPort.SLDDRW", 0, FALSE, FALSE Part.Save2 FALSE Part.ClearSelection Set Part = Nothing swApp.CloseDoc "TailFlangeTopPort - Sheet1" Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 316 swApp.ActiveDoc.ActiveView.FrameTop = 316 swApp.ActiveDoc.ActiveView.FrameLeft = 280 swApp.ActiveDoc.ActiveView.FrameTop = 245 swApp.ActiveDoc.ActiveView.FrameLeft = 242 swApp.ActiveDoc.ActiveView.FrameTop = 149 swApp.ActiveDoc.ActiveView.FrameLeft = 216 swApp.ActiveDoc.ActiveView.FrameTop = 115 swApp.ActiveDoc.ActiveView.FrameLeft = 198 swApp.ActiveDoc.ActiveView.FrameTop = 86 swApp.ActiveDoc.ActiveView.FrameLeft = 168 swApp.ActiveDoc.ActiveView.FrameTop = 61 swApp.ActiveDoc.ActiveView.FrameLeft = 121 swApp.ActiveDoc.ActiveView.FrameTop = 51 swApp.ActiveDoc.ActiveView.FrameLeft = 103 swApp.ActiveDoc.ActiveView.FrameTop = 51 swApp.ActiveDoc.ActiveView.FrameLeft = 81 swApp.ActiveDoc.ActiveView.FrameTop = 69 swApp.ActiveDoc.ActiveView.FrameLeft = 73 swApp.ActiveDoc.ActiveView.FrameTop = 73 Set Part = Nothing swApp.CloseDoc "TAIL FLANGE TOP PORT.SLDPRT" Set Part = swApp.ActivateDoc ("1 TAIL FLANGE TOP PART.SLDPRT") Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.ActiveView().RotateAboutCenter 0, -0.0567758 Part.ActiveView().RotateAboutCenter 0, -0.272524 Part.ActiveView().RotateAboutCenter -0.0288514, -0.272524 Part.ActiveView().RotateAboutCenter -0.0577027, -0.238458 Part.ActiveView().RotateAboutCenter -0.0961712, -0.295234 Part.ActiveView().RotateAboutCenter 0, -0.0227103 Part.ActiveView().RotateAboutCenter -0.00961712, 0 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3681184917026, 0.02818031940404, -0.2471171040247, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3681184917026, 0.02818031940404, -0.2471171040247, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1645180625708, 0.02714773616907, -0.257823146688, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TAIL FLANGE TOP STARBOARD-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "G:\Drawings\TailSection\TAIL FLANGE TOP STARBOARD.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\TAIL FLANGE TOP STARBOARD.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ClearSelection Part.ActiveView().RotateAboutCenter 0.00883179, 0 Part.ActiveView().RotateAboutCenter 0, -0.0436188 Part.ActiveView().RotateAboutCenter -0.00883179, -0.207189 Part.ActiveView().RotateAboutCenter -0.0176636, -0.119952 Part.ActiveView().RotateAboutCenter -0.0176636, -0.152666 Part.ActiveView().RotateAboutCenter -0.0353271, -0.207189 Part.ActiveView().RotateAboutCenter 0, -0.0763329 Part.ActiveView().RotateAboutCenter 0, -0.0981423 Part.ActiveView().RotateAboutCenter 0, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0176636, 0.0327141 Part.ActiveView().RotateAboutCenter 0.0618225, 0.196285 Part.ActiveView().RotateAboutCenter 0.0176636, 0.18538 Part.ActiveView().RotateAboutCenter 0, 0.239903 Part.ActiveView().RotateAboutCenter 0.00883179, 0.130856 Part.ActiveView().RotateAboutCenter 0, 0.0109047 Part.ActiveView().RotateAboutCenter 0.0971497, 0.0436188 Part.ActiveView().RotateAboutCenter 0.300281, 0.0872376 Part.ActiveView().RotateAboutCenter 0.176636, 0 Part.ActiveView().RotateAboutCenter 0.0883179, 0 Part.ActiveView().RotateAboutCenter 0.0176636, 0 Part.ActiveView().RotateAboutCenter 0.0264954, 0 Part.ActiveView().RotateAboutCenter 0.0529907, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0706543, 0 Part.ActiveView().RotateAboutCenter 0.0441589, 0 Part.ActiveView().RotateAboutCenter 0.0176636, 0 Part.ActiveView().RotateAboutCenter 0.0706543, 0 Part.ActiveView().RotateAboutCenter 0.00883179, 0 Part.ActiveView().RotateAboutCenter -0.0618225, 0 Part.ActiveView().RotateAboutCenter -0.132477, 0.0109047 Part.ActiveView().RotateAboutCenter -0.0529907, 0 Part.ActiveView().RotateAboutCenter -0.0264954, 0 Part.ActiveView().RotateAboutCenter -0.00883179, 0 Part.ActiveView().RotateAboutCenter -0.00883179, 0.0218094 Part.ActiveView().RotateAboutCenter -0.0264954, 0.119952 Part.ActiveView().RotateAboutCenter -0.00883179, 0.0872376 Part.ActiveView().RotateAboutCenter -0.00883179, 0.0654282 Part.ActiveView().RotateAboutCenter 0, 0.0109047 Part.ActiveView().RotateAboutCenter -0.0176636, 0.0109047 Part.ActiveView().RotateAboutCenter -0.132477, 0.130856 Part.ActiveView().RotateAboutCenter -0.123645, 0.130856 Part.ActiveView().RotateAboutCenter -0.132477, 0.196285 Part.ActiveView().RotateAboutCenter -0.00883179, 0 Part.ActiveView().RotateAboutCenter 0, 0.0109047 Part.ActiveView().RotateAboutCenter -0.0264954, 0.0327141 Part.ActiveView().RotateAboutCenter -0.0618225, 0.0872376 Part.ActiveView().RotateAboutCenter -0.0883179, 0.163571 Part.ActiveView().RotateAboutCenter -0.0176636, 0.0218094 Part.ActiveView().RotateAboutCenter -0.00883179, 0.0109047 Part.ActiveView().RotateAboutCenter -0.00883179, 0.0218094 Part.ActiveView().RotateAboutCenter 0.00883179, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0264954, -0.0872376 Part.ActiveView().RotateAboutCenter 0.0176636, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0971497, -0.130856 Part.ActiveView().RotateAboutCenter 0.0706543, -0.0981423 Part.ActiveView().RotateAboutCenter 0.0441589, -0.0436188 Part.ActiveView().RotateAboutCenter 0.0176636, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0441589, -0.0327141 Part.ActiveView().RotateAboutCenter 0.0353271, -0.0436188 Part.ActiveView().RotateAboutCenter 0.0529907, -0.0436188 Part.ActiveView().RotateAboutCenter 0.0176636, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0353271, -0.0109047 Part.ActiveView().RotateAboutCenter 0.238458, -0.218094 Part.ActiveView().RotateAboutCenter 0.0529907, -0.0327141 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 949 swApp.ActiveDoc.ActiveView.FrameHeight = 620 swApp.ActiveDoc.ActiveView.FrameWidth = 938 swApp.ActiveDoc.ActiveView.FrameHeight = 595 swApp.ActiveDoc.ActiveView.FrameWidth = 726 swApp.ActiveDoc.ActiveView.FrameHeight = 450 swApp.ActiveDoc.ActiveView.FrameWidth = 667 swApp.ActiveDoc.ActiveView.FrameHeight = 456 swApp.ActiveDoc.ActiveView.FrameWidth = 665 swApp.ActiveDoc.ActiveView.FrameHeight = 458 swApp.ActiveDoc.ActiveView.FrameLeft = 6 swApp.ActiveDoc.ActiveView.FrameTop = 10 swApp.ActiveDoc.ActiveView.FrameLeft = 114 swApp.ActiveDoc.ActiveView.FrameTop = 112 swApp.ActiveDoc.ActiveView.FrameLeft = 177 swApp.ActiveDoc.ActiveView.FrameTop = 213 swApp.ActiveDoc.ActiveView.FrameLeft = 187 swApp.ActiveDoc.ActiveView.FrameTop = 260 swApp.ActiveDoc.ActiveView.FrameLeft = 188 swApp.ActiveDoc.ActiveView.FrameTop = 261 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TAIL FLANGE TOP PORT-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") Part.ClearSelection Part.ActiveView().RotateAboutCenter 0.017136, 0 Part.ActiveView().RotateAboutCenter 0.359855, 0.0402277 Part.ActiveView().RotateAboutCenter 0.462671, 0.120683 Part.ActiveView().RotateAboutCenter 0.17136, 0.0201139 Part.ActiveView().RotateAboutCenter 0.205632, 0.0402277 Part.ActiveView().RotateAboutCenter 0.0685438, 0.0201139 Part.ActiveView().RotateAboutCenter -0.0342719, 0.0603416 Part.ActiveView().RotateAboutCenter -0.017136, 1.00569 Part.ActiveView().RotateAboutCenter 0, 0.160911 Part.ActiveView().RotateAboutCenter 0, 0.0603416 Part.ActiveView().RotateAboutCenter 0.017136, 0.281594 Part.ActiveView().RotateAboutCenter 0.017136, 0.0603416 Part.ActiveView().RotateAboutCenter 0, 0.0402277 Part.ActiveView().RotateAboutCenter 0.119952, 0.824668 Part.ActiveView().RotateAboutCenter 0.0856798, 0.643643 Part.ActiveView().RotateAboutCenter 0.017136, 0.100569 Part.ActiveView().RotateAboutCenter 0.0856798, 0.321822 Part.ActiveView().RotateAboutCenter 0.017136, 0.0201139 Part.ActiveView().RotateAboutCenter 0, -0.0603416 Part.ActiveView().RotateAboutCenter -0.137088, -0.905123 Part.ActiveView().RotateAboutCenter -0.102816, -0.382163 Part.ActiveView().RotateAboutCenter -0.017136, -0.0804554 Part.ActiveView().RotateAboutCenter -0.205632, -0.864896 Part.ActiveView().RotateAboutCenter -0.119952, -0.341936 Part.ActiveView().RotateAboutCenter -0.0514079, -0.241366 Part.ActiveView().RotateAboutCenter -0.0514079, -0.301708 Part.ActiveView().RotateAboutCenter -0.0685438, -0.241366 Part.ActiveView().RotateAboutCenter -0.0685438, -0.201139 Part.ActiveView().RotateAboutCenter 0, -0.0402277 Part.ActiveView().RotateAboutCenter -0.188496, -0.221252 Part.ActiveView().RotateAboutCenter -0.119952, -0.160911 Part.ActiveView().RotateAboutCenter -0.119952, -0.0402277 Part.ActiveView().RotateAboutCenter -0.257039, -0.0603416 Part.ActiveView().RotateAboutCenter -0.0685438, -0.0201139 Part.ActiveView().RotateAboutCenter -0.137088, -0.0402277 Part.ActiveView().RotateAboutCenter -0.0514079, -0.0201139 Part.ActiveView().RotateAboutCenter 0, 0.140797 Part.ActiveView().RotateAboutCenter 0.205632, 0.764327 Part.ActiveView().RotateAboutCenter 0.102816, 0.362049 Part.ActiveView().RotateAboutCenter 0.0514079, 0.241366 Part.ActiveView().RotateAboutCenter 0.0514079, 0.181025 Part.ActiveView().RotateAboutCenter 0.017136, 0 Part.ActiveView().RotateAboutCenter 0.0514079, -0.0804554 Part.ActiveView().RotateAboutCenter 0.0342719, -0.0804554 Part.ActiveView().RotateAboutCenter 0.017136, -0.0201139 Part.ActiveView().RotateAboutCenter 0.0342719, -0.0804554 Part.ViewZoomTo2 0.240322, 0.225328, -0.192703, 0.481346, 0.0375529, -0.192703 boolstatus = Part.Extension.SelectByID("", "FACE", 0.6332359201913, 0, -0.2050330905282, False, 0, Nothing) Part.ClearSelection Part.EditRebuild swApp.ActiveDoc.ActiveView.FrameLeft = 73 swApp.ActiveDoc.ActiveView.FrameTop = 73 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 189 swApp.ActiveDoc.ActiveView.FrameTop = 255 swApp.ActiveDoc.ActiveView.FrameLeft = 184 swApp.ActiveDoc.ActiveView.FrameTop = 195 swApp.ActiveDoc.ActiveView.FrameLeft = 154 swApp.ActiveDoc.ActiveView.FrameTop = 146 swApp.ActiveDoc.ActiveView.FrameLeft = 137 swApp.ActiveDoc.ActiveView.FrameTop = 122 swApp.ActiveDoc.ActiveView.FrameLeft = 130 swApp.ActiveDoc.ActiveView.FrameTop = 93 swApp.ActiveDoc.ActiveView.FrameLeft = 123 swApp.ActiveDoc.ActiveView.FrameTop = 70 swApp.ActiveDoc.ActiveView.FrameLeft = 116 swApp.ActiveDoc.ActiveView.FrameTop = 60 swApp.ActiveDoc.ActiveView.FrameLeft = 115 swApp.ActiveDoc.ActiveView.FrameTop = 58 swApp.ActiveDoc.ActiveView.FrameLeft = 114 swApp.ActiveDoc.ActiveView.FrameTop = 58 swApp.ActiveDoc.ActiveView.FrameLeft = 115 swApp.ActiveDoc.ActiveView.FrameTop = 58 swApp.ActiveDoc.ActiveView.FrameLeft = 281 swApp.ActiveDoc.ActiveView.FrameTop = 87 swApp.ActiveDoc.ActiveView.FrameLeft = 283 swApp.ActiveDoc.ActiveView.FrameTop = 88 swApp.ActiveDoc.ActiveView.FrameLeft = 326 swApp.ActiveDoc.ActiveView.FrameTop = 132 swApp.ActiveDoc.ActiveView.FrameLeft = 333 swApp.ActiveDoc.ActiveView.FrameTop = 141 swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\MBARI AUV Ops.drwdot", "" Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\templates\mbari drawing template 1 item.slddrt", 2, 0.279400, 0.431800) Set Part = swApp.ActivateDoc ("Draw2 - Sheet1") boolstatus = Part.Extension.SelectByID("DetailItem81@Sheet Format1", "NOTE", 0.3503716829458, 0.06126136157205, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem82@Sheet Format1", "NOTE", 0.4021258152248, 0.06023040276171, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem82@Sheet Format1", "NOTE", 0.3977957882214, 0.06146755333412, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format1", "NOTE", 0.3747023108698, 0.0251778032102, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format1", "NOTE", 0.3747023108698, 0.0251778032102, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3192367268736, 0.08208672954089, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection Part.ViewZoomtofit2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 949 swApp.ActiveDoc.ActiveView.FrameHeight = 620 swApp.ActiveDoc.ActiveView.FrameWidth = 943 swApp.ActiveDoc.ActiveView.FrameHeight = 611 swApp.ActiveDoc.ActiveView.FrameWidth = 770 swApp.ActiveDoc.ActiveView.FrameHeight = 493 swApp.ActiveDoc.ActiveView.FrameWidth = 758 swApp.ActiveDoc.ActiveView.FrameHeight = 490 boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2305812, 0.1841630628571, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD.SLDPRT") Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD - Sheet1") Part.Create3rdAngleViews "G:\Drawings\TailSection\TAIL FLANGE TOP STARBOARD.SLDPRT" Part.ClearSelection Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2557489714286, 0.1816462857143, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1911516914286, 0.06923024, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1886349142857, 0.07006916571429, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.2020577257143, 0.2026194285714, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1978630971429, 0.1933912457143, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.SetUserPreferenceToggle(6, False) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.3388026171429, 0.08181412571429, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View3", "DRAWINGVIEW", 0.3438361714286, 0.07845842285714, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD.SLDPRT") Part.ActiveView().RotateAboutCenter -0.0301249, 0 Part.ActiveView().RotateAboutCenter -0.0903746, 0 Part.ActiveView().RotateAboutCenter -0.0753122, 0.016013 Part.ActiveView().RotateAboutCenter -0.120499, 0.0320259 Part.ActiveView().RotateAboutCenter -0.120499, 0.016013 Part.ActiveView().RotateAboutCenter -0.225936, 0.0480389 Part.ActiveView().RotateAboutCenter -0.120499, 0.0320259 Part.ActiveView().RotateAboutCenter -0.0301249, 0 Part.ActiveView().RotateAboutCenter -0.0150624, 0.016013 Part.ActiveView().RotateAboutCenter -0.0753122, -0.0640519 Part.ActiveView().RotateAboutCenter -0.135562, -0.288234 Part.ActiveView().RotateAboutCenter -0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.0451873, 0 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.0602497, 0 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.0301249, 0 Part.ActiveView().RotateAboutCenter 0.0602497, 0 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.0301249, 0.0320259 Part.ActiveView().RotateAboutCenter 0.135562, 0.0800649 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.0602497, 0.0320259 Part.ActiveView().RotateAboutCenter 0.0301249, 0.0320259 Part.ActiveView().RotateAboutCenter -0.0301249, 0 Part.ActiveView().RotateAboutCenter -0.135562, 0 Part.ActiveView().RotateAboutCenter -0.0150624, 0 swApp.ActiveDoc.ActiveView.FrameLeft = 337 swApp.ActiveDoc.ActiveView.FrameTop = 149 swApp.ActiveDoc.ActiveView.FrameLeft = 455 swApp.ActiveDoc.ActiveView.FrameTop = 318 swApp.ActiveDoc.ActiveView.FrameLeft = 470 swApp.ActiveDoc.ActiveView.FrameTop = 337 Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD - Sheet1") boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2943395542857, 0.1799684342857, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD.SLDPRT") Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD - Sheet1") Part.CreateDrawViewFromModelView "G:\Drawings\TailSection\TAIL FLANGE TOP STARBOARD.SLDPRT", "Current Model View", 0.33041336, 0.18667984, 0 ' MSGBOX ' SolidWorks has determined that this view may need Isometric (True) dimensions ' instead of standard Projected dimensions. ' Do you want to switch the view to use Isometric (True) dimensions? Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.214642, 0.221915, -2.40002e-015, 0.402561, 0.0734249, -1.36312e-015 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1731203814095, 0.07608146666667, 0, False, 0, Nothing) Part.EditSketch Part.ViewDisplayHiddenGreyed boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1835006889143, 0.1516071523048, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.3080643789714, 0.1498174441143, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2572366663619, 0.1884751410286, 0, False, 0, Nothing) Part.EditSketch Set Note = Part.InsertNote("Note: Part conforms to inside of tail fairing." & Chr(13) & Chr(10) & _ "This part is a mirror of tail flange upper port.") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.2422031175619, 0.1587659850667, 0) End If End If Part.ClearSelection Part.WindowRedraw Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameWidth = 760 swApp.ActiveDoc.ActiveView.FrameHeight = 490 swApp.ActiveDoc.ActiveView.FrameWidth = 898 swApp.ActiveDoc.ActiveView.FrameHeight = 571 swApp.ActiveDoc.ActiveView.FrameWidth = 912 swApp.ActiveDoc.ActiveView.FrameHeight = 576 Part.EditSketch Part.EditSketch Part.SetPickMode boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.09102997232636, 0.2057891839764, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08494127435876, 0.1570796002112, -3499.20776707, False, 0, Nothing) Part.AddHoleCallout2 0.118429, 0.204405, -2.7023e-015 Part.EditSketch Part.EditSketch Part.ClearSelection Part.InsertVerticalOrdinate boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.07276387842356, 0.1551422872215, -3499.19824207, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0578189, 0.155973, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem88@Drawing View2", "CENTERMARKSYM", 0.08438775636171, 0.1570796002356, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0843878, 0.15708, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem87@Drawing View2", "CENTERMARKSYM", 0.1142777282027, 0.1576331182327, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.114278, 0.157633, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem86@Drawing View2", "CENTERMARKSYM", 0.1436141820465, 0.1592936722239, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.143614, 0.159294, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem85@Drawing View2", "CENTERMARKSYM", 0.1726738768919, 0.1626147802062, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.172674, 0.162615, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem84@Drawing View2", "CENTERMARKSYM", 0.2022870897343, 0.1695337551694, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.202287, 0.169534, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2103131006916, 0.1720245861317, -3499.19824207, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.210313, 0.172025, 0) Part.ClearSelection Part.ClearSelection Part.InsertHorizontalOrdinate boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07193360142798, 0.1568028412127, -3499.19824207, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0713801, 0.148223, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem88@Drawing View2", "CENTERMARKSYM", 0.08466451536024, 0.1568028412371, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0846645, 0.156803, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem87@Drawing View2", "CENTERMARKSYM", 0.1142777282027, 0.1570796002356, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.114278, 0.15708, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem86@Drawing View2", "CENTERMARKSYM", 0.1436141820465, 0.1592936722239, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.143614, 0.159294, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem85@Drawing View2", "CENTERMARKSYM", 0.1726738768919, 0.1623380212077, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.172674, 0.162338, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem84@Drawing View2", "CENTERMARKSYM", 0.2020103307358, 0.1692569961708, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.20201, 0.169257, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.214187726671, 0.1717478271331, -3499.19824207, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.214188, 0.171748, 0) Part.ClearSelection Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.InsertHorizontalOrdinate Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07276387842356, 0.0798638396221, -3499.163030251, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0713801, 0.0956391, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.08383423836465, 0.08152439361327, -3499.162353494, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0838342, 0.0815244, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.08577155135434, 0.08235467060885, -3499.162363362, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0857716, 0.0823547, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1126171742115, 0.08235467060885, -3499.16764758, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.112617, 0.0823547, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1148312461997, 0.08235467060885, -3499.168443021, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.114831, 0.0823547, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1425071460524, 0.0818011526118, -3499.181911386, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.142507, 0.0818012, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1444444590421, 0.08235467060885, -3499.183579581, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.144444, 0.0823547, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1718435998963, 0.08207791161032, -3499.209327406, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.171844, 0.0820779, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1743344308831, 0.08263142960738, -3499.212434421, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.174334, 0.0826314, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.2011800537402, 0.08207791161032, -3499.260699701, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.20118, 0.0820779, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.203670884727, 0.08263142960738, -3499.266379759, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.203671, 0.0826314, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.2144644856695, 0.08235467060885, -3499.295703386, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.214464, 0.0823547, 0) Part.ClearSelection Part.ClearSelection Part.InsertVerticalOrdinate boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07691526340147, 0.08207791161032, -3499.162353384, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0580957, 0.0851223, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.0832807203676, 0.08124763461474, -3499.16252779, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0832807, 0.0812476, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07470119141325, 0.07848004462947, -3499.164434822, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0747012, 0.07848, 0) Part.ClearSelection Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 453 swApp.ActiveDoc.ActiveView.FrameTop = 330 swApp.ActiveDoc.ActiveView.FrameLeft = 343 swApp.ActiveDoc.ActiveView.FrameTop = 272 swApp.ActiveDoc.ActiveView.FrameLeft = 292 swApp.ActiveDoc.ActiveView.FrameTop = 227 swApp.ActiveDoc.ActiveView.FrameLeft = 254 swApp.ActiveDoc.ActiveView.FrameTop = 179 swApp.ActiveDoc.ActiveView.FrameLeft = 232 swApp.ActiveDoc.ActiveView.FrameTop = 143 swApp.ActiveDoc.ActiveView.FrameLeft = 227 swApp.ActiveDoc.ActiveView.FrameTop = 133 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.0451873, -0.144117 Part.ActiveView().RotateAboutCenter 0.0301249, -0.0800649 Part.ActiveView().RotateAboutCenter 0.135562, -0.144117 Part.ActiveView().RotateAboutCenter 0.120499, -0.128104 Part.ActiveView().RotateAboutCenter 0.120499, -0.0960778 Part.ActiveView().RotateAboutCenter 0.0753122, -0.0480389 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.195812, 0 Part.ActiveView().RotateAboutCenter 0.0301249, 0 Part.ActiveView().RotateAboutCenter 0.0301249, 0 Part.ActiveView().RotateAboutCenter 0.120499, 0.016013 Part.ActiveView().RotateAboutCenter 0.0150624, 0.016013 Part.ActiveView().RotateAboutCenter 0, 0.016013 Part.ActiveView().RotateAboutCenter 0, 0.208169 Part.ActiveView().RotateAboutCenter 0, 0.0640519 Part.ActiveView().RotateAboutCenter 0, 0.0640519 Part.ActiveView().RotateAboutCenter 0, 0.112091 Part.ActiveView().RotateAboutCenter 0, 0.112091 Part.ActiveView().RotateAboutCenter 0.0753122, 0.208169 Part.ActiveView().RotateAboutCenter 0.180749, 0.464376 Part.ActiveView().RotateAboutCenter 0.120499, 0.288234 Part.ActiveView().RotateAboutCenter 0.165687, 0.16013 Part.ActiveView().RotateAboutCenter 0.346436, 0.240195 Part.ActiveView().RotateAboutCenter 0.240999, 0.112091 Part.ActiveView().RotateAboutCenter 0.165687, 0.0480389 Part.ActiveView().RotateAboutCenter 0.0903746, 0.0320259 Part.ActiveView().RotateAboutCenter 0.0451873, 0.016013 Part.ActiveView().RotateAboutCenter -0.0150624, 0.0480389 Part.ActiveView().RotateAboutCenter -0.195812, 0.176143 Part.ActiveView().RotateAboutCenter -0.0301249, 0.0320259 Part.EditSketch Part.ViewZoomTo2 0.175501, -0.238392, 0.337628, 0.577316, -0.397648, 0.337628 Part.ActiveView().RotateAboutCenter -0.0451873, -0.0320259 Part.ActiveView().RotateAboutCenter -0.406686, -0.208169 Part.ActiveView().RotateAboutCenter -0.180749, -0.0320259 Part.ActiveView().RotateAboutCenter -0.150624, 0 Part.ActiveView().RotateAboutCenter -0.0753122, 0 Part.ActiveView().RotateAboutCenter -0.0451873, 0 Part.ViewZoomtofit2 Part.ActiveView().RotateAboutCenter 0, -0.016013 Part.ActiveView().RotateAboutCenter -0.43681, -0.656532 Part.ActiveView().RotateAboutCenter -0.602497, -0.736597 Part.ActiveView().RotateAboutCenter -0.316311, -0.256208 Part.ActiveView().RotateAboutCenter -0.346436, -0.272221 Part.ActiveView().RotateAboutCenter -0.271124, -0.320259 Part.ActiveView().RotateAboutCenter 0, -0.016013 Part.ActiveView().RotateAboutCenter 0, -0.016013 Part.ActiveView().RotateAboutCenter 0, -0.0320259 Part.ActiveView().RotateAboutCenter 0.0602497, 0.0640519 Part.ActiveView().RotateAboutCenter 0.210874, 0.464376 Part.ActiveView().RotateAboutCenter 0.0903746, 0.192156 Part.ActiveView().RotateAboutCenter 0.0150624, 0.0320259 Part.ActiveView().RotateAboutCenter 0.0602497, 0.16013 Part.ActiveView().RotateAboutCenter 0.0301249, 0.0480389 Part.ActiveView().RotateAboutCenter 0.0903746, 0.128104 Part.ActiveView().RotateAboutCenter 0.0150624, 0.016013 Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 226 swApp.ActiveDoc.ActiveView.FrameTop = 137 swApp.ActiveDoc.ActiveView.FrameLeft = 194 swApp.ActiveDoc.ActiveView.FrameTop = 231 swApp.ActiveDoc.ActiveView.FrameLeft = 181 swApp.ActiveDoc.ActiveView.FrameTop = 322 swApp.ActiveDoc.ActiveView.FrameLeft = 181 swApp.ActiveDoc.ActiveView.FrameTop = 323 Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD - Sheet1") boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1993593254786, 0.2194844300442, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD.SLDPRT") Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 182 swApp.ActiveDoc.ActiveView.FrameTop = 317 swApp.ActiveDoc.ActiveView.FrameLeft = 189 swApp.ActiveDoc.ActiveView.FrameTop = 241 swApp.ActiveDoc.ActiveView.FrameLeft = 186 swApp.ActiveDoc.ActiveView.FrameTop = 160 swApp.ActiveDoc.ActiveView.FrameLeft = 198 swApp.ActiveDoc.ActiveView.FrameTop = 112 swApp.ActiveDoc.ActiveView.FrameLeft = 205 swApp.ActiveDoc.ActiveView.FrameTop = 100 swApp.ActiveDoc.ActiveView.FrameLeft = 215 swApp.ActiveDoc.ActiveView.FrameTop = 88 swApp.ActiveDoc.ActiveView.FrameLeft = 221 swApp.ActiveDoc.ActiveView.FrameTop = 79 swApp.ActiveDoc.ActiveView.FrameLeft = 220 swApp.ActiveDoc.ActiveView.FrameTop = 79 swApp.ActiveDoc.ActiveView.FrameLeft = 207 swApp.ActiveDoc.ActiveView.FrameTop = 83 swApp.ActiveDoc.ActiveView.FrameLeft = 185 swApp.ActiveDoc.ActiveView.FrameTop = 92 swApp.ActiveDoc.ActiveView.FrameLeft = 171 swApp.ActiveDoc.ActiveView.FrameTop = 98 Part.ActiveView().RotateAboutCenter 0, 0.016013 Part.ActiveView().RotateAboutCenter -0.0602497, 0.336272 Part.ActiveView().RotateAboutCenter 0, 0.256208 Part.ActiveView().RotateAboutCenter -0.0150624, 0.0320259 Part.ActiveView().RotateAboutCenter -0.0150624, 0.544441 Part.ActiveView().RotateAboutCenter -0.0301249, 0.240195 Part.ActiveView().RotateAboutCenter -0.0451873, 0.144117 Part.ActiveView().RotateAboutCenter -0.105437, 0.208169 Part.ActiveView().RotateAboutCenter -0.0903746, 0.144117 Part.ActiveView().RotateAboutCenter -0.0150624, 0.016013 Part.ActiveView().RotateAboutCenter -0.0602497, 0.0960778 Part.ActiveView().RotateAboutCenter -0.0301249, 0.0800649 Part.ActiveView().RotateAboutCenter -0.0301249, 0.0640519 Part.ActiveView().RotateAboutCenter -0.0150624, 0.0800649 Part.ActiveView().RotateAboutCenter -0.0150624, 0.0480389 Part.ActiveView().RotateAboutCenter 0, 0.0960778 Part.ActiveView().RotateAboutCenter 0, 0.0800649 Part.ActiveView().RotateAboutCenter 0, 0.176143 Part.ActiveView().RotateAboutCenter 0.0150624, 0.0480389 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ViewZoomTo2 0.133521, 0.212779, 0.363569, 0.383253, 0.0247098, 0.363569 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.002481069207221, -0.03160746350579, 0.2490807952828, False, 0, Nothing) Part.EditSketch Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0007928214184574, -0.02553524057203, 0.249175480601, False, 0, Nothing) Part.ClearSelection Part.EditSketch Part.ViewZoomTo2 0.181985, 0.17348, 0.363569, 0.228169, 0.140981, 0.363569 boolstatus = Part.Extension.SelectByID("", "FACE", 0.00124334600406, -0.02539999999999, 0.2490870398432, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.005267062540554, -0.03174999999999, 0.2516725292588, True, 0, Nothing) Part.EditSketch Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", -0.0001695191517115, -0.02535657575788, 0.2476505052454, False, 0, Nothing) Part.ClearSelection Part.ActiveView().RotateAboutCenter 0, 0.0640519 Part.ActiveView().RotateAboutCenter 0.165687, 0.448363 Part.ActiveView().RotateAboutCenter 0.0903746, 0.304246 Part.ActiveView().RotateAboutCenter 0.0301249, 0.304246 Part.ActiveView().RotateAboutCenter 0.0150624, 0.224182 Part.ActiveView().RotateAboutCenter 0, 0.0640519 Part.ActiveView().RotateAboutCenter 0, 0.016013 Part.ActiveView().RotateAboutCenter 0.0150624, -0.0640519 Part.ActiveView().RotateAboutCenter 0.0150624, -0.480389 Part.ActiveView().RotateAboutCenter 0.0451873, -0.336272 Part.ActiveView().RotateAboutCenter 0, -0.0480389 Part.ActiveView().RotateAboutCenter 0.0150624, -0.016013 Part.ViewZoomtofit2 Part.ActiveView().RotateAboutCenter 0.0150624, 0.0480389 Part.ActiveView().RotateAboutCenter 0.120499, 0.352285 Part.ActiveView().RotateAboutCenter 0, 0.016013 Part.ActiveView().RotateAboutCenter 0, 0.0640519 Part.ActiveView().RotateAboutCenter 0.0602497, 0.288234 Part.ActiveView().RotateAboutCenter 0.0451873, 0.16013 Part.ActiveView().RotateAboutCenter 0.0150624, 0.144117 Part.ActiveView().RotateAboutCenter 0.0451873, 0.128104 Part.ActiveView().RotateAboutCenter 0, 0.016013 Part.ActiveView().RotateAboutCenter 0.0301249, 0.0320259 Part.ActiveView().RotateAboutCenter 0.105437, 0.112091 Part.ActiveView().RotateAboutCenter 0.0150624, 0.016013 Part.ActiveView().RotateAboutCenter 0.0602497, 0.0480389 Part.ActiveView().RotateAboutCenter 0.0753122, 0.0320259 Part.EditSketch Part.ViewZoomTo2 0.422435, 0.0816544, 0.363569, 0.621718, -0.117628, 0.363569 boolstatus = Part.Extension.SelectByID("", "EDGE", -0.001621999872384, -0.00912211941062, 0.2447130632108, False, 0, Nothing) Part.EditSketch ' MSGBOX ' Please select a planar face. Part.ActiveView().RotateAboutCenter 0, 0.016013 Part.ActiveView().RotateAboutCenter 0, 0.016013 Part.ActiveView().RotateAboutCenter 0.0301249, 0.208169 Part.ActiveView().RotateAboutCenter 0.0150624, 0.016013 Part.ActiveView().RotateAboutCenter 0.0602497, 0.128104 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.0753122, 0.0320259 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.0301249, 0 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0, -0.0960778 Part.ActiveView().RotateAboutCenter 0, -0.0640519 Part.ActiveView().RotateAboutCenter 0, -0.016013 Part.ActiveView().RotateAboutCenter -0.225936, -0.144117 Part.ActiveView().RotateAboutCenter -0.0903746, -0.0320259 Part.ActiveView().RotateAboutCenter -0.0903746, -0.0320259 Part.ActiveView().RotateAboutCenter -0.0753122, 0 Part.ActiveView().RotateAboutCenter -0.0301249, 0 Part.ActiveView().RotateAboutCenter -0.0602497, -0.016013 Part.ActiveView().RotateAboutCenter -0.0150624, 0 Part.ActiveView().RotateAboutCenter -0.0602497, -0.016013 Part.ActiveView().RotateAboutCenter -0.120499, -0.016013 Part.ActiveView().RotateAboutCenter -0.0150624, 0 Part.ActiveView().RotateAboutCenter -0.0301249, 0 Part.ActiveView().RotateAboutCenter -0.0753122, 0.0320259 Part.ActiveView().RotateAboutCenter -0.0301249, 0.016013 Part.ActiveView().RotateAboutCenter -0.0602497, 0 Part.ActiveView().RotateAboutCenter -0.135562, 0.016013 Part.ActiveView().RotateAboutCenter -0.0903746, 0 Part.ActiveView().RotateAboutCenter -0.0150624, 0 Part.ActiveView().RotateAboutCenter -0.120499, 0 Part.ActiveView().RotateAboutCenter -0.0451873, 0 Part.ActiveView().RotateAboutCenter -0.0150624, 0 Part.ActiveView().RotateAboutCenter -0.120499, 0 Part.ActiveView().RotateAboutCenter -0.0753122, -0.0320259 Part.ActiveView().RotateAboutCenter -0.105437, -0.208169 Part.ActiveView().RotateAboutCenter -0.0753122, -0.352285 Part.ActiveView().RotateAboutCenter 0, -0.0320259 Part.ActiveView().RotateAboutCenter 0, -0.016013 Part.ActiveView().RotateAboutCenter 0.0301249, -0.0480389 Part.ActiveView().RotateAboutCenter 0.0903746, 0 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.0451873, 0 Part.ActiveView().RotateAboutCenter 0.195812, 0.0480389 Part.ActiveView().RotateAboutCenter 0.120499, 0.0800649 Part.ActiveView().RotateAboutCenter 0.0451873, 0 Part.ActiveView().RotateAboutCenter 0.105437, 0.0800649 Part.ActiveView().RotateAboutCenter 0.0903746, 0.0480389 Part.ActiveView().RotateAboutCenter 0.0753122, 0.0480389 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.0903746, 0.0640519 Part.ActiveView().RotateAboutCenter 0.0451873, 0.0320259 Part.ActiveView().RotateAboutCenter 0.0451873, 0.016013 Part.ActiveView().RotateAboutCenter 0.271124, 0.112091 Part.ActiveView().RotateAboutCenter 0.135562, 0.0320259 Part.ActiveView().RotateAboutCenter 0.0451873, 0.016013 Part.ActiveView().RotateAboutCenter 0.0451873, 0.016013 Part.ActiveView().RotateAboutCenter 0.0903746, 0.016013 Part.ActiveView().RotateAboutCenter 0.105437, 0.0320259 Part.ActiveView().RotateAboutCenter 0.0602497, 0.016013 Part.ActiveView().RotateAboutCenter -0.0451873, -0.0320259 Part.ActiveView().RotateAboutCenter -0.135562, -0.112091 Part.ActiveView().RotateAboutCenter -0.0150624, -0.016013 Part.ActiveView().RotateAboutCenter -0.0451873, -0.0320259 Part.ActiveView().RotateAboutCenter -0.150624, -0.0800649 Part.ActiveView().RotateAboutCenter -0.0150624, -0.016013 Part.ActiveView().RotateAboutCenter -0.0301249, 0 Part.ActiveView().RotateAboutCenter -0.0451873, -0.016013 Part.ActiveView().RotateAboutCenter -0.0451873, -0.0640519 Part.ActiveView().RotateAboutCenter -0.0451873, -0.0320259 Part.ActiveView().RotateAboutCenter 0.0602497, 0.0480389 Part.ActiveView().RotateAboutCenter 0.195812, 0.144117 Part.ActiveView().RotateAboutCenter 0.0150624, 0 Part.ActiveView().RotateAboutCenter 0.0301249, 0 Part.ActiveView().RotateAboutCenter 0.0602497, 0.016013 Part.ActiveView().RotateAboutCenter 0.0301249, 0.016013 Part.ActiveView().RotateAboutCenter 0.0150624, 0.016013 Part.ActiveView().RotateAboutCenter 0.0602497, 0.016013 Part.ActiveView().RotateAboutCenter 0.0301249, 0.016013 Part.ActiveView().RotateAboutCenter 0.0602497, 0.016013 Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD - Sheet1") Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1331966273932, 0.2369980854197, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameWidth = 905 swApp.ActiveDoc.ActiveView.FrameHeight = 575 swApp.ActiveDoc.ActiveView.FrameWidth = 817 swApp.ActiveDoc.ActiveView.FrameHeight = 542 swApp.ActiveDoc.ActiveView.FrameWidth = 750 swApp.ActiveDoc.ActiveView.FrameHeight = 507 swApp.ActiveDoc.ActiveView.FrameWidth = 716 swApp.ActiveDoc.ActiveView.FrameHeight = 471 swApp.ActiveDoc.ActiveView.FrameWidth = 716 swApp.ActiveDoc.ActiveView.FrameHeight = 466 swApp.ActiveDoc.ActiveView.FrameWidth = 716 swApp.ActiveDoc.ActiveView.FrameHeight = 444 Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 73 swApp.ActiveDoc.ActiveView.FrameTop = 73 swApp.ActiveDoc.ActiveView.FrameWidth = 618 swApp.ActiveDoc.ActiveView.FrameHeight = 374 Set Part = swApp.ActivateDoc ("1 TAIL FLANGE TOP PART.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 949 swApp.ActiveDoc.ActiveView.FrameHeight = 620 swApp.ActiveDoc.ActiveView.FrameWidth = 912 swApp.ActiveDoc.ActiveView.FrameHeight = 560 swApp.ActiveDoc.ActiveView.FrameWidth = 749 swApp.ActiveDoc.ActiveView.FrameHeight = 416 swApp.ActiveDoc.ActiveView.FrameWidth = 701 swApp.ActiveDoc.ActiveView.FrameHeight = 380 swApp.ActiveDoc.ActiveView.FrameLeft = 4 swApp.ActiveDoc.ActiveView.FrameTop = 4 swApp.ActiveDoc.ActiveView.FrameLeft = 136 swApp.ActiveDoc.ActiveView.FrameTop = 64 swApp.ActiveDoc.ActiveView.FrameLeft = 230 swApp.ActiveDoc.ActiveView.FrameTop = 117 swApp.ActiveDoc.ActiveView.FrameLeft = 283 swApp.ActiveDoc.ActiveView.FrameTop = 158 swApp.ActiveDoc.ActiveView.FrameLeft = 281 swApp.ActiveDoc.ActiveView.FrameTop = 153 swApp.ActiveDoc.ActiveView.FrameLeft = 259 swApp.ActiveDoc.ActiveView.FrameTop = 129 swApp.ActiveDoc.ActiveView.FrameLeft = 258 swApp.ActiveDoc.ActiveView.FrameTop = 128 swApp.ActiveDoc.ActiveView.FrameLeft = 163 swApp.ActiveDoc.ActiveView.FrameTop = 89 swApp.ActiveDoc.ActiveView.FrameLeft = 120 swApp.ActiveDoc.ActiveView.FrameTop = 78 swApp.ActiveDoc.ActiveView.FrameLeft = 93 swApp.ActiveDoc.ActiveView.FrameTop = 73 swApp.ActiveDoc.ActiveView.FrameLeft = 88 swApp.ActiveDoc.ActiveView.FrameTop = 72 swApp.ActiveDoc.ActiveView.FrameLeft = 93 swApp.ActiveDoc.ActiveView.FrameTop = 73 swApp.ActiveDoc.ActiveView.FrameLeft = 265 swApp.ActiveDoc.ActiveView.FrameTop = 154 swApp.ActiveDoc.ActiveView.FrameLeft = 268 swApp.ActiveDoc.ActiveView.FrameTop = 155 swApp.ActiveDoc.ActiveView.FrameLeft = 268 swApp.ActiveDoc.ActiveView.FrameTop = 156 swApp.ActiveDoc.ActiveView.FrameLeft = 268 swApp.ActiveDoc.ActiveView.FrameTop = 168 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 949 swApp.ActiveDoc.ActiveView.FrameHeight = 627 boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TAIL FLANGE TOP PORT-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameWidth = 618 swApp.ActiveDoc.ActiveView.FrameHeight = 377 swApp.ActiveDoc.ActiveView.FrameWidth = 659 swApp.ActiveDoc.ActiveView.FrameHeight = 416 swApp.ActiveDoc.ActiveView.FrameWidth = 718 swApp.ActiveDoc.ActiveView.FrameHeight = 439 swApp.ActiveDoc.ActiveView.FrameWidth = 719 swApp.ActiveDoc.ActiveView.FrameHeight = 439 Part.ViewZoomTo2 -0.365624, 0.171648, -0.0156966, 0.0723331, -0.186681, -0.0156966 swApp.ActiveDoc.ActiveView.FrameLeft = 78 swApp.ActiveDoc.ActiveView.FrameTop = 70 swApp.ActiveDoc.ActiveView.FrameLeft = 109 swApp.ActiveDoc.ActiveView.FrameTop = 52 swApp.ActiveDoc.ActiveView.FrameLeft = 148 swApp.ActiveDoc.ActiveView.FrameTop = 40 swApp.ActiveDoc.ActiveView.FrameLeft = 159 swApp.ActiveDoc.ActiveView.FrameTop = 36 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = -10 swApp.ActiveDoc.ActiveView.FrameTop = 1 swApp.ActiveDoc.ActiveView.FrameLeft = -58 swApp.ActiveDoc.ActiveView.FrameTop = -2 swApp.ActiveDoc.ActiveView.FrameLeft = -63 swApp.ActiveDoc.ActiveView.FrameTop = -3 swApp.ActiveDoc.ActiveView.FrameWidth = 949 swApp.ActiveDoc.ActiveView.FrameHeight = 623 swApp.ActiveDoc.ActiveView.FrameWidth = 893 swApp.ActiveDoc.ActiveView.FrameHeight = 512 swApp.ActiveDoc.ActiveView.FrameWidth = 777 swApp.ActiveDoc.ActiveView.FrameHeight = 394 swApp.ActiveDoc.ActiveView.FrameWidth = 755 swApp.ActiveDoc.ActiveView.FrameHeight = 380 swApp.ActiveDoc.ActiveView.FrameWidth = 753 swApp.ActiveDoc.ActiveView.FrameHeight = 379 Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") Set Part = swApp.ActivateDoc ("1 TAIL FLANGE TOP PART.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 255 swApp.ActiveDoc.ActiveView.FrameTop = 158 swApp.ActiveDoc.ActiveView.FrameLeft = 201 swApp.ActiveDoc.ActiveView.FrameTop = 126 swApp.ActiveDoc.ActiveView.FrameLeft = 166 swApp.ActiveDoc.ActiveView.FrameTop = 115 swApp.ActiveDoc.ActiveView.FrameLeft = 148 swApp.ActiveDoc.ActiveView.FrameTop = 111 swApp.ActiveDoc.ActiveView.FrameLeft = 148 swApp.ActiveDoc.ActiveView.FrameTop = 110 swApp.ActiveDoc.ActiveView.FrameLeft = 153 swApp.ActiveDoc.ActiveView.FrameTop = 112 swApp.ActiveDoc.ActiveView.FrameLeft = 234 swApp.ActiveDoc.ActiveView.FrameTop = 143 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = -56 swApp.ActiveDoc.ActiveView.FrameTop = -3 swApp.ActiveDoc.ActiveView.FrameLeft = -27 swApp.ActiveDoc.ActiveView.FrameTop = 4 swApp.ActiveDoc.ActiveView.FrameLeft = 7 swApp.ActiveDoc.ActiveView.FrameTop = 12 swApp.ActiveDoc.ActiveView.FrameLeft = 16 swApp.ActiveDoc.ActiveView.FrameTop = 14 swApp.ActiveDoc.ActiveView.FrameLeft = 35 swApp.ActiveDoc.ActiveView.FrameTop = 19 swApp.ActiveDoc.ActiveView.FrameWidth = 753 swApp.ActiveDoc.ActiveView.FrameHeight = 380 swApp.ActiveDoc.ActiveView.FrameWidth = 782 swApp.ActiveDoc.ActiveView.FrameHeight = 434 swApp.ActiveDoc.ActiveView.FrameWidth = 798 swApp.ActiveDoc.ActiveView.FrameHeight = 472 swApp.ActiveDoc.ActiveView.FrameWidth = 801 swApp.ActiveDoc.ActiveView.FrameHeight = 479 boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TAIL FLANGE TOP PORT-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TAIL FLANGE TOP PORT-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") Part.ClearSelection Set Part = Nothing swApp.CloseDoc "TAIL FLANGE TOP PORT.SLDPRT" Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TAIL FLANGE TOP PORT-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 166 swApp.ActiveDoc.ActiveView.FrameTop = 37 swApp.ActiveDoc.ActiveView.FrameLeft = 175 swApp.ActiveDoc.ActiveView.FrameTop = 40 swApp.ActiveDoc.ActiveView.FrameLeft = 190 swApp.ActiveDoc.ActiveView.FrameTop = 47 swApp.ActiveDoc.ActiveView.FrameLeft = 197 swApp.ActiveDoc.ActiveView.FrameTop = 49 swApp.ActiveDoc.ActiveView.FrameLeft = 198 swApp.ActiveDoc.ActiveView.FrameTop = 49 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TAIL FLANGE TOP STARBOARD-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/TOP TAIL SHELL SUB ASSEMBLY-1@TAIL SHELL ASSEMBLY/TAIL FLANGE TOP STARBOARD-1@TOP TAIL SHELL SUB ASSEMBLY", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "G:\Drawings\TailSection\TAIL FLANGE TOP STARBOARD.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\TAIL FLANGE TOP STARBOARD.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD.SLDPRT") Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 154 swApp.ActiveDoc.ActiveView.FrameTop = 89 swApp.ActiveDoc.ActiveView.FrameLeft = 59 swApp.ActiveDoc.ActiveView.FrameTop = 41 swApp.ActiveDoc.ActiveView.FrameLeft = 48 swApp.ActiveDoc.ActiveView.FrameTop = 35 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameWidth = 667 swApp.ActiveDoc.ActiveView.FrameHeight = 461 swApp.ActiveDoc.ActiveView.FrameWidth = 717 swApp.ActiveDoc.ActiveView.FrameHeight = 479 swApp.ActiveDoc.ActiveView.FrameWidth = 753 swApp.ActiveDoc.ActiveView.FrameHeight = 500 swApp.ActiveDoc.ActiveView.FrameWidth = 771 swApp.ActiveDoc.ActiveView.FrameHeight = 512 Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.SelectionManager.EnableContourSelection = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 39 swApp.ActiveDoc.ActiveView.FrameTop = 37 swApp.ActiveDoc.ActiveView.FrameLeft = -41 swApp.ActiveDoc.ActiveView.FrameTop = 44 swApp.ActiveDoc.ActiveView.FrameLeft = -86 swApp.ActiveDoc.ActiveView.FrameTop = 82 swApp.ActiveDoc.ActiveView.FrameLeft = -105 swApp.ActiveDoc.ActiveView.FrameTop = 120 swApp.ActiveDoc.ActiveView.FrameLeft = -109 swApp.ActiveDoc.ActiveView.FrameTop = 195 swApp.ActiveDoc.ActiveView.FrameLeft = -96 swApp.ActiveDoc.ActiveView.FrameTop = 231 swApp.ActiveDoc.ActiveView.FrameLeft = -85 swApp.ActiveDoc.ActiveView.FrameTop = 238 swApp.ActiveDoc.ActiveView.FrameLeft = -85 swApp.ActiveDoc.ActiveView.FrameTop = 239 swApp.ActiveDoc.ActiveView.FrameLeft = -84 swApp.ActiveDoc.ActiveView.FrameTop = 235 swApp.ActiveDoc.ActiveView.FrameLeft = -84 swApp.ActiveDoc.ActiveView.FrameTop = 214 swApp.ActiveDoc.ActiveView.FrameLeft = -84 swApp.ActiveDoc.ActiveView.FrameTop = 200 swApp.ActiveDoc.ActiveView.FrameLeft = -86 swApp.ActiveDoc.ActiveView.FrameTop = 179 swApp.ActiveDoc.ActiveView.FrameLeft = -94 swApp.ActiveDoc.ActiveView.FrameTop = 136 swApp.ActiveDoc.ActiveView.FrameLeft = -101 swApp.ActiveDoc.ActiveView.FrameTop = 91 swApp.ActiveDoc.ActiveView.FrameLeft = -100 swApp.ActiveDoc.ActiveView.FrameTop = 57 swApp.ActiveDoc.ActiveView.FrameLeft = -93 swApp.ActiveDoc.ActiveView.FrameTop = 31 swApp.ActiveDoc.ActiveView.FrameLeft = -91 swApp.ActiveDoc.ActiveView.FrameTop = 27 Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") Part.ShowNamedView2 "*Front", 1 Part.ShowNamedView2 "*Back", 2 Part.ShowNamedView2 "*Left", 3 Part.ShowNamedView2 "*Right", 4 Part.ShowNamedView2 "*Top", 5 Part.ViewZoomTo2 -0.0422154, 0.370209, -0.0156966, 0.943188, -0.0976091, -0.0156966 swApp.ActiveDoc.ActiveView.FrameLeft = 186 swApp.ActiveDoc.ActiveView.FrameTop = 49 swApp.ActiveDoc.ActiveView.FrameLeft = 108 swApp.ActiveDoc.ActiveView.FrameTop = 32 swApp.ActiveDoc.ActiveView.FrameLeft = 83 swApp.ActiveDoc.ActiveView.FrameTop = 23 swApp.ActiveDoc.ActiveView.FrameLeft = 60 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameLeft = 54 swApp.ActiveDoc.ActiveView.FrameTop = 17 swApp.ActiveDoc.ActiveView.FrameLeft = 42 swApp.ActiveDoc.ActiveView.FrameTop = 14 swApp.ActiveDoc.ActiveView.FrameLeft = 13 swApp.ActiveDoc.ActiveView.FrameTop = 8 swApp.ActiveDoc.ActiveView.FrameWidth = 722 swApp.ActiveDoc.ActiveView.FrameHeight = 442 swApp.ActiveDoc.ActiveView.FrameWidth = 774 swApp.ActiveDoc.ActiveView.FrameHeight = 488 swApp.ActiveDoc.ActiveView.FrameWidth = 805 swApp.ActiveDoc.ActiveView.FrameHeight = 517 swApp.ActiveDoc.ActiveView.FrameWidth = 839 swApp.ActiveDoc.ActiveView.FrameHeight = 531 swApp.ActiveDoc.ActiveView.FrameWidth = 860 swApp.ActiveDoc.ActiveView.FrameHeight = 536 swApp.ActiveDoc.ActiveView.FrameWidth = 878 swApp.ActiveDoc.ActiveView.FrameHeight = 551 swApp.ActiveDoc.ActiveView.FrameWidth = 890 swApp.ActiveDoc.ActiveView.FrameHeight = 561 swApp.ActiveDoc.ActiveView.FrameWidth = 900 swApp.ActiveDoc.ActiveView.FrameHeight = 569 swApp.ActiveDoc.ActiveView.FrameWidth = 902 swApp.ActiveDoc.ActiveView.FrameHeight = 570 boolstatus = Part.Extension.SelectByID("", "FACE", -0.05249262287622, 0, -0.2461766790903, False, 0, Nothing) Part.InsertSketch2 True Part.ViewZoomTo2 -0.0420282, 0.32466, -0.0156966, 0.338181, 0.0909538, -0.0156966 Part.ViewDisplayWireframe Part.ClearSelection Part.CreateCircle 0.003175001622481, -0.2476508629691, 0, -0.006423234749571, -0.27644645274, 0 Part.ClearSelection Part.CreateCircle -0.2317749983775, -0.241942421522, 0, -0.2399320352295, -0.2710629645445, 0 Part.ClearSelection Part.CreateCircle -0.4667249983775, -0.2271703366656, 0, -0.4781513878806, -0.2562583720069, 0 Part.ClearSelection Part.CreateCircle -0.7016749983775, -0.1988036134658, 0, -0.706276700165, -0.227322122956, 0 Part.ClearSelection Part.CreateCircle -0.9366249983775, -0.1453725281193, 0, -0.9465148608894, -0.1721413689521, 0 Part.ClearSelection Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc5", "SKETCHSEGMENT", 0.9451689888405, -0.01569662527312, -0.1741601770254, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.881913, -5.74737e-016, -0.232706) Part.ClearSelection Part.Parameter("D1@Sketch1").SystemValue = 0.00635 boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", 0.7029120200428, -0.01569662527312, -0.2300138670538, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.825386, -5.37899e-016, -0.263661) Part.ClearSelection boolstatus = Part.Extension.SelectByID("D1@Sketch1@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D2@Sketch1").SystemValue = 0.00635 boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.4727678996851, -0.01569662527312, -0.2602959881535, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.554866, -3.61603e-016, -0.312785) Part.ClearSelection boolstatus = Part.Extension.SelectByID("D2@Sketch1@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D3@Sketch1").SystemValue = 0.00635 boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.2412779072784, -0.01569662527312, -0.2703900285201, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.307226, -2.00217e-016, -0.322206) Part.ClearSelection boolstatus = Part.Extension.SelectByID("D3@Sketch1@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D4@Sketch1").SystemValue = 0.00635 boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.00978791487176, -0.01569662527312, -0.2757735167156, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0602581, -3.92698e-017, -0.32086) Part.ClearSelection boolstatus = Part.Extension.SelectByID("D4@Sketch1@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D5@Sketch1").SystemValue = 0.00635 Part.ClearSelection Part.ClearSelection Part.FeatureManager.FeatureCut True, False, False, 1, 0, 0.00254, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ViewDisplayShaded swApp.ActiveDoc.ActiveView.FrameLeft = 11 swApp.ActiveDoc.ActiveView.FrameTop = 19 swApp.ActiveDoc.ActiveView.FrameLeft = -22 swApp.ActiveDoc.ActiveView.FrameTop = 213 swApp.ActiveDoc.ActiveView.FrameLeft = -24 swApp.ActiveDoc.ActiveView.FrameTop = 280 swApp.ActiveDoc.ActiveView.FrameLeft = -25 swApp.ActiveDoc.ActiveView.FrameTop = 285 swApp.ActiveDoc.ActiveView.FrameLeft = -25 swApp.ActiveDoc.ActiveView.FrameTop = 286 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = -25 swApp.ActiveDoc.ActiveView.FrameTop = 279 swApp.ActiveDoc.ActiveView.FrameLeft = -39 swApp.ActiveDoc.ActiveView.FrameTop = 219 swApp.ActiveDoc.ActiveView.FrameLeft = -61 swApp.ActiveDoc.ActiveView.FrameTop = 170 swApp.ActiveDoc.ActiveView.FrameLeft = -75 swApp.ActiveDoc.ActiveView.FrameTop = 124 swApp.ActiveDoc.ActiveView.FrameLeft = -76 swApp.ActiveDoc.ActiveView.FrameTop = 93 swApp.ActiveDoc.ActiveView.FrameLeft = -75 swApp.ActiveDoc.ActiveView.FrameTop = 56 swApp.ActiveDoc.ActiveView.FrameLeft = -72 swApp.ActiveDoc.ActiveView.FrameTop = 43 swApp.ActiveDoc.ActiveView.FrameLeft = -71 swApp.ActiveDoc.ActiveView.FrameTop = 38 swApp.ActiveDoc.ActiveView.FrameLeft = -79 swApp.ActiveDoc.ActiveView.FrameTop = 3 swApp.ActiveDoc.ActiveView.FrameLeft = -83 swApp.ActiveDoc.ActiveView.FrameTop = -7 swApp.ActiveDoc.ActiveView.FrameLeft = -83 swApp.ActiveDoc.ActiveView.FrameTop = -12 swApp.ActiveDoc.ActiveView.FrameWidth = 904 swApp.ActiveDoc.ActiveView.FrameHeight = 572 swApp.ActiveDoc.ActiveView.FrameWidth = 954 swApp.ActiveDoc.ActiveView.FrameHeight = 602 swApp.ActiveDoc.ActiveView.FrameWidth = 997 swApp.ActiveDoc.ActiveView.FrameHeight = 632 swApp.ActiveDoc.ActiveView.FrameWidth = 1022 swApp.ActiveDoc.ActiveView.FrameHeight = 632 swApp.ActiveDoc.ActiveView.FrameWidth = 1036 swApp.ActiveDoc.ActiveView.FrameHeight = 632 Part.ActiveView().RotateAboutCenter 0, -0.0225165 Part.ActiveView().RotateAboutCenter 0.00943826, -0.0675496 Part.ActiveView().RotateAboutCenter 0.0188765, -0.0675496 Part.ActiveView().RotateAboutCenter 0, -0.0225165 Part.ActiveView().RotateAboutCenter 0.0188765, -0.0112583 Part.ActiveView().RotateAboutCenter 0.0471913, -0.0225165 Part.ActiveView().RotateAboutCenter 0.0471913, -0.0225165 Part.ActiveView().RotateAboutCenter 0.0283148, -0.0112583 Part.ActiveView().RotateAboutCenter 0.0283148, 0 Part.ActiveView().RotateAboutCenter 0.0566296, -0.0112583 Part.ActiveView().RotateAboutCenter 0.037753, 0 Part.ActiveView().RotateAboutCenter 0.00943826, 0 Part.ActiveView().RotateAboutCenter 0.00943826, 0 Part.ActiveView().RotateAboutCenter 0, -0.0112583 Part.ActiveView().RotateAboutCenter 0, -0.0112583 Part.ActiveView().RotateAboutCenter 0, -0.0112583 Part.ActiveView().RotateAboutCenter -0.00943826, 0 Part.ActiveView().RotateAboutCenter -0.0566296, 0.0112583 Part.ActiveView().RotateAboutCenter -0.0471913, 0.0225165 Part.ActiveView().RotateAboutCenter -0.0283148, 0.0225165 Part.ActiveView().RotateAboutCenter -0.00943826, 0.0112583 Part.ActiveView().RotateAboutCenter 0, 0.0112583 Part.ActiveView().RotateAboutCenter 0, 0.0225165 Part.ActiveView().RotateAboutCenter 0, 0.0450331 Part.ActiveView().RotateAboutCenter 0.0188765, 0.0450331 Part.ActiveView().RotateAboutCenter 0.00943826, 0.0225165 Part.ActiveView().RotateAboutCenter 0, 0.0112583 boolstatus = Part.Extension.SelectByID("", "FACE", -0.002134815539627, -0.009525000000053, -0.2397484461378, False, 0, Nothing) Part.InsertSketch2 True Part.ViewZoomTo2 -0.112344, 0.0795141, -0.00617163, 0.117612, -0.234915, -0.00617163 Part.ClearSelection Part.CreateCircle 0.003277055027825, -0.2472411301773, 0, 0.02098380274853, -0.254216515643, 0 Part.ClearSelection Part.CreateCircle -0.2317749983775, -0.241942421522, 0, -0.2113501900717, -0.2515336750793, 0 Part.ClearSelection Part.CreateCircle -0.4667249983775, -0.2271703366656, 0, -0.4388550698772, -0.2354366316968, 0 Part.ClearSelection Part.CreateCircle -0.7016749983775, -0.1988036134658, 0, -0.6829935611778, -0.2043156811574, 0 Part.ClearSelection Part.CreateCircle -0.9366249983775, -0.1453725281193, 0, -0.9019133511793, -0.147439461206, 0 Part.ClearSelection boolstatus = Part.Extension.SelectByID("Arc5", "SKETCHSEGMENT", 0.9271320524785, -0.01569662527313, -0.1790969798582, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.897621, -0.009525, -0.251534) Part.ClearSelection Part.Parameter("D1@Sketch2").SystemValue = 0.0087376 boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", 0.716797352281, -0.01569662527313, -0.2123642028486, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.735577, -0.009525, -0.266558) Part.ClearSelection boolstatus = Part.Extension.SelectByID("D1@Sketch2@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D2@Sketch2").SystemValue = 0.0087376 boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.4458304553429, -0.01569662527313, -0.2483142664028, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.426514, -0.009525, -0.317532) Part.ClearSelection boolstatus = Part.Extension.SelectByID("D2@Sketch2@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D3@Sketch2").SystemValue = 0.0087376 boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.2247643928904, -0.01569662527313, -0.2638747416725, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.189351, -0.009525, -0.319141) Part.ClearSelection boolstatus = Part.Extension.SelectByID("D3@Sketch2@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D4@Sketch2").SystemValue = 0.0087376 boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.01078900860631, -0.01569662527313, -0.2654844460108, False, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0429831, -0.009525, -0.303044) Part.ClearSelection boolstatus = Part.Extension.SelectByID("D4@Sketch2@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D5@Sketch2").SystemValue = 0.0087376 Part.ClearSelection boolstatus = Part.Extension.SelectByID("D5@Sketch2@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.00762, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ActiveView().RotateAboutCenter 0, -0.0112583 Part.ActiveView().RotateAboutCenter 0.00943826, 0 Part.ActiveView().RotateAboutCenter 0.037753, 0 Part.ActiveView().RotateAboutCenter 0.0566296, 0 Part.ActiveView().RotateAboutCenter 0.00943826, 0 Part.ActiveView().RotateAboutCenter 0, 0.0112583 Part.ActiveView().RotateAboutCenter 0.00943826, 0.0112583 Part.ActiveView().RotateAboutCenter 0, 0.0112583 Part.ActiveView().RotateAboutCenter 0.0188765, 0.0112583 Part.ActiveView().RotateAboutCenter 0.0283148, 0.0225165 Part.ActiveView().RotateAboutCenter 0.00943826, 0 Part.ActiveView().RotateAboutCenter 0.0471913, 0 Part.ActiveView().RotateAboutCenter 0.037753, 0 Part.ActiveView().RotateAboutCenter 0.0566296, 0 Part.ActiveView().RotateAboutCenter 0.0566296, 0 Part.ActiveView().RotateAboutCenter 0.0188765, 0 Part.ActiveView().RotateAboutCenter 0.0283148, 0 Part.ActiveView().RotateAboutCenter 0.0188765, 0 Part.ActiveView().RotateAboutCenter 0.0566296, 0 Part.ActiveView().RotateAboutCenter 0.0283148, 0 Part.ActiveView().RotateAboutCenter 0.00943826, 0 Part.ActiveView().RotateAboutCenter 0.0283148, 0 Part.ActiveView().RotateAboutCenter 0.0566296, 0.0450331 Part.ActiveView().RotateAboutCenter 0.037753, 0.0337748 Part.ActiveView().RotateAboutCenter 0.0471913, 0.0450331 Part.ActiveView().RotateAboutCenter 0.0188765, 0.0112583 Part.ActiveView().RotateAboutCenter 0.00943826, 0 Part.ActiveView().RotateAboutCenter 0.037753, 0.0788079 Part.ActiveView().RotateAboutCenter 0, 0.0450331 Part.ActiveView().RotateAboutCenter 0, 0.0112583 Part.ActiveView().RotateAboutCenter 0, 0.0112583 Part.ActiveView().RotateAboutCenter 0, 0.0675496 Part.ActiveView().RotateAboutCenter 0, 0.180132 Part.ActiveView().RotateAboutCenter 0, 0.0675496 Part.ActiveView().RotateAboutCenter 0, 0.0112583 Part.ActiveView().RotateAboutCenter 0, 0.0788079 Part.ActiveView().RotateAboutCenter 0, 0.0112583 Part.ViewZoomtofit2 Part.ActiveView().RotateAboutCenter 0, 0.0112583 Part.ActiveView().RotateAboutCenter 0, 0.0112583 Part.ActiveView().RotateAboutCenter 0.00943826, 0.0225165 Part.ActiveView().RotateAboutCenter 0.0283148, 0.0450331 Part.ActiveView().RotateAboutCenter 0.103821, 0.112583 Part.ActiveView().RotateAboutCenter 0.113259, 0.112583 Part.ActiveView().RotateAboutCenter 0.0943826, 0.123841 Part.ActiveView().RotateAboutCenter 0.00943826, 0.0112583 Part.ActiveView().RotateAboutCenter 0.132136, 0.135099 Part.ActiveView().RotateAboutCenter 0.0943826, 0.0675496 Part.ActiveView().RotateAboutCenter 0.103821, 0.0450331 Part.ActiveView().RotateAboutCenter 0.169889, 0.0225165 Part.ActiveView().RotateAboutCenter 0.141574, 0.0112583 Part.ActiveView().RotateAboutCenter 0.122697, 0.0112583 Part.ActiveView().RotateAboutCenter 0.0755061, 0.0112583 Part.ActiveView().RotateAboutCenter 0.0283148, 0 Part.ActiveView().RotateAboutCenter 0.0283148, 0 Part.ActiveView().RotateAboutCenter 0.00943826, 0.0112583 Part.ActiveView().RotateAboutCenter 0.0943826, 0.157616 Part.ActiveView().RotateAboutCenter 0, 0.0112583 Part.ActiveView().RotateAboutCenter 0.00943826, 0.0112583 Part.ActiveView().RotateAboutCenter 0.0471913, 0.101324 Part.ActiveView().RotateAboutCenter 0.00943826, 0.0112583 boolstatus = Part.Extension.SelectByID("", "FACE", 0.3936226019599, -0.03175000000005, -0.2303843194462, False, 0, Nothing) Part.InsertSketch2 True Part.ViewZoomTo2 -0.165033, 0.548622, -0.0160534, 0.121238, 0.161452, -0.0160534 Part.ClearSelection Part.CreateCircle -0.003175001622481, -0.2476508629691, 0, -0.02094776459171, -0.2404319206569, 0 Part.ClearSelection Part.CreateCircle 0.2317749983775, -0.241942421522, 0, 0.2142612722953, -0.2351463243224, 0 Part.ClearSelection Part.CreateCircle 0.4667249983775, -0.2271703366656, 0, 0.4547559055169, -0.2199502348606, 0 Part.ClearSelection Part.CreateCircle 0.7016749983775, -0.1988036134658, 0, 0.6793937497349, -0.189558055937, 0 Part.ClearSelection Part.CreateCircle 0.9366249983775, -0.1453725281193, 0, 0.9245132797491, -0.138684191217, 0 Part.ClearSelection boolstatus = Part.Extension.SelectByID("Arc5", "SKETCHSEGMENT", 0.9245132797491, -0.01569662527312, -0.1393448907588, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.888836, -0.03175, -0.0825247) Part.ClearSelection Part.Parameter("D1@Sketch3").SystemValue = 0.0127 boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", 0.7111073277421, -0.01569662527312, -0.1776654641843, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.736214, -0.03175, -0.114899) Part.ClearSelection boolstatus = Part.Extension.SelectByID("D1@Sketch3@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D2@Sketch3").SystemValue = 0.0127 boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", 0.4666484972696, -0.03174999999982, -0.2120218403588, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.425024, -0.03175, -0.145952) Part.ClearSelection boolstatus = Part.Extension.SelectByID("D2@Sketch3@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D3@Sketch3").SystemValue = 0.0127 boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.2248324649644, -0.01569662527312, -0.2232537325697, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.177262, -0.03175, -0.167094) Part.ClearSelection boolstatus = Part.Extension.SelectByID("D3@Sketch3@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D4@Sketch3").SystemValue = 0.0127 boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.01473001066644, -0.01569662527312, -0.2391105215733, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.00746232, -0.03175, -0.170398) Part.ClearSelection boolstatus = Part.Extension.SelectByID("D4@Sketch3@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.Parameter("D5@Sketch3").SystemValue = 0.0127 Part.ClearSelection boolstatus = Part.Extension.SelectByID("D5@Sketch3@TAIL FLANGE TOP PORT.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.FeatureManager.FeatureCut True, False, False, 0, 0, 0.00635, 0.00762, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.ActiveView().RotateAboutCenter 0.00943826, 0 Part.ActiveView().RotateAboutCenter 0.0566296, 0.0225165 Part.ActiveView().RotateAboutCenter 0.0849444, 0 Part.ActiveView().RotateAboutCenter 0.0566296, 0 Part.ActiveView().RotateAboutCenter 0.00943826, 0 Part.ActiveView().RotateAboutCenter 0.00943826, 0 Part.ActiveView().RotateAboutCenter 0.103821, -0.0562913 Part.ActiveView().RotateAboutCenter 0.0471913, -0.0112583 Part.ActiveView().RotateAboutCenter 0.0471913, 0.0450331 Part.ActiveView().RotateAboutCenter 0.0188765, 0.0337748 Part.ActiveView().RotateAboutCenter 0.0283148, 0.0900661 Part.ActiveView().RotateAboutCenter 0.00943826, 0.0225165 Part.ActiveView().RotateAboutCenter 0.0471913, 0.123841 Part.ActiveView().RotateAboutCenter 0.103821, 0.202649 Part.ActiveView().RotateAboutCenter 0.037753, 0.0675496 Part.ActiveView().RotateAboutCenter 0.0755061, 0.146357 Part.ActiveView().RotateAboutCenter 0.037753, 0.0675496 Part.ActiveView().RotateAboutCenter 0, 0.0112583 Part.ActiveView().RotateAboutCenter 0, 0.0225165 Part.ActiveView().RotateAboutCenter 0.00943826, 0.0900661 Part.ActiveView().RotateAboutCenter 0, 0.0112583 Part.ActiveView().RotateAboutCenter 0.00943826, 0 Part.ViewZoomtofit2 swApp.ActiveDoc.ActiveView.FrameLeft = -84 swApp.ActiveDoc.ActiveView.FrameTop = -4 swApp.ActiveDoc.ActiveView.FrameLeft = -94 swApp.ActiveDoc.ActiveView.FrameTop = 36 swApp.ActiveDoc.ActiveView.FrameLeft = -107 swApp.ActiveDoc.ActiveView.FrameTop = 50 swApp.ActiveDoc.ActiveView.FrameLeft = -107 swApp.ActiveDoc.ActiveView.FrameTop = 51 swApp.ActiveDoc.ActiveView.FrameLeft = -107 swApp.ActiveDoc.ActiveView.FrameTop = 51 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 35 swApp.ActiveDoc.ActiveView.FrameTop = 19 Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = -89 swApp.ActiveDoc.ActiveView.FrameTop = 29 swApp.ActiveDoc.ActiveView.FrameLeft = -76 swApp.ActiveDoc.ActiveView.FrameTop = 55 swApp.ActiveDoc.ActiveView.FrameLeft = -76 swApp.ActiveDoc.ActiveView.FrameTop = 56 Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = -76 swApp.ActiveDoc.ActiveView.FrameTop = 56 Set Part = swApp.ActivateDoc ("1 TAIL FLANGE TOP PART.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 233 swApp.ActiveDoc.ActiveView.FrameTop = 143 swApp.ActiveDoc.ActiveView.FrameLeft = 205 swApp.ActiveDoc.ActiveView.FrameTop = 136 swApp.ActiveDoc.ActiveView.FrameLeft = 193 swApp.ActiveDoc.ActiveView.FrameTop = 130 swApp.ActiveDoc.ActiveView.FrameLeft = 188 swApp.ActiveDoc.ActiveView.FrameTop = 128 Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = -107 swApp.ActiveDoc.ActiveView.FrameTop = 51 swApp.ActiveDoc.ActiveView.FrameWidth = 1036 swApp.ActiveDoc.ActiveView.FrameHeight = 632 Part.Save2 FALSE Part.ClearSelection Set Part = Nothing swApp.CloseDoc "TAIL FLANGE TOP PORT.SLDPRT" Set Part = swApp.ActivateDoc ("1 TAIL FLANGE TOP PART.SLDPRT") Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 196 swApp.ActiveDoc.ActiveView.FrameTop = 125 swApp.ActiveDoc.ActiveView.FrameLeft = 228 swApp.ActiveDoc.ActiveView.FrameTop = 116 swApp.ActiveDoc.ActiveView.FrameLeft = 232 swApp.ActiveDoc.ActiveView.FrameTop = 113 Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = -76 swApp.ActiveDoc.ActiveView.FrameTop = 56 swApp.ActiveDoc.ActiveView.FrameWidth = 771 swApp.ActiveDoc.ActiveView.FrameHeight = 512 swApp.ActiveDoc.ActiveView.FrameLeft = -69 swApp.ActiveDoc.ActiveView.FrameTop = 55 swApp.ActiveDoc.ActiveView.FrameLeft = -11 swApp.ActiveDoc.ActiveView.FrameTop = 53 swApp.ActiveDoc.ActiveView.FrameLeft = 26 swApp.ActiveDoc.ActiveView.FrameTop = 43 swApp.ActiveDoc.ActiveView.FrameLeft = 52 swApp.ActiveDoc.ActiveView.FrameTop = 33 swApp.ActiveDoc.ActiveView.FrameLeft = 66 swApp.ActiveDoc.ActiveView.FrameTop = 29 swApp.ActiveDoc.ActiveView.FrameLeft = 90 swApp.ActiveDoc.ActiveView.FrameTop = 29 swApp.ActiveDoc.ActiveView.FrameLeft = 113 swApp.ActiveDoc.ActiveView.FrameTop = 29 swApp.ActiveDoc.ActiveView.FrameLeft = 120 swApp.ActiveDoc.ActiveView.FrameTop = 29 swApp.LoadFile2 "G:\Drawings\TailSection\ShopDrawings\TailFlangeTopPort.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\ShopDrawings\TailFlangeTopPort.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TailFlangeTopPort - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.141502027027, 0.225108872973, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View2", "DIMENSION", 0.1248368810811, 0.2548680621622, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View2", "DIMENSION", 0.1248368810811, 0.2548680621622, 0, False, 0, Nothing) Part.HideDimension Part.ClearSelection Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.105791, 0.1572579216216, 0, False, 0, Nothing) Part.ViewZoomTo2 0.0599618, 0.120357, -2.92644e-015, 0.118885, 0.0786937, -2.63551e-015 Part.ViewZoomTo2 0.0810627, 0.212474, -3.00223e-015, 0.0889457, 0.204592, -2.94718e-015 boolstatus = Part.Extension.SelectByID("", "FACE", 0.08418333531118, 0.2093082716637, -3499.223828375, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 949 swApp.ActiveDoc.ActiveView.FrameHeight = 620 swApp.ActiveDoc.ActiveView.FrameWidth = 856 swApp.ActiveDoc.ActiveView.FrameHeight = 549 swApp.ActiveDoc.ActiveView.FrameWidth = 536 swApp.ActiveDoc.ActiveView.FrameHeight = 421 swApp.ActiveDoc.ActiveView.FrameWidth = 528 swApp.ActiveDoc.ActiveView.FrameHeight = 422 swApp.ActiveDoc.ActiveView.FrameLeft = -2 swApp.ActiveDoc.ActiveView.FrameTop = 6 swApp.ActiveDoc.ActiveView.FrameLeft = 59 swApp.ActiveDoc.ActiveView.FrameTop = 101 swApp.ActiveDoc.ActiveView.FrameLeft = 142 swApp.ActiveDoc.ActiveView.FrameTop = 183 swApp.ActiveDoc.ActiveView.FrameLeft = 187 swApp.ActiveDoc.ActiveView.FrameTop = 210 swApp.ActiveDoc.ActiveView.FrameLeft = 214 swApp.ActiveDoc.ActiveView.FrameTop = 218 swApp.ActiveDoc.ActiveView.FrameLeft = 219 swApp.ActiveDoc.ActiveView.FrameTop = 219 swApp.ActiveDoc.ActiveView.FrameLeft = 229 swApp.ActiveDoc.ActiveView.FrameTop = 217 swApp.ActiveDoc.ActiveView.FrameLeft = 240 swApp.ActiveDoc.ActiveView.FrameTop = 208 swApp.ActiveDoc.ActiveView.FrameLeft = 257 swApp.ActiveDoc.ActiveView.FrameTop = 185 swApp.ActiveDoc.ActiveView.FrameLeft = 265 swApp.ActiveDoc.ActiveView.FrameTop = 161 swApp.ActiveDoc.ActiveView.FrameLeft = 279 swApp.ActiveDoc.ActiveView.FrameTop = 146 swApp.ActiveDoc.ActiveView.FrameLeft = 284 swApp.ActiveDoc.ActiveView.FrameTop = 137 swApp.ActiveDoc.ActiveView.FrameLeft = 284 swApp.ActiveDoc.ActiveView.FrameTop = 135 swApp.ActiveDoc.ActiveView.FrameLeft = 257 swApp.ActiveDoc.ActiveView.FrameTop = 120 swApp.ActiveDoc.ActiveView.FrameLeft = 255 swApp.ActiveDoc.ActiveView.FrameTop = 120 swApp.LoadFile2 "G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\TAIL FLANGE TOP PORT.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") Part.ActiveView().RotateAboutCenter 0.00943826, 0 Part.ActiveView().RotateAboutCenter 0.0471913, -0.101324 Part.ActiveView().RotateAboutCenter 0.0660678, -0.51788 Part.ActiveView().RotateAboutCenter 0.0188765, -0.135099 Part.ActiveView().RotateAboutCenter 0.0471913, -0.157616 Part.ActiveView().RotateAboutCenter 0.0188765, -0.135099 Part.ActiveView().RotateAboutCenter 0.0566296, -0.0562913 Part.ActiveView().RotateAboutCenter 0.132136, -0.146357 Part.ActiveView().RotateAboutCenter 0.151012, -0.0900661 Part.ActiveView().RotateAboutCenter 0.188765, -0.0450331 Part.ActiveView().RotateAboutCenter 0.198203, -0.0450331 Part.ActiveView().RotateAboutCenter 0.245395, -0.123841 Part.ActiveView().RotateAboutCenter 0.245395, -0.225165 Part.ActiveView().RotateAboutCenter 0.113259, -0.112583 Part.ActiveView().RotateAboutCenter 0.0660678, -0.0675496 Part.ActiveView().RotateAboutCenter 0.0660678, -0.0450331 Part.ActiveView().RotateAboutCenter 0.103821, -0.0225165 Part.ActiveView().RotateAboutCenter 0.0849444, -0.0112583 Part.ActiveView().RotateAboutCenter 0.037753, 0 Part.ActiveView().RotateAboutCenter 0.0943826, 0 Part.ActiveView().RotateAboutCenter 0.0471913, 0.0225165 Part.ActiveView().RotateAboutCenter 0.00943826, 0 Part.ActiveView().RotateAboutCenter 0.0471913, 0.0225165 Part.ActiveView().RotateAboutCenter 0.037753, 0.0337748 Part.ActiveView().RotateAboutCenter 0.0566296, 0.0450331 Part.ActiveView().RotateAboutCenter 0.00943826, 0.0112583 boolstatus = Part.Extension.SelectByID("", "FACE", 0.1126410599086, 0, -0.2456421672645, False, 0, Nothing) Part.ViewZoomTo2 0.0272423, 0.0631633, -0.0156966, 0.192243, -0.0510678, -0.0156966 Part.ViewZoomTo2 0.104195, 0.0112409, -0.0156966, 0.140547, -0.0206262, -0.0156966 Part.EditSketch Part.ViewDisplayHiddengreyed boolstatus = Part.Extension.SelectByID("", "EDGE", -0.007391615279147, -0.009524999999996, -0.2456560053816, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.007391615279147, -0.009524999999996, -0.2456560053816, False, 0, Nothing) Part.ViewDisplayShaded swApp.ActiveDoc.ActiveView.FrameLeft = -105 swApp.ActiveDoc.ActiveView.FrameTop = 45 swApp.ActiveDoc.ActiveView.FrameLeft = -130 swApp.ActiveDoc.ActiveView.FrameTop = 7 swApp.ActiveDoc.ActiveView.FrameLeft = -132 swApp.ActiveDoc.ActiveView.FrameTop = -3 swApp.ActiveDoc.ActiveView.FrameLeft = -132 swApp.ActiveDoc.ActiveView.FrameTop = -12 swApp.ActiveDoc.ActiveView.FrameWidth = 1036 swApp.ActiveDoc.ActiveView.FrameHeight = 628 swApp.ActiveDoc.ActiveView.FrameWidth = 983 swApp.ActiveDoc.ActiveView.FrameHeight = 573 swApp.ActiveDoc.ActiveView.FrameWidth = 944 swApp.ActiveDoc.ActiveView.FrameHeight = 556 Part.ActiveView().ZoomByFactor 0.934579 Part.ActiveView().ZoomByFactor 0.869565 Part.ActiveView().ZoomByFactor 0.819672 Part.ActiveView().ZoomByFactor 0.892857 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.990099 swApp.ActiveDoc.ActiveView.FrameLeft = -124 swApp.ActiveDoc.ActiveView.FrameTop = -8 swApp.ActiveDoc.ActiveView.FrameLeft = -25 swApp.ActiveDoc.ActiveView.FrameTop = 41 swApp.ActiveDoc.ActiveView.FrameLeft = -4 swApp.ActiveDoc.ActiveView.FrameTop = 47 swApp.ActiveDoc.ActiveView.FrameLeft = -3 swApp.ActiveDoc.ActiveView.FrameTop = 47 swApp.ActiveDoc.ActiveView.FrameLeft = -3 swApp.ActiveDoc.ActiveView.FrameTop = 43 boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.729927 Part.ActiveView().ZoomByFactor 0.826446 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.934579 Part.ActiveView().ZoomByFactor 0.877193 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.892857 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.990099 Part.ViewZoomTo2 0.0801107, 0.0365095, -0.0156966, 0.243249, -0.124958, -0.0156966 boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.00637962803765, -0.009524999999996, -0.2439376436246, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.003277055027825, -0.2472411301773, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.003277055027825, -0.2472411301773, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection Part.ViewDisplayHiddengreyed Part.ViewZoomTo2 0.104216, 0.0127642, -0.0156966, 0.153606, -0.0340931, -0.0156966 boolstatus = Part.Extension.SelectByID("", "EDGE", -0.005010163557332, -0.009524999999996, -0.2505068517528, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.006388319108694, -0.009524999999996, -0.250414974716, True, 0, Nothing) Part.SketchAddConstraints "sgCONCENTRIC" Part.ClearSelection Part.ViewDisplayShaded Part.ActiveView().RotateAboutCenter -0.0108688, 0 Part.ActiveView().RotateAboutCenter -0.0326063, -0.0388079 Part.ActiveView().RotateAboutCenter -0.0434751, -0.0646798 Part.ActiveView().RotateAboutCenter -0.108688, 0.0258719 Part.ActiveView().RotateAboutCenter -0.0434751, 0.0388079 Part.ActiveView().RotateAboutCenter 0.0108688, 0.0258719 Part.ActiveView().RotateAboutCenter 0.0108688, 0.012936 Part.ActiveView().RotateAboutCenter 0, 0.012936 Part.ActiveView().RotateAboutCenter 0.0108688, 0 Part.ActiveView().RotateAboutCenter 0.0108688, 0.012936 Part.ActiveView().RotateAboutCenter 0.0217375, 0.012936 Part.ActiveView().RotateAboutCenter 0.0326063, 0 Part.ActiveView().RotateAboutCenter 0, 0.012936 Part.ActiveView().RotateAboutCenter 0.0869502, 0 Part.ActiveView().RotateAboutCenter 0.0543439, 0 Part.ActiveView().RotateAboutCenter 0.0108688, 0 Part.InsertSketch2 True swApp.ActiveDoc.ActiveView.FrameLeft = -3 swApp.ActiveDoc.ActiveView.FrameTop = 43 Set Part = swApp.ActivateDoc ("TailFlangeTopPort - Sheet1") boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1653846406356, 0.2121283181631, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 246 swApp.ActiveDoc.ActiveView.FrameTop = 112 swApp.ActiveDoc.ActiveView.FrameLeft = 52 swApp.ActiveDoc.ActiveView.FrameTop = 29 swApp.ActiveDoc.ActiveView.FrameLeft = 32 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameWidth = 529 swApp.ActiveDoc.ActiveView.FrameHeight = 422 swApp.ActiveDoc.ActiveView.FrameWidth = 630 swApp.ActiveDoc.ActiveView.FrameHeight = 453 swApp.ActiveDoc.ActiveView.FrameWidth = 742 swApp.ActiveDoc.ActiveView.FrameHeight = 511 swApp.ActiveDoc.ActiveView.FrameWidth = 809 swApp.ActiveDoc.ActiveView.FrameHeight = 536 swApp.ActiveDoc.ActiveView.FrameWidth = 853 swApp.ActiveDoc.ActiveView.FrameHeight = 551 swApp.ActiveDoc.ActiveView.FrameWidth = 866 swApp.ActiveDoc.ActiveView.FrameHeight = 550 Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0520411, 0.229457, -3.12223e-015, 0.140407, 0.169619, -2.70438e-015 boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.09559567642236, 0.2218737419495, 0, False, 0, Nothing) Part.ViewZoomTo2 0.0799607, 0.213358, -3.15388e-015, 0.0929433, 0.203028, -3.08174e-015 boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.08512913649426, 0.2117618205676, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.08504709787535, 0.2117823302224, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08357040273506, 0.2088904688815, -3499.231448375, False, 0, Nothing) Part.AddHoleCallout2 0.0880415, 0.211905, -3.17306e-015 Part.ViewZoomtofit2 Part.ViewZoomTo2 0.0485622, 0.241981, -3.28619e-015, 0.197462, 0.116043, -2.40677e-015 boolstatus = Part.Extension.SelectByID("RD2@Drawing View2", "DIMENSION", 0.08965319369217, 0.2127456794177, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD2@Drawing View2", "DIMENSION", 0.1191387377379, 0.2399823260363, 0, False, 0, Nothing) Part.ClearSelection Part.EditUndo 1 Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.121637512657, 0.1595217736403, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection Part.CreateCircle -0.4439437367901, -0.06041874495376, 0, -0.475928055755, 0.06951755084101, 0 Part.CreateDetailViewAt3 0.03467350837989, 0.1006067039106, 0, 0, 1.000000, 4.000000, "A", 1, 0 Part.ClearSelection Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection Part.EditUndo 1 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.06791385189573, 0.06581771417287, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.09065270365982, 0.07656244632513, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.09065270365982, 0.07656244632513, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.07016274932295, 0.05807151192357, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.06666446443617, 0.06007053185887, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.0691632393553, 0.06131991931844, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.07890846153991, 0.07931109873618, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.07890846153991, 0.07931109873618, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch Part.EditSketch Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "TailFlangeTopPort - Sheet1" Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD.SLDPRT") Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD - Sheet1") boolstatus = Part.Extension.SelectByID("RD1@Drawing View2", "DIMENSION", 0.1196971055901, 0.201707552795, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View2", "DIMENSION", 0.1196971055901, 0.2044431801242, 0, False, 0, Nothing) Part.HideDimension Part.ClearSelection ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.SaveAs2 "G:\Drawings\TailSection\ShopDrawings\TailFlangeTopStbd.SLDDRW", 0, FALSE, FALSE Part.EditSketch Set Part = Nothing swApp.CloseDoc "TailFlangeTopStbd - Sheet1" Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP STARBOARD.SLDPRT") Part.ClearSelection Set Part = Nothing swApp.CloseDoc "TAIL FLANGE TOP STARBOARD.SLDPRT" Set Part = swApp.ActivateDoc ("1 TAIL FLANGE TOP PART.SLDPRT") Set Part = swApp.ActivateDoc ("TAIL FLANGE TOP PORT.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = -3 swApp.ActiveDoc.ActiveView.FrameTop = 43 swApp.ActiveDoc.ActiveView.FrameWidth = 944 swApp.ActiveDoc.ActiveView.FrameHeight = 556 Set Part = Nothing swApp.CloseDoc "TAIL FLANGE TOP PORT.SLDPRT" Set Part = swApp.ActivateDoc ("1 TAIL FLANGE TOP PART.SLDPRT") Set Part = Nothing swApp.CloseDoc "1 TAIL FLANGE TOP PART.SLDPRT" Set Part = swApp.ActivateDoc ("0 TAIL FLANGE BASE PART.SLDPRT") Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 35 swApp.ActiveDoc.ActiveView.FrameTop = 19 swApp.ActiveDoc.ActiveView.FrameWidth = 801 swApp.ActiveDoc.ActiveView.FrameHeight = 479 boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/Tail Botttom Port Flange w inserts-2@BOTTOM TAIL SHELL SUB-ASSEMBLY/TAIL FLANGE BOTTOM PORT-1@Tail Botttom Port Flange w inserts", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/Tail Botttom Port Flange w inserts-2@BOTTOM TAIL SHELL SUB-ASSEMBLY/TAIL FLANGE BOTTOM PORT-1@Tail Botttom Port Flange w inserts", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/Tail Botttom Port Flange w inserts-2@BOTTOM TAIL SHELL SUB-ASSEMBLY/HEX FLANGED INSERTRevB-1@Tail Botttom Port Flange w inserts", "COMPONENT", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/Tail Botttom Port Flange w inserts-2@BOTTOM TAIL SHELL SUB-ASSEMBLY/HEX FLANGED INSERTRevB-2@Tail Botttom Port Flange w inserts", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/Tail Botttom Port Flange w inserts-2@BOTTOM TAIL SHELL SUB-ASSEMBLY/HEX FLANGED INSERTRevB-3@Tail Botttom Port Flange w inserts", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/Tail Botttom Port Flange w inserts-2@BOTTOM TAIL SHELL SUB-ASSEMBLY/HEX FLANGED INSERTRevB-4@Tail Botttom Port Flange w inserts", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/Tail Botttom Port Flange w inserts-2@BOTTOM TAIL SHELL SUB-ASSEMBLY/HEX FLANGED INSERTRevB-5@Tail Botttom Port Flange w inserts", "COMPONENT", 0, 0, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/Tail Botttom Port Flange w inserts-2@BOTTOM TAIL SHELL SUB-ASSEMBLY/HEX FLANGED INSERTRevB-5@Tail Botttom Port Flange w inserts", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection Part.EditRebuild boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/Tail Botttom Port Flange w inserts-2@BOTTOM TAIL SHELL SUB-ASSEMBLY/TAIL FLANGE BOTTOM PORT-1@Tail Botttom Port Flange w inserts", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "G:\Drawings\TailSection\TAIL FLANGE BOTTOM PORT.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\TAIL FLANGE BOTTOM PORT.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM PORT.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ClearSelection Part.ActiveView().RotateAboutCenter 0, 0.0109047 Part.ActiveView().RotateAboutCenter 0, 0.141761 Part.ActiveView().RotateAboutCenter -0.0534198, 0.261713 Part.ActiveView().RotateAboutCenter -0.0178066, 0.0327141 Part.ActiveView().RotateAboutCenter -0.0356132, 0.0436188 Part.ActiveView().RotateAboutCenter -0.0356132, 0.0763329 Part.ActiveView().RotateAboutCenter -0.0356132, 0.119952 Part.ActiveView().RotateAboutCenter -0.0178066, 0.0436188 Part.ActiveView().RotateAboutCenter 0.0089033, 0 Part.ActiveView().RotateAboutCenter 0.0712264, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0979363, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0445165, 0 Part.ActiveView().RotateAboutCenter 0.0089033, -0.0109047 Part.ActiveView().RotateAboutCenter 0, -0.0327141 Part.ActiveView().RotateAboutCenter 0.0089033, -0.0545235 Part.ActiveView().RotateAboutCenter 0.0178066, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0267099, -0.0327141 Part.ActiveView().RotateAboutCenter 0.0178066, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0356132, -0.0654282 Part.ActiveView().RotateAboutCenter 0.0267099, -0.0436188 Part.ActiveView().RotateAboutCenter 0.0089033, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0089033, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0089033, 0 Part.ActiveView().RotateAboutCenter 0.0267099, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0356132, -0.0436188 Part.ActiveView().RotateAboutCenter 0.0267099, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0178066, -0.0327141 Part.ActiveView().RotateAboutCenter 0.0267099, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0089033, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0356132, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0267099, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0267099, 0 Part.ActiveView().RotateAboutCenter 0.0089033, 0 Part.ActiveView().RotateAboutCenter 0.0623231, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0712264, -0.0109047 Part.ActiveView().RotateAboutCenter 0.142453, 0.0109047 Part.ActiveView().RotateAboutCenter 0.10684, 0.0327141 Part.ActiveView().RotateAboutCenter 0.0979363, 0.0436188 Part.ActiveView().RotateAboutCenter 0.0801297, 0.0218094 Part.ActiveView().RotateAboutCenter 0.142453, 0.0436188 Part.ActiveView().RotateAboutCenter 0.169163, 0.0545235 Part.ActiveView().RotateAboutCenter 0.160259, 0.0654282 Part.ActiveView().RotateAboutCenter 0.151356, 0.0436188 Part.ActiveView().RotateAboutCenter 0.10684, 0.0327141 Part.ActiveView().RotateAboutCenter 0.115743, 0.0545235 Part.ActiveView().RotateAboutCenter 0.160259, 0.109047 Part.ActiveView().RotateAboutCenter 0.0178066, 0.0109047 Part.ActiveView().RotateAboutCenter 0.0089033, 0.0109047 Part.ActiveView().RotateAboutCenter 0.115743, 0.174475 Part.ActiveView().RotateAboutCenter 0.0267099, 0.0436188 Part.ActiveView().RotateAboutCenter 0.0089033, 0.0109047 Part.ActiveView().RotateAboutCenter 0.0356132, 0.0545235 Part.ActiveView().RotateAboutCenter -0.0089033, 0 Part.ActiveView().RotateAboutCenter -0.0979363, 0.0436188 Part.ActiveView().RotateAboutCenter -0.0445165, 0.0436188 Part.ActiveView().RotateAboutCenter 0, 0.0327141 Part.ActiveView().RotateAboutCenter 0.0623231, 0.141761 Part.ActiveView().RotateAboutCenter 0.0979363, 0.163571 Part.ActiveView().RotateAboutCenter 0.0801297, 0.0763329 Part.ActiveView().RotateAboutCenter 0.0623231, 0.0545235 Part.ActiveView().RotateAboutCenter -0.0534198, -0.0109047 Part.ActiveView().RotateAboutCenter -0.089033, -0.0218094 Part.ActiveView().RotateAboutCenter -0.0178066, 0 Part.ActiveView().RotateAboutCenter -0.0089033, 0 Part.ActiveView().RotateAboutCenter -0.0712264, -0.0218094 Part.ActiveView().RotateAboutCenter -0.115743, -0.0109047 Part.ActiveView().RotateAboutCenter -0.0178066, -0.0109047 Part.ActiveView().RotateAboutCenter -0.0623231, -0.0654282 Part.ActiveView().RotateAboutCenter -0.0801297, -0.0654282 Part.ActiveView().RotateAboutCenter 0, -0.0109047 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.826446 Part.ActiveView().ZoomByFactor 0.847458 Part.ActiveView().ZoomByFactor 0.840336 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.869565 Part.ActiveView().ZoomByFactor 0.854701 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 949 swApp.ActiveDoc.ActiveView.FrameHeight = 620 swApp.ActiveDoc.ActiveView.FrameWidth = 944 swApp.ActiveDoc.ActiveView.FrameHeight = 619 swApp.ActiveDoc.ActiveView.FrameWidth = 687 swApp.ActiveDoc.ActiveView.FrameHeight = 472 swApp.ActiveDoc.ActiveView.FrameWidth = 560 swApp.ActiveDoc.ActiveView.FrameHeight = 410 swApp.ActiveDoc.ActiveView.FrameWidth = 559 swApp.ActiveDoc.ActiveView.FrameHeight = 409 swApp.ActiveDoc.ActiveView.FrameLeft = 4 swApp.ActiveDoc.ActiveView.FrameTop = 3 swApp.ActiveDoc.ActiveView.FrameLeft = 95 swApp.ActiveDoc.ActiveView.FrameTop = 52 swApp.ActiveDoc.ActiveView.FrameLeft = 158 swApp.ActiveDoc.ActiveView.FrameTop = 76 swApp.ActiveDoc.ActiveView.FrameLeft = 189 swApp.ActiveDoc.ActiveView.FrameTop = 83 swApp.ActiveDoc.ActiveView.FrameLeft = 235 swApp.ActiveDoc.ActiveView.FrameTop = 73 swApp.ActiveDoc.ActiveView.FrameLeft = 248 swApp.ActiveDoc.ActiveView.FrameTop = 65 swApp.ActiveDoc.ActiveView.FrameLeft = 256 swApp.ActiveDoc.ActiveView.FrameTop = 72 swApp.ActiveDoc.ActiveView.FrameLeft = 264 swApp.ActiveDoc.ActiveView.FrameTop = 84 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/Tail Botttom Starboard Flange w inserts-1@BOTTOM TAIL SHELL SUB-ASSEMBLY/TAIL FLANGE BOTTOM STARBOARD-1@Tail Botttom Starboard Flange w inserts", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.ClearSelection swApp.LoadFile2 "G:\Drawings\TailSection\1 TAIL FLANGE MIRROR BASE PART.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\1 TAIL FLANGE MIRROR BASE PART.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("1 TAIL FLANGE MIRROR BASE PART.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 2 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/Tail Botttom Starboard Flange w inserts-1@BOTTOM TAIL SHELL SUB-ASSEMBLY/TAIL FLANGE BOTTOM STARBOARD-1@Tail Botttom Starboard Flange w inserts", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "G:\Drawings\TailSection\TAIL FLANGE BOTTOM STARBOARD.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\TAIL FLANGE BOTTOM STARBOARD.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ClearSelection Part.ViewDisplayShaded Part.ActiveView().RotateAboutCenter 0.00883179, 0 Part.ActiveView().RotateAboutCenter 0.0353271, 0 Part.ActiveView().RotateAboutCenter 0.0794861, 0 Part.ActiveView().RotateAboutCenter 0.0264954, 0 Part.ActiveView().RotateAboutCenter 0.0441589, 0 Part.ActiveView().RotateAboutCenter 0.0353271, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0529907, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0529907, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0794861, -0.0327141 Part.ActiveView().RotateAboutCenter 0.158972, -0.0327141 Part.ActiveView().RotateAboutCenter 0.105981, -0.0327141 Part.ActiveView().RotateAboutCenter 0.0618225, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0529907, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0883179, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0971497, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0706543, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0529907, -0.0109047 Part.ActiveView().RotateAboutCenter 0.00883179, 0 Part.ActiveView().RotateAboutCenter 0.132477, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0264954, 0 Part.ActiveView().RotateAboutCenter 0, -0.0109047 Part.ActiveView().RotateAboutCenter 0.220795, -0.207189 Part.ActiveView().RotateAboutCenter 0.335608, -0.436188 Part.ActiveView().RotateAboutCenter 0.0529907, -0.0436188 Part.ActiveView().RotateAboutCenter 0, 0.0109047 Part.ActiveView().RotateAboutCenter 0, 0.0545235 Part.ActiveView().RotateAboutCenter -0.141309, 0.0981423 Part.ActiveView().RotateAboutCenter -0.194299, 0.109047 Part.ActiveView().RotateAboutCenter -0.114813, 0.0654282 Part.ActiveView().RotateAboutCenter -0.220795, 0.0654282 Part.ActiveView().RotateAboutCenter -0.238458, 0.0872376 Part.ActiveView().RotateAboutCenter -0.167804, 0.0545235 Part.ActiveView().RotateAboutCenter -0.176636, 0.0436188 Part.ActiveView().RotateAboutCenter -0.0883179, 0.0327141 Part.ActiveView().RotateAboutCenter -0.0971497, 0.0545235 Part.ActiveView().RotateAboutCenter -0.0971497, 0.0872376 Part.ActiveView().RotateAboutCenter -0.114813, 0.109047 Part.ActiveView().RotateAboutCenter -0.132477, 0.141761 Part.ActiveView().RotateAboutCenter -0.0971497, 0.0981423 Part.ActiveView().RotateAboutCenter -0.0971497, 0.0654282 Part.ActiveView().RotateAboutCenter -0.0529907, 0.0327141 Part.ActiveView().RotateAboutCenter 0, 0.0109047 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 949 swApp.ActiveDoc.ActiveView.FrameHeight = 620 swApp.ActiveDoc.ActiveView.FrameWidth = 947 swApp.ActiveDoc.ActiveView.FrameHeight = 620 swApp.ActiveDoc.ActiveView.FrameWidth = 803 swApp.ActiveDoc.ActiveView.FrameHeight = 532 swApp.ActiveDoc.ActiveView.FrameWidth = 741 swApp.ActiveDoc.ActiveView.FrameHeight = 515 swApp.ActiveDoc.ActiveView.FrameWidth = 738 swApp.ActiveDoc.ActiveView.FrameHeight = 515 swApp.ActiveDoc.ActiveView.FrameLeft = 13 swApp.ActiveDoc.ActiveView.FrameTop = 11 swApp.ActiveDoc.ActiveView.FrameLeft = 134 swApp.ActiveDoc.ActiveView.FrameTop = 95 swApp.ActiveDoc.ActiveView.FrameLeft = 165 swApp.ActiveDoc.ActiveView.FrameTop = 113 swApp.ActiveDoc.ActiveView.FrameLeft = 202 swApp.ActiveDoc.ActiveView.FrameTop = 148 swApp.ActiveDoc.ActiveView.FrameLeft = 207 swApp.ActiveDoc.ActiveView.FrameTop = 147 swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\MBARI AUV Ops.drwdot", "" Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\templates\mbari drawing template 1 item.slddrt", 2, 0.279400, 0.431800) Set Part = swApp.ActivateDoc ("Draw3 - Sheet1") boolstatus = Part.Extension.SelectByID("DetailItem81@Sheet Format1", "NOTE", 0.3456292724183, 0.06126136157205, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem81@Sheet Format1", "NOTE", 0.3456292724183, 0.06146755333412, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format1", "NOTE", 0.3755270779181, 0.02476541968606, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = -15 swApp.ActiveDoc.ActiveView.FrameTop = 12 swApp.ActiveDoc.ActiveView.FrameLeft = -204 swApp.ActiveDoc.ActiveView.FrameTop = 196 swApp.ActiveDoc.ActiveView.FrameLeft = -382 swApp.ActiveDoc.ActiveView.FrameTop = 386 swApp.ActiveDoc.ActiveView.FrameLeft = -397 swApp.ActiveDoc.ActiveView.FrameTop = 447 swApp.ActiveDoc.ActiveView.FrameLeft = -384 swApp.ActiveDoc.ActiveView.FrameTop = 457 swApp.ActiveDoc.ActiveView.FrameLeft = -383 swApp.ActiveDoc.ActiveView.FrameTop = 460 swApp.ActiveDoc.ActiveView.FrameLeft = -380 swApp.ActiveDoc.ActiveView.FrameTop = 469 swApp.ActiveDoc.ActiveView.FrameLeft = -379 swApp.ActiveDoc.ActiveView.FrameTop = 469 swApp.ActiveDoc.ActiveView.FrameLeft = -378 swApp.ActiveDoc.ActiveView.FrameTop = 469 swApp.ActiveDoc.ActiveView.FrameLeft = -378 swApp.ActiveDoc.ActiveView.FrameTop = 468 swApp.ActiveDoc.ActiveView.FrameLeft = -377 swApp.ActiveDoc.ActiveView.FrameTop = 467 swApp.ActiveDoc.ActiveView.FrameLeft = -371 swApp.ActiveDoc.ActiveView.FrameTop = 458 swApp.ActiveDoc.ActiveView.FrameLeft = -332 swApp.ActiveDoc.ActiveView.FrameTop = 274 swApp.ActiveDoc.ActiveView.FrameLeft = -286 swApp.ActiveDoc.ActiveView.FrameTop = 108 swApp.ActiveDoc.ActiveView.FrameLeft = -253 swApp.ActiveDoc.ActiveView.FrameTop = 46 swApp.ActiveDoc.ActiveView.FrameLeft = -189 swApp.ActiveDoc.ActiveView.FrameTop = -4 swApp.ActiveDoc.ActiveView.FrameLeft = -156 swApp.ActiveDoc.ActiveView.FrameTop = -13 swApp.ActiveDoc.ActiveView.FrameLeft = -143 swApp.ActiveDoc.ActiveView.FrameTop = -13 swApp.ActiveDoc.ActiveView.FrameLeft = -130 swApp.ActiveDoc.ActiveView.FrameTop = -13 swApp.ActiveDoc.ActiveView.FrameLeft = -121 swApp.ActiveDoc.ActiveView.FrameTop = -13 swApp.ActiveDoc.ActiveView.FrameLeft = -101 swApp.ActiveDoc.ActiveView.FrameTop = -13 swApp.ActiveDoc.ActiveView.FrameLeft = -96 swApp.ActiveDoc.ActiveView.FrameTop = -13 swApp.ActiveDoc.ActiveView.FrameLeft = -87 swApp.ActiveDoc.ActiveView.FrameTop = -13 swApp.ActiveDoc.ActiveView.FrameLeft = -87 swApp.ActiveDoc.ActiveView.FrameTop = -12 swApp.ActiveDoc.ActiveView.FrameLeft = -82 swApp.ActiveDoc.ActiveView.FrameTop = -9 swApp.ActiveDoc.ActiveView.FrameLeft = -79 swApp.ActiveDoc.ActiveView.FrameTop = -6 boolstatus = Part.Extension.SelectByID("DetailItem82@Sheet Format1", "NOTE", 0.3996469064429, 0.06023846612671, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem82@Sheet Format1", "NOTE", 0.3996469064429, 0.06023846612671, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3367814571979, 0.0915646391403, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection Part.ViewZoomtofit2 swApp.ActiveDoc.ActiveView.FrameWidth = 949 swApp.ActiveDoc.ActiveView.FrameHeight = 626 swApp.ActiveDoc.ActiveView.FrameWidth = 909 swApp.ActiveDoc.ActiveView.FrameHeight = 588 swApp.ActiveDoc.ActiveView.FrameWidth = 723 swApp.ActiveDoc.ActiveView.FrameHeight = 498 Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 207 swApp.ActiveDoc.ActiveView.FrameTop = 146 swApp.ActiveDoc.ActiveView.FrameLeft = 188 swApp.ActiveDoc.ActiveView.FrameTop = 127 swApp.ActiveDoc.ActiveView.FrameLeft = 187 swApp.ActiveDoc.ActiveView.FrameTop = 127 swApp.ActiveDoc.ActiveView.FrameLeft = 150 swApp.ActiveDoc.ActiveView.FrameTop = 95 swApp.ActiveDoc.ActiveView.FrameLeft = 130 swApp.ActiveDoc.ActiveView.FrameTop = 79 swApp.ActiveDoc.ActiveView.FrameLeft = 121 swApp.ActiveDoc.ActiveView.FrameTop = 72 swApp.ActiveDoc.ActiveView.FrameLeft = 121 swApp.ActiveDoc.ActiveView.FrameTop = 73 swApp.ActiveDoc.ActiveView.FrameLeft = 210 swApp.ActiveDoc.ActiveView.FrameTop = 224 swApp.ActiveDoc.ActiveView.FrameLeft = 233 swApp.ActiveDoc.ActiveView.FrameTop = 248 swApp.ActiveDoc.ActiveView.FrameLeft = 233 swApp.ActiveDoc.ActiveView.FrameTop = 247 swApp.ActiveDoc.ActiveView.FrameLeft = 207 swApp.ActiveDoc.ActiveView.FrameTop = 215 swApp.ActiveDoc.ActiveView.FrameLeft = 170 swApp.ActiveDoc.ActiveView.FrameTop = 188 swApp.ActiveDoc.ActiveView.FrameLeft = 162 swApp.ActiveDoc.ActiveView.FrameTop = 184 swApp.ActiveDoc.ActiveView.FrameLeft = 162 swApp.ActiveDoc.ActiveView.FrameTop = 182 swApp.ActiveDoc.ActiveView.FrameLeft = 148 swApp.ActiveDoc.ActiveView.FrameTop = 136 swApp.ActiveDoc.ActiveView.FrameLeft = 134 swApp.ActiveDoc.ActiveView.FrameTop = 104 swApp.ActiveDoc.ActiveView.FrameLeft = 133 swApp.ActiveDoc.ActiveView.FrameTop = 102 swApp.ActiveDoc.ActiveView.FrameWidth = 738 swApp.ActiveDoc.ActiveView.FrameHeight = 512 swApp.ActiveDoc.ActiveView.FrameWidth = 612 swApp.ActiveDoc.ActiveView.FrameHeight = 401 swApp.ActiveDoc.ActiveView.FrameWidth = 599 swApp.ActiveDoc.ActiveView.FrameHeight = 393 Set Part = swApp.ActivateDoc ("1 TAIL FLANGE MIRROR BASE PART.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 138 swApp.ActiveDoc.ActiveView.FrameTop = 102 swApp.ActiveDoc.ActiveView.FrameLeft = 264 swApp.ActiveDoc.ActiveView.FrameTop = 142 swApp.ActiveDoc.ActiveView.FrameLeft = 301 swApp.ActiveDoc.ActiveView.FrameTop = 151 swApp.ActiveDoc.ActiveView.FrameLeft = 317 swApp.ActiveDoc.ActiveView.FrameTop = 161 swApp.ActiveDoc.ActiveView.FrameLeft = 320 swApp.ActiveDoc.ActiveView.FrameTop = 170 swApp.ActiveDoc.ActiveView.FrameLeft = 320 swApp.ActiveDoc.ActiveView.FrameTop = 174 swApp.ActiveDoc.ActiveView.FrameLeft = 291 swApp.ActiveDoc.ActiveView.FrameTop = 252 swApp.ActiveDoc.ActiveView.FrameLeft = 263 swApp.ActiveDoc.ActiveView.FrameTop = 308 swApp.ActiveDoc.ActiveView.FrameLeft = 262 swApp.ActiveDoc.ActiveView.FrameTop = 310 swApp.ActiveDoc.ActiveView.FrameLeft = 260 swApp.ActiveDoc.ActiveView.FrameTop = 319 swApp.ActiveDoc.ActiveView.FrameLeft = 260 swApp.ActiveDoc.ActiveView.FrameTop = 320 swApp.ActiveDoc.ActiveView.FrameLeft = 251 swApp.ActiveDoc.ActiveView.FrameTop = 392 swApp.ActiveDoc.ActiveView.FrameLeft = 251 swApp.ActiveDoc.ActiveView.FrameTop = 437 swApp.ActiveDoc.ActiveView.FrameLeft = 249 swApp.ActiveDoc.ActiveView.FrameTop = 467 swApp.ActiveDoc.ActiveView.FrameLeft = 251 swApp.ActiveDoc.ActiveView.FrameTop = 463 swApp.ActiveDoc.ActiveView.FrameLeft = 259 swApp.ActiveDoc.ActiveView.FrameTop = 362 swApp.ActiveDoc.ActiveView.FrameLeft = 243 swApp.ActiveDoc.ActiveView.FrameTop = 229 swApp.ActiveDoc.ActiveView.FrameLeft = 235 swApp.ActiveDoc.ActiveView.FrameTop = 181 swApp.ActiveDoc.ActiveView.FrameLeft = 229 swApp.ActiveDoc.ActiveView.FrameTop = 166 swApp.ActiveDoc.ActiveView.FrameLeft = 228 swApp.ActiveDoc.ActiveView.FrameTop = 165 swApp.ActiveDoc.ActiveView.FrameLeft = 227 swApp.ActiveDoc.ActiveView.FrameTop = 165 swApp.ActiveDoc.ActiveView.FrameLeft = 184 swApp.ActiveDoc.ActiveView.FrameTop = 178 swApp.ActiveDoc.ActiveView.FrameLeft = 174 swApp.ActiveDoc.ActiveView.FrameTop = 184 swApp.ActiveDoc.ActiveView.FrameLeft = 130 swApp.ActiveDoc.ActiveView.FrameTop = 178 swApp.ActiveDoc.ActiveView.FrameLeft = 129 swApp.ActiveDoc.ActiveView.FrameTop = 178 swApp.ActiveDoc.ActiveView.FrameLeft = 129 swApp.ActiveDoc.ActiveView.FrameTop = 177 Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") boolstatus = Part.Extension.SelectByID("TAIL SHELL ASSEMBLY-1@DMOTailSection1/BOTTOM TAIL SHELL SUB-ASSEMBLY-1@TAIL SHELL ASSEMBLY/Tail Botttom Port Flange w inserts-2@BOTTOM TAIL SHELL SUB-ASSEMBLY/TAIL FLANGE BOTTOM PORT-1@Tail Botttom Port Flange w inserts", "COMPONENT", 0, 0, 0, False, 0, Nothing) Part.OpenCompFile swApp.LoadFile2 "G:\Drawings\TailSection\TAIL FLANGE BOTTOM PORT.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\TAIL FLANGE BOTTOM PORT.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM PORT.SLDPRT") Part.ClearSelection Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 42 swApp.ActiveDoc.ActiveView.FrameTop = 26 swApp.ActiveDoc.ActiveView.FrameLeft = 112 swApp.ActiveDoc.ActiveView.FrameTop = 70 swApp.ActiveDoc.ActiveView.FrameLeft = 139 swApp.ActiveDoc.ActiveView.FrameTop = 92 swApp.ActiveDoc.ActiveView.FrameLeft = 174 swApp.ActiveDoc.ActiveView.FrameTop = 133 swApp.ActiveDoc.ActiveView.FrameLeft = 195 swApp.ActiveDoc.ActiveView.FrameTop = 169 swApp.ActiveDoc.ActiveView.FrameLeft = 221 swApp.ActiveDoc.ActiveView.FrameTop = 233 swApp.ActiveDoc.ActiveView.FrameLeft = 234 swApp.ActiveDoc.ActiveView.FrameTop = 267 swApp.ActiveDoc.ActiveView.FrameLeft = 241 swApp.ActiveDoc.ActiveView.FrameTop = 305 swApp.ActiveDoc.ActiveView.FrameLeft = 247 swApp.ActiveDoc.ActiveView.FrameTop = 345 swApp.ActiveDoc.ActiveView.FrameLeft = 252 swApp.ActiveDoc.ActiveView.FrameTop = 366 swApp.ActiveDoc.ActiveView.FrameLeft = 252 swApp.ActiveDoc.ActiveView.FrameTop = 368 Set Part = swApp.ActivateDoc ("Draw3 - Sheet1") Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM PORT.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 269 swApp.ActiveDoc.ActiveView.FrameTop = 85 swApp.ActiveDoc.ActiveView.FrameLeft = 393 swApp.ActiveDoc.ActiveView.FrameTop = 129 swApp.ActiveDoc.ActiveView.FrameLeft = 423 swApp.ActiveDoc.ActiveView.FrameTop = 147 swApp.ActiveDoc.ActiveView.FrameLeft = 473 swApp.ActiveDoc.ActiveView.FrameTop = 194 Set Part = swApp.ActivateDoc ("Draw3 - Sheet1") boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2051138122449, 0.2349779918367, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM PORT.SLDPRT") Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM PORT - Sheet1") Part.Create3rdAngleViews "G:\Drawings\TailSection\TAIL FLANGE BOTTOM PORT.SLDPRT" Part.ClearSelection Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2293827346939, 0.1585758285714, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.SetUserPreferenceToggle(6, False) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1934287755102, 0.06869093061224, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1871368326531, 0.06329783673469, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1925299265306, 0.2214952571429, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1907322285714, 0.2152033142857, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1359024408163, 0.1918332408163, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1206220081633, 0.188237844898, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1251162530612, 0.1972263346939, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2248884897959, 0.0956564, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2194953959184, 0.09206100408163, 0, False, 0, Nothing) Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM PORT.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 467 swApp.ActiveDoc.ActiveView.FrameTop = 193 swApp.ActiveDoc.ActiveView.FrameLeft = 323 swApp.ActiveDoc.ActiveView.FrameTop = 131 swApp.ActiveDoc.ActiveView.FrameLeft = 315 swApp.ActiveDoc.ActiveView.FrameTop = 128 Part.ActiveView().RotateAboutCenter 0, 0.0181745 Part.ActiveView().RotateAboutCenter 0, 0.0181745 Part.ActiveView().RotateAboutCenter -0.202373, 0.381665 Part.ActiveView().RotateAboutCenter -0.384508, 0.454363 Part.ActiveView().RotateAboutCenter -0.101186, 0.145396 Part.ActiveView().RotateAboutCenter -0.101186, 0.19992 Part.ActiveView().RotateAboutCenter -0.0404745, 0.163571 Part.ActiveView().RotateAboutCenter -0.0202373, 0.0545235 Part.ActiveView().RotateAboutCenter 0, 0.0545235 Part.ActiveView().RotateAboutCenter 0, 0.0908725 Part.ActiveView().RotateAboutCenter 0, 0.0545235 Part.ActiveView().RotateAboutCenter 0, 0.0908725 Part.ActiveView().RotateAboutCenter 0.0607118, 0.0908725 Part.ActiveView().RotateAboutCenter 0.080949, 0.127222 Part.ActiveView().RotateAboutCenter 0.0202373, 0 Part.ActiveView().RotateAboutCenter 0.101186, 0.036349 Part.ActiveView().RotateAboutCenter 0.121424, 0.0181745 Part.ActiveView().RotateAboutCenter 0.141661, 0.036349 Part.ActiveView().RotateAboutCenter 0.121424, 0.0545235 Part.ActiveView().RotateAboutCenter 0.182135, 0.0908725 Part.ActiveView().RotateAboutCenter 0.161898, 0.072698 Part.ActiveView().RotateAboutCenter 0.161898, 0.0545235 Part.ActiveView().RotateAboutCenter 0.101186, 0.036349 Part.ActiveView().RotateAboutCenter 0.121424, 0.0545235 Part.ActiveView().RotateAboutCenter 0.182135, 0.0545235 Part.ActiveView().RotateAboutCenter 0.121424, 0.036349 Part.ActiveView().RotateAboutCenter 0.080949, 0.036349 Part.ActiveView().RotateAboutCenter 0.080949, 0.0181745 Part.ActiveView().RotateAboutCenter 0.0404745, 0.0181745 Part.ActiveView().RotateAboutCenter 0.242847, 0.109047 Part.ActiveView().RotateAboutCenter 0.202373, 0.072698 Part.ActiveView().RotateAboutCenter 0.263084, 0.072698 Part.ActiveView().RotateAboutCenter 0.303559, 0.0908725 Part.ActiveView().RotateAboutCenter 0.404745, 0.163571 Part.ActiveView().RotateAboutCenter 0.344033, 0.19992 Part.ActiveView().RotateAboutCenter 0.202373, 0.0908725 Part.ActiveView().RotateAboutCenter 0.161898, 0.109047 Part.ActiveView().RotateAboutCenter 0.0404745, 0.036349 Part.ActiveView().RotateAboutCenter 0, 0.0181745 Part.ActiveView().RotateAboutCenter 0.101186, 0.272618 Part.ActiveView().RotateAboutCenter 0.0202373, 0.127222 Part.ActiveView().RotateAboutCenter -0.0607118, 0.127222 Part.ActiveView().RotateAboutCenter -0.101186, 0.109047 Part.ActiveView().RotateAboutCenter -0.161898, 0.127222 Part.ActiveView().RotateAboutCenter -0.141661, 0.163571 Part.ActiveView().RotateAboutCenter -0.121424, 0.218094 Part.ActiveView().RotateAboutCenter -0.0202373, 0.181745 Part.ActiveView().RotateAboutCenter 0.101186, 0.418014 Part.ActiveView().RotateAboutCenter 0.101186, 0.163571 Part.ActiveView().RotateAboutCenter 0.101186, 0.0181745 Part.ActiveView().RotateAboutCenter 0.384508, 0 Part.ActiveView().RotateAboutCenter 0.182135, 0 Part.ActiveView().RotateAboutCenter 0.0202373, 0 Part.ActiveView().RotateAboutCenter 0.0202373, 0 Part.ActiveView().RotateAboutCenter 0.0404745, -0.109047 Part.ActiveView().RotateAboutCenter 0.0202373, -0.0545235 Part.ActiveView().RotateAboutCenter 0.0202373, -0.0181745 Part.ActiveView().RotateAboutCenter 0.161898, -0.0545235 Part.ActiveView().RotateAboutCenter 0.0202373, 0 Part.ActiveView().RotateAboutCenter 0.0607118, -0.0545235 Part.ActiveView().RotateAboutCenter 0.101186, -0.109047 Part.ActiveView().RotateAboutCenter 0.0202373, -0.036349 Part.ActiveView().RotateAboutCenter 0.0202373, -0.0908725 Part.ActiveView().RotateAboutCenter 0.0202373, -0.0181745 Part.ActiveView().RotateAboutCenter -0.0404745, 0 Part.ActiveView().RotateAboutCenter -0.182135, 0.145396 Part.ActiveView().RotateAboutCenter -0.080949, 0.145396 Part.ActiveView().RotateAboutCenter -0.0202373, 0.072698 Part.ActiveView().RotateAboutCenter -0.0404745, 0.0545235 Part.ActiveView().RotateAboutCenter -0.080949, 0.072698 Part.ActiveView().RotateAboutCenter -0.101186, 0.0545235 Part.ActiveView().RotateAboutCenter -0.0404745, 0.0181745 Part.ActiveView().RotateAboutCenter -0.101186, 0.036349 Part.ActiveView().RotateAboutCenter -0.101186, 0.036349 Part.ActiveView().RotateAboutCenter -0.0607118, 0.0181745 Part.ActiveView().RotateAboutCenter -0.0404745, 0 Part.ActiveView().RotateAboutCenter 0, -0.0908725 Part.ActiveView().RotateAboutCenter -0.0607118, -0.272618 Part.ActiveView().RotateAboutCenter -0.0202373, -0.109047 Part.ActiveView().RotateAboutCenter -0.080949, -0.308967 Part.ActiveView().RotateAboutCenter -0.080949, -0.345316 Part.ActiveView().RotateAboutCenter -0.161898, -0.345316 Part.ActiveView().RotateAboutCenter -0.283322, -0.490712 Part.ActiveView().RotateAboutCenter -0.344033, -0.399839 Part.ActiveView().RotateAboutCenter -0.323796, -0.327141 Part.ActiveView().RotateAboutCenter -0.080949, -0.072698 Part.ActiveView().RotateAboutCenter -0.0202373, 0 Part.ActiveView().RotateAboutCenter -0.0202373, 0 Part.ActiveView().RotateAboutCenter 0, -0.0181745 Part.ActiveView().RotateAboutCenter 0, -0.236269 Part.ActiveView().RotateAboutCenter 0, -0.109047 Part.ActiveView().RotateAboutCenter 0, -0.109047 Part.ActiveView().RotateAboutCenter 0.0404745, -0.181745 Part.ActiveView().RotateAboutCenter 0.101186, -0.254443 Part.ActiveView().RotateAboutCenter 0, -0.109047 Part.ActiveView().RotateAboutCenter 0, -0.145396 Part.ActiveView().RotateAboutCenter 0, -0.109047 Part.ActiveView().RotateAboutCenter 0.0202373, -0.0181745 swApp.ActiveDoc.ActiveView.FrameLeft = 305 swApp.ActiveDoc.ActiveView.FrameTop = 118 swApp.ActiveDoc.ActiveView.FrameLeft = 189 swApp.ActiveDoc.ActiveView.FrameTop = 54 swApp.ActiveDoc.ActiveView.FrameLeft = 185 swApp.ActiveDoc.ActiveView.FrameTop = 51 swApp.ActiveDoc.ActiveView.FrameLeft = 185 swApp.ActiveDoc.ActiveView.FrameTop = 51 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ActiveView().RotateAboutCenter 0, 0.0109047 Part.ActiveView().RotateAboutCenter 0.0356132, 0.0654282 Part.ActiveView().RotateAboutCenter 0.0356132, 0.0218094 Part.ViewZoomtofit2 Part.ActiveView().RotateAboutCenter 0.0089033, 0 Part.ActiveView().RotateAboutCenter 0.0089033, 0.0109047 Part.ActiveView().RotateAboutCenter 0.0712264, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0445165, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0356132, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0267099, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0089033, -0.0436188 Part.ActiveView().RotateAboutCenter 0.0089033, -0.0109047 Part.ActiveView().RotateAboutCenter 0, -0.0218094 Part.ActiveView().RotateAboutCenter -0.0089033, -0.119952 Part.ActiveView().RotateAboutCenter -0.0267099, -0.0981423 Part.ActiveView().RotateAboutCenter -0.0445165, -0.18538 Part.ActiveView().RotateAboutCenter -0.0178066, -0.0654282 Part.ActiveView().RotateAboutCenter 0.0089033, -0.0218094 Part.ActiveView().RotateAboutCenter 0.0801297, -0.0109047 Part.ActiveView().RotateAboutCenter -0.0267099, -0.0872376 Part.ActiveView().RotateAboutCenter -0.267099, -0.599759 Part.ActiveView().RotateAboutCenter -0.0801297, -0.130856 Part.ActiveView().RotateAboutCenter -0.0623231, -0.0872376 Part.ActiveView().RotateAboutCenter -0.0712264, -0.0654282 Part.ActiveView().RotateAboutCenter -0.0445165, -0.0327141 Part.ActiveView().RotateAboutCenter -0.124646, -0.0436188 Part.ActiveView().RotateAboutCenter -0.115743, -0.0545235 Part.ActiveView().RotateAboutCenter -0.0534198, -0.0436188 Part.ActiveView().RotateAboutCenter 0.0089033, 0 Part.ActiveView().RotateAboutCenter 0.10684, 0.163571 Part.ActiveView().RotateAboutCenter 0.0801297, 0.228999 Part.ActiveView().RotateAboutCenter 0.0801297, 0.327141 Part.ActiveView().RotateAboutCenter 0.0801297, 0.316236 Part.ActiveView().RotateAboutCenter 0.0356132, 0.174475 Part.ActiveView().RotateAboutCenter 0.0623231, 0.250808 Part.ActiveView().RotateAboutCenter 0.0445165, 0.141761 Part.ActiveView().RotateAboutCenter 0.0534198, 0.174475 Part.ActiveView().RotateAboutCenter 0.0801297, 0.207189 Part.ActiveView().RotateAboutCenter 0.0623231, 0.0981423 Part.ActiveView().RotateAboutCenter 0.0801297, 0.119952 Part.ActiveView().RotateAboutCenter 0.115743, 0.18538 Part.ActiveView().RotateAboutCenter 0.115743, 0.119952 Part.ActiveView().RotateAboutCenter 0.0623231, 0.0545235 Part.ActiveView().RotateAboutCenter 0.0534198, 0.0218094 Part.ActiveView().RotateAboutCenter 0.0178066, 0.0109047 Part.ActiveView().RotateAboutCenter 0.0089033, -0.0981423 Part.ActiveView().RotateAboutCenter 0, -0.0981423 Part.ActiveView().RotateAboutCenter 0, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0178066, -0.0545235 Part.ActiveView().RotateAboutCenter 0.0356132, -0.0327141 Part.ActiveView().RotateAboutCenter 0.0356132, -0.0327141 Part.ActiveView().RotateAboutCenter 0.0178066, -0.0545235 Part.ActiveView().RotateAboutCenter -0.0089033, -0.239903 Part.ActiveView().RotateAboutCenter -0.0623231, -0.18538 Part.ActiveView().RotateAboutCenter 0.0178066, 0 Part.ActiveView().RotateAboutCenter 0.0534198, 0.0109047 Part.ActiveView().RotateAboutCenter 0.0178066, 0.0109047 Part.ActiveView().RotateAboutCenter 0.0979363, 0.109047 Part.ActiveView().RotateAboutCenter 0.0178066, 0.0218094 Part.ActiveView().RotateAboutCenter 0.0089033, 0.0109047 Part.ActiveView().RotateAboutCenter 0.240389, 0.414379 Part.ActiveView().RotateAboutCenter 0.0356132, 0.0981423 Part.ActiveView().RotateAboutCenter 0, 0.0327141 Part.ActiveView().RotateAboutCenter 0, 0.0109047 Part.ActiveView().RotateAboutCenter -0.0267099, -0.0109047 Part.ActiveView().RotateAboutCenter -0.151356, -0.152666 Part.ActiveView().RotateAboutCenter -0.0089033, -0.0327141 Part.ActiveView().RotateAboutCenter -0.0089033, -0.0545235 Part.ActiveView().RotateAboutCenter -0.0267099, -0.119952 Part.ActiveView().RotateAboutCenter 0, -0.0109047 Part.ActiveView().RotateAboutCenter 0, -0.0109047 Part.ActiveView().RotateAboutCenter 0, -0.0218094 Part.ActiveView().RotateAboutCenter -0.0089033, -0.109047 Part.ActiveView().RotateAboutCenter -0.0178066, -0.0218094 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.909091 Part.ActiveView().ZoomByFactor 0.934579 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().RotateAboutCenter 0, -0.0109047 Part.ActiveView().RotateAboutCenter 0.0178066, -0.0545235 Part.ActiveView().RotateAboutCenter 0.0089033, -0.119952 Part.ActiveView().RotateAboutCenter 0, -0.0327141 Part.ActiveView().RotateAboutCenter -0.0712264, -0.18538 Part.ActiveView().RotateAboutCenter -0.0089033, -0.0109047 Part.ActiveView().RotateAboutCenter -0.0623231, -0.0109047 Part.ActiveView().RotateAboutCenter -0.0445165, 0 Part.ActiveView().RotateAboutCenter -0.0267099, 0.0109047 Part.ActiveView().RotateAboutCenter -0.0356132, 0.0327141 Part.ActiveView().RotateAboutCenter -0.0178066, 0.0109047 Part.ActiveView().RotateAboutCenter 0, 0.0218094 Part.ActiveView().RotateAboutCenter 0, 0.0218094 Part.ActiveView().RotateAboutCenter 0, 0.0109047 swApp.ActiveDoc.ActiveView.FrameLeft = 185 swApp.ActiveDoc.ActiveView.FrameTop = 51 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 191 swApp.ActiveDoc.ActiveView.FrameTop = 61 swApp.ActiveDoc.ActiveView.FrameLeft = 318 swApp.ActiveDoc.ActiveView.FrameTop = 191 swApp.ActiveDoc.ActiveView.FrameLeft = 347 swApp.ActiveDoc.ActiveView.FrameTop = 255 swApp.ActiveDoc.ActiveView.FrameLeft = 366 swApp.ActiveDoc.ActiveView.FrameTop = 304 swApp.ActiveDoc.ActiveView.FrameLeft = 371 swApp.ActiveDoc.ActiveView.FrameTop = 314 Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM PORT - Sheet1") boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3309526693878, 0.1963274857143, 0, False, 0, Nothing) Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM PORT.SLDPRT") Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM PORT - Sheet1") Part.CreateDrawViewFromModelView "G:\Drawings\TailSection\TAIL FLANGE BOTTOM PORT.SLDPRT", "Current Model View", 0.3066837469388, 0.2026194285714, 0 ' MSGBOX ' SolidWorks has determined that this view may need Isometric (True) dimensions ' instead of standard Projected dimensions. ' Do you want to switch the view to use Isometric (True) dimensions? Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SaveAs2 "G:\Drawings\TailSection\ShopDrawings\TailFlangeBottomPort.SLDDRW", 0, FALSE, FALSE Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM PORT.SLDPRT") Set Part = Nothing swApp.CloseDoc "TAIL FLANGE BOTTOM PORT.SLDPRT" Set Part = swApp.ActivateDoc ("TailFlangeBottomPort - Sheet1") Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 137 swApp.ActiveDoc.ActiveView.FrameTop = 176 swApp.ActiveDoc.ActiveView.FrameLeft = 252 swApp.ActiveDoc.ActiveView.FrameTop = 167 swApp.ActiveDoc.ActiveView.FrameLeft = 319 swApp.ActiveDoc.ActiveView.FrameTop = 164 swApp.ActiveDoc.ActiveView.FrameLeft = 346 swApp.ActiveDoc.ActiveView.FrameTop = 167 Part.EditSketch Part.EditSketch swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\Drawing.drwdot", "" Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\Drawing.drwdot", 2, 0.279400, 0.431800) Set Part = swApp.ActivateDoc ("Draw4 - Sheet1") Set Part = Nothing swApp.CloseDoc "Draw4 - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 346 swApp.ActiveDoc.ActiveView.FrameTop = 167 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD.SLDPRT") swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\MBARI AUV Ops.drwdot", "" Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\templates\mbari drawing template 1 item.slddrt", 2, 0.279400, 0.431800) Set Part = swApp.ActivateDoc ("Draw5 - Sheet1") boolstatus = Part.Extension.SelectByID("DetailItem81@Sheet Format1", "NOTE", 0.354083134663, 0.06043659452378, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem81@Sheet Format1", "NOTE", 0.353876942901, 0.06023040276171, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem81@Sheet Format1", "NOTE", 0.3571760110941, 0.06146755333412, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3977957882214, 0.06187993685826, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem82@Sheet Format1", "NOTE", 0.3977957882214, 0.06064278628585, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem82@Sheet Format1", "NOTE", 0.3982081717455, 0.06064278628585, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format1", "NOTE", 0.3777951873008, 0.02497161144813, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem22@Sheet Format1", "NOTE", 0.3777951873008, 0.02497161144813, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3410930536528, 0.08414864716157, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection Part.ViewZoomtofit2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 949 swApp.ActiveDoc.ActiveView.FrameHeight = 620 swApp.ActiveDoc.ActiveView.FrameWidth = 917 swApp.ActiveDoc.ActiveView.FrameHeight = 575 swApp.ActiveDoc.ActiveView.FrameWidth = 807 swApp.ActiveDoc.ActiveView.FrameHeight = 524 swApp.ActiveDoc.ActiveView.FrameWidth = 795 swApp.ActiveDoc.ActiveView.FrameHeight = 522 Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 349 swApp.ActiveDoc.ActiveView.FrameTop = 174 swApp.ActiveDoc.ActiveView.FrameLeft = 420 swApp.ActiveDoc.ActiveView.FrameTop = 271 swApp.ActiveDoc.ActiveView.FrameLeft = 423 swApp.ActiveDoc.ActiveView.FrameTop = 274 Set Part = swApp.ActivateDoc ("Draw5 - Sheet1") Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD.SLDPRT") Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD - Sheet1") Part.Create3rdAngleViews "G:\Drawings\TailSection\TAIL FLANGE BOTTOM STARBOARD.SLDPRT" Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.251166227758, 0.18358686121, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.1445838505338, 0.1953422704626, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.145367544484, 0.18358686121, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1947402633452, 0.06681646263345, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1876870177936, 0.07622079003559, 0, False, 0, Nothing) Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 423 swApp.ActiveDoc.ActiveView.FrameTop = 266 swApp.ActiveDoc.ActiveView.FrameLeft = 289 swApp.ActiveDoc.ActiveView.FrameTop = 130 swApp.ActiveDoc.ActiveView.FrameLeft = 231 swApp.ActiveDoc.ActiveView.FrameTop = 88 Part.ShowNamedView2 "*Isometric", 7 Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 242 swApp.ActiveDoc.ActiveView.FrameTop = 105 swApp.ActiveDoc.ActiveView.FrameLeft = 350 swApp.ActiveDoc.ActiveView.FrameTop = 232 swApp.ActiveDoc.ActiveView.FrameLeft = 360 swApp.ActiveDoc.ActiveView.FrameTop = 238 swApp.ActiveDoc.ActiveView.FrameLeft = 360 swApp.ActiveDoc.ActiveView.FrameTop = 240 swApp.ActiveDoc.ActiveView.FrameLeft = 374 swApp.ActiveDoc.ActiveView.FrameTop = 328 swApp.ActiveDoc.ActiveView.FrameLeft = 375 swApp.ActiveDoc.ActiveView.FrameTop = 337 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD - Sheet1") boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2621379430605, 0.2368780498221, 0, False, 0, Nothing) Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD.SLDPRT") Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD - Sheet1") Part.CreateDrawViewFromModelView "G:\Drawings\TailSection\TAIL FLANGE BOTTOM STARBOARD.SLDPRT", "*Isometric", 0.3420747259786, 0.2110161494662, 0 Part.ClearSelection Part.EditSketch boolstatus = Part.SetUserPreferenceToggle(6, False) Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.308375886121, 0.1733988398577, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.3044574163701, 0.1639945124555, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 366 swApp.ActiveDoc.ActiveView.FrameTop = 327 swApp.ActiveDoc.ActiveView.FrameLeft = 299 swApp.ActiveDoc.ActiveView.FrameTop = 268 swApp.ActiveDoc.ActiveView.FrameLeft = 225 swApp.ActiveDoc.ActiveView.FrameTop = 151 swApp.ActiveDoc.ActiveView.FrameLeft = 207 swApp.ActiveDoc.ActiveView.FrameTop = 99 swApp.ActiveDoc.ActiveView.FrameLeft = 205 swApp.ActiveDoc.ActiveView.FrameTop = 90 swApp.ActiveDoc.ActiveView.FrameLeft = 205 swApp.ActiveDoc.ActiveView.FrameTop = 90 Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD - Sheet1") Set Part = swApp.ActivateDoc ("DMOTailSection1.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 17 swApp.ActiveDoc.ActiveView.FrameTop = 156 swApp.ActiveDoc.ActiveView.FrameLeft = 17 swApp.ActiveDoc.ActiveView.FrameTop = 156 Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 13 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 294 swApp.ActiveDoc.ActiveView.FrameTop = 25 swApp.ActiveDoc.ActiveView.FrameLeft = 349 swApp.ActiveDoc.ActiveView.FrameTop = 25 swApp.ActiveDoc.ActiveView.FrameLeft = 345 swApp.ActiveDoc.ActiveView.FrameTop = 28 swApp.ActiveDoc.ActiveView.FrameLeft = 206 swApp.ActiveDoc.ActiveView.FrameTop = 47 swApp.ActiveDoc.ActiveView.FrameLeft = 182 swApp.ActiveDoc.ActiveView.FrameTop = 45 swApp.ActiveDoc.ActiveView.FrameLeft = 143 swApp.ActiveDoc.ActiveView.FrameTop = 44 swApp.ActiveDoc.ActiveView.FrameLeft = 105 swApp.ActiveDoc.ActiveView.FrameTop = 46 swApp.ActiveDoc.ActiveView.FrameLeft = 90 swApp.ActiveDoc.ActiveView.FrameTop = 49 swApp.ActiveDoc.ActiveView.FrameLeft = 90 swApp.ActiveDoc.ActiveView.FrameTop = 49 Set Part = swApp.ActivateDoc ("TailFlangeBottomPort - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = -79 swApp.ActiveDoc.ActiveView.FrameTop = -6 Set Part = swApp.ActivateDoc ("0 TAIL FLANGE BASE PART.SLDPRT") Set Part = swApp.ActivateDoc ("TailFlangeBottomPort - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = -79 swApp.ActiveDoc.ActiveView.FrameTop = -6 swApp.ActiveDoc.ActiveView.FrameWidth = 723 swApp.ActiveDoc.ActiveView.FrameHeight = 498 Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 90 swApp.ActiveDoc.ActiveView.FrameTop = 49 swApp.ActiveDoc.ActiveView.FrameWidth = 795 swApp.ActiveDoc.ActiveView.FrameHeight = 522 Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.2111978362989, 0.08170664768683, 0, False, 0, Nothing) Part.EditSketch Part.ViewZoomTo2 0.0513243, 0.115405, -1.65627e-015, 0.189254, 0.0229296, -1.01052e-015 Part.ViewZoomTo2 0.0618776, 0.099846, -1.85923e-015, 0.0986917, 0.0679404, -1.63644e-015 Part.ViewDisplayHiddenGreyed Part.EditSketch Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 205 swApp.ActiveDoc.ActiveView.FrameTop = 90 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.ActiveView().RotateAboutCenter 0.0177348, 0 Part.ActiveView().RotateAboutCenter 0.0709392, 0 Part.ActiveView().RotateAboutCenter 0.0354696, 0.0190125 Part.ActiveView().RotateAboutCenter 0.0354696, 0.0190125 Part.ActiveView().RotateAboutCenter 0.088674, 0.0760501 Part.ActiveView().RotateAboutCenter 0.088674, 0.133088 Part.ActiveView().RotateAboutCenter 0.0177348, 0.0950626 Part.ActiveView().RotateAboutCenter 0, 0.038025 Part.ActiveView().RotateAboutCenter -0.0177348, 0.133088 Part.ActiveView().RotateAboutCenter -0.0354696, 0.209138 Part.ActiveView().RotateAboutCenter -0.0177348, 0.0570376 Part.ActiveView().RotateAboutCenter 0, 0.0190125 Part.ActiveView().RotateAboutCenter -0.0532044, 0.133088 Part.ActiveView().RotateAboutCenter -0.088674, 0.190125 Part.ActiveView().RotateAboutCenter -0.124144, 0.209138 Part.ActiveView().RotateAboutCenter -0.124144, 0.1521 Part.ActiveView().RotateAboutCenter -0.0709392, 0.0950626 Part.ActiveView().RotateAboutCenter -0.0709392, 0.133088 Part.ActiveView().RotateAboutCenter -0.0354696, 0.0570376 Part.ActiveView().RotateAboutCenter -0.0354696, 0.0950626 Part.ActiveView().RotateAboutCenter -0.0354696, 0.209138 Part.ActiveView().RotateAboutCenter -0.0177348, 0.0950626 Part.ActiveView().RotateAboutCenter 0.0354696, -0.038025 Part.ActiveView().RotateAboutCenter 0.195083, -0.323213 Part.ActiveView().RotateAboutCenter 0.124144, -0.190125 Part.ActiveView().RotateAboutCenter 0, -0.0190125 Part.ActiveView().RotateAboutCenter 0.106409, -0.038025 Part.ActiveView().RotateAboutCenter 0.177348, -0.0570376 Part.ActiveView().RotateAboutCenter 0.088674, -0.0570376 Part.ActiveView().RotateAboutCenter 0.0532044, 0 Part.ActiveView().RotateAboutCenter 0.390166, -0.0190125 Part.ActiveView().RotateAboutCenter 0.319226, -0.0570376 Part.ActiveView().RotateAboutCenter 0.212818, -0.0950626 Part.ActiveView().RotateAboutCenter 0.088674, -0.0760501 Part.ActiveView().RotateAboutCenter 0.0177348, -0.038025 Part.ActiveView().RotateAboutCenter 0.0177348, 0 Part.EditSketch Part.ViewZoomTo2 0.0341931, -0.0470925, 0.150314, 0.467707, -0.443712, 0.150314 Part.ViewZoomTo2 0.0656579, -0.191213, 0.150314, 0.177533, -0.300757, 0.150314 swApp.ActiveDoc.ActiveView.FrameLeft = 192 swApp.ActiveDoc.ActiveView.FrameTop = 83 swApp.ActiveDoc.ActiveView.FrameLeft = 123 swApp.ActiveDoc.ActiveView.FrameTop = 46 swApp.ActiveDoc.ActiveView.FrameLeft = 108 swApp.ActiveDoc.ActiveView.FrameTop = 36 swApp.ActiveDoc.ActiveView.FrameLeft = 46 swApp.ActiveDoc.ActiveView.FrameTop = 13 swApp.ActiveDoc.ActiveView.FrameLeft = 41 swApp.ActiveDoc.ActiveView.FrameTop = 12 swApp.ActiveDoc.ActiveView.FrameLeft = 40 swApp.ActiveDoc.ActiveView.FrameTop = 12 swApp.ActiveDoc.ActiveView.FrameWidth = 603 swApp.ActiveDoc.ActiveView.FrameHeight = 398 swApp.ActiveDoc.ActiveView.FrameWidth = 685 swApp.ActiveDoc.ActiveView.FrameHeight = 450 swApp.ActiveDoc.ActiveView.FrameWidth = 708 swApp.ActiveDoc.ActiveView.FrameHeight = 471 swApp.ActiveDoc.ActiveView.FrameWidth = 738 swApp.ActiveDoc.ActiveView.FrameHeight = 490 swApp.ActiveDoc.ActiveView.FrameWidth = 758 swApp.ActiveDoc.ActiveView.FrameHeight = 499 Part.ActiveView().RotateAboutCenter 0.0124244, 0.0145637 Part.ActiveView().RotateAboutCenter 0.173941, 0.466038 Part.ActiveView().RotateAboutCenter 0, 0.0145637 Part.ActiveView().RotateAboutCenter 0, 0.0145637 Part.ActiveView().RotateAboutCenter 0.186366, 0.189328 Part.ActiveView().RotateAboutCenter 0.0496975, 0.0728184 Part.ViewZoomtofit2 Part.ActiveView().RotateAboutCenter 0.0496975, 0.0145637 Part.ActiveView().RotateAboutCenter 0.19879, 0.378656 Part.ActiveView().RotateAboutCenter 0.0124244, 0.0582547 Part.ActiveView().RotateAboutCenter 0.0496975, 0.203891 Part.ActiveView().RotateAboutCenter 0.0124244, 0.087382 Part.ActiveView().RotateAboutCenter 0, 0.043691 Part.ActiveView().RotateAboutCenter 0, 0.043691 Part.ActiveView().RotateAboutCenter -0.0124244, 0.0145637 Part.ActiveView().RotateAboutCenter -0.0248488, 0.101946 Part.ActiveView().RotateAboutCenter -0.0248488, 0.0582547 Part.ActiveView().RotateAboutCenter -0.0248488, 0.116509 Part.ActiveView().RotateAboutCenter 0, 0.043691 Part.ActiveView().RotateAboutCenter -0.0124244, 0.0145637 Part.ActiveView().RotateAboutCenter 0, 0.145637 Part.ActiveView().RotateAboutCenter 0, 0.0145637 Part.ActiveView().RotateAboutCenter -0.0124244, 0.0145637 Part.ActiveView().RotateAboutCenter 0, 0.0582547 Part.ViewZoomTo2 0.455585, -0.0460265, 0.150314, 0.601051, -0.223818, 0.150314 Part.SetPickMode Part.SetPickMode boolstatus = Part.Extension.SelectByID("", "EDGE", 0.4640308708229, -0.03179763209346, -0.2210105963299, False, 0, Nothing) Part.ViewZoomTo2 0.477493, -0.0911613, 0.150314, 0.515563, -0.126484, 0.150314 boolstatus = Part.Extension.SelectByID("", "FACE", 0.4697959244536, -0.02539999999993, -0.2222087849825, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.4678975769098, -0.03174999999987, -0.2195534809221, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.4602143320214, -0.03015810034111, -0.2386358740949, False, 0, Nothing) Part.ActiveView().RotateAboutCenter 0.0124244, 0 Part.ViewZoomtofit2 Part.ActiveView().RotateAboutCenter 0.0372731, -0.0291273 Part.ActiveView().RotateAboutCenter 0.0869706, -0.247582 Part.ActiveView().RotateAboutCenter 0.0496975, -0.0728184 Part.ActiveView().RotateAboutCenter 0.0745463, -0.1602 Part.ActiveView().RotateAboutCenter 0.0745463, -0.145637 Part.ActiveView().RotateAboutCenter 0.0372731, -0.233019 Part.ActiveView().RotateAboutCenter 0.0124244, -0.291273 Part.ActiveView().RotateAboutCenter 0, -0.145637 Part.ActiveView().RotateAboutCenter -0.0124244, -0.247582 Part.ActiveView().RotateAboutCenter -0.0745463, -0.291273 Part.ActiveView().RotateAboutCenter -0.0124244, -0.0145637 Part.ActiveView().RotateAboutCenter -0.0248488, -0.0291273 Part.ActiveView().RotateAboutCenter -0.173941, -0.466038 Part.ActiveView().RotateAboutCenter -0.0248488, -0.101946 Part.ActiveView().RotateAboutCenter -0.0124244, 0 Part.ActiveView().RotateAboutCenter 0, -0.0291273 Part.ActiveView().RotateAboutCenter -0.0621219, -0.101946 Part.ActiveView().RotateAboutCenter 0, -0.0145637 Part.ViewZoomTo2 0.381159, -0.0389452, 0.150314, 0.551219, -0.163454, 0.150314 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.4671449275908, -0.00949657542867, -0.2231982690671, False, 0, Nothing) Part.ActiveView().RotateAboutCenter 0, 0.0291273 Part.ActiveView().RotateAboutCenter 0.0745463, 0.334965 Part.ActiveView().RotateAboutCenter 0.0869706, 0.305837 Part.ActiveView().RotateAboutCenter 0, 0.0145637 Part.ActiveView().RotateAboutCenter 0, 0.116509 Part.ActiveView().RotateAboutCenter 0, 0.218455 Part.ActiveView().RotateAboutCenter 0, 0.189328 Part.ActiveView().RotateAboutCenter -0.0248488, 0.334965 Part.ActiveView().RotateAboutCenter -0.0124244, 0.233019 Part.ActiveView().RotateAboutCenter -0.0248488, 0.233019 Part.ActiveView().RotateAboutCenter -0.0496975, 0.334965 Part.ActiveView().RotateAboutCenter -0.0248488, 0.189328 Part.ActiveView().RotateAboutCenter -0.0372731, 0.0728184 Part.ActiveView().RotateAboutCenter -0.0745463, 0.189328 Part.ActiveView().RotateAboutCenter -0.124244, 0.233019 Part.ActiveView().RotateAboutCenter -0.099395, 0.189328 Part.ActiveView().RotateAboutCenter -0.099395, 0.218455 Part.ActiveView().RotateAboutCenter -0.0124244, 0.0145637 Part.ActiveView().RotateAboutCenter 0.0124244, 0 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.4682514668057, -0.02551139486002, -0.2319284613684, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 40 swApp.ActiveDoc.ActiveView.FrameTop = 12 Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 90 swApp.ActiveDoc.ActiveView.FrameTop = 49 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ViewZoomtofit2 Part.EditSketch Part.ViewZoomTo2 0.0467987, 0.230937, -2.96794e-015, 0.237001, 0.140592, -2.33706e-015 Part.ViewZoomTo2 0.0629697, 0.215155, -3.28743e-015, 0.12175, 0.182556, -3.0598e-015 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07804160414528, 0.201274737131, -3499.214303375, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.07820025544785, 0.2005608062938, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection Part.SetPickMode boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.08454630755095, 0.206113601884, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.EditSketch Part.ViewDisplayHiddenGreyed Part.EditSketch Part.ViewZoomTo2 0.0646301, 0.214889, -3.19142e-015, 0.131795, 0.171499, -2.88843e-015 Part.SetPickMode Part.ClearSelection Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0574976, 0.136431, -2.60585e-015, 0.216197, 0.0336031, -1.88781e-015 Part.EditSketch Part.EditSketch Part.InsertVerticalOrdinate Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06413683394253, 0.09026414097116, -3499.272246396, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0440049, 0.0915492, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.07248944506548, 0.08876495435934, -3499.27224707, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0724894, 0.088765, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06456517297448, 0.08555241161975, -3499.272113689, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0645652, 0.0855524, 0) Part.ClearSelection Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.970874 Part.EditSketch Part.InsertHorizontalOrdinate boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06071199149392, 0.08788554487845, -3499.272246391, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0614004, 0.107392, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.07218621968846, 0.08995090595347, -3499.272247056, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0721862, 0.0899509, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.07425158076348, 0.08995090595347, -3499.272236105, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0742516, 0.0899509, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1011012747387, 0.08995090595347, -3499.266931643, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.101101, 0.0899509, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1038550895054, 0.08972142138958, -3499.266133248, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.103855, 0.0897214, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1304752989167, 0.09018039051736, -3499.252595085, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.130475, 0.0901804, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1329996291195, 0.08972142138958, -3499.250916637, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.133, 0.0897214, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1603082922225, 0.09018039051736, -3499.224950641, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.160308, 0.0901804, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1626031378614, 0.09018039051736, -3499.221807769, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.162603, 0.0901804, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1894528318366, 0.08995090595347, -3499.17282702, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.189453, 0.0899509, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1915181929117, 0.09018039051736, -3499.167041226, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.191518, 0.0901804, 0) Part.ClearSelection Part.ClearSelection Part.EditSketch Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.934579 Part.ActiveView().ZoomByFactor 0.877193 Part.ActiveView().ZoomByFactor 0.961538 Part.EditSketch Part.EditSketch Part.InsertVerticalOrdinate boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.06059089763001, 0.2048341853812, -3499.214303375, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0415864, 0.206319, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem88@Drawing View2", "CENTERMARKSYM", 0.07276563145804, 0.2030525170406, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0727656, 0.203053, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem87@Drawing View2", "CENTERMARKSYM", 0.1027570489368, 0.2024586275856, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.102757, 0.202459, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem86@Drawing View2", "CENTERMARKSYM", 0.1318576322331, 0.200380014493, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.131858, 0.20038, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem85@Drawing View2", "CENTERMARKSYM", 0.1606612708018, 0.1968166777628, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.160661, 0.196817, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem84@Drawing View2", "CENTERMARKSYM", 0.1909496330081, 0.1905808384851, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.19095, 0.190581, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.198373251196, 0.1876113911855, -3499.214303375, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.198373, 0.187611, 0) Part.ClearSelection Part.ClearSelection Part.InsertHorizontalOrdinate boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06059089763001, 0.2030525170162, -3499.214303375, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0605909, 0.226214, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem88@Drawing View2", "CENTERMARKSYM", 0.07335952091306, 0.2033494617681, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0733595, 0.203349, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem87@Drawing View2", "CENTERMARKSYM", 0.1021631594818, 0.2027555723131, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.102163, 0.202756, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem86@Drawing View2", "CENTERMARKSYM", 0.1318576322331, 0.200380014493, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.131858, 0.20038, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem85@Drawing View2", "CENTERMARKSYM", 0.1612551602569, 0.1968166777628, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.161255, 0.196817, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem84@Drawing View2", "CENTERMARKSYM", 0.1909496330081, 0.1902838937575, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.19095, 0.190284, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.2022335326536, 0.188502225368, -3499.214303375, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.202234, 0.188502, 0) Part.ClearSelection Part.ClearSelection ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.SaveAs2 "G:\Drawings\TailSection\ShopDrawings\TailFlangeBottomStbd.SLDDRW", 0, FALSE, FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.2559805283335, 0.2024586275856, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Set Note = Part.InsertNote("Note: Part conforms to inside surface of tail fairing." & Chr(13) & Chr(10) & _ "This part is a mirror image of TailFlangeBottomPort.") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.2360852315901, 0.1724672101068, 0) End If End If Part.ClearSelection Part.WindowRedraw Part.SetPickMode Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem89@Drawing View4", "NOTE", 0.2746880461668, 0.1677160944666, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 90 swApp.ActiveDoc.ActiveView.FrameTop = 49 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc ("TailFlangeBottomPort - Sheet1") Part.ClearSelection Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = -75 swApp.ActiveDoc.ActiveView.FrameTop = -7 swApp.ActiveDoc.ActiveView.FrameLeft = -62 swApp.ActiveDoc.ActiveView.FrameTop = -8 swApp.ActiveDoc.ActiveView.FrameLeft = -34 swApp.ActiveDoc.ActiveView.FrameTop = -8 swApp.ActiveDoc.ActiveView.FrameLeft = -7 swApp.ActiveDoc.ActiveView.FrameTop = -5 swApp.ActiveDoc.ActiveView.FrameLeft = 50 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameLeft = 84 swApp.ActiveDoc.ActiveView.FrameTop = 31 swApp.ActiveDoc.ActiveView.FrameLeft = 92 swApp.ActiveDoc.ActiveView.FrameTop = 32 swApp.ActiveDoc.ActiveView.FrameLeft = 93 swApp.ActiveDoc.ActiveView.FrameTop = 32 swApp.ActiveDoc.ActiveView.FrameLeft = 113 swApp.ActiveDoc.ActiveView.FrameTop = 32 Part.ViewZoomTo2 0.0424221, 0.120824, -1.69411e-015, 0.225787, 0.026445, -1.03506e-015 Part.ViewZoomTo2 0.0517775, 0.109933, -2.03232e-015, 0.182378, 0.0436974, -1.56979e-015 Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1146791825924, 0.08401180211028, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.1120138576465, 0.08667712705618, 0, False, 0, Nothing) Part.ViewDisplayHiddenGreyed Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 113 swApp.ActiveDoc.ActiveView.FrameTop = 32 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.InsertVerticalOrdinate Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06429123247486, 0.09417600617777, -3499.162353385, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0540688, 0.0939998, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.07186996346138, 0.09241351059951, -3499.16252779, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.07187, 0.0924135, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07081246611442, 0.0895935176743, -3499.164990409, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0708125, 0.0895935, 0) Part.ClearSelection Part.ClearSelection boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.08297368560441, 0.11462095491, 0, False, 0, Nothing) Part.InsertHorizontalOrdinate Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06058999176052, 0.09100351413691, -3499.163179776, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.06059, 0.11092, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.07186996346138, 0.09417600617777, -3499.162353488, False, 0, Nothing) ' MSGBOX ' Cannot create this ordinate dimension. The selected entity has the wrong direction for the current ordinate group. Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.0720462130192, 0.09382350706212, -3499.162353494, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0720462, 0.0938235, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.07451370682877, 0.09399975661995, -3499.162363362, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0745137, 0.0939998, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1011273900605, 0.09364725750429, -3499.16764758, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.101127, 0.0936473, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.10359488387, 0.09399975661995, -3499.168443021, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.103595, 0.0939998, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1307373157752, 0.09399975661995, -3499.181911386, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.130737, 0.0939998, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.133028560027, 0.09382350706212, -3499.183579581, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.133029, 0.0938235, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1599947423743, 0.09364725750429, -3499.209327406, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.159995, 0.0936473, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1622859866261, 0.09347100794647, -3499.212434421, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.162286, 0.093471, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1894284185313, 0.09399975661995, -3499.260699701, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.189428, 0.0939998, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.191719662783, 0.09347100794647, -3499.266379759, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.19172, 0.093471, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.2028233849261, 0.09382350706212, -3499.295703386, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.202823, 0.0938235, 0) Part.ClearSelection Part.ClearSelection boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0, 0, 0, False, 0, Nothing) Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.840336 Part.ActiveView().ZoomByFactor 0.645161 Part.ActiveView().ZoomByFactor 0.877193 Part.ActiveView().ZoomByFactor 0.840336 Part.ActiveView().ZoomByFactor 0.970874 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0367784, 0.23162, -3.36533e-015, 0.212047, 0.142059, -2.73994e-015 Part.InsertVerticalOrdinate Part.ClearSelection ' MSGBOX ' The selected entity could not be converted into a line or a circular arc. ' MSGBOX ' The selected entity could not be converted into a line or a circular arc. boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.0601947542216, 0.188613488221, -3499.19824207, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0478952, 0.187904, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem88@Drawing View2", "CENTERMARKSYM", 0.07344038976135, 0.1897961342757, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0734404, 0.189796, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem87@Drawing View2", "CENTERMARKSYM", 0.1022969529015, 0.1909787803061, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.102297, 0.190979, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem86@Drawing View2", "CENTERMARKSYM", 0.1318631036599, 0.1928710139546, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.131863, 0.192871, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem85@Drawing View2", "CENTERMARKSYM", 0.1614292544183, 0.1964189520456, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.161429, 0.196419, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem84@Drawing View2", "CENTERMARKSYM", 0.1905223467645, 0.2030417698155, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.190522, 0.203042, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1964355769162, 0.2058801202638, -3499.19824207, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.196436, 0.20588, 0) Part.ClearSelection Part.ClearSelection Part.InsertHorizontalOrdinate boolstatus = Part.Extension.SelectByID("", "EDGE", 0.06066781263374, 0.1895596050452, -3499.19824207, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0611409, 0.176314, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem88@Drawing View2", "CENTERMARKSYM", 0.07296733134922, 0.1897961342757, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0729673, 0.189796, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem87@Drawing View2", "CENTERMARKSYM", 0.1022969529015, 0.1907422511, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.102297, 0.190742, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem86@Drawing View2", "CENTERMARKSYM", 0.1316265744538, 0.1923979555425, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.131627, 0.192398, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem85@Drawing View2", "CENTERMARKSYM", 0.1611927252122, 0.1961824228395, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.161193, 0.196182, 0) Part.ClearSelection boolstatus = Part.Extension.SelectByID("DetailItem84@Drawing View2", "CENTERMARKSYM", 0.1902858175584, 0.2028052406094, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.190286, 0.202805, 0) Part.ClearSelection Part.ClearSelection boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.09922207322265, 0.2342636250163, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.2405667935223, 0.216077902834, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.2405667935223, 0.216077902834, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Note = Part.InsertNote("Note: Part conforms to inside of tail fairing." & Chr(13) & Chr(10) & _ "This part is a mirror image of TailFlange BottomStbd.") If Not Note is Nothing Then Note.Angle = 0 boolstatus = Note.SetBalloon(0, 0) Set Annotation = Note.GetAnnotation() If Not Annotation is Nothing Then longstatus = Annotation.SetLeader2(False, 0, True, True, False, False) boolstatus = Annotation.SetPosition(0.226301659919, 0.1619892712551, 0) End If End If Part.ClearSelection Part.WindowRedraw Part.ViewZoomTo2 0.215603, 0.214889, -3.30425e-015, 0.403427, 0.0698603, -2.29152e-015 boolstatus = Part.Extension.SelectByID("DetailItem89@Drawing View4", "NOTE", 0.2959540784584, 0.1559355733635, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem89@Drawing View4", "NOTE", 0.2959540784584, 0.1559355733635, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.833333 Part.ActiveView().ZoomByFactor 0.826446 Part.ActiveView().ZoomByFactor 0.847458 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.869565 Part.ActiveView().ZoomByFactor 0.892857 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 0.934579 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.25424, 0.102768, -3.97853e-015, 0.403961, -0.0286726, -3.06069e-015 Part.EditSketch Part.EditSketch Part.EditSketch Part.Save2 FALSE swApp.PageSetup Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 113 swApp.ActiveDoc.ActiveView.FrameTop = 32 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 113 swApp.ActiveDoc.ActiveView.FrameTop = 32 Set Part = swApp.ActivateDoc ("TailFlangeBottomStbd - Sheet1") Part.EditSketch Part.EditSketch Part.ClearSelection swApp.PageSetup Part.EditSketch Part.EditSketch Part.PrintDirect swApp.LoadFile2 "G:\Drawings\TailSection\ShopDrawings\TailFlangeTopPort.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\ShopDrawings\TailFlangeTopPort.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TailFlangeTopPort - 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 Part.EditSketch Part.EditSketch swApp.LoadFile2 "G:\Drawings\TailSection\ShopDrawings\TailFlangeTopStbd.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Drawings\TailSection\ShopDrawings\TailFlangeTopStbd.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("TailFlangeTopStbd - 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 swApp.ActiveDoc.ActiveView.FrameLeft = 3 swApp.ActiveDoc.ActiveView.FrameTop = 6 swApp.ActiveDoc.ActiveView.FrameLeft = 4 swApp.ActiveDoc.ActiveView.FrameTop = 91 swApp.ActiveDoc.ActiveView.FrameLeft = -1 swApp.ActiveDoc.ActiveView.FrameTop = 140 Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("TailFlangeTopPort - Sheet1") boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1048545397714, 0.1551972527729, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameWidth = 949 swApp.ActiveDoc.ActiveView.FrameHeight = 620 swApp.ActiveDoc.ActiveView.FrameWidth = 937 swApp.ActiveDoc.ActiveView.FrameHeight = 597 swApp.ActiveDoc.ActiveView.FrameWidth = 885 swApp.ActiveDoc.ActiveView.FrameHeight = 506 swApp.ActiveDoc.ActiveView.FrameWidth = 819 swApp.ActiveDoc.ActiveView.FrameHeight = 420 swApp.ActiveDoc.ActiveView.FrameWidth = 794 swApp.ActiveDoc.ActiveView.FrameHeight = 398 Set Part = swApp.ActivateDoc ("TailFlangeTopStbd - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = -8 swApp.ActiveDoc.ActiveView.FrameTop = 123 swApp.ActiveDoc.ActiveView.FrameLeft = -53 swApp.ActiveDoc.ActiveView.FrameTop = 67 swApp.ActiveDoc.ActiveView.FrameLeft = -58 swApp.ActiveDoc.ActiveView.FrameTop = 51 swApp.ActiveDoc.ActiveView.FrameLeft = -52 swApp.ActiveDoc.ActiveView.FrameTop = 29 swApp.ActiveDoc.ActiveView.FrameLeft = -43 swApp.ActiveDoc.ActiveView.FrameTop = 16 swApp.ActiveDoc.ActiveView.FrameLeft = -32 swApp.ActiveDoc.ActiveView.FrameTop = 8 swApp.ActiveDoc.ActiveView.FrameLeft = -14 swApp.ActiveDoc.ActiveView.FrameTop = -4 swApp.ActiveDoc.ActiveView.FrameLeft = -8 swApp.ActiveDoc.ActiveView.FrameTop = -8 swApp.ActiveDoc.ActiveView.FrameLeft = -7 swApp.ActiveDoc.ActiveView.FrameTop = -9 swApp.ActiveDoc.ActiveView.FrameWidth = 949 swApp.ActiveDoc.ActiveView.FrameHeight = 624 swApp.ActiveDoc.ActiveView.FrameWidth = 887 swApp.ActiveDoc.ActiveView.FrameHeight = 506 swApp.ActiveDoc.ActiveView.FrameWidth = 858 swApp.ActiveDoc.ActiveView.FrameHeight = 448 swApp.ActiveDoc.ActiveView.FrameWidth = 825 swApp.ActiveDoc.ActiveView.FrameHeight = 433 swApp.ActiveDoc.ActiveView.FrameWidth = 783 swApp.ActiveDoc.ActiveView.FrameHeight = 423 swApp.ActiveDoc.ActiveView.FrameWidth = 782 swApp.ActiveDoc.ActiveView.FrameHeight = 423 swApp.ActiveDoc.ActiveView.FrameWidth = 768 swApp.ActiveDoc.ActiveView.FrameHeight = 419 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 Set Part = Nothing swApp.CloseDoc "TailFlangeTopStbd - Sheet1" Set Part = swApp.ActivateDoc ("TailFlangeTopPort - Sheet1") Part.ClearSelection Set Part = Nothing swApp.CloseDoc "TailFlangeTopPort - Sheet1" Set Part = swApp.ActivateDoc ("TailFlangeBottomStbd - Sheet1") Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "TailFlangeBottomStbd - Sheet1" Set Part = swApp.ActivateDoc ("0 TAIL FLANGE BASE PART.SLDPRT") Set Part = swApp.ActivateDoc ("TailFlangeBottomPort - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 113 swApp.ActiveDoc.ActiveView.FrameTop = 32 swApp.ActiveDoc.ActiveView.FrameWidth = 723 swApp.ActiveDoc.ActiveView.FrameHeight = 498 Part.Save2 FALSE Part.ClearSelection Set Part = Nothing swApp.CloseDoc "TailFlangeBottomPort - Sheet1" Set Part = swApp.ActivateDoc ("0 TAIL FLANGE BASE PART.SLDPRT") swApp.LoadFile2 "I:\Work_In_Progress\Dorado_2002\DMOTailSection\TailFlangeBottomPort.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("I:\Work_In_Progress\Dorado_2002\DMOTailSection\TailFlangeBottomPort.SLDDRW", 3, 0, "", longstatus) ' MSGBOX ' I:\Work_In_Progress\Dorado_2002\DMOTailSection\TailFlangeBottomPort.SLDDRW is not available for write access. Do you want to open document(s) read-only? swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("TAIL FLANGE BOTTOM STARBOARD.SLDPRT") Part.ClearSelection Set Part = swApp.ActivateDoc ("0 TAIL FLANGE BASE PART.SLDPRT") Set Part = swApp.ActivateDoc ("1 TAIL FLANGE MIRROR BASE PART.SLDPRT") Set Part = swApp.ActivateDoc ("0 SERIES 58 EXTENDED SHELL.SLDPRT") Set Part = swApp.ActivateDoc ("1 TAIL FLANGE MIRROR BASE PART.SLDPRT") swApp.ExitApp End Sub