' ****************************************************************************** ' swxJRNL.swj - journal recorded on 01/25/05 by drthom ' ***************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = Application.SldWorks Set Part = swApp.OpenDoc6 ("\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\DVLMount.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("DVLMount.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter -0.0644272, -0.156883 Part.ActiveView().RotateAboutCenter -0.0322136, -0.049542 Part.ActiveView().RotateAboutCenter -0.0644272, -0.16514 Part.ActiveView().RotateAboutCenter -0.045099, -0.156883 Part.ActiveView().RotateAboutCenter -0.148183, -0.231196 Part.ActiveView().RotateAboutCenter -0.0773126, -0.214682 Part.ActiveView().RotateAboutCenter -0.148183, -0.338537 Part.ActiveView().RotateAboutCenter -0.128854, -0.123855 Part.ActiveView().RotateAboutCenter -0.0515418, -0.008257 Part.ActiveView().RotateAboutCenter -0.0515418, -0.016514 Part.ActiveView().RotateAboutCenter -0.0128854, -0.008257 Part.ActiveView().RotateAboutCenter -0.0773126, -0.057799 Part.ActiveView().RotateAboutCenter -0.0128854, -0.041285 Part.ActiveView().RotateAboutCenter -0.0128854, -0.156883 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter 0.206167, 0.288995 Part.ActiveView().RotateAboutCenter 0.0708699, 0.454135 Part.ActiveView().RotateAboutCenter 0.0837554, 0.437621 Part.ActiveView().RotateAboutCenter 0.109526, 0.511934 Part.ActiveView().RotateAboutCenter 0.0837554, 0.396336 Part.ActiveView().RotateAboutCenter 0.115969, 0.132112 Part.ActiveView().RotateAboutCenter 0.0128854, 0.008257 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter 0.0128854, 0.231196 Part.ActiveView().RotateAboutCenter 0, 0.156883 Part.ActiveView().RotateAboutCenter 0.00644272, 0.239453 Part.ActiveView().RotateAboutCenter 0.00644272, 0.16514 Part.ActiveView().RotateAboutCenter 0, 0.033028 Part.ActiveView().RotateAboutCenter 0, 0.024771 Part.ActiveView().RotateAboutCenter 0, 0.033028 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter 0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter 0.0193282, 0.024771 Part.ActiveView().RotateAboutCenter 0.0322136, 0.049542 Part.ActiveView().RotateAboutCenter 0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter 0.0193282, 0.008257 Part.ActiveView().RotateAboutCenter 0.045099, 0 Part.ActiveView().RotateAboutCenter 0.0515418, 0 Part.ActiveView().RotateAboutCenter 0.0708699, -0.008257 Part.ActiveView().RotateAboutCenter 0.0128854, 0 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.0193282, 0 Part.ActiveView().RotateAboutCenter 0.0257709, -0.008257 Part.ActiveView().RotateAboutCenter 0.0257709, 0 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0.0515418, -0.057799 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0.0708699, -0.074313 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.847458 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1.16 Part.ActiveView().ZoomByFactor 1.04 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter -0.0386563, -0.255967 Part.ActiveView().RotateAboutCenter 0, -0.074313 Part.ActiveView().RotateAboutCenter -0.00644272, -0.123855 Part.ActiveView().RotateAboutCenter 0, -0.189911 Part.ActiveView().RotateAboutCenter 0, -0.024771 Part.ActiveView().RotateAboutCenter 0, -0.123855 Part.ActiveView().RotateAboutCenter 0, -0.132112 Part.ActiveView().RotateAboutCenter 0, -0.099084 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter -0.00644272, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.066056 Part.ActiveView().RotateAboutCenter -0.00644272, -0.115598 Part.ActiveView().RotateAboutCenter -0.00644272, -0.08257 Part.ActiveView().RotateAboutCenter 0, -0.041285 Part.ActiveView().RotateAboutCenter 0, -0.041285 Part.ActiveView().RotateAboutCenter 0, -0.066056 Part.ActiveView().RotateAboutCenter -0.00644272, -0.041285 Part.ActiveView().RotateAboutCenter -0.00644272, -0.066056 Part.ActiveView().RotateAboutCenter 0, -0.057799 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.0128854, 0.429364 Part.ActiveView().RotateAboutCenter 0.0644272, 1.13121 Part.ActiveView().RotateAboutCenter -0.0193282, 0.511934 Part.ActiveView().RotateAboutCenter -0.0193282, 0.206425 Part.ActiveView().RotateAboutCenter -0.0128854, 0.16514 Part.ActiveView().RotateAboutCenter -0.0128854, 0 Part.ActiveView().RotateAboutCenter -0.115969, -0.008257 Part.ActiveView().RotateAboutCenter -0.148183, -0.090827 Part.ActiveView().RotateAboutCenter -0.0579845, -0.024771 Part.ActiveView().RotateAboutCenter -0.0128854, -0.008257 Part.ActiveView().RotateAboutCenter -0.173953, 0.041285 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.128854, 0.041285 Part.ActiveView().RotateAboutCenter 0.0966408, 0.041285 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.167511, -0.024771 Part.ActiveView().RotateAboutCenter -0.0966408, 0 Part.ActiveView().RotateAboutCenter -0.00644272, 0 swApp.LoadFile2 "\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\DVL.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\DVL.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DVL.SLDPRT") Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.806452 Part.ActiveView().ZoomByFactor 0.840336 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.909091 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.13 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().RotateAboutCenter -0.0128854, 0 Part.ActiveView().RotateAboutCenter -0.161068, 0.074313 Part.ActiveView().RotateAboutCenter -0.0966408, 0.049542 Part.ActiveView().RotateAboutCenter -0.238381, 0.272481 Part.ActiveView().RotateAboutCenter -0.199724, 0.08257 Part.ActiveView().RotateAboutCenter -0.14174, 0.024771 Part.ActiveView().RotateAboutCenter 0.0708699, 0 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter -0.122412, 0 Part.ActiveView().RotateAboutCenter -0.0644272, 0.008257 Part.ActiveView().RotateAboutCenter -0.0386563, 0 Part.ActiveView().RotateAboutCenter 0.0257709, -0.041285 Part.ActiveView().RotateAboutCenter 0.148183, -0.24771 Part.ActiveView().RotateAboutCenter 0.0128854, -0.049542 Part.ActiveView().RotateAboutCenter 0.0193282, -0.107341 Part.ActiveView().RotateAboutCenter 0.0128854, -0.107341 Part.ActiveView().RotateAboutCenter 0.00644272, -0.066056 Part.ActiveView().RotateAboutCenter 0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter 0.0708699, -0.074313 Part.ActiveView().RotateAboutCenter 0.0128854, -0.024771 Part.ActiveView().RotateAboutCenter 0.0322136, -0.041285 Part.ActiveView().RotateAboutCenter 0.0386563, -0.016514 Part.ActiveView().RotateAboutCenter 0.0708699, -0.008257 Part.ActiveView().RotateAboutCenter 0.0193282, -0.016514 Part.ActiveView().RotateAboutCenter 0.0322136, -0.024771 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.122412, -0.041285 Part.ActiveView().RotateAboutCenter 0.0322136, -0.008257 Part.ActiveView().RotateAboutCenter 0.0644272, -0.041285 Part.ActiveView().RotateAboutCenter 0.0773126, -0.074313 Part.ActiveView().RotateAboutCenter 0.0773126, -0.099084 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0.128854, -0.057799 Part.ActiveView().RotateAboutCenter 0.00644272, -0.074313 Part.ActiveView().RotateAboutCenter 0.0128854, -0.024771 Part.ActiveView().RotateAboutCenter 0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.049542 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.033028 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.0257709, 0 Part.ActiveView().RotateAboutCenter -0.0773126, 0 Part.ActiveView().RotateAboutCenter -0.0515418, 0.008257 Part.ActiveView().RotateAboutCenter -0.0515418, 0.008257 Part.ActiveView().RotateAboutCenter -0.0322136, 0.008257 Part.ActiveView().RotateAboutCenter -0.0128854, 0.008257 Part.ActiveView().RotateAboutCenter -0.0386563, 0.016514 Part.ActiveView().RotateAboutCenter -0.0322136, 0.016514 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.0128854, 0 Part.ActiveView().RotateAboutCenter -0.109526, 0.24771 Part.ActiveView().RotateAboutCenter -0.0386563, 0.264224 Part.ActiveView().RotateAboutCenter -0.00644272, 0.272481 Part.ActiveView().RotateAboutCenter 0, 0.057799 Part.ActiveView().RotateAboutCenter -0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter -0.0257709, -0.189911 Part.ActiveView().RotateAboutCenter -0.00644272, -0.057799 Part.ActiveView().RotateAboutCenter -0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter -0.14174, 0.24771 Part.ActiveView().RotateAboutCenter -0.00644272, 0.123855 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter -0.0128854, 0 Part.ActiveView().RotateAboutCenter 0, 0.132112 Part.ActiveView().RotateAboutCenter -0.0193282, 0.346794 Part.ActiveView().RotateAboutCenter -0.0128854, 0.462392 Part.ActiveView().RotateAboutCenter -0.00644272, 0.107341 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter 0, 0.123855 Part.ActiveView().RotateAboutCenter -0.0257709, 0.132112 Part.ActiveView().RotateAboutCenter -0.00644272, 0.016514 Part.ActiveView().RotateAboutCenter -0.0322136, 0 Part.ActiveView().RotateAboutCenter -0.122412, 0.173397 Part.ActiveView().RotateAboutCenter -0.257709, 0.08257 Part.ActiveView().RotateAboutCenter -0.0708699, 0 Part.ActiveView().RotateAboutCenter 0.0193282, 0 Part.ActiveView().RotateAboutCenter 0.045099, 0 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter 0.0193282, 0.470649 Part.ActiveView().RotateAboutCenter 0.00644272, 0.148626 Part.ActiveView().RotateAboutCenter 0.00644272, 0.024771 Part.ActiveView().RotateAboutCenter 0, 0.024771 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.222939 Part.ActiveView().RotateAboutCenter -0.00644272, -0.148626 Part.ActiveView().RotateAboutCenter -0.00644272, -0.198168 Part.ActiveView().RotateAboutCenter 0, -0.132112 Part.ActiveView().RotateAboutCenter 0.00644272, -0.033028 Part.ActiveView().RotateAboutCenter 0, -0.08257 Part.ActiveView().RotateAboutCenter 0.00644272, -0.016514 Part.ActiveView().RotateAboutCenter 0.0128854, -0.08257 Part.ActiveView().RotateAboutCenter 0, -0.024771 Part.ActiveView().RotateAboutCenter 0.0128854, -0.066056 Part.ActiveView().RotateAboutCenter 0, -0.024771 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.214682 Part.ActiveView().RotateAboutCenter 0, -0.08257 Part.ActiveView().RotateAboutCenter 0.00644272, -0.057799 Part.ActiveView().RotateAboutCenter 0.00644272, -0.016514 Part.ActiveView().RotateAboutCenter 0.0128854, -0.057799 Part.ActiveView().RotateAboutCenter 0.0128854, -0.08257 Part.ActiveView().RotateAboutCenter 0.00644272, -0.049542 Part.ActiveView().RotateAboutCenter 0.0128854, -0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, -0.066056 Part.ActiveView().RotateAboutCenter 0.00644272, -0.066056 Part.ActiveView().RotateAboutCenter 0.0128854, -0.074313 Part.ActiveView().RotateAboutCenter 0, -0.041285 Part.ActiveView().RotateAboutCenter 0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.033028 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.074313 Part.ActiveView().RotateAboutCenter 0.00644272, -0.066056 Part.ActiveView().RotateAboutCenter 0.00644272, -0.049542 Part.ActiveView().RotateAboutCenter 0.00644272, -0.024771 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter 0.00644272, -0.041285 Part.ActiveView().RotateAboutCenter 0.0128854, -0.08257 Part.ActiveView().RotateAboutCenter 0, -0.049542 Part.ActiveView().RotateAboutCenter 0.00644272, -0.057799 Part.ActiveView().RotateAboutCenter 0.0128854, -0.024771 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.180396, 0 Part.ActiveView().RotateAboutCenter 0.0257709, 0 Part.ActiveView().RotateAboutCenter 0.103084, 0 Part.ActiveView().RotateAboutCenter 0.0193282, 0 Part.ActiveView().RotateAboutCenter 0.0128854, -0.016514 Part.ActiveView().RotateAboutCenter 0.0193282, -0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter 0.00644272, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.074313 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter -0.00644272, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.049542 Part.ActiveView().RotateAboutCenter -0.00644272, -0.066056 Part.ActiveView().RotateAboutCenter 0, -0.099084 Part.ActiveView().RotateAboutCenter 0, -0.049542 Part.ActiveView().RotateAboutCenter 0, -0.132112 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, -0.024771 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.049542 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.041285 Part.ActiveView().RotateAboutCenter -0.00644272, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter -0.0128854, 0 Part.ActiveView().RotateAboutCenter -0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.0128854, -0.016514 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.0773126, -0.016514 Part.ActiveView().RotateAboutCenter -0.0193282, 0 Part.ActiveView().RotateAboutCenter -0.0193282, -0.016514 Part.ActiveView().RotateAboutCenter -0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.0193282, 0 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.0193282, 0 Part.ActiveView().RotateAboutCenter 0.0128854, 0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter 0.0193282, -0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.0128854, 0.016514 Part.ActiveView().RotateAboutCenter 0.00644272, 0.016514 Part.ActiveView().RotateAboutCenter 0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0.016514 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter 0, 0.024771 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter 0.00644272, 0.016514 Part.ActiveView().RotateAboutCenter -0.0322136, 0.107341 Part.ActiveView().RotateAboutCenter -0.0644272, 0.024771 Part.ActiveView().RotateAboutCenter -0.0128854, 0.016514 Part.ActiveView().RotateAboutCenter -0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter -0.0128854, 0.08257 Part.ActiveView().RotateAboutCenter -0.0515418, 0.033028 Part.ActiveView().RotateAboutCenter -0.0708699, 0.173397 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter 0, 0.528448 Part.ActiveView().RotateAboutCenter -0.00644272, 0.181654 Part.ActiveView().RotateAboutCenter -0.00644272, 0.181654 Part.ActiveView().RotateAboutCenter 0, 0.074313 Part.ActiveView().RotateAboutCenter 0, 0.033028 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter -0.0128854, 0.313766 Part.ActiveView().RotateAboutCenter -0.00644272, 0.338537 Part.ActiveView().RotateAboutCenter -0.00644272, 0.148626 Part.ActiveView().RotateAboutCenter -0.00644272, 0.074313 Part.ActiveView().RotateAboutCenter 0, 0.033028 Part.ActiveView().RotateAboutCenter -0.00644272, 0.057799 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0.0128854, -0.066056 Part.ActiveView().RotateAboutCenter 0.00644272, -0.123855 Part.ActiveView().RotateAboutCenter 0.0193282, -0.338537 Part.ActiveView().RotateAboutCenter 0.00644272, -0.371565 Part.ActiveView().RotateAboutCenter 0, -0.206425 Part.ActiveView().RotateAboutCenter 0, -0.214682 Part.ActiveView().RotateAboutCenter 0, -0.099084 Part.ActiveView().RotateAboutCenter 0.00644272, -0.148626 Part.ActiveView().RotateAboutCenter 0, -0.090827 Part.ActiveView().RotateAboutCenter 0.00644272, -0.08257 Part.ActiveView().RotateAboutCenter 0, -0.041285 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter 0.00644272, -0.016514 Part.ActiveView().RotateAboutCenter 0.00644272, -0.033028 Part.ActiveView().RotateAboutCenter 0.00644272, -0.033028 Part.ActiveView().RotateAboutCenter 0.045099, -0.090827 Part.ActiveView().RotateAboutCenter 0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter 0.0128854, -0.041285 Part.ActiveView().RotateAboutCenter 0.00644272, -0.016514 Part.ActiveView().RotateAboutCenter 0.00644272, -0.123855 Part.ActiveView().RotateAboutCenter 0.00644272, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter 0, 0.107341 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Set Part = Nothing swApp.CloseDoc "DVL.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DVLMount.SLDPRT") swApp.LoadFile2 "\\Polarbear\dorado\Drawings\600024-Dorado\drawings\vehicle\dorado2000.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("\\Polarbear\dorado\Drawings\600024-Dorado\drawings\vehicle\dorado2000.SLDASM", 2, 0, "", longstatus, longwarnings) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.InsertSketch2 True swApp.LoadFile2 "D:\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 ' MSGBOX ' D:\SolidWorks\MBARI_Borders\MBARI_TEMP_B.slddrt is not available for write access. Do you want to open document(s) read-only? Set Part = swApp.NewDocument ("D:\SolidWorks\data\templates\Drawing.drwdot", 2, 0.279400, 0.431800) Part.CreateDrawViewFromModelView "\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\DVLMount.SLDPRT", "*Front", 0.1178161994302, 0.09891888888889, 0 boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.1178161994302, 0.1855003247863, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.2340946495726, 0.09891888888889, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0492203, 0.201813, -1.42876e-015, 0.245388, 0.0587652, -4.29866e-016 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08424355461942, 0.1858977387741, -1499.7208, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1513094011629, 0.1858977387741, -1499.7208, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.118522, 0.168572, -1.31485e-015) Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "SILHOUETTE", 0.2345828272877, 0.1197633623215, -1499.67, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2342102392513, 0.07840609028641, -1499.53665, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.220797, 0.0972218, -7.92039e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View2", "DIMENSION", 0, 0, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08424355461942, 0.08213197064994, -1499.660475, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem99@Drawing View1", "CENTERMARKSYM", 0.08685167087388, 0.08324973476947, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.085175, 0.0668559, -7.10258e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View3", "DIMENSION", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1511231071447, 0.08269085270447, -1499.660475, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem98@Drawing View1", "CENTERMARKSYM", 0.1485149908902, 0.08324973476947, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.151123, 0.0681599, -7.10258e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View1", "DIMENSION", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1172175958366, 0.1197633623215, -1499.660475, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem97@Drawing View1", "CENTERMARKSYM", 0.09709784187358, 0.1085857212414, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.11759, 0.119391, -7.10258e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD2@Drawing View1", "DIMENSION", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1436713464176, 0.07859238430459, -1499.660475, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem96@Drawing View1", "CENTERMARKSYM", 0.1380825258724, 0.1085857212414, 0, True, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem96@Drawing View1", "CENTERMARKSYM", 0.1384551139087, 0.1085857212414, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.144043934454, 0.07840609028641, -1499.660475, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.165468, 0.102624, -7.10258e-016) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD4@Drawing View1", "DIMENSION", 0.1654677465443, 0.1026243126598, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem96@Drawing View1", "CENTERMARKSYM", 0.1384551139087, 0.1083994272233, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1459068746358, 0.07840609028641, -1499.660475, True, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("RD3@Drawing View1", "DIMENSION", 0.1134917154731, 0.1195770683138, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD3@Drawing View1", "DIMENSION", 0.1134917154731, 0.1199496563502, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.09188160936464, 0.07859238430459, -1499.660475, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem97@Drawing View1", "CENTERMARKSYM", 0.09672525383723, 0.1087720152596, 0, True, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.EditSketch Part.ViewZoomTo2 0.0587213, 0.125725, -4.11309e-016, 0.108648, 0.0705817, -2.62473e-017 Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem97@Drawing View1", "CENTERMARKSYM", 0.09697007075723, 0.108540022083, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem97@Drawing View1", "CENTERMARKSYM", 0.09558976964634, 0.1084710070275, 0, True, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem97@Drawing View1", "CENTERMARKSYM", 0.09772923636822, 0.1084019919719, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.09131083620257, 0.0784494578551, -1499.660475, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem97@Drawing View1", "CENTERMARKSYM", 0.09710810086832, 0.1084710070275, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0.0813036531486, 0.1069526758055, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem97@Drawing View1", "CENTERMARKSYM", 0.09731514603495, 0.1084710070275, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08979250498059, 0.07824241268847, -1499.660475, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem97@Drawing View1", "CENTERMARKSYM", 0.09579681481297, 0.1084710070275, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem97@Drawing View1", "CENTERMARKSYM", 0.09579681481297, 0.1084710070275, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode Part.SetPickMode Part.SetPickMode Part.CreateLine2( -0.08283239424751, 0.03820847255442, 0, -0.1899437604528, 0.03820847255442, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08806712859197, 0.07838044279956, -1499.660475, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.0760585089272, 0.108540022083, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0634288, 0.0966004, -7.10258e-016) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True Part.ActiveView().ZoomByFactor 1.04 Part.ActiveView().ZoomByFactor 1.24 Part.ActiveView().ZoomByFactor 1.38 Part.ActiveView().ZoomByFactor 0.5 Part.ActiveView().ZoomByFactor 0.574713 Part.ActiveView().ZoomByFactor 0.819672 Part.ActiveView().ZoomByFactor 0.909091 Part.ActiveView().ZoomByFactor 0.543478 Part.ActiveView().ZoomByFactor 1.05 Part.ActiveView().ZoomByFactor 1.17 Part.ActiveView().ZoomByFactor 0.763359 Part.ActiveView().ZoomByFactor 1 Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.PageSetup Part.EditSketch Part.EditSketch swApp.PageSetup Part.EditSketch Part.EditSketch Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Set Part = Nothing swApp.CloseDoc "DVLMount - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DVLMount.SLDPRT") Part.SaveAs2 "\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\2005_DVLMount.SLDPRT", 0, FALSE, FALSE boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Sketch1" Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.ActiveView().RotateAboutCenter 0, -0.08257 Part.ActiveView().RotateAboutCenter 0.238381, -0.297252 Part.ActiveView().RotateAboutCenter 0.154625, -0.016514 Part.ActiveView().RotateAboutCenter 0.161068, -0.016514 Part.ActiveView().RotateAboutCenter 0.173953, -0.016514 Part.ActiveView().RotateAboutCenter 0.0708699, -0.016514 Part.ActiveView().RotateAboutCenter -0.0322136, 0 Part.ActiveView().RotateAboutCenter -0.122412, 0.033028 Part.ActiveView().RotateAboutCenter -0.161068, 0.016514 Part.ActiveView().RotateAboutCenter -0.115969, 0 Part.ActiveView().RotateAboutCenter -0.122412, 0 Part.ActiveView().RotateAboutCenter -0.0579845, 0 Part.ActiveView().RotateAboutCenter -0.0128854, 0 Part.ActiveView().RotateAboutCenter -0.00644272, 0.049542 Part.ActiveView().RotateAboutCenter 0, 0.033028 Part.ActiveView().RotateAboutCenter -0.0128854, 0.41285 Part.ActiveView().RotateAboutCenter 0, 0.057799 Part.ActiveView().RotateAboutCenter 0.00644272, 0.173397 Part.ActiveView().RotateAboutCenter 0.0644272, 0.090827 Part.ActiveView().RotateAboutCenter 0.173953, 0.066056 Part.ActiveView().RotateAboutCenter 0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter -0.0128854, -0.049542 Part.ActiveView().RotateAboutCenter -0.154625, -0.751387 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter 0.0644272, -0.090827 Part.ActiveView().RotateAboutCenter 0.00644272, -0.024771 Part.ActiveView().RotateAboutCenter 0, 0.008257 Part.ActiveView().RotateAboutCenter 0, 0.016514 Part.ActiveView().RotateAboutCenter 0.0193282, 0.107341 Part.ActiveView().RotateAboutCenter 0, -0.008257 boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActiveView().RotateAboutCenter 0, 0 Part.ClearSelection2 True Part.InsertSketch2 True Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateminusx boolstatus = Part.Extension.SelectByID("", "FACE", -0.1051886168899, -0.4800793110295, 0.01904999999999, False, 0, Nothing) Part.FeatureManager.HoleWizard 2, 0, 18, "5/16", 1, 0.0079375, 0.01905, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1 swApp.LoadFile2 "D:\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 ("D:\SolidWorks\data\templates\Drawing.drwdot", 2, 0.279400, 0.431800) Part.CreateDrawViewFromModelView "\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\2005_DVLMount.SLDPRT", "*Front", 0.08636810638298, 0.1309640212766, 0 boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.08581687234043, 0.1475010425427, -1499.660475, False, 0, Nothing) Part.AddHoleCallout2 0.143145, 0.161558, -1.14323e-015 Part.SetPickMode Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") boolstatus = Part.Extension.SelectByID("Sketch6", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch6", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point16", "SKETCHPOINT", 0, -0.4053448547461, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Point17", "SKETCHPOINT", 0.1153551452539, -0.5207, 0, False, 0, Nothing) Part.EditDelete Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("5/16 (0.3125) Diameter Hole1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("5/16 (0.3125) Diameter Hole1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("5/16 (0.3125) Diameter Hole1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("5/16 (0.3125) Diameter Hole1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch6", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.09954947916667, -0.4604948893229, 0.01904999999999, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Plane1", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane2", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Plane3", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ActiveView().RotateAboutCenter -0.0128854, 0 Part.ActiveView().RotateAboutCenter -0.231938, 0 Part.ActiveView().RotateAboutCenter -0.128854, 0 Part.ActiveView().RotateAboutCenter -0.103084, 0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0.008257 Part.ActiveView().RotateAboutCenter -0.0644272, 0.008257 Part.ActiveView().RotateAboutCenter -0.0579845, 0.008257 Part.ActiveView().RotateAboutCenter -0.0257709, 0.008257 Part.ActiveView().RotateAboutCenter -0.0128854, 0.008257 Part.ActiveView().RotateAboutCenter 0, -0.016514 boolstatus = Part.Extension.SelectByID("", "FACE", -0.02512012094012, -0.4325337641216, 0.006019440828538, False, 0, Nothing) Part.InsertAxis2 True boolstatus = Part.Extension.SelectByID("5/16 (0.3125) Diameter Hole1", "BODYFEATURE", 0, 0, 0, True, 0, Nothing) Part.ActivateSelectedFeature Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("5/16 (0.3125) Diameter Hole1", "BODYFEATURE", 0, 0, 0, False, 4, Nothing) boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, True, 1, Nothing) Part.FeatureCirPattern 3, 0.2617993877992, False, "NULL" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("2005_DVLMount - Sheet1") boolstatus = Part.Extension.SelectByID("RD1@Drawing View1", "DIMENSION", 0.1210958510638, 0.1317908723404, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD1@Drawing View1", "DIMENSION", 0.1144810425532, 0.1676210851064, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, False, 0, Nothing) Part.ReorderFeature "Axis1", "Axis1" boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, False, 0, Nothing) Part.ReorderFeature "Axis1", "Cut-Extrude1" boolstatus = Part.Extension.SelectByID("5/16 (0.3125) Diameter Hole1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch6", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch6", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Axis1", "AXIS", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point9", "SKETCHPOINT", -0.1153551452539, -0.5207, 0, True, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch6", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.08217419966265, -0.4268331147182, 0.01904999999999, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Base-Extrude", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Base-Extrude", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.FeatEdit Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch1@2005_DVLMount.SLDPRT", "DIMENSION", -0.074662109375, -0.4571917317708, -0.0047625, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D2@Sketch1@2005_DVLMount.SLDPRT", "DIMENSION", -0.074662109375, -0.4571917317708, -0.0047625, False, 0, Nothing) Part.EditDelete Part.ClearSelection2 True ' MSGBOX ' Deleting the offset dimension will remove the offset relations from the sketch geometry. Do you want to continue? boolstatus = Part.Extension.SelectByID("Arc10", "SKETCHSEGMENT", -0.06713802083333, -0.4592174479167, -0.0047625, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc5", "SKETCHSEGMENT", 0.01418001302083, -0.3880279947917, -0.004762500000001, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc10", "SKETCHSEGMENT", 0.008392252604167, -0.418703125, -0.004762500000001, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc5", "SKETCHSEGMENT", 0.01331184895833, -0.3880279947917, -0.004762500000001, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point28", "SKETCHPOINT", 0.00929, -0.5207, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point12", "SKETCHPOINT", 0, -0.5207, 0, True, 0, Nothing) Part.ClearSelection2 True Part.ViewZoomToSelection Part.ViewZoomToSelection Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.787402 Part.ActiveView().ZoomByFactor 0.892857 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 1.06 Part.ActiveView().ZoomByFactor 1.15 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.08 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.08 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 boolstatus = Part.Extension.SelectByID("Line6", "SKETCHSEGMENT", -0.09146887942028, -0.5366892492226, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(-0.0661723, -0.539466, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.110904088201, -0.5382317261099, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0964048, -0.536381, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch1@2005_DVLMount.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing) ' MSGBOX ' The sketch is no longer over defined. boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.1337327461339, -0.5385402214874, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(-0.146998, -0.537923, 0) Part.ClearSelection2 True ' MSGBOX ' The sketch is no longer over defined. boolstatus = Part.Extension.SelectByID("D2@Sketch1@2005_DVLMount.SLDPRT", "DIMENSION", -0.06277880931543, -0.5397742029973, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Arc5", "SKETCHSEGMENT", 0.008175127502993, -0.386452000394, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditUndo 1 Part.EditUndo 1 Part.EditUndo 1 Part.EditUndo 1 Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("Arc5", "SKETCHSEGMENT", 0.02699334552875, -0.3904624403011, 0, False, 0, Nothing) ' MSGBOX ' Save changes to 2005_DVLMount.SLDPRT? Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "2005_DVLMount.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("2005_DVLMount - Sheet1") Set Part = Nothing swApp.CloseDoc "2005_DVLMount - Sheet1" Set Part = swApp.OpenDoc6 ("\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\2005_DVLMount.SLDPRT", 1, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = Nothing swApp.CloseDoc "2005_DVLMount.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("D:\SolidWorks\data\templates\Part.prtdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Part1") boolstatus = Part.Extension.SelectByID("Top Plane", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Top Plane", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.SetPickMode Part.SetPickMode boolstatus = Part.Extension.SelectByID("Top Plane", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.CreateArcVB 0, 0, 0, -0.1334244140625, 0, 0, 0.1334244140625, 0, 0, -1 Part.ViewZoomtofit2 Part.ClearSelection2 True Part.CreateArcVB 0, 0, 0, -0.1009964192708, 0, 0, 0.1009964192708, 0, 0, -1 Part.SetPickMode Part.ClearSelection2 True Part.SaveAs2 "\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\2005_DVLMount.SLDPRT", 0, FALSE, FALSE Part.CreateLine2 -0.13335, 0, 0, -0.13335, -0.03215100911458, 0 Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -0.1328291015625, 0, 0.01478772786458, False, 0, Nothing) Set Annotation = Part.AddDimension2(-0.144405, 0, 0.0133408) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch1@2005_DVLMount.SLDPRT", "DIMENSION", -0.1438258463542, 0, 0.01391956380208, False, 0, Nothing) Part.Parameter("D1@Sketch1").SystemValue = 0.03175 Part.ClearSelection2 True Part.CreateLine2 -0.100965, 0, 0, -0.100965, -0.03175, 0 Part.CreateLine2 -0.100965, -0.03175, 0, -0.13335, -0.03175, 0 Part.ClearSelection2 True Part.CreateLine2 0.100965, 0, 0, 0.100965, -0.03175, 0 Part.CreateLine2 0.100965, -0.03175, 0, 0.13335, -0.03175, 0 Part.CreateLine2 0.13335, -0.03175, 0, 0.13335, 0, 0 Part.ClearSelection2 True Part.Save2 FALSE Part.CreateArcVB -0.100965, 0, 0, -0.100965, -0.01276201171875, 0, -0.1001584386019, 0.01273649880543, 0, 1 Part.SetPickMode Part.ClearSelection2 True Part.CreateArcVB 0.100965, 0, 0, 0.100965, -0.01276201171875, 0, 0.1001584386019, 0.01273649880543, 0, -1 Part.SetPickMode Part.ClearSelection2 True Part.CreateLine2( 0, 0, 0, 0, 0.1585556966146, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True Part.CreateArcVB 0, 0.100965, 0, -0.01270438385042, 0.1001625172207, 0, 0.01270438385042, 0.1001625172207, 0, 1 Part.SetPickMode Part.ClearSelection2 True Part.Save2 FALSE Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, -0.1009964192708, -0.006106087239584 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, -0.1009964192708, 0.00373310546875 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, -0.008392252604167, 0.1015462565104 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc6", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, 0.009260416666667, 0.1009674804687 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc6", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, 0.1021539713542, 0.005180045572916 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, 0.1009964192708, -0.006974251302084 Part.Save2 FALSE Part.SetPickMode Part.SetPickMode Part.SetPickMode Part.CreateArcVB 0, 0, 0, -0.100965, -0.009578743489584, 0, 0.1012356070412, -0.00608567324379, 0, -1 Part.Save2 FALSE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc7", "SKETCHSEGMENT", -0.006366536458333, 0, -0.1006780924479, False, 0, Nothing) Part.Save2 FALSE Part.Save2 FALSE swApp.LoadFile2 "\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\DVL.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\DVL.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DVL.SLDPRT") Set Part = Nothing swApp.CloseDoc "DVL.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") swApp.LoadFile2 "\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\DVLMount.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\DVLMount.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DVLMount.SLDPRT") boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.UnblankSketch boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.UnblankSketch boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.877193 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.854701 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.892857 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.11 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.05 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.ViewZoomTo2 -0.214075, -0.475224, 0.009525, -0.0616446, -0.602436, 0.009525 ' MSGBOX ' Save changes to DVLMount.SLDPRT? Set Part = Nothing swApp.CloseDoc "DVLMount.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ParentChildRelationship boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", -0.1418001302083, 0, -0.1808385742187, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc3", "SKETCHSEGMENT", -0.09434049479167, 0, -0.01154658203125, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Arc5", "SKETCHSEGMENT", -0.004630208333333, 0, -0.08852379557292, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Arc4", "SKETCHSEGMENT", 0.08999967447917, 0, 0.005527311197917, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line4", "SKETCHSEGMENT", 0.1012858072917, 0, 0.02404814453125, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Arc6", "SKETCHSEGMENT", 0.0928935546875, 0, -0.04048538411458, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", -0.01736328125, 0, -0.1003887044271, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", -0.1015751953125, 0, 0.01941793619792, False, 0, Nothing) Part.EditDelete Part.CreateArcVB 0, 0, 0, -0.1038902994792, 0, 0, 0.1038902994792, 0, 0, -1 Part.ClearSelection2 True Part.SetPickMode Part.CreateLine2 -0.100965, 0, 0, -0.100965, -0.03175, 0 Part.ClearSelection2 True Part.SetPickMode Part.CreateLine2 0.100965, 0, 0, 0.100965, -0.03175, 0 Part.ClearSelection2 True Part.SetPickMode Part.SetPickMode Part.ViewZoomTo2 -0.120096, 0.00981025, 3.97085e-016, -0.0839225, -0.0147877, 5.68852e-016 Part.ViewRotateplusx Part.ViewRotateplusx Part.ViewRotateplusy Part.ViewRotateplusy Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewRotateminusx Part.ViewZoomTo2 -0.147624, 0.0366592, 4.66838e-016, -0.0599899, -0.0289156, 9.24744e-016 Part.SetPickMode Part.CreateArcVB -0.101346, 0, 0, -0.100965, -0.01277361193237, 0, -0.100160009365, 0.01272414040367, 0, 1 Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc8", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, -0.100469500392, 0.005540633524328 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, -0.1008974033232, -0.007125293240116 Part.SetPickMode Part.ViewZoomTo2 -0.114847, 0.00297322, 7.02066e-016, -0.0884882, -0.0209893, 8.69396e-016 boolstatus = Part.Extension.SelectByID("Point19", "SKETCHPOINT", -0.1008856691091, -0.009571217215577, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point26", "SKETCHPOINT", -0.100965, -0.008694550337495, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point19", "SKETCHPOINT", -0.1008856691091, -0.009571217215577, 0, False, 0, Nothing) Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, -0.100887870567, -0.01040263338775 Part.SetPickMode Part.ViewZoomtofit2 Part.ViewZoomTo2 -0.0227579, 0.113999, 5.52005e-017, 0.0234582, 0.0853027, 2.55586e-016 Part.CreateArcVB 0, 0.1013594164905, 0, -0.01255368820483, 0.1001815159471, 0, 0.01255368820483, 0.1001815159471, 0, 1 Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc8", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, -0.004930409425398, 0.1008017113862 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc11", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, 0.00472804685514, 0.1007114454397 Part.SetPickMode Part.ViewZoomtofit2 Part.Save2 FALSE Part.ViewZoomTo2 0.06688, 0.0339177, 6.79172e-016, 0.126153, -0.0168874, 1.03394e-015 Part.SetPickMode Part.SetPickMode Part.SetPickMode Part.CreateArcVB 0.1013594164905, 0, 0, 0.1009678765349, -0.01261573275293, 0, 0.100182765894, 0.01256684167975, 0, -1 Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc11", "SKETCHSEGMENT", 0.1004586077181, 0, -0.006257866532436, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.EditUndo 1 Part.ClearSelection2 True Part.EditUndo 1 Part.ViewZoomtofit2 Part.ViewZoomTo2 0.0810206, 0.0160096, 8.37284e-016, 0.115846, -0.0154849, 1.05721e-015 Part.CreateArcVB 0.1013594164905, 0, 0, 0.1009678765349, -0.01261573275293, 0, 0.100182765894, 0.01256684167975, 0, -1 Part.SetPickMode Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID("Arc11", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 1, 0.1009167738406, 0.002647140742452 Part.SetPickMode boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing) Part.SketchTrim 1, 0, 0.1007985215644, -0.007877311845737 Part.ViewZoomtofit2 Part.Save2 FALSE Part.InsertSketch2 True Part.ShowNamedView2 "*Isometric", 7 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ShowNamedView2 "*Trimetric", 8 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.FeatureManager.FeatureExtrusion True, False, True, 0, 0, 0.01905, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1 Part.SelectionManager.EnableContourSelection = 0 Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("", "FACE", -0.1030169226144, 0, -0.04423387609194, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Top Plane", "PLANE", 0, 0, 0, False, 0, Nothing) Part.UnBlankRefGeom boolstatus = Part.Extension.SelectByID("Top Plane", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Top Plane", "PLANE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.CreateLine2( 0.1421235638787, 0.07664064797794, 0, -0.1413745595895, 0.07664064797794, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 0.1233984566483, -0.009525000000001, -0.07776415441176, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1144104051777, 0, 0.03159047181373, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.140626, 0, -0.0481785) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch2@2005_DVLMount.SLDPRT", "DIMENSION", 0.1391275467218, -0.009525000000001, -0.04855298713235, False, 0, Nothing) Part.Parameter("D1@Sketch2").SystemValue = 0.12065 Part.ClearSelection2 True Part.CreateLine2( -0.08407573146446, -0.06567016697304, 0, -0.08407573146446, 0.1770072227328, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.08295222503064, -0.009524999999999, -0.1309434589461, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.1323865081189, 0, 0.01698488817402, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.10355, 0, -0.165398) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch2@2005_DVLMount.SLDPRT", "DIMENSION", -0.1024263365502, -0.009524999999999, -0.1665211626838, False, 0, Nothing) Part.Parameter("D2@Sketch2").SystemValue = 0.0508 Part.ClearSelection2 True Part.CreateLine2( 0.07134265854779, -0.06567016697304, 0, 0.07134265854779, 0.1770072227328, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.0717171606924, -0.009525, -0.007732253370098, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1338845166973, 0, 0.01810839460784, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.108044, 0, -0.163151) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch2@2005_DVLMount.SLDPRT", "DIMENSION", 0.1091673751532, -0.009525000000001, -0.1609036305147, False, 0, Nothing) Part.Parameter("D3@Sketch2").SystemValue = 0.0508 Part.ClearSelection2 True Part.CreateLine2( 0.1447450788909, -0.01211636029412, 0, -0.1413745595895, -0.01211636029412, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.03127092907475, -0.009525, 0.01323986672794, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1147849073223, 0, 0.03159047181373, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.049247, 0, 0.0222279) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch2@2005_DVLMount.SLDPRT", "DIMENSION", 0.04737452129289, -0.009525, 0.02410042892157, False, 0, Nothing) Part.Parameter("D4@Sketch2").SystemValue = 0.01905 Part.ClearSelection2 True Part.Save2 FALSE swApp.LoadFile2 "\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\DVLMount.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\DVLMount.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DVLMount.SLDPRT") boolstatus = Part.Extension.SelectByID("", "FACE", 0.009984413878726, -0.419852703842, 0.01905, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch4", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True ' MSGBOX ' Save changes to DVLMount.SLDPRT? Set Part = Nothing swApp.CloseDoc "DVLMount.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") Part.CreateLine2( -0.1271434780944, -0.05818012408088, 0, -0.1271434780944, 0.1230789139093, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line8", "SKETCHSEGMENT", -0.1271434780944, -0.009524999999999, 0.03570999540441, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", -0.1331355124081, 0, 0.0207299096201, True, 0, Nothing) Set Annotation = Part.AddDimension2(-0.115159, 0, 0.0529371) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D5@Sketch2@2005_DVLMount.SLDPRT", "DIMENSION", -0.1155339116115, -0.009524999999999, 0.06716817555147, False, 0, Nothing) Part.Parameter("D5@Sketch2").SystemValue = 0.009525 Part.ClearSelection2 True Part.CreateLine2( 0.1271434780944, -0.06567016697304, 0, 0.1271434780944, 0.1043538066789, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.1282669845282, -0.009525000000001, 0.04919207261029, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1338845166973, 0, 0.02335142463235, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.112538, 0, 0.0649212) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D6@Sketch2@2005_DVLMount.SLDPRT", "DIMENSION", 0.1106653837316, -0.009525000000001, 0.05293709405637, False, 0, Nothing) Part.Parameter("D6@Sketch2").SystemValue = 0.009525 Part.ClearSelection2 True Part.FileSummaryInfo boolstatus = Part.Extension.SelectByID("D6@Sketch2@2005_DVLMount.SLDPRT", "DIMENSION", 0.09943031939338, -0.009525000000001, 0.05368609834559, False, 0, Nothing) Part.Parameter("D6@Sketch2").SystemValue = 0.009525 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D6@Sketch2@2005_DVLMount.SLDPRT", "DIMENSION", 0.09905581724877, -0.009525000000001, 0.0544351026348, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D5@Sketch2@2005_DVLMount.SLDPRT", "DIMENSION", -0.1065458601409, -0.009524999999999, 0.06342315410539, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True Part.ViewZoomTo2 0.0304555, 0.136506, -0.009525, 0.0900013, 0.101303, -0.009525 Part.CreatePoint2 0.123825, -0.0127, 0 Part.SetPickMode Part.ClearSelection2 True Part.ViewZoomtofit2 Part.ViewZoomTo2 -0.053845, 0.0970148, -0.009525, -0.0171812, 0.0648825, -0.009525 Part.CreatePoint2 0.08255, 0.0889, 0 Part.SetPickMode Part.ClearSelection2 True Part.ViewZoomtofit2 Part.ViewZoomTo2 -0.0526091, -0.0751813, -0.009525, -0.0225366, -0.0978387, -0.009525 Part.CreatePoint2 -0.08255, 0.0889, 0 Part.SetPickMode Part.ClearSelection2 True Part.ViewZoomtofit2 Part.ViewZoomTo2 0.0540866, -0.1172, -0.009525, 0.0738603, -0.130795, -0.009525 Part.CreatePoint2 -0.123825, -0.0127, 0 Part.SetPickMode Part.ClearSelection2 True Part.Save2 FALSE Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("", "FACE", 0.1077255418964, 0, -0.04128764552696, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Top Plane", "PLANE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Top Plane", "PLANE", 0, 0, 0, False, 0, Nothing) Part.BlankRefGeom boolstatus = Part.Extension.SelectByID("", "FACE", 0.02327530828738, 0, -0.1113195465686, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.02327530828738, 0, -0.1113195465686, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.1163765414369, 0, 0.02215301776961, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ShowNamedView2 "*Isometric", 7 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.1189838526064, 0, 0.02150241138065, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line3", "SKETCHSEGMENT", -0.100967876535, -0.01561517972664, 0.01705623330457, False, 0, Nothing) Part.ClearSelection2 True Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.173953, -0.024771 Part.ActiveView().RotateAboutCenter -0.122412, -0.033028 Part.ActiveView().RotateAboutCenter -0.103084, -0.008257 Part.ActiveView().RotateAboutCenter -0.0966408, -0.008257 Part.ActiveView().RotateAboutCenter -0.115969, 0 Part.ActiveView().RotateAboutCenter -0.167511, 0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.148183, -0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.0193282, 0.008257 Part.ActiveView().RotateAboutCenter 0.115969, 0 Part.ActiveView().RotateAboutCenter 0.0128854, 0 Part.ActiveView().RotateAboutCenter 0.0257709, 0.008257 Part.ActiveView().RotateAboutCenter 0.0128854, 0 Part.ActiveView().RotateAboutCenter 0.0257709, 0 Part.ActiveView().RotateAboutCenter 0.0386563, 0.008257 Part.ActiveView().RotateAboutCenter 0.103084, 0 Part.ActiveView().RotateAboutCenter 0.0193282, 0 Part.ActiveView().RotateAboutCenter 0.180396, 0.099084 Part.ActiveView().RotateAboutCenter 0.199724, 0.107341 Part.ActiveView().RotateAboutCenter 0.0966408, 0.033028 Part.ActiveView().RotateAboutCenter 0.0901981, 0.016514 Part.ActiveView().RotateAboutCenter 0.167511, 0.08257 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.123855 Part.ActiveView().RotateAboutCenter 0, -0.049542 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.0322136, -0.066056 Part.ActiveView().RotateAboutCenter 0, -0.016514 Part.ActiveView().RotateAboutCenter -0.0257709, -0.066056 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.008257 boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.1294151714701, 0, 0.00442520776889, False, 0, Nothing) Part.ClearSelection2 True Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("", "FACE", -0.1147523699436, 0, 0.02100241383707, False, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.1086269957407, 0, 0.01985416491451, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.1103062106507, 0, 0.02456118813939, False, 0, Nothing) Part.FeatureManager.HoleWizard 2, 0, 18, "1/4", 1, 0.00635, 0.01905, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1 Part.ClearSelection2 True Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("Point22@Sketch2", "EXTSKETCHPOINT", -0.123825, -0.0127, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.1095494111568, 0, 0.02468285468376, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point22@Sketch2", "EXTSKETCHPOINT", -0.123825, -0.0127, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.1152372370691, 0, 0.02412395248083, False, 0, Nothing) Part.FeatureManager.HoleWizard 2, 0, 18, "1/4", 1, 0.00635, 0.01905, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1 Part.ClearSelection2 True Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("", "FACE", -0.1103289644713, 0, -0.04298721860599, False, 0, Nothing) Part.FeatureManager.HoleWizard 2, 0, 18, "1/4", 1, 0.00635, 0.01905, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1 Part.ClearSelection2 True Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.1101519716385, 0, -0.0141633715468, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point22@Sketch2", "EXTSKETCHPOINT", -0.123825, -0.0127, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point21@Sketch2", "EXTSKETCHPOINT", -0.08255, 0.0889, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ReorderFeature "Sketch2", "Extrude1" boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ReorderFeature "Sketch2", "Extrude1" boolstatus = Part.Extension.SelectByID("", "FACE", -0.1138176720202, 0, -0.0183076730639, False, 0, Nothing) Part.FeatureManager.HoleWizard 2, 0, 18, "1/4", 1, 0.00635, 0.01905, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1 Part.ClearSelection2 True Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("", "FACE", -0.1092061986704, 0, 0.003052611759756, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.1118189040413, 0, -0.04393774545363, False, 0, Nothing) Part.FeatureManager.HoleWizard 2, 0, 18, "1/4", 1, 0.00635, 0.01905, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("1/4 (0.25) Diameter Hole5", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.06851323977144, 0, -0.09230123995701, False, 0, Nothing) Part.FeatureManager.HoleWizard 2, 0, 18, "1/4", 1, 0.00635, 0.01905, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1 Part.ClearSelection2 True Part.EditUndo 1 boolstatus = Part.Extension.SelectByID("", "FACE", -0.07601016689419, 0, -0.09604970351838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.07601016689419, 0, -0.09604970351838, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.1008863341652, 0, -0.0609504538073, False, 0, Nothing) Part.FeatureManager.HoleWizard 2, 0, 18, "1/4", 1, 0.00635, 0.01905, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1 boolstatus = Part.Extension.SelectByID("", "FACE", 0.06813529551153, 0, -0.09945739766509, False, 0, Nothing) Part.FeatureManager.HoleWizard 2, 0, 18, "1/4", 1, 0.00635, 0.01905, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1 boolstatus = Part.Extension.SelectByID("", "FACE", 0.1144799359068, 0, 0.00277342673613, False, 0, Nothing) Part.FeatureManager.HoleWizard 2, 0, 18, "1/4", 1, 0.00635, 0.01905, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1 Part.ShowNamedView2 "*Isometric", 7 Part.Save2 FALSE boolstatus = Part.Extension.SelectByID("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.BlankSketch boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.UnblankSketch boolstatus = Part.Extension.SelectByID("", "FACE", -0.1155068427225, 0, -0.0133493739209, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "FACE", 0.1009283279718, 0, -0.0544147968367, False, 0, Nothing) Part.FeatureManager.HoleWizard 2, 0, 18, "5/16", 1, 0.0079375, 0.01905, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1 boolstatus = Part.Extension.SelectByID("Point33@Sketch1", "EXTSKETCHPOINT", 0.1013594164905, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("5/16 (0.3125) Diameter Hole1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("5/16 (0.3125) Diameter Hole1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch31", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch30", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch31", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("Sketch31", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True Part.DimPreferences boolstatus = Part.Extension.SelectByID("Sketch31", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch31", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sketch31", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.InsertSketch2 True boolstatus = Part.Extension.SelectByID("", "FACE", -0.008800800398284, 0, -0.1124626292509, False, 0, Nothing) Part.FeatureManager.HoleWizard 2, 0, 18, "5/16", 1, 0.0079375, 0.01905, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1 Part.ViewZoomtofit2 Part.Save2 FALSE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("5/16 (0.3125) Diameter Hole2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.1050478515625, 0, 0.002884031288297, False, 0, Nothing) Part.FeatureManager.HoleWizard 2, 0, 18, "5/16", 1, 0.0079375, 0.01905, 1, 0, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1 Part.ViewZoomtofit2 Part.ShowNamedView2 "*Isometric", 7 Part.Save2 FALSE swApp.LoadFile2 "D:\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 ' MSGBOX ' D:\SolidWorks\MBARI_Borders\MBARI_TEMP_B.slddrt is not available for write access. Do you want to open document(s) read-only? Set Part = swApp.NewDocument ("D:\SolidWorks\data\templates\Drawing.drwdot", 2, 0.279400, 0.431800) Part.CreateDrawViewFromModelView "\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\2005_DVLMount.SLDPRT", "*Front", 0.1115421823362, 0.1901012706553, 0 boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.1115421823362, 0.09933715669516, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.2039793675214, 0.1901012706553, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch ' MSGBOX ' Save changes to 2005_DVLMount - Sheet1? Set Part = Nothing swApp.CloseDoc "2005_DVLMount - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") Part.ShowNamedView2 "*Trimetric", 8 Part.ShowNamedView2 "*Dimetric", 9 Part.ShowNamedView2 "*Isometric", 7 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.148183, 0.066056 Part.ActiveView().RotateAboutCenter 0.0901981, 0.008257 Part.ActiveView().RotateAboutCenter 0.0322136, 0 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter -0.0193282, -0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.00644272, -0.016514 Part.ActiveView().RotateAboutCenter 0, -0.049542 Part.ActiveView().RotateAboutCenter -0.00644272, -0.024771 Part.ActiveView().RotateAboutCenter -0.0128854, -0.016514 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.0128854, 0 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter -0.00644272, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter -0.00644272, 0 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.ActiveView().RotateAboutCenter 0.0128854, 0 Part.ActiveView().RotateAboutCenter 0.00644272, 0 Part.ActiveView().RotateAboutCenter 0, -0.008257 Part.Save2 FALSE swApp.LoadFile2 "D:\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 ' MSGBOX ' D:\SolidWorks\MBARI_Borders\MBARI_TEMP_B.slddrt is not available for write access. Do you want to open document(s) read-only? Set Part = swApp.NewDocument ("D:\SolidWorks\data\templates\Drawing.drwdot", 2, 0.279400, 0.431800) Part.CreateDrawViewFromModelView "\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\2005_DVLMount.SLDPRT", "*Front", 0.1236719487179, 0.09180833618234, 0 boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.1236719487179, 0.1691878803419, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.CreateUnfoldedViewAt2 0.242460005698, 0.09180833618234, 0, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.CreateDrawViewFromModelView "\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\2005_DVLMount.SLDPRT", "Current Model View", 0.3394981367521, 0.1997214301994, 0 Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3357337264957, 0.09850062108262, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem85@Sheet Format1", "NOTE", 0.3855075954416, 0.01610186324786, 0, False, 0, Nothing) Part.ViewZoomTo2 0.247479, 0.06002, -4.38628e-016, 0.419806, 0.00773651, -7.35342e-017 boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3366699631713, 0.02184976855707, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem6@Sheet Format1", "NOTE", 0.3342151720576, 0.02135881033433, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem6@Sheet Format1", "NOTE", 0.3342151720576, 0.02135881033433, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem6@Sheet Format1", "NOTE", 0.3356880467258, 0.0210315048525, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem6@Sheet Format1", "NOTE", 0.3356880467258, 0.0210315048525, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem5@Sheet Format1", "NOTE", 0.3366699631713, 0.02643204530266, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem5@Sheet Format1", "NOTE", 0.3366699631713, 0.02643204530266, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0.3327422973894, 0.04066983376217, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0.3319240336848, 0.04132444472583, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0.3345424775394, 0.04197905568948, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0.3345424775394, 0.04197905568948, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem3@Sheet Format1", "NOTE", 0.3319240336848, 0.03592390427567, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3356880467258, 0.03706947346207, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem3@Sheet Format1", "NOTE", 0.3355243939849, 0.03657851523932, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem84@Sheet Format1", "NOTE", 0.3450162529579, 0.04230636117131, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem4@Sheet Format1", "NOTE", 0.3455072111806, 0.03674216798024, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem4@Sheet Format1", "NOTE", 0.3455072111806, 0.03674216798024, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem4@Sheet Format1", "NOTE", 0.3455072111806, 0.03674216798024, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem4@Sheet Format1", "NOTE", 0.3455072111806, 0.03674216798024, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem4@Sheet Format1", "NOTE", 0.3456708639216, 0.03723312620298, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem1@Sheet Format1", "NOTE", 0.3332332556121, 0.04230636117131, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.333396908353, 0.05818067703996, 0, False, 0, Nothing) Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.2913973390313, 0.1181592079772, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0776625, 0.124015, -8.85503e-016, 0.179302, 0.0499816, -3.6853e-016 Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.09050009423625, 0.09177616172523, -1499.58745, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1569081520929, 0.09225877842477, -1499.58745, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.126021, 0.064267, -6.60605e-016) Part.ClearSelection2 True Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2219648831909, 0.0913900683656, -1499.53665, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.EditSketch Part.ViewZoomTo2 0.205652, 0.111049, -7.94959e-016, 0.281359, 0.0550008, -4.03579e-016 Part.EditSketch boolstatus = Part.Extension.SelectByID("", "SILHOUETTE", 0.2631692273006, 0.09211955443037, -1499.67, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2216852435559, 0.09262282633022, -1499.53665, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.245195, 0.0695442, -6.63526e-016) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True Part.ViewZoomtofit2 Part.EditSketch Part.ViewZoomTo2 0.0713885, 0.201813, -1.42876e-015, 0.175955, 0.119832, -8.56295e-016 boolstatus = Part.Extension.SelectByID("Line1@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", -0.13335, -0.01693111620295, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0778593, 0.151845, -1.20094e-015) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line3@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", -0.1151215391889, -0.03175, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.0785775, 0.130606, -1.20094e-015) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem92@Drawing View2", "CENTERMARKSYM", 0.1236206467843, 0.1565644637207, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc7@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", -0.1009271305143, 0.00935123721441, 0, True, 0, Nothing) Part.ClearSelection2 True ' MSGBOX ' Could not create reference dimension from current set of selected items. Set Annotation = Part.AddDimension2(0.0983801, 0.154923, -1.20094e-015) boolstatus = Part.Extension.SelectByID("Arc7@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", -0.1010675682551, 0.007686218725927, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.171947, 0.154512, -1.20094e-015) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc11@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", 0.08833517982063, 0.04890202550023, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc11@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", 0.07780144841194, 0.06435407304105, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.172152, 0.169698, -1.20094e-015) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc1@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", 0.101153398428, 0.0868919586985, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.173897, 0.179548, -1.20094e-015) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.925926 Part.ActiveView().ZoomByFactor 0.862069 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.934579 Part.ActiveView().ZoomByFactor 1.05 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.03 boolstatus = Part.Extension.SelectByID("RD3@Drawing View2", "DIMENSION", 0.174624504978, 0.1536906368324, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD4@Drawing View2", "DIMENSION", 0.1738892588559, 0.1697190022937, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"R", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD5@Drawing View2", "DIMENSION", 0.1766831941198, 0.1803065464516, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"R", "", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View2", "DIMENSION", 0.1700659790211, 0.1547199814033, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.07845431221009, 0.2003052409722, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2265658290598, 0.2160338746439, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.153369, 0.127361, -9.08869e-016, 0.21109, 0.0646209, -4.70756e-016 Part.ClearSelection2 True Part.EditSketch boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1570627021883, 0.09233967762789, -1499.58745, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.172453, 0.0763209, -6.60605e-016) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True Part.EditSketch Part.ViewZoomtofit2 Part.SaveAs2 "\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\1002681.SLDDRW", 0, FALSE, FALSE Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0684606, 0.202231, -1.43168e-015, 0.174282, 0.130707, -9.32235e-016 boolstatus = Part.Extension.SelectByID("RD1@Drawing View2", "DIMENSION", 0.07760568822764, 0.1509425858069, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line6@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", 0.13335, -0.01775937641199, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.162022, 0.136873, -1.20094e-015) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True Part.CreateLine2( -0.1243697276483, -0.06333361073368, 0, -0.1243697276483, -0.1272487447991, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line5", "SKETCHSEGMENT", 0.09247902131206, 0.1453148381534, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", -0.13335, -0.02218117813979, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0750933, 0.139888, -1.20094e-015) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch5@1002681.SLDDRW", "DIMENSION", 0.0766007332895, 0.1397875859936, 0, False, 0, Nothing) Part.Parameter("D1@Sketch5").SystemValue = 0.009525 Part.ClearSelection2 True Part.SetPickMode Part.ViewZoomTo2 0.147651, 0.156872, -1.72054e-016, 0.162524, 0.146822, -1.01879e-016 Part.CreateLine2( 0.1237703481079, -0.06340270735051, 0, 0.1237703481079, -0.09040917730056, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.1546286604677, 0.1497777733644, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line6@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", 0.13335, -0.02678392901884, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.156945, 0.146529, -1.20094e-015) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 0.628931 Part.ActiveView().ZoomByFactor 0.8 Part.ActiveView().ZoomByFactor 0.704225 Part.ActiveView().ZoomByFactor 0.671141 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.78125 Part.ActiveView().ZoomByFactor 0.826446 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.75188 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.11 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.909091 boolstatus = Part.Extension.SelectByID("D2@Sketch5@1002681.SLDDRW", "DIMENSION", 0.1582078789922, 0.146457669283, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("D2@Sketch5@1002681.SLDDRW", "DIMENSION", 0.1413778978984, 0.1335988073237, 0, False, 0, Nothing) Part.Parameter("D2@Sketch5").SystemValue = 0.009525 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD1@Drawing View2", "DIMENSION", 0.1691757318398, 0.1371917246359, 0, False, 0, Nothing) Part.ClearSelection2 True Part.CreateLine2( 0.123825, -0.06340270735051, 0, -0.178033002373, -0.06340270735051, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", 0.08634953274901, 0.1536435039073, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line3@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", -0.1137386925765, -0.03175, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0687631, 0.140974, -1.20094e-015) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D3@Sketch5@1002681.SLDDRW", "DIMENSION", 0.06101001065273, 0.1398391373922, 0, False, 0, Nothing) Part.Parameter("D3@Sketch5").SystemValue = 0.01905 Part.ClearSelection2 True Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.746269 Part.ActiveView().ZoomByFactor 0.840336 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 1.05 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.09 Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0524528, 0.207459, -1.05819e-015, 0.174376, 0.126364, -4.91908e-016 Part.CreateLine2( 0.08193434540526, 0.03882973264131, 0, -0.2644982677846, 0.03882973264131, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line3@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", -0.1139760762248, -0.03175, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line11", "SKETCHSEGMENT", 0.08579923926456, 0.1791268861046, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0550001, 0.166969, -1.20094e-015) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D4@Sketch5@1002681.SLDDRW", "DIMENSION", 0.05824209957901, 0.166621965575, 0, False, 0, Nothing) Part.Parameter("D4@Sketch5").SystemValue = 0.12065 boolstatus = Part.Extension.SelectByID("D4@Sketch5@1002681.SLDDRW", "DIMENSION", 0.05592637355501, 0.166621965575, 0, False, 0, Nothing) Part.Parameter("D4@Sketch5").SystemValue = 0.12065 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", "", 1,"", "", 0 Part.ClearSelection2 True Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.840336 Part.ActiveView().ZoomByFactor 0.740741 Part.ActiveView().ZoomByFactor 0.892857 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1.01 Part.SetPickMode Part.ViewZoomTo2 0.05596, 0.201384, -7.71517e-016, 0.118435, 0.142703, -3.61746e-016 Part.CreateLine2( -0.08288410400125, 0.0381, 0, -0.08288410400125, 0.1167397936183, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D1@Sketch5@1002681.SLDDRW", "DIMENSION", 0.0903186114018, 0.1517360980165, 0, True, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.1028774790472, 0.186474954135, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.1029509227176, 0.1922770040999, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("D1@Sketch5@1002681.SLDDRW", "DIMENSION", 0.09024516773136, 0.1554082815385, 0, True, 0, Nothing) Part.DeSelectByID "D1@Sketch5@1002681.SLDDRW", "DIMENSION", 0.09024516773136, 0.1503406682781, 0 boolstatus = Part.Extension.SelectByID("D1@Sketch5@1002681.SLDDRW", "DIMENSION", 0.0903186114018, 0.1510016613121, 0, False, 0, Nothing) Part.DeSelectByID "D1@Sketch5@1002681.SLDDRW", "DIMENSION", 0.0903186114018, 0.1510016613121, 0 boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.06439299573617, 0.1944068705426, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line12", "SKETCHSEGMENT", 0.1030243663881, 0.1915425673955, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", -0.13335, -0.02282620016448, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.0723984, 0.190955, -1.20094e-015) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("D5@Sketch5@1002681.SLDDRW", "DIMENSION", 0.07107636974629, 0.1912487927137, 0, False, 0, Nothing) Part.Parameter("D5@Sketch5").SystemValue = 0.0508 Part.ClearSelection2 True Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.120326, 0.195957, -1.38787e-015, 0.170936, 0.143674, -1.02278e-015 Part.EditSketch Part.CreateLine2( 0.08193434540526, 0.0381, 0, 0.08193434540526, 0.1036738791295, 0 ).ConstructionGeometry = TRUE Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.1440932592593, 0.187777502455, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line6@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", 0.13335, -0.01513659550221, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.172493, 0.189871, -1.20094e-015) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID("D6@Sketch5@1002681.SLDDRW", "DIMENSION", 0.1751099895739, 0.189151661393, 0, False, 0, Nothing) Part.Parameter("D6@Sketch5").SystemValue = 0.0508 Part.ClearSelection2 True Part.ViewZoomtofit2 Part.Save2 FALSE Part.EditSketch Part.ViewZoomtofit2 Part.ViewZoomTo2 0.0454559, 0.207669, -1.46965e-015, 0.197287, 0.111049, -7.94959e-016 boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1538861374015, 0.1533747356329, -1499.660475, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.AddHoleCallout2 0.0840986, 0.108388, 1.29116e-017 Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 p", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 pl", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 p", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 P", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 PL", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.1486953266775, 0.1574120328626, -1499.660475, False, 0, Nothing) Part.AddHoleCallout2 0.085973, 0.122662, -8.67684e-017 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 p", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 pl", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 p", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 P", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "3 PL", 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD7@Drawing View2", "DIMENSION", 0.08900100335225, 0.1230950064204, 0, False, 0, Nothing) Part.ClearSelection2 True Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3403346723647, 0.07842376638177, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.3445173504274, 0.1470196866097, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.359574991453, 0.1432552763533, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Dim Note As Object Dim Annotation As Object Dim TextFormat As Object Set Note = Part.InsertNote("Material: UHMW") 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.3432625470085, 0.07173148148148, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.EditSketch Part.EditSketch Part.Save2 FALSE swApp.PageSetup Part.EditSketch Part.EditSketch Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("RD7@Drawing View2", "DIMENSION", 0.07808075783476, 0.1248514928775, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "3 PL", 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.PrintDirect Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.076826, 0.188846, -1.33822e-015, 0.163407, 0.135726, -9.67284e-016 boolstatus = Part.Extension.SelectByID("Arc9@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", -0.09042704521446, 0.006545592541127, 0, False, 0, Nothing) Set Annotation = Part.AddDimension2(0.116129, 0.164877, -1.20094e-015) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 11, 11,"R", "", 1,"", "", 0 Part.ClearSelection2 True Part.ViewZoomtofit2 Part.Save2 FALSE Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD4@Drawing View2", "DIMENSION", 0.1730275498575, 0.1704426837607, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD4@Drawing View2", "DIMENSION", 0.1700996752137, 0.1683513447293, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD4@Drawing View2", "DIMENSION", 0.1700996752137, 0.1683513447293, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2512436296296, 0.1750436296296, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD4@Drawing View2", "DIMENSION", 0.1730275498575, 0.1704426837607, 0, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD4@Drawing View2", "DIMENSION", 0.1726092820513, 0.1696061481481, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2466426837607, 0.2126877321937, 0, False, 0, Nothing) Part.EditSketch Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") boolstatus = Part.Extension.SelectByID("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc8", "SKETCHSEGMENT", -0.05429039008894, 0.02681307879106, -0.04693465073312, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc11", "SKETCHSEGMENT", 0.03903734266405, -0.02409030717477, -0.09456282179231, False, 0, Nothing) Part.ClearSelection2 True Part.EditRebuild swApp.LoadFile2 "D:\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 ("D:\SolidWorks\data\templates\Drawing.drwdot", 2, 0.279400, 0.431800) ' MSGBOX ' Save changes to Draw5 - Sheet1? Set Part = Nothing swApp.CloseDoc "Draw5 - Sheet1" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") swApp.LoadFile2 "\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\1002681.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc6 ("\\Polarbear\dorado\Drawings\600024-Dorado\TailSection\1002681.SLDDRW", 3, 0, "", longstatus, longwarnings) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("1002681 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD1@Drawing View2", "DIMENSION", 0.1964505470085, 0.1340533846154, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " F", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " FL", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " FLA", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 11, 11,"", " FLAT", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D6@Sketch5@1002681.SLDDRW", "DIMENSION", 0.1667535327635, 0.189683002849, 0, False, 0, Nothing) Part.EditDelete boolstatus = Part.Extension.SelectByID("Line13", "SKETCHSEGMENT", 0.1441670712251, 0.1901012706553, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D2@Sketch5@1002681.SLDDRW", "DIMENSION", 0.1462584102564, 0.1327985811966, 0, False, 0, Nothing) Part.EditDelete Part.ViewZoomTo2 0.139148, 0.158313, -1.125e-015, 0.170936, 0.1374, -9.78967e-016 boolstatus = Part.Extension.SelectByID("Line7", "SKETCHSEGMENT", 0.1546344911973, 0.147207172274, 0, False, 0, Nothing) Part.EditDelete Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Drawing View2", "DRAWINGVIEW", 0.136219982906, 0.1700244159544, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.1554603019943, 0.2214713561254, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.236185988604, 0.219380017094, 0, False, 0, Nothing) Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD6@Drawing View2", "DIMENSION", 0.08351823931624, 0.1127217264957, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.07055193732194, 0.2361107293447, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0559126, 0.233183, -1.64782e-015, 0.221965, 0.134053, -9.55601e-016 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem93@Drawing View2", "CENTERMARKSYM", 0.1489523250352, 0.1565735111836, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem94@Drawing View2", "CENTERMARKSYM", 0.1235635089163, 0.1819623273025, 0, True, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True Part.CreateLine2( -0.1013593852271, -0.05072039047742, 0, 0.1408605218031, -0.05072039047742, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.1035363061393, 0.1564158166736, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem95@Drawing View2", "CENTERMARKSYM", -0.1013593852271, -0.05072039047742, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.1063748073203, 0.1567312056937, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem95@Drawing View2", "CENTERMARKSYM", -0.1013593852271, -0.05072039047742, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0.1174134230242, 0.1570465947138, 0, False, 0, Nothing) Part.EditDelete Part.CreateLine2( -0.1146045844866, -0.05072039047742, 0, 0.1383374096422, -0.05072039047742, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Point47", "SKETCHPOINT", -0.1146045844866, -0.05072039047742, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Point47", "SKETCHPOINT", -0.1146045844866, -0.05072039047742, 0, False, 0, Nothing) Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Line17", "SKETCHSEGMENT", 0.08019751865109, 0.1568889002037, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line7@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", 0, 0.1422675824168, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.178914, 0.192212, -1.20094e-015) Part.ClearSelection2 True Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("RD8@Drawing View2", "DIMENSION", 0.1182018955744, 0.1649313202166, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD8@Drawing View2", "DIMENSION", 0.1161518669437, 0.1641428476663, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2036723200245, 0.2172858975549, 0, False, 0, Nothing) ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Arc9", "SKETCHSEGMENT", -0.07694993664069, 0.01600471045297, 0.003334073554463, False, 0, Nothing) ' MSGBOX ' Saving a part while editing a feature's sketch will require a full rebuild when the part is opened. You can avoid this rebuild by exiting the sketcher now. We highly recommend that you exit the sketcher. ' Do you want to exit the sketcher before saving? Part.ClearSelection2 True Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("1002681 - Sheet1") Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("1002681 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ViewZoomtofit2 Part.Save2 FALSE Part.EditSketch Part.PrintDirect swApp.PageSetup Part.PrintDirect Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing) Part.BlankSketch boolstatus = Part.Extension.SelectByID("", "FACE", -0.1139679222454, 0, -0.04114034578492, False, 0, Nothing) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Annotations", "DCABINET", 0, 0, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Annotations", "DCABINET", 0, 0, 0, False, 0, Nothing) Part.ClearSelection2 True Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("1002681 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3311327806268, 0.08344298005698, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Sheet Format1", "SHEET", 0.259608985755, 0.1637503988604, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Note = Part.InsertNote("SolidWorks model: 2005_DVLMount.SLDPRT") 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.3432625470085, 0.0650391965812, 0) boolstatus = Annotation.SetTextFormat(0, True, TextFormat) End If End If Part.ClearSelection2 True Part.WindowRedraw Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SetPickMode Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem100@Drawing View3", "NOTE", 0.3612480626781, 0.07005841025641, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem101@Drawing View3", "NOTE", 0.3771422393162, 0.06294785754986, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.3553923133903, 0.1152313333333, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SaveAs2 "E:\368000_DMO_AUV\Drawings\TAIL_SECTION\1002681.SLDDRW", 0, FALSE, FALSE Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 ' MSGBOX ' \\Polarbear\dorado\Drawings\600024-Dorado\TailSection\2005_DVLMount.SLDPRT is being referenced by other open documents. "Save As" will replace these references with the new name. Check "Save As Copy" in the "Save As" dialog if you wish to maintain existing references. Part.SaveAs2 "E:\368000_DMO_AUV\Drawings\TAIL_SECTION\2005_DVLMount.SLDPRT", 0, FALSE, FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("1002681 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem101@Drawing View3", "NOTE", 0.3850893276353, 0.06294785754986, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem101@Drawing View3", "NOTE", 0.3850893276353, 0.06294785754986, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem100@Drawing View3", "NOTE", 0.3290414415954, 0.07005841025641, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("DetailItem101@Drawing View3", "NOTE", 0.3428442792023, 0.06294785754986, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.329877977208, 0.1332168490028, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem100@Drawing View3", "NOTE", 0.3415894757835, 0.09850062108262, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.278431037037, 0.1156496011396, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0329078, 0.239875, -1.69455e-015, 0.238696, 0.0913901, -6.57684e-016 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem98@Drawing View2", "CENTERMARKSYM", 0.08255, 0.0381, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", -0.13335, -0.02244095700522, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.133554, 0.203644, -1.20094e-015) Part.ClearSelection2 True Part.SetPickMode Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("D2@Sketch5@1002681.SLDDRW", "DIMENSION", 0.1775260141557, 0.193090515077, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0.2015639007313, 0.2173238316247, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("DetailItem99@Drawing View2", "CENTERMARKSYM", 0.123825, -0.0635, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Line1@Sketch1@2005_DVLMount-2@Drawing View2", "EXTSKETCHSEGMENT", -0.13335, -0.02400439678249, 0, True, 0, Nothing) Set Annotation = Part.AddDimension2(0.140394, 0.214588, -1.20094e-015) Part.ClearSelection2 True Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD7@Drawing View2", "DIMENSION", 0.08860537682324, 0.1229311550718, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD7@Drawing View2", "DIMENSION", 0.08860537682324, 0.1229311550718, 0, False, 0, Nothing) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "3 P", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "3 ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "3", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "o", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on B", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BH", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BHC", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BHC ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BHC 7", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BHC 7.", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BHC 7.9", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BHC 7.98", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BHC 7.982", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BHC 7.98", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BHC 7.9", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BHC 7.", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BHC 7", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BHC ", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on BHC", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on 7BHC", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on 7.BHC", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on 7.9BHC", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on 7.98BHC", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on 7.982BHC", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 0, 1, 11, 11," ", "", 0,"", "on 7.982 BHC", 0 Part.ClearSelection2 True Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD3@Drawing View2", "DIMENSION", 0.1747899945455, 0.1584994100048, 0, False, 0, Nothing) Part.EditDelete Part.Save2 FALSE Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.PrintDirect Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("RD6@Drawing View2", "DIMENSION", 0.09212311632211, 0.108469337132, 0, False, 0, Nothing) Part.EditSketch Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", " PL", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 0, 1, 11, 11," ", "", 0,"", "4 PL", 0 Part.ClearSelection2 True Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch boolstatus = Part.Extension.SelectByID("Arc11@Sketch1@2005_DVLMount-5@Drawing View4", "EXTSKETCHSEGMENT", 0.09882521881067, 0.02358253860429, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Arc1@Sketch1@2005_DVLMount-5@Drawing View4", "EXTSKETCHSEGMENT", 0.1322354188523, 0.01720513007701, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Drawing View4", "DRAWINGVIEW", 0.3733778290598, 0.1742070940171, 0, False, 0, Nothing) Part.EditDelete Part.EditSketch Part.CreateDrawViewFromModelView "E:\368000_DMO_AUV\Drawings\TAIL_SECTION\2005_DVLMount.SLDPRT", "*Isometric", 0.3457721538462, 0.2055771794872, 0 Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("2005_DVLMount.SLDPRT") swApp.ExitApp End Sub