' ****************************************************************************** ' swxJRNL.swj - journal recorded on 12/13/01 by jon ' ****************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long Dim Annotation As Object Dim Gtol As Object Dim DatumTag As Object Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = CreateObject ("SldWorks.Application") Set Part = swApp.OpenDoc4 ("G:\Work In Progress\Canyon Dynamics\rin-bin\Nautilus.Conn\HybridPenetrator_Dummy.SLDPRT", 1, 0, "", longstatus) Set Part = swApp.ActivateDoc ("HybridPenetrator_Dummy.SLDPRT") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.LoadFile2 "G:\Work In Progress\Canyon Dynamics\rin-bin\DeConnAssem_V5\DeConnAssem_V5.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\Canyon Dynamics\rin-bin\DeConnAssem_V5\DeConnAssem_V5.SLDASM", 2, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") Part.SelectByID "Socket Head Cap Screw_AM-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.SelectByID "Socket Head Cap Screw_AM-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.EditDelete Part.SelectByID "Socket Head Cap Screw_AI-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.SelectByID "BodySke@Socket Head Cap Screw_AI-1@DeConnAssem_V5", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Length@BodySke@Socket Head Cap Screw_AI-1@DeConnAssem_V5", "DIMENSION", 0.1022076812314, -0.06675777581413, 0.03997199921364 Part.EditRebuild Part.ClearSelection Part.SelectByID "", "FACE", 0.06731012928719, -0.07308731486359, 0.08714754495409 Part.HideComponent2 Part.ClearSelection Part.EditAssembly Part.SelectByID "DeConnAssem_V5.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByDependencies Part.SelectByID "", "FACE", 0.03255537582271, -0.04999837184499, 0.07560009538383 Part.HideComponent2 Part.ClearSelection Part.SelectByID "Default", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Default" Part.SelectByID "", "FACE", 0.06071670766619, -0.07688939942165, 0.06770019572934 Part.HideComponent2 Part.ClearSelection Part.SelectByID "", "FACE", 0.03579600424112, -0.05052570411038, 0.07529563995854 Part.HideComponent2 Part.ClearSelection Part.SelectByID "DeConnAssem_V5.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByFeatures Part.SelectByID "Sketch9@dcon.End.Cap-1@DeConnAssem_V5", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SketchConstraintsDel 2, "sgHORIZPOINTS" Part.SelectByID "Point1", "SKETCHPOINT", 0.03302, -0.0460375, 0 Part.AndSelectByID "Point6", "SKETCHPOINT", 0, -0.0460375, 0 Part.SketchAddConstraints "sgVERTPOINTS" Part.ClearSelection Part.InsertSketch Part.EditAssembly Part.SelectByID "DeConnAssem_V5.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByDependencies Part.SelectByID "Concentric16", "MATE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Concentric16" Part.ClearSelection Part.SelectByID "Concentric16", "MATE", 0, 0, 0 Part.DeSelectByID "", "FACE", 0.0288925, -0.06085639452673, 0.1054063672857 Part.AndSelectByID "", "FACE", 0.02739267280117, -0.04219927194208, 0.06931076066236 Part.DeSelectByID "", "FACE", 0.0288925, -0.04523539452673, 0.07835000162071 Part.AndSelectByID "", "FACE", 0.0450137405236, -0.06203624029212, 0.0542206510349 Part.ClearSelection Part.SelectByMark "", "FACE", 0.02657255613844, -0.03567286797019, 0.06311451699859, 8 Part.AndSelectByMark "", "FACE", 0.0454025, -0.05929177942886, 0.04954265677604, 8 Part.AndSelectByID "Concentric16", "MATE", 0, 0, 0 Part.EditMate 1, 0, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.ClearSelection Part.SelectByID "HybridPenetrator_8-12-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.ShowComponent2 Part.SelectByID "Coincident50", "MATE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Coincident50" Part.ClearSelection Part.SelectByID "Coincident50", "MATE", 0, 0, 0 Part.DeSelectByID "", "FACE", 0.03016885, -0.04065386952673, 0.07483597364105 Part.AndSelectByID "", "FACE", 0.05017385512815, -0.07370024824098, 0.06954145302159 Part.ClearSelection Part.SelectByMark "", "FACE", 0.04866422689847, -0.06814144584084, 0.05896601405672, 8 Part.AndSelectByMark "", "FACE", 0.02366580439276, -0.03423931511025, 0.09232423338731, 8 Part.AndSelectByID "Coincident50", "MATE", 0, 0, 0 Part.EditMate 0, 1, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.ClearSelection Part.SelectByID "Socket Head Cap Screw_AI-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.SelectByID "Concentric14", "MATE", 0, 0, 0 Part.SelectByID "Coincident43", "MATE", 0, 0, 0 Part.SelectByID "Coincident44", "MATE", 0, 0, 0 Part.SelectByID "Coincident43", "MATE", 0, 0, 0 Part.SelectByID "Blkhd.Isolator-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.ShowComponent2 Part.SelectByID "HybridPenetrator_8-12-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.HideComponent2 Part.ClearSelection Part.SelectByID "Concentric14", "MATE", 0, 0, 0 Part.SelectByID "Coincident43", "MATE", 0, 0, 0 Part.SelectByID "Coincident48", "MATE", 0, 0, 0 Part.SelectByID "Coincident49", "MATE", 0, 0, 0 Part.SelectByID "Coincident49", "MATE", 0, 0, 0 Part.ViewDispTempRefaxes Part.DeSelectByID "@Blkhd.Isolator-1@DeConnAssem_V5", "AXIS", 0.01651, -0.0111125, 0.02859615883296 Part.AndSelectByID "@Blkhd.Isolator-1@DeConnAssem_V5", "AXIS", 0.09897996570299, 0.05894081383112, -0.04482330137462 Part.ClearSelection Part.SelectByMark "@dcon.End.Cap-1@DeConnAssem_V5", "AXIS", -0.05693587806388, -0.03287194452673, 0.0790575, 8 Part.AndSelectByMark "@Blkhd.Isolator-1@DeConnAssem_V5", "AXIS", 0.09897996570299, 0.05894081383112, -0.04482330137462, 8 Part.AndSelectByID "Coincident49", "MATE", 0, 0, 0 Part.EditMate 0, 0, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.ClearSelection Part.ViewDispTempRefaxes Part.SelectByID "HybridPenetrator_8-12-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.ShowComponent2 Part.ClearSelection ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Part.SelectByID "", "FACE", 0.06078592380365, -0.0918236570584, 0.1182113579418 Part.HideComponent2 Part.ClearSelection Part.SelectByID "Blkhd.Isolator-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.SelectByID "DeConnAssem_V5.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByFeatures Part.SelectByID "CntrBore@dcon.End.Cap-1@DeConnAssem_V5", "BODYFEATURE", 0, 0, 0 Part.SelectByID "", "FACE", 0.02270922219641, -0.03692635416252, 0.08314722831162 Part.SelectByID "CBORE for #10 Socket Head Cap Screw1@Blkhd.Isolator-1@DeConnAssem_V5", "BODYFEATURE", 0, 0, 0 Part.SelectByID "CBORE for #10 Socket Head Cap Screw1@Blkhd.Isolator-1@DeConnAssem_V5", "BODYFEATURE", 0, 0, 0 Part.EditDelete Part.EditAssembly Part.SelectByID "HybridPenetrator_8-12-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.ShowComponent2 Part.ClearSelection swApp.LoadFile2 "G:\Work In Progress\Canyon Dynamics\rin-bin\Nautilus.Conn\ShoulderBushing.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\Canyon Dynamics\rin-bin\Nautilus.Conn\ShoulderBushing.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ShoulderBushing.SLDPRT") Part.SelectByID "Top", "PLANE", 0, 0, 0 Part.ShowNamedView2 "*Top", 5 Part.InsertSketch Part.CreateCircle 0, 0, 0, 0.002390304182509, -0.00371825095057, 0 Part.ViewZoomtofit Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.003629127042394, 0.00252356516193, 0 Part.AddDimension 0.0030209, 0, -0.00200588 Part.ClearSelection Part.Parameter("D1@Sketch1").SystemValue = 0.008001 Part.FeatureExtrusion 1, 0, 1, 0, 0, 0.00523875, 0.00079375, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0 Part.SelectByID "Top", "PLANE", 0, 0, 0 Part.InsertSketch Part.SketchPolygon 0, 0, 0.005403442511323, -0.009267434764865, 6, True Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.SetPickMode Part.EditUndo 1 Part.CreateCircle 0, 0, 0, 0.004024210469595, -0.008063112051161, 0 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.00756282428727, 0.004900177002217, 0 Part.AddDimension 0.00659001, 0, -0.00359396 Part.ClearSelection Part.Parameter("D1@Sketch2").SystemValue = 0.009525 Part.SetPickMode Part.ClearSelection Part.SelectByID "D1@Sketch2@ShoulderBushing.SLDPRT", "DIMENSION", 0.07843745914306, 0.4207281761654, 0.6454056276648 Part.Parameter("D1@Sketch2").SystemValue = 0.0111125 Part.FeatureBoss 1, 0, 0, 0, 0, 0.000873125, 0.00523875, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0 Part.SelectByID "", "FACE", 0.001672846342039, 0.0008731249999414, -0.000750825950945 Part.InsertSketch Part.CreateCircle 0, 0, 0, -0.001049410117659, 0.002035663275592, 0 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.001869406817129, -0.001323066407521, 0 Part.AddDimension 0.00633981, 0.000873125, -0.00425235 Part.ClearSelection Part.Parameter("D1@Sketch3").SystemValue = 0.0051054 Part.FeatureCut4 1, 0, 0, 1, 0, 0.000873125, 0.000873125, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, ".201" Part.SelectByID "Base-Extrude", "BODYFEATURE", 0, 0, 0 Part.SelectedFeatureProperties 65535, 1, 1, 1, 0.3125, 0, 0, 0, 0, "Base-Extrude" Part.SelectByID "Boss-Extrude1", "BODYFEATURE", 0, 0, 0 Part.SelectedFeatureProperties 65535, 1, 1, 1, 0.3125, 0, 0, 0, 0, "Boss-Extrude1" Part.ClearSelection Part.Save2 FALSE swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 1247 swApp.ActiveDoc.ActiveView.FrameHeight = 307 Part.SelectByID "ShoulderBushing.SLDPRT", "COMPONENT", 0, 0, 0 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 307 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.TranslateComponent Part.SelectByID "", "FACE", 0.0639789607496, -0.08711570633113, 0.0760791495274 Part.RotateComponent Part.ClearSelection Part.SelectByID "", "FACE", 0.0639789607496, -0.08711570633113, 0.0760791495274 Part.SelectByID "DeConnAssem_V5.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByDependencies Part.SelectByID "ShoulderBushing-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.SelectByID "ClosureBand-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.SelectByID "HybridPenetrator_8-12-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.SelectByID "Coincident50", "MATE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 1, "Coincident50" Part.ClearSelection Part.TranslateComponent Part.SelectByID "", "FACE", 0.04659210489857, -0.0775832428277, 0.0696132670044 Part.ClearSelection Part.SmartMateComponent Part.SelectByID "", "FACE", 0.04337699976388, -0.09643518720821, 0.08775418365315 Part.ClearSelection Part.SelectByID "", "FACE", 0.04337699976388, -0.09643518720821, 0.08775418365315 Part.ClearSelection Part.SmartMateComponent Part.SmartMateComponent Part.SelectByID "", "FACE", 0.03421658556242, -0.06671414473072, 0.07357488176399 Part.ClearSelection Part.SelectByID "", "FACE", 0.03421658556242, -0.06671414473072, 0.07357488176399 Part.ClearSelection Part.SelectByID "Coincident50", "MATE", 0, 0, 0 Part.DeSelectByID "", "FACE", 0.0193675, -0.04853739452673, 0.0840692333873 Part.AndSelectByID "", "FACE", 0.04170235964935, -0.07481532626338, 0.06990586033294 Part.ClearSelection Part.SelectByMark "", "FACE", 0.04711021172802, -0.08071739270035, 0.08847713243322, 8 Part.AndSelectByMark "", "FACE", 0.04364059958862, -0.07052836179794, 0.0723809404211, 8 Part.AndSelectByID "Coincident50", "MATE", 0, 0, 0 Part.EditMate 0, 1, 0, 0.01, 0.5235987755983 Part.ClearSelection Part.SelectByID "Coincident50", "MATE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Coincident50" Part.ClearSelection ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Part.ShowNamedView2 "*Right", 4 Part.ViewZoomTo2 -0.0890399, -0.04805, -0.0733038, -0.0412417, -0.0937332, -0.0733038 Part.ActiveView().TranslateBy 0, -0.000285393 Part.ActiveView().TranslateBy 0, -0.00085618 Part.ActiveView().TranslateBy -0.000570787, -0.00142697 Part.ActiveView().TranslateBy -0.00142697, -0.00199775 Part.ActiveView().TranslateBy -0.00142697, -0.00142697 Part.ActiveView().TranslateBy -0.00142697, -0.00142697 Part.ActiveView().TranslateBy -0.00199775, -0.00142697 Part.ActiveView().TranslateBy -0.00228315, -0.00171236 Part.ActiveView().TranslateBy -0.00313933, -0.00256854 Part.ActiveView().TranslateBy -0.00199775, -0.00142697 Part.ActiveView().TranslateBy -0.00313933, -0.00199775 Part.ActiveView().TranslateBy -0.00313933, -0.00228315 Part.ActiveView().TranslateBy -0.00371011, -0.00256854 Part.ActiveView().TranslateBy -0.00371011, -0.00256854 Part.ActiveView().TranslateBy -0.00256854, -0.00199775 Part.ActiveView().TranslateBy -0.00114157, -0.00114157 Part.ActiveView().TranslateBy -0.00085618, -0.000570787 Part.ActiveView().TranslateBy -0.00114157, -0.00114157 Part.ActiveView().TranslateBy -0.00142697, -0.00114157 Part.ActiveView().TranslateBy -0.00256854, -0.00142697 Part.ActiveView().TranslateBy -0.00171236, -0.00114157 Part.ActiveView().TranslateBy -0.00085618, -0.00085618 Part.ActiveView().TranslateBy -0.00142697, -0.00171236 Part.ActiveView().TranslateBy -0.00085618, -0.00114157 Part.ActiveView().TranslateBy -0.000570787, -0.000570787 Part.ActiveView().TranslateBy -0.000570787, -0.00114157 Part.ActiveView().TranslateBy -0.00085618, -0.000570787 Part.ActiveView().TranslateBy -0.00085618, -0.00085618 Part.ActiveView().TranslateBy -0.000285393, -0.000285393 Part.ActiveView().TranslateBy -0.000570787, -0.000570787 Part.ActiveView().TranslateBy -0.000285393, 0.00085618 Part.ActiveView().TranslateBy -0.000285393, 0.000285393 Part.ViewDisplayHiddengreyed Part.SelectByID "", "FACE", 0.04901580145236, -0.07623641560648, 0.0715697187464 Part.ViewDisplayWireframe Part.AndSelectByID "", "FACE", -0.02539999999999, -0.08521169365507, 0.05205605242727 Part.AndSelectByID "", "EDGE", 0.04351509807532, -0.06141207995318, 0.04827433414837 Part.AndSelectByID "", "EDGE", 0.10795, -0.07906009858806, 0.0464591093745 Part.DeSelectByID "", "FACE", -0.02539999999999, -0.08521169365507, 0.05205605242727 Part.DeSelectByID "", "FACE", 0.04901580145236, -0.07623641560648, 0.0715697187464 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ShoulderBushing.SLDPRT") Part.SelectByID "Base-Extrude", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@Base-Extrude@ShoulderBushing.SLDPRT", "DIMENSION", 0.3798971037327, 0.4071548900436, 0.5393102791114 Part.EditRebuild Part.ClearSelection ' MSGBOX ' G:\Work In Progress\Canyon Dynamics\rin-bin\Nautilus.Conn\ShoulderBushing.SLDPRT has not been rebuilt successfully since the last feature change or an externally referenced model has changed. ' It is safest to rebuild before saving. ' Rebuild now? Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 307 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") ' MSGBOX ' Models contained within the assembly have changed. Would you like to rebuild the assembly now? Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("ShoulderBushing.SLDPRT") Part.SelectByID "Boss-Extrude1", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@Boss-Extrude1@ShoulderBushing.SLDPRT", "DIMENSION", 0.3801100042053, 0.409010829557, 0.5377514012857 Part.EditRebuild Part.ClearSelection ' MSGBOX ' G:\Work In Progress\Canyon Dynamics\rin-bin\Nautilus.Conn\ShoulderBushing.SLDPRT has not been rebuilt successfully since the last feature change or an externally referenced model has changed. ' It is safest to rebuild before saving. ' Rebuild now? Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 307 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") ' MSGBOX ' Models contained within the assembly have changed. Would you like to rebuild the assembly now? Part.SelectByID "DeConnAssem_V5.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByFeatures Part.SelectByID "BodySke@Socket Head Cap Screw_AI-1@DeConnAssem_V5", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Length@BodySke@Socket Head Cap Screw_AI-1@DeConnAssem_V5", "DIMENSION", -0.07330383540089, -0.05132749787612, 0.04494642206294 Part.EditRebuild Part.ClearSelection ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Part.SelectByID "Sketch8@dcon.End.Cap-1@DeConnAssem_V5", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Hole Depth@Sketch8@dcon.End.Cap-1@DeConnAssem_V5", "DIMENSION", -0.07330383540089, -0.07114370165756, 0.04121512669442 Part.EditRebuild Part.EditRebuild Part.ClearSelection Part.ViewDisplayShaded Part.ViewZoomtofit2 Part.SelectByID "Display", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Display" Part.SelectByID "DerivedCirPattern1", "COMPPATTERN", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "DerivedCirPattern1" Part.ClearSelection Part.SelectByID "Socket Head Cap Screw_AI-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AndSelectByID "ShoulderBushing-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Socket Head Cap Screw_AI-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.SelectByID "ShoulderBushing-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "HybridPenetrator_8-12-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.ClearSelection Part.SelectByID "Blkhd.Isolator-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "G:\Work In Progress\Canyon Dynamics\rin-bin\Nautilus.Conn\Blkhd.Isolator.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\Canyon Dynamics\rin-bin\Nautilus.Conn\Blkhd.Isolator.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Blkhd.Isolator.SLDPRT") Part.ClearSelection Part.SelectByID ".266holes", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Blkhd.Isolator.SLDPRT", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AddConfiguration "Display","","",1,0,0,0,0 Part.SelectByID ".266holes", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "Chamfer1", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "Fillet1", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "2-032", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "2-030", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 307 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") Part.SelectByID "Blkhd.Isolator-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.ClearSelection Part.SelectByID "Lantronix_ETS8P-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "Canoga-Perkins-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "Default@DeConnAssem_V5.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Default" Part.SelectByID "BasePlate-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.SelectByID "BasePlate-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.SelectByID "Display@DeConnAssem_V5.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Display" Part.SelectByID "BasePlate-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.ClearSelection ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Part.SelectByID "DeConn-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.ClearSelection ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 307 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 623 swApp.ActiveDoc.ActiveView.FrameHeight = 461 Set Part = swApp.ActivateDoc ("HybridPenetrator_Dummy.SLDPRT") Set Part = swApp.ActivateDoc ("Blkhd.Isolator.SLDPRT") Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") Part.SelectByID "Default@DeConnAssem_V5.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Default" Part.ShowNamedView2 "*Right", 4 Part.ViewZoomTo2 -0.0875304, -0.042363, -0.0733038, -0.0223353, -0.106351, -0.0733038 Part.ActiveView().TranslateBy 0, -0.000814577 Part.ActiveView().TranslateBy 0, -0.00244373 Part.ActiveView().TranslateBy 0, -0.00325831 Part.ActiveView().TranslateBy 0, -0.00244373 Part.ActiveView().TranslateBy -0.000814577, -0.00325831 Part.ActiveView().TranslateBy 0, -0.00488746 Part.ActiveView().TranslateBy 0, -0.00570204 Part.ActiveView().TranslateBy -0.000814577, -0.00651662 Part.ActiveView().TranslateBy -0.00325831, -0.0138478 Part.ActiveView().TranslateBy -0.00162915, -0.0073312 Part.ActiveView().TranslateBy 0, -0.00488746 Part.ActiveView().TranslateBy 0, -0.00162915 Part.ActiveView().TranslateBy 0, -0.00244373 Part.ActiveView().TranslateBy 0, -0.000814577 Part.ActiveView().TranslateBy -0.000814577, -0.00162915 Part.ActiveView().TranslateBy 0, -0.00244373 Part.ActiveView().TranslateBy 0, -0.00244373 Part.ActiveView().TranslateBy 0, -0.00244373 Part.ActiveView().TranslateBy 0, -0.00162915 Part.ActiveView().TranslateBy -0.000814577, -0.00325831 Part.ActiveView().TranslateBy 0, -0.00325831 Part.ActiveView().TranslateBy 0, -0.00407289 Part.ActiveView().TranslateBy 0, -0.0114041 Part.ActiveView().TranslateBy -0.00162915, -0.00244373 Part.ActiveView().TranslateBy 0, -0.000814577 Part.ActiveView().TranslateBy -0.000814577, 0 Part.ActiveView().TranslateBy -0.00244373, 0 Part.ActiveView().TranslateBy -0.00407289, 0 Part.ViewDisplayHiddengreyed Set Part = swApp.ActivateDoc ("Blkhd.Isolator.SLDPRT") Part.SelectByID "D3@Sketch1@Blkhd.Isolator.SLDPRT", "DIMENSION", 0.07211607241958, -0.003349962838045, -0.4267101838969 Part.EditRebuild Part.ClearSelection Part.ShowNamedView2 "*Front", 1 Part.ViewDisplayHiddengreyed Part.SelectByID "Default@Blkhd.Isolator.SLDPRT", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Default" Part.ViewDisplayShaded Part.ShowNamedView2 "*Front", 1 Part.ViewZoomTo2 0.00551756, 0.0119272, -1.71971e-016, 0.0464282, -0.0287144, 1.11828e-016 Part.ViewDisplayHiddengreyed Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") Part.SelectByID "BodySke@Socket Head Cap Screw_AI-1@DeConnAssem_V5", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Length@BodySke@Socket Head Cap Screw_AI-1@DeConnAssem_V5", "DIMENSION", -0.07330383540089, -0.04708143283773, 0.03735111592864 Part.EditRebuild Part.ClearSelection Part.EditRebuild Part.ActiveView().TranslateBy 0, -0.000814577 Part.ActiveView().TranslateBy 0.0130332, -0.0219936 Part.ActiveView().TranslateBy 0.00325831, -0.00896035 Part.ActiveView().TranslateBy 0.00162915, -0.0114041 Part.ActiveView().TranslateBy 0, -0.00325831 Part.ActiveView().TranslateBy 0.000814577, -0.000814577 Part.ActiveView().TranslateBy 0.0138478, -0.0439872 Part.ActiveView().TranslateBy 0.0114041, -0.0325831 Part.ActiveView().TranslateBy 0.00488746, -0.0130332 Part.ActiveView().TranslateBy 0.000814577, -0.00407289 Part.ActiveView().TranslateBy 0.000814577, 0 Part.ActiveView().TranslateBy 0, 0.000814577 Part.ActiveView().TranslateBy -0.00570204, 0.0219936 Part.ActiveView().TranslateBy -0.00407289, 0.0293248 Part.ActiveView().TranslateBy -0.00407289, 0.0252519 Part.ActiveView().TranslateBy -0.00570204, 0.0203644 Part.ActiveView().TranslateBy -0.00488746, 0.0179207 Part.ActiveView().TranslateBy -0.00325831, 0.0114041 Part.ActiveView().TranslateBy -0.00162915, 0.00325831 Part.ActiveView().TranslateBy -0.00488746, 0.00325831 Part.ActiveView().TranslateBy -0.000814577, -0.00162915 Part.ActiveView().TranslateBy -0.000814577, 0 Part.ActiveView().TranslateBy -0.00488746, -0.000814577 Part.ActiveView().TranslateBy -0.000814577, 0 Part.SelectByID "", "FACE", -0.02539999999999, -0.0858563367693, 0.05445769119257 Part.SelectByID "", "FACE", 0.08056332809809, -0.0586758894055, 0.08486938055066 Set Part = swApp.ActivateDoc ("HybridPenetrator_Dummy.SLDPRT") Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") Part.ViewDisplayShaded Part.ClearSelection Set Part = swApp.ActivateDoc ("Blkhd.Isolator.SLDPRT") Part.ViewDisplayShaded swApp.LoadFile2 "G:\Work In Progress\Canyon Dynamics\rin-bin\Nautilus.Conn\Blkhd.Isolator.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\Canyon Dynamics\rin-bin\Nautilus.Conn\Blkhd.Isolator.SLDDRW", 3, 0, "", longstatus) ' MSGBOX ' Some dimensions are no longer in the model. Missing dimensions will be deleted from drawing. Set Part = swApp.ActivateDoc ("Blkhd.Isolator - 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.SelectByID "RD1@Drawing View1", "DIMENSION", 0.142494, 0.1333366315789, 0.000246615158334 Part.EditDelete Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.1415849473684, 0.1101557894737, 0.0002466151583341 Part.SelectByID "DetailItem118@Drawing View1", "SFSYMBOL", 0.001590842105263, 0.005160210526316, 0.0002466151583349 Part.SelectByID "DetailItem118@Drawing View1", "SFSYMBOL", 0.002045368421053, 0.005160210526316, 0.0002466151583349 Part.ClearSelection Part.NewSheet3 "Sheet2", 12, 12, 1, 1, 0, "D:\Program Files\SolidWorks2001\data\MBARI_TEMP_B.slddrt", 0.4318, 0.2794, "Default" swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 609 swApp.ActiveDoc.ActiveView.FrameHeight = 461 Set Part = swApp.ActivateDoc ("ShoulderBushing.SLDPRT") Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet2") Part.Create3rdAngleViews "G:\Work In Progress\Canyon Dynamics\rin-bin\Nautilus.Conn\ShoulderBushing.SLDPRT" Part.EditSketch Set Part = swApp.ActivateDoc ("ShoulderBushing.SLDPRT") Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet2") Set Part = swApp.ActivateDoc ("ShoulderBushing.SLDPRT") Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet2") Part.SetPickMode Set Part = swApp.ActivateDoc ("ShoulderBushing.SLDPRT") Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Trimetric", 8 Part.ShowNamedView2 "*Dimetric", 9 Part.ShowNamedView2 "*Isometric", 7 Part.NameView "Display", -1 Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet2") Set Part = swApp.ActivateDoc ("ShoulderBushing.SLDPRT") Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet2") Part.CreateDrawViewFromModelView "G:\Work In Progress\Canyon Dynamics\rin-bin\Nautilus.Conn\ShoulderBushing.SLDPRT", "Display", 0.3086565787966, 0.1882867793696, 0 ' MSGBOX ' SolidWorks has determined that this view may need Isometric (True) dimensions ' instead of standard Projected dimensions. ' Do you want to switch the view to use Isometric (True) dimensions? Part.EditSketch Part.SelectByID "Drawing View9", "DRAWINGVIEW", 0.277106722063, 0.0797552722063, 0 Part.EditDelete Part.EditSketch Part.EditSketch Part.SelectByID "Drawing View7", "DRAWINGVIEW", 0.1521692893983, 0.05830136962751, 0 Part.SelectByID "Drawing View7", "DRAWINGVIEW", 0.162265243553, 0.08606524355301, 0 Part.SelectByID "Drawing View7", "DRAWINGVIEW", 0.1710992034384, 0.04820541547278, 0 Part.EditDelete Part.EditSketch 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.CreateLine2( 0.006794772172333, 0, 0, -0.007848589683337, 0, 0 ).ConstructionGeometry = TRUE Part.CreateSectionViewAt2 0.1306658968481, 0.07113728247423, 0, 0, 0, "C", 0, 0, 0, 0 Part.EditSketch Part.SetPickMode Part.ClearSelection Part.SelectByID "Drawing View8", "DRAWINGVIEW", 0.1573265525773, 0.2227925649485, 0 Part.SelectByID "Drawing View8", "DRAWINGVIEW", 0.1595968412371, 0.2355061814433, 0 Part.EditSketch Part.SelectByID "Sheet2", "SHEET", 0.03654719587629, 0.07840220618557, 0 Part.SelectByID "DetailItem129@Drawing View11", "NOTE", 0.1241803381443, 0.04707222268041, 0 Part.SelectByID "Drawing View11", "DRAWINGVIEW", 0.09012600824742, 0.06114801237113, 0 Part.EditSketch boolstatus = Part.InsertModelAnnotations (0, 0, 8, 0) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "D1@Sketch3@Section-2@Drawing View11", "DIMENSION", 0.1309912041237, 0.172846214433, 0 Part.EditSketch Part.SelectByID "DetailItem129@Drawing View11", "NOTE", 0.1291749731959, 0.0361748371134, 0 Part.EditSketch Part.SelectByID "D1@Sketch1@Section-2@Drawing View11", "DIMENSION", 0.1337155505155, 0.2291493731959, 0 Part.EditSketch Part.EditSketch Part.SelectByID "D1@Sketch2@Section-2@Drawing View11", "DIMENSION", 0.1328074350515, 0.2840903587629, 0 Part.EditSketch Part.EditSketch Part.SelectByID "D1@Base-Extrude@Section-2@Drawing View11", "DIMENSION", 0.2399650597938, 0.07931032164948, 0 Part.EditSketch Part.EditSketch Part.SelectByID "D1@Boss-Extrude1@Section-2@Drawing View11", "DIMENSION", 0.2395110020619, 0.107007843299, 0 Part.EditSketch Part.SelectByID "Sheet2", "SHEET", 0.2099972494845, 0.05206685773196, 0 Part.EditSketch Part.ClearSelection Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.09421252783505, 0.1705759257763, 437.40732124 Part.AddDimension 0.058796, 0.145603, 0 Part.ClearSelection Part.EditSketch Part.SelectByID "", "EDGE", 0.1019315092784, 0.1138187092814, 437.406528125 Part.AndSelectByID "", "EDGE", 0.105563971134, 0.0566074350546, 437.406528125 Part.AddDimension 0.0637907, 0.0865752, 0 Part.ClearSelection Part.SetPickMode Part.ClearSelection Part.EditSketch Part.ViewZoomTo2 0.0074875, 0.28409, -3.78313e-015, 0.215446, 0.00620703, -1.84268e-015 Part.EditSketch Part.EditSketch Part.SelectByID "RD1@Drawing View8", "DIMENSION", 0.06208568804533, 0.1448419782891, 0 Part.AndSelectByID "D1@Sketch2@Section-2@Drawing View11", "DIMENSION", 0.1353904522155, 0.1368674014337, 0 Part.EditSketch Part.AndSelectByID "D1@Base-Extrude@Section-2@Drawing View11", "DIMENSION", 0.1994937815525, 0.07675136052434, 0 Part.SelectByID "D1@Base-Extrude@Section-2@Drawing View11", "DIMENSION", 0.1994937815525, 0.07675136052434, 0 Part.SelectByID "Sheet2", "SHEET", 0.01239793994675, 0.07184392861337, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Sheet2", "SHEET", 0.02159937477982, 0.07920507647983, 0 Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.NewSheet3 "Sheet3", 12, 12, 8, 1, 0, "D:\Program Files\SolidWorks2001\data\MBARI_TEMP_B.slddrt", 0.4318, 0.2794, "Default" swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc ("HybridPenetrator_Dummy.SLDPRT") Part.ShowNamedView2 "*Bottom", 6 Part.ShowNamedView2 "*Front", 1 Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet3") Set Part = swApp.ActivateDoc ("HybridPenetrator_Dummy.SLDPRT") Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet3") Part.CreateDrawViewFromModelView "G:\Work In Progress\Canyon Dynamics\rin-bin\Nautilus.Conn\HybridPenetrator_Dummy.SLDPRT", "*Front", 0.1269294040115, 0.1756668366762, 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "Sheet3", "SHEET", 0.07514210309278, 0.04162352989691, 0 Part.CreateLine2( 0, 0.04655240991345, 0, 0, -0.04879971379789, 0 ).ConstructionGeometry = TRUE Part.CreateSectionViewAt2 0.3176089319588, 0.1756668366762, 0, 0, 0, "D", 0, 0, 0, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Drawing View13", "DRAWINGVIEW", 0.3121602391753, 0.1088240742268, 0 Part.EditSketch boolstatus = Part.InsertModelAnnotations (0, 0, 8, 0) Part.SelectByID "Sheet3", "SHEET", 0.1141910680412, 0.07068322474227, 0 Part.EditSketch Part.EditSketch Part.SelectByID "Drawing View12", "DRAWINGVIEW", 0.1909268247423, 0.2436792206186, 0 boolstatus = Part.InsertModelAnnotations (0, 0, 8, 1) Part.ClearSelection Part.EditUndo 1 Part.EditUndo 1 Part.SelectByID "Sheet3", "SHEET", 0.1228181649485, 0.03254237525773, 0 boolstatus = Part.InsertModelAnnotations (0, 0, 8, 1) boolstatus = Part.InsertModelAnnotations (0, 0, 8, 1) Part.SelectByID "Drawing View12", "DRAWINGVIEW", 0.05697979381443, 0.2405008164948, 0 Part.EditSketch Part.AndSelectByID "Drawing View13", "DRAWINGVIEW", 0.3071656041237, 0.2359602391753, 0 Part.EditSketch Part.SelectByID "Drawing View12", "DRAWINGVIEW", 0.183207843299, 0.2364142969072, 0 Part.ClearSelection Part.EditUndo 1 Part.EditUndo 1 Part.SelectByID "D2@CirPattern1@HybridPenetrator_Dummy-1@Drawing View12", "DIMENSION", 0.1378020701031, 0.1855598309278, 0 Part.SelectByID "Sheet3", "SHEET", 0.2481380989691, 0.09202393814433, 0 Part.SelectByID "D1@Chamfer1@HybridPenetrator_Dummy-1@Drawing View12", "DIMENSION", 0.1523319175258, 0.1737543298969, 0 Part.SelectByID "Sheet3", "SHEET", 0.2354244824742, 0.161948828866, 0 Part.SelectByID "Drawing View12", "DRAWINGVIEW", 0.1854781319588, 0.2232466226804, 0 Part.EditDelete swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc ("HybridPenetrator_Dummy.SLDPRT") Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet3") Set Part = swApp.ActivateDoc ("HybridPenetrator_Dummy.SLDPRT") Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet3") Part.CreateDrawViewFromModelView "G:\Work In Progress\Canyon Dynamics\rin-bin\Nautilus.Conn\HybridPenetrator_Dummy.SLDPRT", "*Front", 0.1206194326648, 0.1680948710602, 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.CreateLine2( 0, 0.0476652199805, 0, 0, -0.04920042950403, 0 ).ConstructionGeometry = TRUE Part.CreateSectionViewAt2 0.3189711051546, 0.1680948710602, 0, 0, 0, "E", 0, 0, 0, 0 Part.SetPickMode Part.ClearSelection Part.EditSketch Part.SelectByID "Sheet3", "SHEET", 0.172310457732, 0.04979656907216, 0 boolstatus = Part.InsertModelAnnotations (0, 0, 8, 1) boolstatus = Part.InsertModelAnnotations (0, 0, 8, 1) Part.SelectByID "Sheet3", "SHEET", 0.172310457732, 0.04979656907216, 0 Part.SelectByID "Drawing View14", "DRAWINGVIEW", 0.1745807463918, 0.2286953154639, 0 Part.ClearSelection Part.EditSketch Part.SelectByID "Drawing View15", "DRAWINGVIEW", 0.3053493731959, 0.2314196618557, 0 Part.SelectByID "Sheet3", "SHEET", 0.2726572164948, 0.2300574886598, 0 Part.EditSketch Part.SelectByID "Drawing View14", "DRAWINGVIEW", 0.1750348041237, 0.2309656041237, 0 Part.SelectByID "Sheet3", "SHEET", 0.2186243463918, 0.239138643299, 0 Part.EditSketch Part.SelectByID "D1@Sketch6@Section-4@Drawing View15", "DIMENSION", 0.4256746721649, 0.1683056371134, 0 Part.SelectByID "D6@Sketch1@Section-4@Drawing View15", "DIMENSION", 0.3657390515464, 0.1560460783505, 0 Part.DragModelDimension "Drawing View14", 1, 0.1777591505155, 0.2218844494845, 0 Part.DeSelectByID "D6@Sketch1@Section-4@Drawing View15", "DIMENSION", 0.3979771505155, 0.1737543298969, 0 Part.EditSketch Part.SelectByID "D6@Sketch1@HybridPenetrator_Dummy-3@Drawing View14", "DIMENSION", 0.1782132082474, 0.2223385072165, 0 Part.SelectByID "D6@Sketch1@HybridPenetrator_Dummy-3@Drawing View14", "DIMENSION", 0.1782132082474, 0.2223385072165, 0 Part.SelectByID "Sheet3", "SHEET", 0.2213486927835, 0.2527603752577, 0 Part.SelectByID "D6@Sketch1@HybridPenetrator_Dummy-3@Drawing View14", "DIMENSION", 0.1795753814433, 0.2209763340206, 0 Part.SelectByID "Sheet3", "SHEET", 0.2449596948454, 0.2418629896907, 0 Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.254949, 0.260025, -3.61508e-015, 0.415685, 0.0693211, -2.2834e-015 Part.EditSketch Part.SelectByID "D5@Sketch1@Section-4@Drawing View15", "DIMENSION", 0.2799582242644, 0.1693039627227, 0 Part.EditSketch Part.EditSketch Part.SelectByID "D3@Sketch7@Section-4@Drawing View15", "DIMENSION", 0.351735429972, 0.1682515110261, 0 Part.SelectByID "D1@Sketch7@Section-4@Drawing View15", "DIMENSION", 0.3431053260599, 0.2145593856762, 0 Part.SelectByID "D1@Sketch1@Section-4@Drawing View15", "DIMENSION", 0.3460521908104, 0.2250839026422, 0 Part.SelectByID "D1@Sketch7@Section-4@Drawing View15", "DIMENSION", 0.3077429490544, 0.2412916587697, 0 Part.SelectByID "D2@Sketch1@Section-4@Drawing View15", "DIMENSION", 0.3125842268587, 0.2114020305865, 0 Part.SelectByID "D2@Sketch7@Section-4@Drawing View15", "DIMENSION", 0.3536298430259, 0.1975096681914, 0 Part.SelectByID "Sheet3", "SHEET", 0.3481570942036, 0.1886690739401, 0 Part.SelectByID "D2@Sketch7@Section-4@Drawing View15", "DIMENSION", 0.3511039589541, 0.2101390885506, 0 Part.SelectByID "Sheet3", "SHEET", 0.3492095459002, 0.1802494603673, 0 Part.SelectByID "D3@Sketch7@Section-4@Drawing View15", "DIMENSION", 0.3599445532054, 0.1680410206868, 0 Part.SelectByID "D6@Sketch1@Section-4@Drawing View15", "DIMENSION", 0.3976223239435, 0.1735137695091, 0 Part.SelectByID "D1@Sketch6@Section-4@Drawing View15", "DIMENSION", 0.3816250581553, 0.17014592408, 0 Part.SelectByID "D1@Sketch6@Section-4@Drawing View15", "DIMENSION", 0.3881502586741, 0.17014592408, 0 Part.SelectByID "D1@Sketch6@Section-4@Drawing View15", "DIMENSION", 0.3915181041032, 0.1697249434014, 0 Part.SelectByID "Sheet3", "SHEET", 0.3780467223868, 0.1478339481122, 0 Part.SelectByID "D6@Sketch1@Section-4@Drawing View15", "DIMENSION", 0.4064629181949, 0.1697249434014, 0 Part.HideDimension Part.ClearSelection Part.SelectByID "D1@Sketch6@Section-4@Drawing View15", "DIMENSION", 0.390044671728, 0.1699354337407, 0 Part.SelectByID "D3@Sketch7@Section-4@Drawing View15", "DIMENSION", 0.3645753406704, 0.1695144530621, 0 Part.SelectByID "D3@Sketch8@Section-4@Drawing View15", "DIMENSION", 0.2976394127671, 0.1638312139005, 0 Part.SelectByID "D4@Sketch8@Section-4@Drawing View15", "DIMENSION", 0.3193199177169, 0.1636207235611, 0 Part.SelectByID "D4@Sketch8@Section-4@Drawing View15", "DIMENSION", 0.2938505866594, 0.1242590301086, 0 Part.HideDimension Part.ClearSelection Part.SelectByID "D3@Sketch8@Section-4@Drawing View15", "DIMENSION", 0.2841680310507, 0.1381513925036, 0 Part.SelectByID "D3@Sketch8@Section-4@Drawing View15", "DIMENSION", 0.2839575407114, 0.1366779601284, 0 Part.SelectByID "Sheet3", "SHEET", 0.2755379271387, 0.09605332463986, 0 Part.SelectByID "D3@Sketch8@Section-4@Drawing View15", "DIMENSION", 0.2818526373182, 0.136467469789, 0 Part.SelectByID "D2@Sketch8@Section-4@Drawing View15", "DIMENSION", 0.3096373621083, 0.1802494603673, 0 Part.SelectByID "Sheet3", "SHEET", 0.2885883281764, 0.09963166040827, 0 Part.SelectByID "D2@Sketch8@Section-4@Drawing View15", "DIMENSION", 0.285009992408, 0.1244695204479, 0 Part.SelectByID "Sheet3", "SHEET", 0.2660658618693, 0.104051957534, 0 Part.SelectByID "D2@Sketch8@Section-4@Drawing View15", "DIMENSION", 0.2837470503721, 0.1236275590906, 0 Part.SelectByID "Sheet3", "SHEET", 0.2818526373182, 0.09457989226463, 0 Part.SelectByID "D5@Sketch1@Section-4@Drawing View15", "DIMENSION", 0.2492266347238, 0.1688829820441, 0 Part.ClearSelection Part.SelectByID "", "EDGE", 0.3026911809108, 0.1533066969357, 166.6512725 Part.AndSelectByID "", "EDGE", 0.3346857124872, 0.1539381679536, 166.6512725 Part.AddDimension 0.31932, 0.0943694, -2.97314e-015 Part.ClearSelection Part.SetPickMode Part.ClearSelection Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("HybridPenetrator_Dummy.SLDPRT") Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "D1@Sketch1@HybridPenetrator_Dummy.SLDPRT", "DIMENSION", 0.006181020974182, 0.03594398503495, -0.01473801624968 Part.EditRebuild Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet3") Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("HybridPenetrator_Dummy.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 ("Blkhd.Isolator - Sheet3") Part.EditSketch ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Part.EditSketch Part.SelectByID "D1@Sketch6@Section-4@Drawing View15", "DIMENSION", 0.4033055631051, 0.1690934723834, 0 Part.SelectByID "D1@Sketch6@Section-4@Drawing View15", "DIMENSION", 0.4005691886939, 0.1676200400082, 0 Part.SelectByID "Sheet3", "SHEET", 0.3919390847819, 0.1120505904281, 0 Part.SelectByID "D1@Sketch6@Section-4@Drawing View15", "DIMENSION", 0.4005691886939, 0.1674095496689, 0 Part.SelectByID "Sheet3", "SHEET", 0.3519459203113, 0.1082617643203, 0 Part.EditSketch Part.ViewZoomtofit2 Part.ViewZoomTo2 0.0356391, 0.253668, -3.5707e-015, 0.208635, 0.0806725, -2.36267e-015 Part.ViewDispTempRefaxes Part.CreateCircle 0, 0, 0, 0.02863511265375, -0.01640102296344, 0 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.01226509647724, 0.03063544743177, 0 Part.AddDimension 0.179611, 0.242976, -2.97314e-015 Part.ClearSelection Part.EditRebuild Part.Parameter("D1@Sketch20").SystemValue = 0.06604 Part.SetPickMode Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.01943017206219, 0.02669810505698, 0 Part.CreateConstructionGeometry Part.SelectByID "", "EDGE", 0.1645268256844, 0.2145248051217, 166.625936 Part.AddDimension 0.186485, 0.236483, -2.97314e-015 Part.ClearSelection Part.SetPickMode Part.ClearSelection Part.SelectByID "D6@Sketch1@HybridPenetrator_Dummy-3@Drawing View14", "DIMENSION", 0.1807571343483, 0.2219716526251, 0 Part.HideDimension Part.ClearSelection Part.SelectByID "RD1@Drawing View14", "DIMENSION", 0.1876311474295, 0.2372472372499, 0 Part.SelectByID "RD1@Drawing View14", "DIMENSION", 0.186103588967, 0.2366744028265, 0 Part.SelectByID "D1@Sketch20@Blkhd.Isolator.SLDDRW", "DIMENSION", 0.1824756376186, 0.2425936918686, 0 Part.SelectByID "D1@Sketch20@Blkhd.Isolator.SLDDRW", "DIMENSION", 0.1874402026217, 0.242211802253, 0 Part.SelectByID "Drawing View14", "DRAWINGVIEW", 0.05969812619649, 0.111223664095, 0 Part.SelectByID "D2@CirPattern1@HybridPenetrator_Dummy-3@Drawing View14", "DIMENSION", 0.1295839258551, 0.1782452916365, 0 Part.SelectByID "D1@Chamfer1@HybridPenetrator_Dummy-3@Drawing View14", "DIMENSION", 0.1465780137503, 0.1671704927835, 0 Part.SelectByID "D2@CirPattern1@HybridPenetrator_Dummy-3@Drawing View14", "DIMENSION", 0.1778929622312, 0.217007087622, 0 Part.HideDimension Part.ClearSelection Part.SelectByID "Drawing View14", "DRAWINGVIEW", 0.174074066075, 0.1016764237045, 0 Part.SelectByID "D1@Chamfer1@HybridPenetrator_Dummy-3@Drawing View14", "DIMENSION", 0.1622354879907, 0.1026311477436, 0 Part.SelectByID "Drawing View14", "DRAWINGVIEW", 0.1840031960811, 0.0995760308186, 0 Part.CreateLine2( 0, 0, 0, -0.02863283898632, -0.01644630449625, 0 ).ConstructionGeometry = TRUE Part.ClearSelection Part.SetPickMode Part.SetPickMode Part.CreateLine2( 0, 0, 0, 0, -0.03302, 0 ).ConstructionGeometry = TRUE Part.ClearSelection Part.SelectByID "Line2", "SKETCHSEGMENT", -0.01789070039892, -0.01027616949029, 0 Part.AndSelectByID "Line3", "SKETCHSEGMENT", 0, -0.01831047104155, 0 Part.AddDimension 0.103615, 0.143302, -2.97314e-015 Part.ClearSelection Part.Parameter("D2@Sketch20").SystemValue = 1.0472 Part.SetPickMode Part.ClearSelection Part.SelectByID "Section Line4", "SECTIONLINE", 0, -0.01041808565205, 0 Part.SelectByID "Section Line4", "SECTIONLINE", 0, -0.004944334494815, 0 Part.SelectByID "Section Line4", "SECTIONLINE", 0, -0.005071631033355, 0 Part.SelectByID "Section Line4", "SECTIONLINE", 0, -0.02187477412068, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "D2@Sketch20@Blkhd.Isolator.SLDDRW", "DIMENSION", 0.1034244871851, 0.1440661710384, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "D2@Sketch20@Blkhd.Isolator.SLDDRW", "DIMENSION", 0.1034244871851, 0.1440661710384, 0 Part.SelectByID "Drawing View14", "DRAWINGVIEW", 0.05969812619649, 0.09518430023896, 0 Part.SelectByID "D2@Sketch20@Blkhd.Isolator.SLDDRW", "DIMENSION", 0.07287331793541, 0.09862130677955, 0 Part.SelectByID "Drawing View14", "DRAWINGVIEW", 0.05702489888714, 0.09308390735304, 0 Part.SelectByID "Drawing View14", "DRAWINGVIEW", 0.1916409883935, 0.1037768165904, 0 Part.SelectByID "", "EDGE", 0.1664362737625, 0.1368102683428, 166.625936 Part.ClearSelection Part.SelectByID "", "EDGE", 0.1637630464532, 0.1364283787272, 166.625936 Part.AddDimension 0.204434, 0.109887, -2.97314e-015 Part.ClearSelection Part.SetPickMode Part.ClearSelection Part.SelectByID "RD2@Drawing View14", "DIMENSION", 0.2011882287841, 0.110268940056, 0 Part.SelectByID "RD2@Drawing View14", "DIMENSION", 0.2027157872465, 0.1096961056326, 0 Set Gtol = Part.InsertGtol() If Not Gtol Is Nothing Then Gtol.SetFrameSymbols2 1, "", 1, "", 0, "", "", "", "" Gtol.SetFrameValues 1, ".005", "", "A", "", "" Gtol.SetFrameSymbols2 2, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 2, "", "", "", "", "" Gtol.SetPTZHeight "", 0 Gtol.SetCompositeFrame 0 Gtol.SetBetweenTwoPoints 0, "", "" Set Annotation = Gtol.GetAnnotation() If Not Annotation Is Nothing Then boolstatus = Annotation.SetPosition (0.1898836719567, 0.1075957127466, 0) longstatus = Annotation.SetLeader2 (0, 0, 1, 1, 0, 0) End If End If Part.WindowRedraw Part.ClearSelection Part.SelectByID "D1@Sketch20@Blkhd.Isolator.SLDDRW", "DIMENSION", 0.1847669753124, 0.2420208574452, 0 Part.SelectByID "D1@Sketch20@Blkhd.Isolator.SLDDRW", "DIMENSION", 0.1847669753124, 0.2420208574452, 0 Part.SelectByID "D2@Sketch20@Blkhd.Isolator.SLDDRW", "DIMENSION", 0.07783788293849, 0.0978575275483, 0 Part.SelectByID "D2@Sketch20@Blkhd.Isolator.SLDDRW", "DIMENSION", 0.07783788293849, 0.0978575275483, 0 Part.SelectByID "Drawing View14", "DRAWINGVIEW", 0.06141662946679, 0.09346579696866, 0 Part.ViewZoomtofit2 Part.SelectByID "Sheet3", "SHEET", 0.07741239175258, 0.0647804742268, 0 Part.ViewDispTempRefaxes Part.SelectByID "Sheet3", "SHEET", 0.05153110103093, 0.0670507628866, 0 Part.ViewZoomTo2 0.23043, 0.212803, -3.46949e-015, 0.32442, 0.131981, -2.90511e-015 Part.EditSketch Part.ClearSelection Part.SelectByID "", "EDGE", 0.302714902149, 0.1841166763026, 166.6512725 Part.AndSelectByID "", "EDGE", 0.3032962832862, 0.1912870436615, 166.6512725 Part.AddDimension 0.313955, 0.213283, -2.97314e-015 Part.ClearSelection Part.SelectByID "", "EDGE", 0.3089163009459, 0.1898335908185, 166.6512725 Part.AndSelectByID "", "EDGE", 0.3084318166649, 0.146326902384, 166.6512725 Part.AddDimension 0.282754, 0.168032, -2.97314e-015 Part.ClearSelection Part.SetPickMode Part.ClearSelection Part.SelectByID "RD3@Drawing View15", "DIMENSION", 0.2830448403401, 0.1682255918844, 0 Part.AndSelectByID "RD2@Drawing View15", "DIMENSION", 0.3131797626188, 0.2119260740312, 0 Part.SelectByID "RD2@Drawing View15", "DIMENSION", 0.3131797626188, 0.2119260740312, 0 Part.SelectByID "RD2@Drawing View15", "DIMENSION", 0.3125014846254, 0.2138640111553, 0 Part.EditSketch Part.EditSketch Part.SelectByID "RD3@Drawing View15", "DIMENSION", 0.2825603560591, 0.1677411076034, 0 Part.SelectByID "RD3@Drawing View15", "DIMENSION", 0.2825603560591, 0.1677411076034, 0 Part.EditSketch Part.SelectByID "Sheet3", "SHEET", 0.2468054161207, 0.1391565350239, 0 Part.EditSketch Part.SelectByID "RD3@Drawing View15", "DIMENSION", 0.2817851812095, 0.1692914573026, 0 Part.SelectByID "D5@Sketch1@Section-4@Drawing View15", "DIMENSION", 0.2532975054862, 0.1679349013158, 0 Part.SelectByID "Sheet3", "SHEET", 0.252716124349, 0.157470040846, 0 Part.EditSketch Part.SelectByID "D5@Sketch1@Section-4@Drawing View15", "DIMENSION", 0.2434140261537, 0.1688069730216, 0 Part.EditSketch Part.SelectByID "RD3@Drawing View15", "DIMENSION", 0.2783937912424, 0.1669659327537, 0 Part.SelectByID "RD3@Drawing View15", "DIMENSION", 0.2783937912424, 0.1669659327537, 0 Part.SelectByID "Sheet3", "SHEET", 0.2528130212052, 0.1411913690041, 0 Part.EditSketch Part.ViewZoomtofit2 Part.ViewZoomTo2 0.230884, 0.286815, -3.97614e-015, 0.349847, 0.164673, -3.12323e-015 Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.3248778650099, 0.2273617088153, 166.6512725 Part.ClearSelection Set DatumTag = Part.InsertDatumTag2() If Not DatumTag Is Nothing Then DatumTag.FilledTriangle = 1 DatumTag.Shoulder = 0 Set Annotation = DatumTag.GetAnnotation() If Not Annotation Is Nothing Then boolstatus = Annotation.SetPosition (0.3072172243736, 0.2477186304636, 0.03190875) End If End If Part.WindowRedraw Part.EditSketch Part.EditSketch Part.SelectByID "RD2@Drawing View15", "DIMENSION", 0.3128794145013, 0.2132062334949, 0 Part.SelectByID "RD2@Drawing View15", "DIMENSION", 0.2797151580392, 0.2172506550147, 0 Part.SelectByID "Sheet3", "SHEET", 0.2613804471496, 0.245561605653, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "RD2@Drawing View15", "DIMENSION", 0.2794455299379, 0.2176550971667, 0 Part.SelectByID "Sheet3", "SHEET", 0.2735137117089, 0.2144195599508, 0 Part.SelectByID "RD2@Drawing View15", "DIMENSION", 0.3111268318427, 0.2125321632416, 0 Part.EditSketch Part.ClearSelection Part.SetPickMode Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.SelectByID "Sheet3", "SHEET", 0.2481380989691, 0.216889814433, 0 Part.EditSketch Part.ClearSelection Set Gtol = Part.InsertGtol() If Not Gtol Is Nothing Then Gtol.SetFrameSymbols2 1, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 1, ".005", "", "", "", "" Gtol.SetFrameSymbols2 2, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 2, "", "", "", "", "" Gtol.SetPTZHeight "", 0 Gtol.SetCompositeFrame 0 Gtol.SetBetweenTwoPoints 0, "", "" Set Annotation = Gtol.GetAnnotation() If Not Annotation Is Nothing Then boolstatus = Annotation.SetPosition (0.2649382350515, 0.2300574886598, -3.639869165916e-015) longstatus = Annotation.SetLeader2 (0, 0, 1, 1, 0, 0) End If End If Part.WindowRedraw Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem135@Sheet3", "GTOL", 0.2735653319588, 0.2255169113402, 0 Part.EditSketch Part.ViewZoomTo2 0.24723, 0.260479, -3.8523e-015, 0.34122, 0.182381, -3.30695e-015 Part.EditSketch Part.SelectByID "Sheet3", "SHEET", 0.2636055522032, 0.2293759339611, 0 Part.SelectByID "DetailItem135@Sheet3", "GTOL", 0.2648652113338, 0.2302480056669, 0 Part.SelectByID "DetailItem135@Sheet3", "GTOL", 0.2647683144776, 0.2300542119545, 0 Part.SelectByID "DetailItem135@Sheet3", "GTOL", 0.2841476857179, 0.2412942472739, 0 Part.SelectByID "DetailItem135@Sheet3", "GTOL", 0.3189336570943, 0.2246279880072, 0 Part.SelectByID "DetailItem135@Drawing View15", "GTOL", 0.2754269686598, 0.2207521137592, 0 Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.SelectByID "D5@Sketch1@Section-4@Drawing View15", "DIMENSION", 0.2504083876289, 0.1683056371134, 0 Part.EditSketch Part.EditSketch Part.SelectByID "RD3@Drawing View15", "DIMENSION", 0.2790140247423, 0.1664894061856, 0 Part.EditSketch Part.ViewZoomTo2 0.250862, 0.196911, -3.39709e-015, 0.326236, 0.134705, -2.96271e-015 Part.EditSketch Part.ClearSelection Part.InsertSurfaceFinishSymbol2 0, 0, 0.2767381188734, 0.1463821382719, 0, 0, 1, "", "", "", "", "32", "", "" Part.ViewZoomtofit2 Part.ViewZoomTo2 0.280376, 0.257301, -3.79166e-015, 0.374366, 0.186922, -3.30021e-015 Part.InsertSurfaceFinishSymbol2 0, 2, 0.36399818484, 0.2366460067807, 0, 0, 1, "", "", "", "", "32", "", "" Part.SetPickMode Part.SelectByID "DetailItem137@Drawing View15", "SFSYMBOL", 0.3662268125327, 0.2412001590222, 0 Part.SelectByID "DetailItem137@Drawing View15", "SFSYMBOL", 0.3474288224296, 0.2274408054416, 0 Part.SelectByID "DetailItem137@Drawing View15", "SFSYMBOL", 0.3669050905261, 0.2414908495908, 0 Part.ViewZoomtofit2 Part.EditSketch Part.SelectByID "Sheet3", "SHEET", 0.04154183092784, 0.06841293608247, 0 ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.248592, 0.0720454, 0.000246615, 0.419772, -0.0010579, 0.000246615 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.249046, 0.0715913, -2.29926e-015, 0.422042, 0.000304276, -1.80146e-015 Part.EditSketch Part.SelectByID "Sheet2", "SHEET", 0.3473150739462, 0.07696747737273, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem22@Sheet Format2", "NOTE", 0.3756721495589, 0.02203679002232, 0 Part.SelectByID "DetailItem22@Sheet Format2", "NOTE", 0.3756721495589, 0.02203679002232, 0 Part.SelectByID "DetailItem94@Sheet Format2", "NOTE", 0.3696083723839, 0.02667379609735, 0 Part.SelectByID "DetailItem6@Sheet Format2", "NOTE", 0.3335824021086, 0.02114505808481, 0 Part.SelectByID "DetailItem5@Sheet Format2", "NOTE", 0.3371493298586, 0.02685214248485, 0 Part.SelectByID "DetailItem5@Sheet Format2", "NOTE", 0.3371493298586, 0.02685214248485, 0 Part.SelectByID "DetailItem4@Sheet Format2", "NOTE", 0.3446398781337, 0.03648284740993, 0 Part.SelectByID "DetailItem4@Sheet Format2", "NOTE", 0.3446398781337, 0.03648284740993, 0 Part.SelectByID "DetailItem4@Sheet Format2", "NOTE", 0.3458883028462, 0.03666119379743, 0 Part.SelectByID "DetailItem84@Sheet Format2", "NOTE", 0.3474934203337, 0.04147654625996, 0 Part.SelectByID "Sheet Format2", "SHEET", 0.2766899044957, 0.08374464009778, 0 Part.SelectByID "DetailItem98@Sheet Format2", "NOTE", 0.324130043571, 0.05556591087257, 0 Part.SelectByID "DetailItem100@Sheet Format2", "NOTE", 0.390653246109, 0.05592260364757, 0 Part.SelectByID "DetailItem100@Sheet Format2", "NOTE", 0.3869079719715, 0.05520921809757, 0 Part.SelectByID "DetailItem98@Sheet Format2", "NOTE", 0.3259135074461, 0.05574425726007, 0 Part.SelectByID "DetailItem141@Sheet Format2", "NOTE", 0.3328690165586, 0.07250881768519, 0 Part.SelectByID "Sheet Format2", "SHEET", 0.3102190253459, 0.07839424847274, 0 Part.SelectByID "DetailItem141@Sheet Format2", "NOTE", 0.3246650827336, 0.0734005496227, 0 Part.SelectByID "DetailItem140@Sheet Format2", "NOTE", 0.3897615141715, 0.08374464009778, 0 Part.SelectByID "Sheet Format2", "SHEET", 0.3523087727963, 0.08231786899777, 0 Part.SelectByID "DetailItem140@Sheet Format2", "NOTE", 0.3783473453715, 0.08410133287278, 0 Part.SelectByID "DetailItem140@Sheet Format2", "NOTE", 0.387086318359, 0.08427967926028, 0 Part.SelectByID "DetailItem141@Sheet Format2", "NOTE", 0.3293020888086, 0.06073795611011, 0 Part.SelectByID "Sheet Format2", "SHEET", 0.3300154743586, 0.07036866103518, 0 Part.SelectByID "DetailItem22@Sheet Format2", "NOTE", 0.3833410442215, 0.02203679002232, 0 Part.SelectByID "DetailItem94@Sheet Format2", "NOTE", 0.3738886856839, 0.02560371777235, 0 Part.ClearSelection Part.ViewZoomtofit2 Part.SelectByID "Sheet Format2", "SHEET", 0.3825391876289, 0.2436792206186, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.SelectByID "Sheet2", "SHEET", 0.392528457732, 0.1015591505155, 0 Part.EditSketch Part.ViewZoomTo2 0.241327, 0.0838509, -2.38486e-015, 0.321695, 0.021645, -1.95048e-015 Part.EditSketch Part.SelectByID "Sheet2", "SHEET", 0.2894653102901, 0.06873873420767, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem96@Sheet Format2", "NOTE", 0.2730602512446, 0.05556497467106, 0 Part.SelectByID "DetailItem142@Sheet Format2", "NOTE", 0.2752973047508, 0.07197003371665, 0 Part.SelectByID "Sheet Format2", "SHEET", 0.2804342424317, 0.0707272262132, 0 Part.SelectByID "DetailItem142@Sheet Format2", "NOTE", 0.2735573742459, 0.07172147221596, 0 Part.SelectByID "DetailItem142@Sheet Format2", "NOTE", 0.2603836147093, 0.06061905851844, 0 Part.SelectByID "DetailItem143@Sheet Format2", "NOTE", 0.2737230819131, 0.05995622784993, 0 Part.SelectByID "DetailItem143@Sheet Format2", "NOTE", 0.2731431050781, 0.06045335085131, 0 Part.SelectByID "Sheet Format2", "SHEET", 0.2728116897439, 0.07520133322564, 0 Part.SelectByID "DetailItem143@Sheet Format2", "NOTE", 0.2742202049144, 0.060701912352, 0 Part.SelectByID "Sheet Format2", "SHEET", 0.2795228502625, 0.07337854888724, 0 Part.SelectByID "Sheet Format2", "SHEET", 0.2965907399766, 0.07130720304815, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.248138, 0.0720454, -2.50594e-015, 0.420226, 0.00257456, -2.02083e-015 Part.EditSketch Part.SelectByID "Sheet3", "SHEET", 0.3948563227846, 0.07030827603784, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem94@Sheet Format3", "NOTE", 0.3806635079052, 0.02631054991179, 0 Part.SelectByID "DetailItem22@Sheet Format3", "NOTE", 0.3780023551153, 0.02205270544798, 0 Part.ClearSelection Part.SelectByID "DetailItem22@Sheet Format3", "NOTE", 0.3879373255309, 0.02240752581996, 0 Part.SelectByID "DetailItem22@Sheet Format3", "NOTE", 0.3819053792071, 0.02240752581996, 0 Part.SelectByID "DetailItem94@Sheet Format3", "NOTE", 0.3732122800935, 0.02648796009778, 0 Part.SelectByID "Sheet Format3", "SHEET", 0.3373754225231, 0.02205270544798, 0 Part.SelectByID "Sheet Format3", "SHEET", 0.3276178622935, 0.1082740558402, 0 Part.SelectByID "DetailItem6@Sheet Format3", "NOTE", 0.3338272188033, 0.02134306470401, 0 Part.SelectByID "DetailItem6@Sheet Format3", "NOTE", 0.3338272188033, 0.02134306470401, 0 Part.SelectByID "DetailItem5@Sheet Format3", "NOTE", 0.3363109614072, 0.02648796009778, 0 Part.SelectByID "DetailItem4@Sheet Format3", "NOTE", 0.3466007521947, 0.03713257125731, 0 Part.SelectByID "DetailItem84@Sheet Format3", "NOTE", 0.3466007521947, 0.04139041572112, 0 Part.SelectByID "DetailItem98@Sheet Format3", "NOTE", 0.3251341196897, 0.05593805097247, 0 Part.SelectByID "DetailItem100@Sheet Format3", "NOTE", 0.3897114273908, 0.0552284102285, 0 Part.SelectByID "DetailItem96@Sheet Format3", "NOTE", 0.27244329445, 0.05505100004251, 0 Part.SelectByID "DetailItem96@Sheet Format3", "NOTE", 0.2735077555659, 0.05576064078648, 0 Part.SelectByID "DetailItem96@Sheet Format3", "NOTE", 0.27333034538, 0.05558323060049, 0 Part.SelectByID "DetailItem148@Sheet Format3", "NOTE", 0.272798114822, 0.07208237789776, 0 Part.SelectByID "DetailItem144@Sheet Format3", "NOTE", 0.3254889400616, 0.07137273715379, 0 Part.SelectByID "DetailItem144@Sheet Format3", "NOTE", 0.3253115298756, 0.0711953269678, 0 Part.SelectByID "DetailItem145@Sheet Format3", "NOTE", 0.3984045265044, 0.07243719826974, 0 Part.SelectByID "DetailItem145@Sheet Format3", "NOTE", 0.3895340172048, 0.07190496771177, 0 Part.SelectByID "DetailItem144@Sheet Format3", "NOTE", 0.3222955567138, 0.07190496771177, 0 Part.ViewZoomTo2 0.250444, 0.075808, -2.92099e-015, 0.288765, 0.0491965, -2.73517e-015 Part.SelectByID "DetailItem148@Sheet Format3", "NOTE", 0.2724096413838, 0.07226015387795, 0 Part.SelectByID "Sheet Format3", "SHEET", 0.2615060479321, 0.07226015387795, 0 Part.SelectByID "DetailItem148@Sheet Format3", "NOTE", 0.2721726067435, 0.07166756727731, 0 Part.SelectByID "DetailItem150@Sheet Format3", "NOTE", 0.2754120801603, 0.05894670825038, 0 Part.SelectByID "DetailItem150@Sheet Format3", "NOTE", 0.2737133319052, 0.06032941031853, 0 Part.SelectByID "Sheet Format3", "SHEET", 0.2738318492253, 0.067321932206, 0 Part.SelectByID "Sheet Format3", "SHEET", 0.2719750778767, 0.07308977511883, 0 Part.SelectByID "Sheet Format3", "SHEET", 0.2719750778767, 0.07305026934546, 0 Part.SelectByID "Sheet Format3", "SHEET", 0.2671553735248, 0.07182559037082, 0 Part.ViewOrientationUndo Part.SelectByID "DetailItem94@Sheet Format3", "NOTE", 0.3753412023254, 0.02684278046976, 0 Part.SelectByID "Sheet Format3", "SHEET", 0.3707285374896, 0.07279201864173, 0 Part.SelectByID "Sheet Format3", "SHEET", 0.3673577439558, 0.07421130012966, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "D5@Sketch1@Section-4@Drawing View15", "DIMENSION", 0.2295217319588, 0.1660353484536, 0 Part.EditSketch Part.EditSketch Set Gtol = Part.InsertGtol() If Not Gtol Is Nothing Then Gtol.SetFrameSymbols2 1, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 1, ".002", "", "A", "", "" Gtol.SetFrameSymbols2 2, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 2, "", "", "", "", "" Gtol.SetPTZHeight "", 0 Gtol.SetCompositeFrame 0 Gtol.SetBetweenTwoPoints 0, "", "" Set Annotation = Gtol.GetAnnotation() If Not Annotation Is Nothing Then boolstatus = Annotation.SetPosition (0.2204553396604, 0.1624976414961, 0) longstatus = Annotation.SetLeader2 (0, 0, 1, 1, 0, 0) End If End If Part.WindowRedraw Part.ClearSelection Part.SelectByID "Sheet3", "SHEET", 0.1727645154639, 0.04661816494845, 0 Part.SelectByID "Sheet3", "SHEET", 0.1191857030928, 0.06387235876289, 0 Part.EditSketch Part.SelectByID "RD3@Drawing View15", "DIMENSION", 0.2663004082474, 0.1669434639175, 0 Part.EditSketch Set Gtol = Part.InsertGtol() If Not Gtol Is Nothing Then Gtol.SetFrameSymbols2 1, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 1, ".002", "", "B", "", "" Gtol.SetFrameSymbols2 2, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 2, "", "", "", "", "" Gtol.SetPTZHeight "", 0 Gtol.SetCompositeFrame 0 Gtol.SetBetweenTwoPoints 0, "", "" Set Annotation = Gtol.GetAnnotation() If Not Annotation Is Nothing Then boolstatus = Annotation.SetPosition (0.2547560642449, 0.1711133054395, 0) longstatus = Annotation.SetLeader2 (0, 0, 1, 1, 0, 0) End If End If Part.WindowRedraw Part.ClearSelection Part.SelectByID "Sheet3", "SHEET", 0.1255425113402, 0.06069395463918, 0 Part.ViewZoomTo2 0.209997, 0.242317, -3.78657e-015, 0.324874, 0.132889, -3.02244e-015 Part.EditSketch Part.SelectByID "", "EDGE", 0.3052401186864, 0.1918304383708, 166.6512725 Part.EditSketch Part.EditSketch Part.ClearSelection Set DatumTag = Part.InsertDatumTag2() If Not DatumTag Is Nothing Then DatumTag.FilledTriangle = 1 DatumTag.Shoulder = 0 Set Annotation = DatumTag.GetAnnotation() If Not Annotation Is Nothing Then boolstatus = Annotation.SetPosition (0.2657446135181, 0.2055995135659, 0.03190875) End If End If Part.WindowRedraw Part.EditSketch Part.ViewZoomtofit2 Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 609 swApp.ActiveDoc.ActiveView.FrameTop = 614 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") Part.SelectByID "Section View@DeConnAssem_V5.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Section View" Part.ShowNamedView2 "*Right", 4 Part.ViewZoomTo2 -0.0431062, 0.105158, -0.0733038, 0.0492937, 0.0441075, -0.0733038 Part.SelectByID "", "FACE", 0.06192520000002, 0.0630235376804, 0.03791521978071 Part.SelectByID "", "FACE", 0.06192520000002, 0.08916734481547, 0.006108494132619 Part.SelectByID "", "FACE", 0.06192520000002, 0.06632690681299, -0.01493868634074 Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 609 swApp.ActiveDoc.ActiveView.FrameTop = 307 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Blkhd.Isolator.SLDPRT") Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.ShowNamedView2 "*Normal To", 0 Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D5@Sketch1@Blkhd.Isolator.SLDPRT", "DIMENSION", 0.03144384794499, -0.01614022851268, 0.1927999950713 Part.Parameter("D5@Sketch1").SystemValue = 0.01905 Part.ClearSelection Part.InsertSketch swApp.ActiveDoc.ActiveView.FrameLeft = 609 swApp.ActiveDoc.ActiveView.FrameTop = 614 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") ' MSGBOX ' Models contained within the assembly have changed. Would you like to rebuild the assembly now? Part.SelectByID "Blkhd.Isolator-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.ShowComponent2 Part.SelectByID "HybridPenetrator_8-12-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.ShowComponent2 Part.ClearSelection Part.SelectByID "Blkhd.Isolator-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.EditPart Part.ClearSelection Part.SelectByID "Sketch1@Blkhd.Isolator-1@DeConnAssem_V5", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D5@Sketch1@Blkhd.Isolator-1@DeConnAssem_V5", "DIMENSION", 0.04567624344698, -0.02211102543055, 0.07382387611431 Part.Parameter("D5@Sketch1@Blkhd.Isolator.Part").SystemValue = 0.0198425 Part.ClearSelection Part.InsertSketch Part.EditAssembly Part.AndSelectByID "", "EDGE", 0.06192524924847, -0.01734645965276, 0.06603505173005 Part.AndSelectByID "", "EDGE", 0.06192785784737, -0.0164728440646, 0.06468341645303 swApp.ActiveDoc.ActiveView.FrameLeft = 609 swApp.ActiveDoc.ActiveView.FrameTop = 307 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Blkhd.Isolator.SLDPRT") Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Sketch1", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "D5@Sketch1@Blkhd.Isolator.SLDPRT", "DIMENSION", 0.0328785430116, -0.01219481707949, 0.1927999950713 Part.EditDelete Part.SelectByID "Line4", "SKETCHSEGMENT", 0.02917224742284, -0.00635, 0 Part.AndSelectByID "Line6", "SKETCHSEGMENT", 0.01948805572319, -0.01984248, 0 Part.AddDimension 0.0302483, -0.0141077, 0 Part.ClearSelection Part.Parameter("D5@Sketch1").SystemValue = 0.0134925 Part.ClearSelection Part.InsertSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet1") ' MSGBOX ' Some dimensions are no longer in the model. Missing dimensions will be deleted from drawing. Part.EditSketch Part.EditSketch Part.SelectByID "Drawing View3", "DRAWINGVIEW", 0.2222568082474, 0.2341440082474, 0.0001233075791638 Part.EditSketch boolstatus = Part.InsertModelAnnotations (0, 0, 8, 0) Part.ViewZoomTo2 0.14098, 0.255939, 0.000123308, 0.300355, 0.110186, 0.000123308 Part.EditSketch Part.EditSketch Part.SelectByID "D5@Sketch1@Section-1@Drawing View3", "DIMENSION", 0.2216534263747, 0.1245705155107, 0.0001233075791642 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.251392335415, 0.2326821295908, 0.0001233075791634 Part.EditSketch Part.SelectByID "D1@Fillet1@Section-1@Drawing View3", "DIMENSION", 0.2397267965097, 0.139850728443, 0.000123307579164 Part.SelectByID "D1@Fillet1@Section-1@Drawing View3", "DIMENSION", 0.2508994253204, 0.1503661437942, 0.000123307579164 Part.HideDimension Part.ClearSelection Part.EditSketch Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.1733482371049, 0.1364003577808, 0.0001233075791641 Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem117@Sheet1", "GTOL", 0.2334832686449, 0.1271993693485, 0.0001233075791641 Part.EditSketch Part.SelectByID "D3@Sketch1@Section-1@Drawing View3", "DIMENSION", 0.1994724721182, 0.1334428972133, 0.0001233075791641 Part.EditSketch Part.SelectByID "DetailItem117@Sheet1", "GTOL", 0.2344690888341, 0.125392032335, 0.0001233075791642 Part.SelectByID "Sheet1", "SHEET", 0.2086734605505, 0.1268707626188, 0.0001233075791641 Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem111@Drawing View3", "DATUMTAG", 0.2380837628611, 0.13738617797, 0.0001233075791641 Part.SelectByID "DetailItem117@Sheet1", "GTOL", 0.2354549090233, 0.126542155889, 0.0001233075791641 Part.SelectByID "DetailItem117@Sheet1", "GTOL", 0.2492563916718, 0.1406722452673, 0.000123307579164 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem117@Sheet1", "GTOL", 0.2449845041854, 0.1396864250781, 0.0001233075791641 Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem117@Sheet1", "GTOL", 0.2436700772664, 0.1414937620916, 0.000123307579164 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem117@Sheet1", "GTOL", 0.2412055267935, 0.1331142904836, 0.0001233075791641 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.1835350457264, 0.1436297058348, 0.000123307579164 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "RD3@Drawing View3", "DIMENSION", 0.2704515257392, 0.1833911201318, 0.0001233075791637 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.2696300089149, 0.1549666380104, 0.0001233075791639 Part.EditSketch Part.SelectByID "DetailItem116@Drawing View3", "SFSYMBOL", 0.2484348748475, 0.1730400081454, 0.0001233075791638 Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem116@Drawing View3", "SFSYMBOL", 0.2515566387799, 0.1712326711319, 0.0001233075791638 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.2469561445637, 0.1603886490509, 0.0001233075791639 Part.EditSketch Part.SelectByID "RD4@Drawing View3", "DIMENSION", 0.2505708185907, 0.1960424792263, 0.0001233075791637 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.2554999195366, 0.1546380312807, 0.0001233075791639 Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.ViewOrientationUndo Part.EditSketch Part.SelectByID "RD4@Drawing View3", "DIMENSION", 0.2508994253204, 0.1965353893209, 0.0001233075791637 Part.EditSketch Set Gtol = Part.InsertGtol() If Not Gtol Is Nothing Then Gtol.SetFrameSymbols2 1, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 1, ".002", "", "B", "", "" Gtol.SetFrameSymbols2 2, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 2, "", "", "", "", "" Gtol.SetPTZHeight "", 0 Gtol.SetCompositeFrame 0 Gtol.SetBetweenTwoPoints 0, "", "" Set Annotation = Gtol.GetAnnotation() If Not Annotation Is Nothing Then boolstatus = Annotation.SetPosition (0.2421904910858, 0.1926426905126, 0) longstatus = Annotation.SetLeader2 (0, 0, 1, 1, 0, 0) End If End If Part.WindowRedraw Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.213438, 0.22726, 0.000123308, 0.252542, 0.192592, 0.000123308 Part.SelectByID "", "EDGE", 0.2257339089104, 0.2091601549841, 0.02222499999999 Set DatumTag = Part.InsertDatumTag2() If Not DatumTag Is Nothing Then DatumTag.FilledTriangle = 1 DatumTag.Shoulder = 0 Set Annotation = DatumTag.GetAnnotation() If Not Annotation Is Nothing Then boolstatus = Annotation.SetPosition (0.2419399797729, 0.2197223205712, 0.022225) End If End If Part.WindowRedraw Part.ViewOrientationUndo Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem155@Drawing View3", "DATUMTAG", 0.2416984368881, 0.2236454445233, 0.0001233075791635 Part.EditSketch Part.EditSketch Part.EditSketch ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Part.ViewZoomtofit2 Part.EditSketch Part.ClearSelection Part.EditSketch Part.SelectByID "RD3@Drawing View5", "DIMENSION", 0.1736726309278, 0.03980729896907, 6.165378958039e-005 Part.SelectByID "Sheet1", "SHEET", 0.1600508989691, 0.001666449484536, 6.165378958066e-005 Part.SelectByID "RD2@Drawing View5", "DIMENSION", 0.1595968412371, 0.07794814845361, 6.165378958013e-005 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.1346236659794, 0.05751555051546, 6.165378958027e-005 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem108@Drawing View3", "NOTE", 0.3012628536082, 0.1837436, 6.165378957939e-005 Part.SelectByID "Sheet1", "SHEET", 0.2921816989691, 0.1651272329897, 6.165378957952e-005 Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0283742, 0.0661426, 6.16538e-005, 0.0942125, -0.00696065, 6.16538e-005 Part.ViewZoomtofit2 Part.ViewZoomTo2 0.140072, 0.246858, 3.08269e-005, 0.318517, 0.124716, 3.08269e-005 Part.ViewOrientationUndo Part.ViewZoomTo2 0.141889, 0.116543, 3.08269e-005, 0.261306, 0.00348268, 3.08269e-005 Part.ViewZoomtofit2 Part.SetPickMode Part.ClearSelection Part.EditSketch Part.EditSketch Part.SelectByID "RD3@Drawing View5", "DIMENSION", 0.160959014433, 0.04253164536082, 1.541344739193e-005 Part.ClearSelection Part.EditSketch Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 609 swApp.ActiveDoc.ActiveView.FrameTop = 614 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") ' MSGBOX ' Models contained within the assembly have changed. Would you like to rebuild the assembly now? Part.ClearSelection Part.SelectByID "dcon.End.Cap-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "G:\Work In Progress\Canyon Dynamics\rin-bin\DeConnAssem_V5\dcon.End.Cap.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\Canyon Dynamics\rin-bin\DeConnAssem_V5\dcon.End.Cap.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("dcon.End.Cap.SLDPRT") Part.ClearSelection Part.SelectByID "CntrBore", "BODYFEATURE", 0, 0, 0 Part.SelectByID "CntrBore", "BODYFEATURE", 0, 0, 0 Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 609 swApp.ActiveDoc.ActiveView.FrameTop = 614 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") ' MSGBOX ' Models contained within the assembly have changed. Would you like to rebuild the assembly now? swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("dcon.End.Cap.SLDPRT") Part.SelectByID "Chamfer2", "BODYFEATURE", 0, 0, 0 Part.SelectByID "", "EDGE", 0.04762524346154, -0.04871276572327, 0.05789243998762 Part.FeatureFillet4 0.00079375, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 Part.SelectByID "Fillet3", "BODYFEATURE", 0, 0, 0 ' MSGBOX ' Cannot reorder. Change would put child feature before parent feature. Part.ClearSelection Part.SelectByID "Fillet3", "BODYFEATURE", 0, 0, 0 Part.EditDelete Part.SelectByID "", "EDGE", -0.06740843843096, -0.01474178435393, 0.05337923613033 Part.FeatureFillet4 0.00079375, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 609 swApp.ActiveDoc.ActiveView.FrameTop = 614 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") ' MSGBOX ' Models contained within the assembly have changed. Would you like to rebuild the assembly now? Part.ViewZoomTo2 -0.0687523, -0.0191478, 0.0462962, -0.0541342, -0.0319806, 0.0462962 Part.ViewZoomtofit2 ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 609 swApp.ActiveDoc.ActiveView.FrameTop = 614 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 623 swApp.ActiveDoc.ActiveView.FrameHeight = 307 Set Part = swApp.ActivateDoc ("HybridPenetrator_Dummy.SLDPRT") Set Part = Nothing swApp.CloseDoc "HybridPenetrator_Dummy.SLDPRT" Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") Set Part = swApp.ActivateDoc ("ShoulderBushing.SLDPRT") Set Part = Nothing swApp.CloseDoc "ShoulderBushing.SLDPRT" Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") Set Part = swApp.ActivateDoc ("Blkhd.Isolator.SLDPRT") Set Part = Nothing swApp.CloseDoc "Blkhd.Isolator.SLDPRT" Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") swApp.LoadFile2 "G:\Work In Progress\Canyon Dynamics\rin-bin\DeConnAssem_V5\DeConn.SLDDRW", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\Canyon Dynamics\rin-bin\DeConnAssem_V5\DeConn.SLDDRW", 3, 0, "", longstatus) Set Part = swApp.ActivateDoc ("DeConn - Sheet2") 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.ViewZoomTo2 0.509174, 0.55227, -0.000875508, 0.77619, 0.296665, -0.000875508 Part.EditSketch Part.SelectByID "", "EDGE", 0.6298451162288, 0.5085407869171, -0.03326739747303 Set DatumTag = Part.InsertDatumTag2() If Not DatumTag Is Nothing Then DatumTag.FilledTriangle = 1 DatumTag.Shoulder = 0 Set Annotation = DatumTag.GetAnnotation() If Not Annotation Is Nothing Then boolstatus = Annotation.SetPosition (0.651286582914, 0.53985661326, 1.462153900561e-009) End If End If Part.WindowRedraw Part.SelectByID "DetailItem158@Drawing View7", "DATUMTAG", 0.6543899530922, 0.5387281150134, -0.0008755079362651 Part.ViewZoomtofit2 Part.ViewOrientationUndo Part.ViewZoomTo2 0.607839, 0.528854, -0.000875508, 0.726896, 0.49246, -0.000875508 Part.SelectByID "", "SILHOUETTE", 0.6391826202391, 0.5057705157585, 1.462126419938e-009 Part.ClearSelection Set DatumTag = Part.InsertDatumTag2() If Not DatumTag Is Nothing Then DatumTag.FilledTriangle = 1 DatumTag.Shoulder = 0 Set Annotation = DatumTag.GetAnnotation() If Not Annotation Is Nothing Then boolstatus = Annotation.SetPosition (0.7013923569138, 0.535326099466, 1.46215420745e-009) End If End If Part.WindowRedraw Part.SelectByID "DetailItem161@Drawing View7", "DATUMTAG", 0.7009156539508, 0.5386630202072, -0.0008755079362654 Part.EditSketch Part.ViewZoomtofit2 Part.ViewZoomTo2 0.466942, 0.802655, -0.000437754, 0.727111, 0.564167, -0.000437754 Part.SelectByID "RD2@Drawing View11", "DIMENSION", 0.523716425326, 0.6405041634482, -0.0004377539681389 Part.SelectByID "Drawing View11", "DRAWINGVIEW", 0.5021313773906, 0.6044413394587, -0.0004377539681386 Part.ViewOrientationUndo Part.ViewZoomTo2 0.0926635, 0.23325, -0.000437754, 0.405323, 0.00959556, -0.000437754 Part.EditSketch Part.SelectByID "RD3@Drawing View8", "DIMENSION", 0.255096188585, 0.05757629276123, -0.000437753968135 Part.SelectByID "Sheet2", "SHEET", 0.1655860593086, 0.02095851260269, -0.0004377539681347 Part.EditSketch Part.ViewZoomtofit2 Part.ViewZoomTo2 0.493187, 0.560744, -0.000218877, 0.768191, 0.307421, -0.000218877 Part.EditSketch Part.ClearSelection Set Gtol = Part.InsertGtol() If Not Gtol Is Nothing Then Gtol.SetFrameSymbols2 1, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 1, ".005", "", "", "", "" Gtol.SetFrameSymbols2 2, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 2, "", "", "", "", "" Gtol.SetPTZHeight "", 0 Gtol.SetCompositeFrame 0 Gtol.SetBetweenTwoPoints 0, "", "" Set Annotation = Gtol.GetAnnotation() If Not Annotation Is Nothing Then boolstatus = Annotation.SetPosition (0.6621444940039, 0.5515165349721, -0.0002188769840748) longstatus = Annotation.SetLeader2 (0, 0, 1, 1, 0, 0) End If End If Part.WindowRedraw Part.SelectByID "DetailItem162@Sheet2", "GTOL", 0.6761247736213, 0.5484408734562, -0.0002188769840747 Part.SelectByID "Sheet2", "SHEET", 0.5894470399936, 0.5420099448322, -0.0002188769840747 Part.SelectByID "D6@Sketch1@dcon.End.Cap-3@Drawing View7", "DIMENSION", 0.7004504601555, 0.4189834841994, -0.0002188769840738 Set Gtol = Part.InsertGtol() If Not Gtol Is Nothing Then Gtol.SetFrameSymbols2 1, "", 1, "", 0, "", "", "", "" Gtol.SetFrameValues 1, ".002", "", "A", "", "" Gtol.SetFrameSymbols2 2, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 2, "", "", "", "", "" Gtol.SetPTZHeight "", 0 Gtol.SetCompositeFrame 0 Gtol.SetBetweenTwoPoints 0, "", "" Set Annotation = Gtol.GetAnnotation() If Not Annotation Is Nothing Then boolstatus = Annotation.SetPosition (0.6859891667112, 0.4136331742857, 0) longstatus = Annotation.SetLeader2 (0, 0, 1, 1, 0, 0) End If End If Part.WindowRedraw Part.ClearSelection Part.SelectByID "D3@Sketch4@dcon.End.Cap-3@Drawing View7", "DIMENSION", 0.6590688324881, 0.4184242730147, -0.0002188769840738 Set Gtol = Part.InsertGtol() If Not Gtol Is Nothing Then Gtol.SetFrameSymbols2 1, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 1, ".002", "", "B", "", "" Gtol.SetFrameSymbols2 2, "", 0, "", 0, "", "", "", "" Gtol.SetFrameValues 2, "", "", "", "", "" Gtol.SetPTZHeight "", 0 Gtol.SetCompositeFrame 0 Gtol.SetBetweenTwoPoints 0, "", "" Set Annotation = Gtol.GetAnnotation() If Not Annotation Is Nothing Then boolstatus = Annotation.SetPosition (0.6476509189908, 0.4134101058803, 0) longstatus = Annotation.SetLeader2 (0, 0, 1, 1, 0, 0) End If End If Part.WindowRedraw Part.ClearSelection Part.SelectByID "Sheet2", "SHEET", 0.5061245734741, 0.4522565496888, -0.0002188769840741 Part.EditSketch Part.SelectByID "D4@Sketch1@dcon.End.Cap-3@Drawing View7", "DIMENSION", 0.7437893269694, 0.4175854562377, -0.0002188769840738 Part.EditSketch Part.SelectByID "DetailItem145@Drawing View11", "NOTE", 0.722539301951, 0.4184242730147, -0.0002188769840738 Part.EditSketch Part.EditSketch Part.SelectByID "D6@Sketch1@dcon.End.Cap-3@Drawing View7", "DIMENSION", 0.7021280937096, 0.4184242730147, -0.0002188769840738 Part.SelectByID "D6@Sketch1@dcon.End.Cap-3@Drawing View7", "DIMENSION", 0.7186248236581, 0.41786506183, -0.0002188769840738 Part.SelectByID "DetailItem144@Drawing View11", "NOTE", 0.6750063512519, 0.4195426953841, -0.0002188769840738 Part.SelectByID "D3@Sketch4@dcon.End.Cap-3@Drawing View7", "DIMENSION", 0.6624240995963, 0.4192630897918, -0.0002188769840738 Part.SelectByID "Sheet2", "SHEET", 0.6853517581688, 0.39046371378, -0.0002188769840736 Part.ClearSelection Part.InsertSurfaceFinishSymbol2 0, 0, 0.6604668604499, 0.3507597196667, -0.0002188769840734, 0, 1, "", "", "", "", "32", "", "" Part.ViewZoomtofit2 Part.ViewZoomTo2 0.761344, 0.276611, -0.000109438, 0.971305, 0.0369818, -0.000109438 Part.EditSketch Part.SelectByID "", "EDGE", 0.882061849293, 0.1150068638728, 333.305666257 Part.InsertSurfaceFinishSymbol2 0, 2, 0.9085110269475, 0.09384752174691, -0.0001094384920397, 0, 1, "", "", "", "", "32", "", "" Part.SelectByID "RD5@Drawing View12", "DIMENSION", 0.9069240762882, 0.1081300776803, -0.0001094384920398 Part.SelectByID "Sheet2", "SHEET", 0.9653767589046, 0.08935116154565, -0.0001094384920397 Part.SelectByID "DetailItem167@Drawing View12", "SFSYMBOL", 0.9100979776067, 0.09702142306545, -0.0001094384920397 Part.SelectByID "DetailItem167@Drawing View12", "SFSYMBOL", 0.9108914529364, 0.09860837372472, -0.0001094384920397 Part.SelectByID "DetailItem167@Drawing View12", "SFSYMBOL", 0.882061849293, 0.115271355647, -0.0001094384920398 Part.SelectByID "DetailItem167@Drawing View12", "SFSYMBOL", 0.9135363707018, 0.09516998062964, -0.0001094384920397 Part.SelectByID "Sheet2", "SHEET", 0.9629963329157, 0.07850699870732, -0.0001094384920396 Part.ViewOrientationUndo Part.Save2 FALSE Part.EditSketch Part.ViewZoomTo2 0.792154, 0.542486, -0.000109438, 1.03178, 0.289163, -0.000109438 Part.ClearSelection Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.9227331276177, 0.4806931941213, 0.05219890158128 Part.AddDimension 0.913786, 0.464476, -6.59733e-015 Part.ClearSelection Part.SetPickMode Part.ClearSelection Part.SelectByID "RD2@Drawing View9", "DIMENSION", 0.9179798325478, 0.4641964641728, -0.0001094384920423 Part.EditDelete Part.ViewZoomtofit2 Part.ViewZoomTo2 0.493187, 0.292587, -5.47192e-005, 0.732817, 0.0438283, -5.47192e-005 Part.EditSketch Part.EditSketch Part.CreateLine2( -0.01349375, 0.08414424959311, 0, -0.01349375, 0.05147069879728, 0 ).ConstructionGeometry = TRUE Part.SetPickMode Part.ClearSelection Part.SelectByID "RD1@Drawing View10", "DIMENSION", 0.5876044139504, 0.2527743328494, -5.471924602493e-005 Part.SelectByID "", "FACE", 0.5985871201002, 0.186054392989, -0.002246499683679 Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.SelectByID "Sheet2", "SHEET", 0.04017318918919, 0.4763026306306, -2.735962301778e-005 Part.EditSketch Part.ViewZoomTo2 0.0812525, 0.576719, -2.73596e-005, 0.407605, 0.2652, -2.73596e-005 Part.ViewZoomtofit2 Part.ViewZoomTo2 0.0983689, 0.787821, -1.36798e-005, 0.403041, 0.565308, -1.36798e-005 Part.SelectByID "RD5@Drawing View13", "DIMENSION", 0.2969088550172, 0.6256333374095, -1.367981151576e-005 Part.SelectByID "Sheet2", "SHEET", 0.1566195119804, 0.6009302139617, -1.367981151559e-005 Part.SelectByID "RD4@Drawing View13", "DIMENSION", 0.2889794573673, 0.5823266271677, -1.367981151546e-005 Part.SelectByID "RD4@Drawing View13", "DIMENSION", 0.3435703104185, 0.5951356541406, -1.367981151555e-005 Part.SelectByID "D2@Sketch17@DeConn.SLDDRW", "DIMENSION", 0.3033133685036, 0.5987953761329, -1.367981151557e-005 Part.SelectByID "Sheet2", "SHEET", 0.2984337391806, 0.582021650335, -1.367981151546e-005 Part.SelectByID "RD1@Drawing View13", "DIMENSION", 0.2209696236777, 0.5853763954946, -1.367981151548e-005 Part.SelectByID "RD3@Drawing View13", "DIMENSION", 0.2072456662067, 0.599710306631, -1.367981151558e-005 Part.SelectByID "RD1@Drawing View13", "DIMENSION", 0.2069406893741, 0.5777519746774, -1.367981151543e-005 Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.22158, 0.67077, -1.36798e-005, 0.265801, 0.632343, -1.36798e-005 Part.SelectByID "", "EDGE", 0.2510606711697, 0.6499627955487, 0.07681828905345 Part.SelectByID "", "EDGE", 0.2499540235035, 0.6493873387623, 0.07935828905346 Part.AddHoleCallout Part.ClearSelection Part.ViewOrientationUndo Part.SetPickMode Part.SelectByID "RD2@Drawing View13", "DIMENSION", 0.2947740171884, 0.7055372675739, -1.367981151632e-005 Part.SelectByID "Sheet2", "SHEET", 0.1367960178557, 0.7762918927576, -1.367981151681e-005 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 307 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("dcon.End.Cap.SLDPRT") Part.SelectByID "1.0Thru", "BODYFEATURE", 0, 0, 0 Part.SelectByID "CntrBore", "BODYFEATURE", 0, 0, 0 Part.SelectByID "CntrBore", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "spotFace", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Chamfer2", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Fillet4", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "spotFace", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "", "FACE", -0.07703390982056, -0.02225500650411, 0.05769469060155 Part.SelectByID "", "FACE", -0.07691767795376, -0.02241616261756, 0.0580048344523 Part.ActivateSelectedFeature Part.SelectByID "Chamfer2", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Chamfer2", "BODYFEATURE", 0, 0, 0 Part.ClearSelection Part.AndSelectByID "", "EDGE", 0, 0, 0 Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConn - Sheet2") Part.SelectByID "RD2@Drawing View13", "DIMENSION", 0.1754509164685, 0.7777155246126, -1.367981151682e-005 Part.SelectByID "Sheet2", "SHEET", 0.1376716063423, 0.7496857138739, -1.367981151663e-005 Part.EditSketch Part.EditSketch Part.SelectByID "RD2@Drawing View13", "DIMENSION", 0.1727088697658, 0.7697940563604, -1.367981151677e-005 Part.SelectByID "RD3@Drawing View13", "DIMENSION", 0.1855050877117, 0.5927797081081, -1.367981151553e-005 Part.SelectByID "RD3@Drawing View13", "DIMENSION", 0.1663107607928, 0.5921703643964, -1.367981151553e-005 Part.SelectByID "RD1@Drawing View13", "DIMENSION", 0.182763041009, 0.5751087404685, -1.367981151541e-005 Part.SelectByID "RD1@Drawing View13", "DIMENSION", 0.1882471344144, 0.5757180841802, -1.367981151541e-005 Part.EditSketch Part.EditSketch Part.SelectByID "RD3@Drawing View13", "DIMENSION", 0.1644827296577, 0.5921703643964, -1.367981151553e-005 Part.SelectByID "RD2@Drawing View13", "DIMENSION", 0.1852004158559, 0.7758874934775, -1.367981151681e-005 Part.SelectByID "RD2@Drawing View13", "DIMENSION", 0.1775836194595, 0.7707080719279, -1.367981151677e-005 Part.SelectByID "RD3@Drawing View13", "DIMENSION", 0.1861144314234, 0.5933890518198, -1.367981151554e-005 Part.SelectByID "Sheet2", "SHEET", 0.1239613728288, 0.5946077392432, -1.367981151555e-005 Part.SelectByID "RD2@Drawing View13", "DIMENSION", 0.1693574793514, 0.7725361030631, -1.367981151679e-005 Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.ViewZoomTo2 0.491543, 0.297286, -6.83991e-006, 0.663676, 0.19811, -6.83991e-006 Part.ClearSelection Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.54490398512, 0.227558220016, 0.0456662570204 Part.AndSelectByID "", "EDGE", 0.589486367888, 0.227213954512, 0.0456662570204 Part.AddDimension 0.567453, 0.267493, -6.59733e-015 Part.ClearSelection Part.SelectByID "", "EDGE", 0.548690905664, 0.23392713184, 0.03294470038372 Part.AndSelectByID "", "EDGE", 0.548690905664, 0.22101717544, 0.0456662570204 Part.AddDimension 0.511338, 0.249591, -6.59733e-015 Part.ClearSelection Part.SelectByID "", "EDGE", 0.549551569424, 0.234099264592, 0.03175933906431 Part.AndSelectByID "", "EDGE", 0.549723702176, 0.231861538816, 0.03227114490545 Part.AddDimension 0.515986, 0.26646, -6.59733e-015 Part.ClearSelection Part.SelectByID "", "EDGE", 0.545248250624, 0.226353290752, 0.0456662570204 Part.AndSelectByID "", "EDGE", 0.545076117872, 0.233582866336, 0.04566625702029 Part.AddDimension 0.540945, 0.290215, -6.59733e-015 Part.ClearSelection Part.SetPickMode Part.ClearSelection Part.SelectByID "D1@Hex@Section-2@Drawing View10", "DIMENSION", 0.570035366912, 0.271624204528, -6.839905760936e-006 Part.EditSketch Part.EditSketch Part.SelectByID "RD1@Drawing View10", "DIMENSION", 0.59396181944, 0.252689601808, -6.839905760804e-006 Part.SelectByID "RD1@Drawing View10", "DIMENSION", 0.599470067504, 0.248386283008, -6.839905760774e-006 Part.SelectByID "Drawing View10", "DRAWINGVIEW", 0.594133952192, 0.240123910912, -6.839905760717e-006 Part.SelectByID "RD2@Drawing View10", "DIMENSION", 0.567453375632, 0.268181549488, -6.839905760912e-006 Part.SelectByID "RD2@Drawing View10", "DIMENSION", 0.566936977376, 0.266976620224, -6.839905760904e-006 Part.SelectByID "RD2@Drawing View10", "DIMENSION", 0.56814190664, 0.26577169096, -6.839905760896e-006 Part.EditSketch Part.SelectByID "Sheet2", "SHEET", 0.511682363984, 0.307772082448, -6.839905761189e-006 Part.EditSketch Part.SelectByID "RD2@Drawing View10", "DIMENSION", 0.567969773888, 0.265427425456, -6.839905760893e-006 Part.SetPickMode Part.ClearSelection Part.EditSketch Part.EditSketch Part.SelectByID "RD5@Drawing View10", "DIMENSION", 0.540084268064, 0.288837479728, -6.839905761057e-006 Part.EditSketch Part.SelectByID "Sheet2", "SHEET", 0.502387195376, 0.303124498144, -6.839905761156e-006 Part.EditSketch Part.EditSketch Part.SelectByID "RD5@Drawing View10", "DIMENSION", 0.537502276784, 0.291075205504, -6.839905761072e-006 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "RD5@Drawing View10", "DIMENSION", 0.539567869808, 0.291075205504, -6.839905761072e-006 Part.EditSketch Part.SelectByID "Sheet2", "SHEET", 0.528723506432, 0.287116152208, -6.839905761045e-006 Part.EditSketch Part.SelectByID "D1@Hex@Section-2@Drawing View10", "DIMENSION", 0.566936977376, 0.300886772368, -6.839905761141e-006 Part.EditSketch Part.EditSketch Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.787402 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.02 Part.EditSketch Part.SelectByID "RD3@Drawing View10", "DIMENSION", 0.4964007375773, 0.2497223399053, -6.839905760926e-006 Part.SelectByID "RD4@Drawing View10", "DIMENSION", 0.5015746844463, 0.2661439973592, -6.839905761041e-006 Part.AndSelectByID "RD3@Drawing View10", "DIMENSION", 0.4885273401679, 0.2501722483287, -6.839905760929e-006 Part.SelectByID "RD3@Drawing View10", "DIMENSION", 0.4885273401679, 0.2501722483287, -6.839905760929e-006 Part.SelectByID "Sheet2", "SHEET", 0.5035992723516, 0.1970830543681, -6.839905760558e-006 Part.SelectByID "RD3@Drawing View10", "DIMENSION", 0.489202202803, 0.2485975688468, -6.839905760918e-006 Part.SelectByID "RD4@Drawing View10", "DIMENSION", 0.5011247760229, 0.2663689515709, -6.839905761042e-006 Part.SelectByID "Sheet2", "SHEET", 0.469856140597, 0.1784118547972, -6.839905760428e-006 Part.SelectByID "RD4@Drawing View10", "DIMENSION", 0.5015746844463, 0.2663689515709, -6.839905761042e-006 Part.AndSelectByID "RD3@Drawing View10", "DIMENSION", 0.486952660686, 0.2485975688468, -6.839905760918e-006 Part.SelectByID "RD3@Drawing View10", "DIMENSION", 0.486952660686, 0.2485975688468, -6.839905760918e-006 Part.SelectByID "Sheet2", "SHEET", 0.4851530269924, 0.1822360763961, -6.839905760455e-006 Part.EditSketch Part.ViewZoomtofit2 Part.ViewZoomTo2 0.0788802, 0.801144, -3.41995e-006, 0.391227, 0.541235, -3.41995e-006 Part.EditSketch Part.SelectByID "RD2@Drawing View13", "DIMENSION", 0.178518852512, 0.773327339296, -3.419952888712e-006 Part.EditDelete Part.SelectByID "RD3@Drawing View13", "DIMENSION", 0.168211406528, 0.601224226048, -3.419952887511e-006 Part.EditDelete Part.EditSketch Part.SelectByID "RD1@Drawing View13", "DIMENSION", 0.348123190976, 0.554996892544, -3.419952887188e-006 Part.EditDelete Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "RD5@Drawing View13", "DIMENSION", 0.176332424576, 0.612781059424, -3.419952887591e-006 Part.SelectByID "Sheet2", "SHEET", 0.16321385696, 0.589042698976, -3.419952887426e-006 Part.ClearSelection Part.SelectByID "", "EDGE", 0.251608014944, 0.659633086624, 0.06576928905343 Part.AddDimension 0.177269, 0.581859, -1.09827e-014 Part.ClearSelection Part.EditSketch Part.EditSketch Part.SetPickMode Part.ClearSelection Part.SelectByID "RD1@Drawing View13", "DIMENSION", 0.176957118272, 0.582483415168, -3.41995288738e-006 Part.SelectByID "Sheet2", "SHEET", 0.129792744224, 0.580296987232, -3.419952887365e-006 Part.SelectByID "DetailItem127@Drawing View13", "NOTE", 0.107928464864, 0.804562024096, -3.419952888931e-006 Part.EditDelete ' 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.ViewZoomtofit2 Part.ViewZoomTo2 0.460764, 0.307545, -1.70998e-006, 0.721813, 0.175311, -1.70998e-006 Part.EditSketch Part.SelectByID "Sheet2", "SHEET", 0.474077627408, 0.14875561816, -1.709976446019e-006 Part.EditSketch Part.ClearSelection Part.EditSketch Part.SelectByID "", "EDGE", 0.527853723056, 0.235423888816, 0.02548538989572 Part.AndSelectByID "", "EDGE", 0.528897919088, 0.233857594768, 0.0456662570204 Part.AddDimension 0.51689, 0.285806, -6.59733e-015 Part.ClearSelection Part.SetPickMode Part.ClearSelection Part.SelectByID "RD4@Drawing View10", "DIMENSION", 0.495483646064, 0.265966622752, -1.709976446837e-006 Part.SelectByID "RD6@Drawing View10", "DIMENSION", 0.50383721432, 0.28580634736, -1.709976446976e-006 Part.SelectByID "Sheet2", "SHEET", 0.49600574408, 0.157109186416, -1.709976446077e-006 Part.EditSketch Part.ViewOrientationUndo Part.ViewZoomTo2 0.105099, 0.789745, -1.70998e-006, 0.396927, 0.569734, -1.70998e-006 Part.EditSketch Part.SelectByID "", "EDGE", 0.282238525184, 0.6359654032, 0.07973928905346 Part.SelectByID "", "EDGE", 0.282530352896, 0.6359654032, 0.07973928905346 Part.AddHoleCallout Part.ClearSelection Part.SetPickMode Part.SelectByID "RD4@Drawing View13", "DIMENSION", 0.351401692928, 0.59365038496, -1.709976449208e-006 Part.SelectByID "RD4@Drawing View13", "DIMENSION", 0.351401692928, 0.59365038496, -1.709976449208e-006 Part.SelectByID "RD4@Drawing View13", "DIMENSION", 0.345273310976, 0.59073210784, -1.709976449188e-006 Part.EditDelete Part.SelectByID "RD2@Drawing View13", "DIMENSION", 0.311421296384, 0.71475888544, -1.709976450054e-006 Part.SelectByID "RD2@Drawing View13", "DIMENSION", 0.341187723008, 0.60094607776, -1.709976449259e-006 Part.SelectByID "RD2@Drawing View13", "DIMENSION", 0.344106000128, 0.597444145216, -1.709976449235e-006 Part.SelectByID "Sheet2", "SHEET", 0.342063206144, 0.583728242752, -1.709976449139e-006 Part.ViewZoomtofit2 Part.ViewZoomTo2 0.468744, 0.308685, -8.54988e-007, 0.710414, 0.18899, -8.54988e-007 Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.ViewZoomTo2 0.203135, 0.692849, -4.27494e-007, 0.370708, 0.559475, -4.27494e-007 Part.EditSketch Part.SelectByID "RD2@Drawing View13", "DIMENSION", 0.352107323216, 0.5968365508, -4.274941177253e-007 Part.SelectByID "Sheet2", "SHEET", 0.249049962656, 0.586111882384, -4.274941176504e-007 Part.ViewZoomtofit2 Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.925865, 0.076135, -2.13747e-007, 1.11054, -0.00252171, -2.13747e-007 Part.EditSketch Part.SelectByID "DetailItem129@Drawing View13", "NOTE", 0.927895938464, 0.039022698688, -2.137470601686e-007 Part.EditDelete Part.SelectByID "Sheet2", "SHEET", 0.979788833408, 0.065984843392, -2.137470603568e-007 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem116@Sheet Format2", "NOTE", 1.070093550944, 0.022217526304, -2.137470600512e-007 Part.SelectByID "DetailItem85@Sheet Format2", "NOTE", 1.066954123136, 0.026280315232, -2.137470600796e-007 Part.SelectByID "DetailItem87@Sheet Format2", "NOTE", 1.026880250528, 0.01926277072, -2.137470600306e-007 Part.SelectByID "DetailItem88@Sheet Format2", "NOTE", 1.031681728352, 0.025541626336, -2.137470600744e-007 Part.SelectByID "DetailItem92@Sheet Format2", "NOTE", 1.03482115616, 0.036621959776, -2.137470601518e-007 Part.SelectByID "DetailItem90@Sheet Format2", "NOTE", 1.035190500608, 0.042531470944, -2.137470601931e-007 Part.ClearSelection Part.SelectByID "DetailItem116@Sheet Format2", "NOTE", 1.083020606624, 0.022586870752, -2.137470600538e-007 Part.SelectByID "DetailItem85@Sheet Format2", "NOTE", 1.075264373216, 0.026464987456, -2.137470600809e-007 Part.SelectByID "Sheet Format2", "SHEET", 1.023371478272, 0.082235999104, -2.137470604703e-007 Part.ViewZoomTo2 0.938053, 0.0635841, -2.13747e-007, 0.973879, 0.0471483, -2.13747e-007 Part.CreateLine2( 0.941155827746, 0.05838445795053, 0, 0.9384111748986, 0.05838445795053, 0 ).ConstructionGeometry = TRUE Part.AndSelectByID "Line6", "SKETCHSEGMENT", 0.96821874923, 0.05322825795053, 0 Part.SketchMirror Part.ClearSelection Part.SetPickMode Part.SelectByID "Line24", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 1, 0.9410623293463, 0.05758742802227 Part.SetPickMode Part.SelectByID "Line29", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 0, 0.9504846755592, 0.05751577519936 Part.SetPickMode Part.SelectByID "Line115", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 1, 0.9585097917254, 0.05751577519936 Part.SetPickMode Part.SelectByID "DetailItem50@Sheet Format2", "NOTE", 0.9542464487621, 0.05576028103802, -2.137470603821e-007 Part.SelectByID "DetailItem50@Sheet Format2", "NOTE", 0.9532074828299, 0.05619019797549, -2.137470603851e-007 Part.SelectByID "DetailItem50@Sheet Format2", "NOTE", 0.9548913241683, 0.05586776027238, -2.137470603828e-007 Part.SelectByID "DetailItem50@Sheet Format2", "NOTE", 0.954712192111, 0.05550949615782, -2.137470603803e-007 Part.SelectByID "DetailItem172@Sheet Format2", "NOTE", 0.9550346298141, 0.06772630246432, -2.137470604656e-007 Part.SelectByID "Sheet Format2", "SHEET", 0.9466512495334, 0.06636489882899, -2.137470604561e-007 Part.SelectByID "DetailItem172@Sheet Format2", "NOTE", 0.9544614072308, 0.06786960811014, -2.137470604666e-007 Part.SelectByID "DetailItem172@Sheet Format2", "NOTE", 0.9544614072308, 0.06113424275642, -2.137470604196e-007 Part.SelectByID "DetailItem172@Sheet Format2", "NOTE", 0.9546405392881, 0.06127754840224, -2.137470604206e-007 Part.SelectByID "DetailItem172@Sheet Format2", "NOTE", 0.9455406307783, 0.06102676352205, -2.137470604189e-007 Part.SelectByID "Sheet Format2", "SHEET", 0.9459347213043, 0.06410783490726, -2.137470604404e-007 Part.SelectByID "DetailItem172@Sheet Format2", "NOTE", 0.9454689779554, 0.06113424275642, -2.137470604196e-007 Part.SelectByID "Sheet Format2", "SHEET", 0.9502697170905, 0.06844283069344, -2.137470604706e-007 Part.SelectByID "Line121", "SKETCHSEGMENT", 0.9391277031277, 0.05838445795053, 0 Part.EditDelete Part.ViewOrientationUndo Part.ViewZoomTo2 0.982559, 0.0731871, -2.13747e-007, 1.09484, 0.0447475, -2.13747e-007 Part.SetPickMode Part.SelectByID "Line37", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 1, 1.066881731624, 0.05705852677274 Part.SetPickMode Part.SelectByID "Line35", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 1, 1.036565939332, 0.05694624606054 Part.SetPickMode Part.SelectByID "Line34", "SKETCHSEGMENT", 0.0, 0.0, 0.0 Part.SketchTrim 2, 1, 0.9901940051971, 0.05739536890931 Part.SetPickMode Part.SelectByID "DetailItem47@Sheet Format2", "NOTE", 1.011751901938, 0.05571115822643, -2.13747060588e-007 Part.SelectByID "DetailItem49@Sheet Format2", "NOTE", 1.077548399282, 0.05503747395328, -2.137470605833e-007 Part.SelectByID "DetailItem177@Sheet Format2", "NOTE", 1.014334358318, 0.06851115941632, -2.137470606774e-007 Part.SelectByID "Sheet Format2", "SHEET", 1.013660674045, 0.08378133627443, -2.13747060784e-007 Part.SelectByID "DetailItem177@Sheet Format2", "NOTE", 1.012201024787, 0.06896028226509, -2.137470606805e-007 Part.SelectByID "DetailItem47@Sheet Format2", "NOTE", 1.01287470906, 0.0561602810752, -2.137470605912e-007 Part.SelectByID "DetailItem178@Sheet Format2", "NOTE", 1.083274715604, 0.07064449294797, -2.137470606923e-007 Part.SelectByID "DetailItem178@Sheet Format2", "NOTE", 1.07945717139, 0.07064449294797, -2.137470606923e-007 Part.SelectByID "Sheet Format2", "SHEET", 1.072944890083, 0.08097431846963, -2.137470607644e-007 Part.ViewZoomtofit2 Part.ViewOrientationUndo Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.869565 Part.ActiveView().ZoomByFactor 0.806452 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.04 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().TranslateBy 0, -0.0011176 Part.ActiveView().TranslateBy 0.0357632, -0.0402336 Part.ActiveView().TranslateBy 0.0178816, -0.0212344 Part.ActiveView().TranslateBy 0.005588, -0.0044704 Part.ActiveView().TranslateBy 0.0178816, -0.011176 Part.ActiveView().TranslateBy 0.0078232, -0.0044704 Part.ActiveView().TranslateBy 0.0067056, -0.005588 Part.ActiveView().TranslateBy 0.0011176, 0 Part.ActiveView().TranslateBy 0.0011176, -0.0011176 Part.ActiveView().TranslateBy -0.0011176, 0 Part.ActiveView().TranslateBy -0.0022352, 0 Part.ActiveView().TranslateBy -0.0011176, 0 Part.ActiveView().TranslateBy 0, 0.0011176 Part.SelectByID "DetailItem87@Sheet Format2", "NOTE", 1.03059438698, 0.01911827661629, -2.13747060392e-007 Part.SelectByID "Sheet Format2", "SHEET", 1.028737017298, 0.07990492074737, -2.137470608164e-007 Part.ViewZoomtofit2 Part.ViewZoomTo2 0.060641, 0.0556158, -1.06874e-007, 0.160957, -0.00936142, -1.06874e-007 Part.SelectByID "Sheet Format2", "SHEET", 0.07769465792, 0.033560048704, -1.068735310684e-007 Part.InsertCustomSymbol "D:\Jon\SW_files\JonsLibrary\Blocks\HardBlackNote.SLDSYM" Part.ClearSelection Part.SelectByID "Sheet Format2", "SHEET", 0.079099078784, 0.043992889408, -1.068735311413e-007 Part.InsertCustomSymbol "D:\Jon\SW_files\JonsLibrary\Blocks\HardBlackNote2.SLDSYM" Part.ClearSelection Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.840336 Part.ActiveView().ZoomByFactor 0.729927 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.909091 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 1.01 Part.SelectByID "Sheet Format2", "SHEET", 0.01518287606836, 0.1056949291222, -1.068735318786e-007 Part.SelectByID "Sheet Format2", "SHEET", 0.02758942483802, 0.09050760218001, -1.068735317726e-007 Part.SelectByID "Sheet Format2", "SHEET", 0.03935425556786, 0.03104173049099, -1.068735313573e-007 Part.SelectByID "DetailItem139@Sheet Format2", "NOTE", 0.01133256782951, -0.002327607579116, -1.068735311243e-007 Part.SelectByID "Sheet Format2", "SHEET", 0.0419211277271, 0.03275297859714, -1.068735313693e-007 Part.ViewZoomtofit2 Part.ViewZoomTo2 0.0139029, 0.0738551, -5.34368e-008, 0.184896, -0.018481, -5.34368e-008 Part.SelectByID "Sheet Format2", "SHEET", 0.036132008, 0.0263190736, -5.343676665071e-008 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.SelectByID "DetailItem180@Sheet2", "CUSTOMSYMBOL", 0.0929016176, 0.0459832456, -5.343676678802e-008 Part.SelectByID "DetailItem179@Sheet2", "CUSTOMSYMBOL", 0.0930726104, 0.036236656, -5.343676671996e-008 Part.SelectByID "DetailItem180@Sheet2", "CUSTOMSYMBOL", 0.0947825384, 0.042221404, -5.343676676175e-008 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.917431 Part.ActiveView().ZoomByFactor 0.925926 Part.ActiveView().ZoomByFactor 0.943396 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.980392 Part.SelectByID "DetailItem179@Sheet2", "CUSTOMSYMBOL", 0.1003225630952, 0.03645759740479, -5.343676688287e-008 Part.EditDelete Part.SelectByID "Sheet2", "SHEET", 0.05670046084512, 0.04153530242861, -5.343676691833e-008 Part.SelectByID "DetailItem180@Sheet2", "CUSTOMSYMBOL", 0.09847612490476, 0.04199691197623, -5.343676692155e-008 Part.SelectByID "Sheet2", "SHEET", 0.05093034149986, 0.03807323082146, -5.343676689415e-008 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem139@Sheet Format2", "NOTE", 0.04562183170223, 0.0413044976548, -5.343676691672e-008 Part.SelectByID "Sheet Format2", "SHEET", 0.03338917869029, 0.03091828283334, -5.343676684419e-008 Part.SelectByID "DetailItem139@Sheet Format2", "NOTE", 0.031311935726, 0.04084288810718, -5.34367669135e-008 Part.SelectByID "Sheet Format2", "SHEET", 0.06131655632132, 0.0253789682619, -5.343676680551e-008 Part.ViewZoomTo2 0.0712412, 0.046613, -5.34368e-008, 0.143945, 0.00829941, -5.34368e-008 Part.SelectByID "DetailItem139@Sheet Format2", "NOTE", 0.07734825591018, 0.03683496320997, -5.343676708166e-008 Part.SelectByID "Sheet Format2", "SHEET", 0.07611229634642, 0.04635912220124, -5.343676714817e-008 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.SetPickMode swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 307 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("dcon.End.Cap.SLDPRT") Part.SelectByID "DoveTail_O-ring", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ClearSelection Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ShowNamedView2 "*Normal To", 0 Part.ViewZoomTo2 -0.0256409, 0.106866, -1.46215e-009, 0.0359732, 0.0529216, -1.46215e-009 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.980392 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 0.990099 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.961538 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().ZoomByFactor 0.980392 Part.ActiveView().TranslateBy -0.0002794, 0 Part.ActiveView().TranslateBy -0.0002794, -0.0002794 Part.ActiveView().TranslateBy -0.0002794, 0 Part.ActiveView().TranslateBy -0.0002794, -0.0002794 Part.ActiveView().TranslateBy -0.0008382, 0 Part.ActiveView().TranslateBy -0.0005588, -0.0002794 Part.ActiveView().TranslateBy -0.0005588, 0 Part.ActiveView().TranslateBy -0.0005588, -0.0002794 Part.ActiveView().TranslateBy -0.0005588, 0 Part.ActiveView().TranslateBy -0.0002794, 0 Part.ActiveView().TranslateBy -0.0002794, 0 Part.ActiveView().TranslateBy -0.0005588, 0 Part.ActiveView().TranslateBy -0.0005588, 0 Part.ActiveView().TranslateBy -0.0002794, 0 Part.ActiveView().TranslateBy -0.0008382, 0 Part.ActiveView().TranslateBy -0.0005588, -0.0002794 Part.ActiveView().TranslateBy -0.0005588, 0 Part.ActiveView().TranslateBy -0.0005588, -0.0002794 Part.ActiveView().TranslateBy -0.0005588, 0 Part.ActiveView().TranslateBy -0.0005588, -0.0002794 Part.ActiveView().TranslateBy -0.0005588, 0 Part.ActiveView().TranslateBy -0.0005588, -0.0002794 Part.ActiveView().TranslateBy -0.001397, -0.0005588 Part.ActiveView().TranslateBy -0.0011176, -0.0002794 Part.ActiveView().TranslateBy -0.0002794, 0 Part.ActiveView().TranslateBy -0.0002794, 0 Part.ActiveView().TranslateBy -0.0002794, -0.0002794 Part.ActiveView().TranslateBy -0.0002794, 0 Part.ActiveView().TranslateBy -0.0002794, 0 Part.ActiveView().TranslateBy -0.0005588, 0 Part.ActiveView().TranslateBy 0, -0.0002794 Part.ActiveView().TranslateBy -0.0002794, 0 Part.ActiveView().TranslateBy -0.0002794, 0 Part.ActiveView().TranslateBy -0.0002794, 0 Part.SelectByID "Sketch3", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.ViewZoomtofit2 Part.ViewZoomTo2 -0.0172215, 0.104936, -6.59073e-016, 0.0888878, -0.0935541, 7.26977e-016 Part.InsertSketch Part.SelectByID "DoveTail_O-ring", "BODYFEATURE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "DoveTail_O-ring #2-260" Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConn - Sheet2") Part.SelectByID "Sheet2", "SHEET", 0.1000317490802, 0.04454153460749, -5.343676713547e-008 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem140@Sheet Format2", "NOTE", 0.1315123662041, 0.02353022202368, -5.343676698875e-008 Part.SelectByID "Sheet Format2", "SHEET", 0.08687241490145, 0.05748275827503, -5.343676722584e-008 Part.SelectByID "Sheet Format2", "SHEET", 0.07785718043643, 0.05479272863627, -5.343676720706e-008 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.628931 Part.ActiveView().ZoomByFactor 0.657895 Part.ActiveView().ZoomByFactor 0.869565 Part.ActiveView().ZoomByFactor 0.8 Part.ActiveView().ZoomByFactor 0.833333 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.925926 Part.ActiveView().ZoomByFactor 0.934579 Part.ActiveView().ZoomByFactor 0.877193 Part.ViewZoomtofit2 Part.EditSketch ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 609 swApp.ActiveDoc.ActiveView.FrameHeight = 461 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 609 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConn - Sheet2") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.026953, 0.0518496, -0.000437754, 0.107553, 0.00384203, -0.000437754 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.046861103636, 0.02397700130767, -0.0004377539681307 Part.InsertCustomSymbol "D:\Jon\SW_files\JonsLibrary\Blocks\HardBlackNote2.SLDSYM" Part.ClearSelection Part.SelectByID "Sheet1", "SHEET", 0.054679283072, 0.01527222420367, -0.0004377539681307 Part.SelectByID "Sheet1", "SHEET", 0.04387891148, 0.01736781869167, -0.0004377539681307 Part.SelectByID "Sheet1", "SHEET", 0.042186315932, 0.01946341317967, -0.0004377539681307 Part.SelectByID "Sheet1", "SHEET", 0.060079468868, 0.01567522314367, -0.0004377539681307 Part.SelectByID "Sheet1", "SHEET", 0.032917340312, 0.02712039303967, -0.0004377539681307 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem101@Sheet Format1", "NOTE", 0.060321268232, 0.01494982505167, -0.0004377539681307 Part.SelectByID "DetailItem101@Sheet Format1", "NOTE", 0.06040186802, 0.01575582293167, -0.0004377539681307 Part.SelectByID "DetailItem182@Sheet Format1", "NOTE", 0.033159139676, -0.002137330004327, -0.0004377539681305 Part.SelectByID "DetailItem182@Sheet Format1", "NOTE", 0.068623046396, 0.02043061063567, -0.0004377539681307 Part.SelectByID "Sheet Format1", "SHEET", 0.065318455088, 0.03203698010767, -0.0004377539681308 Part.SelectByID "Sheet Format1", "SHEET", 0.03783392738, 0.05452432095967, -0.0004377539681309 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.SelectByID "DetailItem181@Sheet1", "CUSTOMSYMBOL", 0.068220047456, 0.02550839727967, -0.0004377539681307 Part.SelectByID "DetailItem181@Sheet1", "CUSTOMSYMBOL", 0.063545259752, 0.02220380597167, -0.0004377539681307 Part.SelectByID "Sheet1", "SHEET", 0.060966066536, 0.02953838667967, -0.0004377539681308 Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.192116456, 0.05008780913167, -0.0002188769840655 Part.EditSketch Part.Save2 FALSE Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.PrintDirect Part.EditSketch Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.ViewZoomTo2 -0.0214356, 0.0100178, -0.000437754, 0.0264424, -0.0162011, -0.000437754 Part.EditSketch Part.SelectByID "DetailItem143@Drawing View11", "NOTE", 0.002072522144, -0.001846860416, -0.000437753968133 Part.EditDelete Part.SelectByID "Sheet2", "SHEET", 0.017297721056, 0.01558072576, -0.0004377539681331 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem168@Sheet Format2", "NOTE", 0.0009234505280002, -0.001080812672, -0.000437753968133 Part.EditDelete Part.SelectByID "DetailItem169@Sheet Format2", "NOTE", 0.001162840448, -0.0005541548480001, -0.000437753968133 Part.EditDelete Part.SelectByID "DetailItem170@Sheet Format2", "NOTE", 0.001210718432, -0.0007935447680001, -0.000437753968133 Part.EditDelete Part.SelectByID "DetailItem171@Sheet Format2", "NOTE", 0.001210718432, -0.0007935447680001, -0.000437753968133 Part.EditDelete Part.SelectByID "DetailItem173@Sheet Format2", "NOTE", 0.0004446706880002, -0.0006977888000001, -0.000437753968133 Part.EditDelete Part.SelectByID "DetailItem174@Sheet Format2", "NOTE", 0.0004446706880002, -0.0006977888000001, -0.000437753968133 Part.EditDelete Part.SelectByID "DetailItem175@Sheet Format2", "NOTE", 0.0004446706880002, -0.0006977888000001, -0.000437753968133 Part.EditDelete Part.SelectByID "Sheet Format2", "SHEET", 0.012605678624, 0.012037754944, -0.0004377539681331 Part.SelectByID "Sheet Format2", "SHEET", 0.018159524768, 0.016442529472, -0.0004377539681331 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.ViewZoomtofit2 Part.ViewZoomTo2 0.0572211, 0.0464962, -0.000218877, 0.156397, -0.0173411, -0.000218877 Part.ViewZoomtofit2 Part.PrintDirect Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 609 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Blkhd.Isolator - Sheet3") Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0301904, 0.213257, 1.54134e-005, 0.252679, 0.0107476, 1.54134e-005 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 609 swApp.ActiveDoc.ActiveView.FrameTop = 461 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = Nothing swApp.CloseDoc "Blkhd.Isolator - Sheet2" Set Part = swApp.ActivateDoc ("DeConn - Sheet2") Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "DeConn - Sheet2" Set Part = swApp.ActivateDoc ("dcon.End.Cap.SLDPRT") Set Part = Nothing swApp.CloseDoc "dcon.End.Cap.SLDPRT" Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") ' MSGBOX ' Models contained within the assembly have changed. Would you like to rebuild the assembly now? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "DeConnAssem_V5.SLDASM" Set Part = swApp.OpenDoc4 ("G:\Work In Progress\Canyon Dynamics\rin-bin\rin_V7.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("rin_V7.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "Bin Display", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Bin Display" Part.SelectByID "Mast.Base.Assem-1@rin_V7", "COMPONENT", 0, 0, 0 Part.SelectByID "Mast.Base.Assem-1@rin_V7", "COMPONENT", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "T_FrameAssem-1@rin_V7", "COMPONENT", 0, 0, 0 Part.SelectByID "T_FrameAssem-1@rin_V7", "COMPONENT", 0, 0, 0 Part.SelectByID "Bin", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Bin" Part.SelectByID "Mast.Base.Assem-1@rin_V7", "COMPONENT", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "T_FrameAssem-1@rin_V7", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "G:\Work In Progress\Canyon Dynamics\rin-bin\Frame\T_FrameAssem.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\Canyon Dynamics\rin-bin\Frame\T_FrameAssem.SLDASM", 2, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("T_FrameAssem.SLDASM") Part.ClearSelection Part.SelectByID "T_FrameAssem.SLDASM", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AddConfiguration "Bin","","",1,0,0,0,0 Part.SelectByID "PVC_Pipe-1@T_FrameAssem", "COMPONENT", 0, 0, 0 Part.EditSuppress Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("rin_V7.SLDASM") Part.SelectByID "T_FrameAssem-1@rin_V7", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.ClearSelection Part.SelectByID "Bin Display@rin_V7.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Bin Display" Part.SelectByID "T_FrameAssem-1@rin_V7", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.ClearSelection Part.SelectByID "Inst_Cage_V7_Assem-2@rin_V7", "COMPONENT", 0, 0, 0 Part.SelectByID "Inst_Cage_V7_Assem-2@rin_V7", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "G:\Work In Progress\Canyon Dynamics\rin-bin\Inst_Cage_V7\Inst_Cage_V7_Assem.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\Canyon Dynamics\rin-bin\Inst_Cage_V7\Inst_Cage_V7_Assem.SLDASM", 2, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Inst_Cage_V7_Assem.SLDASM") Part.ClearSelection Part.SelectByID "Battery-Display@Inst_Cage_V7_Assem.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Battery-Display" Part.SelectByID "", "FACE", 0.1487016967669, -0.08431237950623, 0.02640422320814 Part.SelectByID "ODI_8.0_4way-1-2@Inst_Cage_V7_Assem", "COMPONENT", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "Inst_Cage_V7_Assem.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("rin_V7.SLDASM") Part.SelectByID "Inst_Cage_V7_Assem-1@rin_V7", "COMPONENT", 0, 0, 0 Part.SelectByID "Inst_Cage_V7_Assem-1@rin_V7", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "G:\Work In Progress\Canyon Dynamics\rin-bin\Inst_Cage_V7\Inst_Cage_V7_Assem.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\Canyon Dynamics\rin-bin\Inst_Cage_V7\Inst_Cage_V7_Assem.SLDASM", 2, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Inst_Cage_V7_Assem.SLDASM") Part.ClearSelection Part.SelectByID "Display@Inst_Cage_V7_Assem.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Display" Part.SelectByID "DeConnAssem_V5-1@Inst_Cage_V7_Assem", "COMPONENT", 0, 0, 0 Part.SelectByID "DeConnAssem_V5-1@Inst_Cage_V7_Assem", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "G:\Work In Progress\Canyon Dynamics\rin-bin\DeConnAssem_V5\DeConnAssem_V5.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\Canyon Dynamics\rin-bin\DeConnAssem_V5\DeConnAssem_V5.SLDASM", 2, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") Part.ClearSelection Part.SelectByID "Display", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.SelectByID "Display", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Display" Part.SelectByID "", "FACE", -0.2340629482775, -0.09527624902688, 0.1730606938056 Part.SelectByID "E_CablePart1-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "", "FACE", -0.227472635872, 0.02291269337547, 0.1933006352933 Part.SelectByID "E_CablePart2-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "Default@DeConnAssem_V5.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Default" Part.SelectByID "Display@DeConnAssem_V5.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Display" Part.SelectByID "Default@DeConnAssem_V5.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Default" Part.SelectByID "Default", "CONFIGURATIONS", 0, 0, 0 Part.ShowAdvanced Part.SelectByID "Display@DeConnAssem_V5.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Display" Part.SelectByID "DeConnAssem_V5.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByDependencies Part.SelectByID "Concentric14", "MATE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Concentric14" Part.ClearSelection Part.SelectByID "Coincident43", "MATE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Coincident43" Part.ClearSelection Part.SelectByID "Coincident43", "MATE", 0, 0, 0 Part.SelectByID "Coincident44", "MATE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Coincident44" Part.ClearSelection Part.SelectByID "Coincident43", "MATE", 0, 0, 0 Part.SelectByID "Coincident43", "MATE", 0, 0, 0 Part.SelectByID "Coincident43", "MATE", 0, 0, 0 Part.ClearSelection Part.SelectByID "Concentric15", "MATE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Concentric15" Part.ClearSelection Part.SelectByID "Coincident48", "MATE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Coincident48" Part.ClearSelection Part.SelectByID "Coincident49", "MATE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Coincident49" Part.ClearSelection Part.SelectByID "Coincident43", "MATE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 1, "Coincident43" Part.ClearSelection Part.SelectByID "Coincident49", "MATE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 1, "Coincident49" Part.ClearSelection Part.Save2 FALSE Part.SelectByID "Blkhd.Isolator-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.SelectByID "HybridPenetrator_8-12-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.SelectByID "dcon.End.Cap-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "G:\Work In Progress\Canyon Dynamics\rin-bin\DeConnAssem_V5\dcon.End.Cap.SLDPRT", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("G:\Work In Progress\Canyon Dynamics\rin-bin\DeConnAssem_V5\dcon.End.Cap.SLDPRT", 1, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("dcon.End.Cap.SLDPRT") Part.ClearSelection Part.SelectByID "dcon.End.Cap.SLDPRT", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AddConfiguration "Display","","",1,0,0,0,0 Part.SelectByID "#10-32 Tapped Hole1", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "Fillet2", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Fillet2", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "Chamfer2", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Chamfer2", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "Fillet4", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "1.0Thru", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "1.0Thru", "BODYFEATURE", 0, 0, 0 Part.EditUnsuppress Part.ClearSelection Part.SelectByID "CntrBore", "BODYFEATURE", 0, 0, 0 Part.EditUnsuppress Part.ClearSelection Part.SelectByID "CirPattern2", "BODYFEATURE", 0, 0, 0 Part.EditUnsuppress Part.ClearSelection Part.SelectByID "CirPattern3", "BODYFEATURE", 0, 0, 0 Part.EditUnsuppress Part.ClearSelection Part.SelectByID "CirPattern4", "BODYFEATURE", 0, 0, 0 Part.EditUnsuppress Part.ClearSelection Part.SelectByID "CirPattern4", "BODYFEATURE", 0, 0, 0 Part.SelectByID "CirPattern4", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "Chamfer2", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "1.0Thru", "BODYFEATURE", 0, 0, 0 Part.ParentChildRelationship Part.ClearSelection Part.SelectByID "Chamfer1", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Chamfer1", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "Fillet1", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "#2-258", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "DoveTail_O-ring #2-260", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.SelectByID "CirPattern2", "BODYFEATURE", 0, 0, 0 Part.SelectByID "#10-32 Tapped Hole1", "BODYFEATURE", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "dcon.End.Cap.SLDPRT" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") Part.SelectByID "dcon.End.Cap-1@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.ClearSelection ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Inst_Cage_V7_Assem.SLDASM") Part.SelectByID "DeConnAssem_V5-1@Inst_Cage_V7_Assem", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.ClearSelection Part.SelectByID "", "FACE", 0.07815443765912, -0.04697807837832, 0.01277724263963 Part.SelectByID "ODI_8.0_4way-1-2@Inst_Cage_V7_Assem", "COMPONENT", 0, 0, 0 Part.EditSuppress Part.ClearSelection Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("rin_V7.SLDASM") Part.SelectByID "Inst_Cage_V7_Assem-2@rin_V7", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "Bin@rin_V7.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Bin" Part.SelectByID "Default", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Default" ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "rin_V7.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Inst_Cage_V7_Assem.SLDASM") Set Part = Nothing swApp.CloseDoc "Inst_Cage_V7_Assem.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("T_FrameAssem.SLDASM") Set Part = Nothing swApp.CloseDoc "T_FrameAssem.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("DeConnAssem_V5.SLDASM") Part.SelectByID "Default@DeConnAssem_V5.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Default" Part.SelectByID "Section View", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Section View" Part.SelectByID "Default@DeConnAssem_V5.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Default" Part.SelectByID "DeConnAssem_V5.SLDASM", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AddConfiguration "Section View Axial","","",1,0,0,0,0 Part.ShowNamedView2 "*Top", 5 Part.SelectByID "DeConnAssem_V5.SLDASM", "COMPONENT", 0, 0, 0 Part.ViewFeatureManagerByFeatures Part.SelectByID "Top", "PLANE", 0, 0, 0 Part.SelectByID "Right", "PLANE", 0, 0, 0 Part.SelectByID "Front", "PLANE", 0, 0, 0 Part.SelectByID "Front", "PLANE", 0, 0, 0 Part.ShowNamedView2 "*Front", 1 Part.InsertSketch Part.SketchRectangle -0.2825603680167, 0.1868038504062, 0, 0.1332841760763, -0.130750165083, 0, 1 Part.FeatureCut4 1, 0, 1, 0, 0, 0.2083422598583, 0.00079375, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, -1, 0 Part.ClearSelection Part.SelectByID "", "FACE", 0.1050717231379, 0.08230586661318, -0.01063409413803 Part.SelectByID "", "FACE", 0.1054803145897, 0.0827024869393, -0.00881181206546 Part.SelectByID "Blkhd.Isolator-3@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.SelectByID "", "FACE", 0.1003609963628, 0.08398429042381, -0.02230505833737 Part.SelectByID "Blkhd.Isolator-3@DeConnAssem_V5", "COMPONENT", 0, 0, 0 Part.CompConfigProperties3 2, 0, 1, 1 Part.ShowNamedView2 "*Front", 1 Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.PrintDirect Part.SelectByID "Default@DeConnAssem_V5.SLDASM", "CONFIGURATIONS", 0, 0, 0 Part.ClearSelection Part.ShowConfiguration "Default" Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.PrintPreview swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.PrintDirect Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "DeConnAssem_V5.SLDASM" swApp.ExitApp End Sub