' ****************************************************************************** ' swxJRNL.swj - journal recorded on 04/30/09 by shfa ' ***************************************************************************** Dim swApp As Object Dim Part As Object Dim SelMgr As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim Feature As Object Sub main() Set swApp = Application.SldWorks Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\FOCE Complete Assembly.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\FOCE Complete Assembly.SLDASM", 2, 0, "", longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\FOCE Complete Assembly.PDF", 0, 0, Nothing, longstatus, longwarnings Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\FOCE Flue Assembly.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\FOCE Flue Assembly.SLDASM", 2, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE Flue Assembly.SLDASM", False, longstatus) Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" boolstatus = Part.Extension.SelectByID2("Distance64@FOCE Flue Assembly.SLDASM", "MATE", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Distance64@FOCE Flue Assembly.SLDASM", "MATE", 0, 0, 0, False, 0, Nothing, 0) Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Distance64" boolstatus = Part.Extension.SelectByID2("FRP square Tube 2in x 2in x 10ft-3@FOCE Flue Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.EditPart Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Distance64@FOCE Flue Assembly.SLDASM", "MATE", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Distance64@FOCE Flue Assembly.SLDASM", "MATE", 0, 0, 0, False, 0, Nothing, 0) Part.EditDelete Part.EditAssembly boolstatus = Part.Extension.SelectByID2("Concentric154@FOCE Flue Assembly Base-1@FOCE Flue Assembly", "MATE", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("FOCE Flue Assembly Base-1@FOCE Flue Assembly/Socket Head Cap Screw_AI-15@FOCE Flue Assembly Base", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.EditPart Part.ShowConfiguration "HX-SHCS 0.19-32x0.4375x0.4375-N" Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Concentric154@FOCE Flue Assembly Base-1@FOCE Flue Assembly", "MATE", 0, 0, 0, False, 0, Nothing, 0) Part.EditDelete Part.EditAssembly boolstatus = Part.Extension.SelectByID2("FOCE Flue Assembly Base-1@FOCE Flue Assembly/FOCE LRS Electronics Housing-1@FOCE Flue Assembly Base", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("FOCE Flue Assembly Base-1@FOCE Flue Assembly/FOCE LRS Electronics Housing-1@FOCE Flue Assembly Base", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.EditDelete 'The stack trace for this error is: 'Build: d080613.001.NAK sw2008_SP04 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:305857FA:00A357FA} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:30586E94:00A36E94} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:30589DD8:00A39DD8} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:3058A335:00A3A335} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:305B2B80:00A62B80} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:305B2D85:00A62D85} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:305B2D85:00A62D85} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:305B2D85:00A62D85} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:305B30C6:00A630C6} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:2FC8BC1F:0013BC1F} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:2FC6072D:0011072D} 'sldasmu:uiAssemblyAddNewPartCmd_c::iDone {sldasmu:35621EDC:002D1EDC} 'sldasmu:uiAssemblyAddNewPartCmd_c::iDone {sldasmu:3542C852:000DC852} ' {pworks:0BCD5D3D:002F5D3D} Part.EditUndo 1 boolstatus = Part.Extension.SelectByID2("Sketch3", "SKETCH", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Sketch1", "SKETCH", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Sketch2", "SKETCH", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Sketch3", "SKETCH", 0, 0, 0, True, 0, Nothing, 0) Part.EditDelete boolstatus = Part.Extension.SelectByID2("Sketch2@FOCE Flue Assembly Base-1@FOCE Flue Assembly", "SKETCH", 0, 0, 0, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.Extension.SelectByID2("FOCE Flue Assembly Base-1@FOCE Flue Assembly/FOCE LRS Electronics Housing-1@FOCE Flue Assembly Base", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\FOCE LRS Electronics Housing.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\FOCE LRS Electronics Housing.SLDASM", 2, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE LRS Electronics Housing.SLDASM", False, longstatus) Part.ClearSelection2 True Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Seacon MIN K 10 FCR-1@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MinK CCP Conn-1@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MIN K 10 FCR-2@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MIN K 10 FCR-3@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MIN K 10 FCR-4@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MIN K 10 FCR-5@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MIN K 10 FCR-6@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MIN K 10 FCR-7@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MIN K 10 FCR-8@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MinK CCP Conn-2@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MinK CCP Conn-3@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MinK CCP Conn-4@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MinK CCP Conn-5@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MinK CCP Conn-6@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MinK CCP Conn-7@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Seacon MinK CCP Conn-8@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) Part.ClearSelection2 True ' MSGBOX ' One or more documents are being closed as a result of this operation. If you do not save them, your changes will be lost. ' Click "Yes" to close and save them. ' Click "No" to close them without the changes. Set Part = Nothing swApp.CloseDoc "FOCE LRS Electronics Housing.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE Flue Assembly.SLDASM", False, longstatus) boolstatus = Part.Extension.SelectByID2("FOCE Flue Assembly Base-1@FOCE Flue Assembly/FOCE LRS Electronics Housing-1@FOCE Flue Assembly Base", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("FOCE Flue Assembly Base-1@FOCE Flue Assembly/FOCE LRS Electronics Housing-1@FOCE Flue Assembly Base", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.EditDelete 'The stack trace for this error is: 'Build: d080613.001.NAK sw2008_SP04 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:305857FA:00A357FA} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:30586E94:00A36E94} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:30589DD8:00A39DD8} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:3058A335:00A3A335} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:305B2B80:00A62B80} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:305B2D85:00A62D85} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:305B2D85:00A62D85} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:305B2D85:00A62D85} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:305B30C6:00A630C6} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:2FC8BC1F:0013BC1F} 'SLDMODU:moDisplayObject_c::getNoBrokenShift {SLDMODU:2FC6072D:0011072D} 'sldasmu:uiAssemblyAddNewPartCmd_c::iDone {sldasmu:35621EDC:002D1EDC} 'sldasmu:uiAssemblyAddNewPartCmd_c::iDone {sldasmu:3542C852:000DC852} ' {pworks:0BCD5D3D:002F5D3D} Part.EditUndo 1 boolstatus = Part.Extension.SelectByID2("FOCE Flue Assembly Base-1@FOCE Flue Assembly/FOCE LRS Electronics Housing-1@FOCE Flue Assembly Base/Socket Head Cap Screws (U.S.)-39@FOCE LRS Electronics Housing", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("FOCE Flue Assembly Base-1@FOCE Flue Assembly/FOCE LRS Electronics Housing-1@FOCE Flue Assembly Base", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\FOCE LRS Electronics Housing.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\FOCE LRS Electronics Housing.SLDASM", 2, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE LRS Electronics Housing.SLDASM", False, longstatus) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 ' MSGBOX ' One or more documents are being closed as a result of this operation. If you do not save them, your changes will be lost. ' Click "Yes" to close and save them. ' Click "No" to close them without the changes. Set Part = Nothing swApp.CloseDoc "FOCE LRS Electronics Housing.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE Flue Assembly.SLDASM", False, longstatus) boolstatus = Part.Extension.SelectByID2("FOCE Flue Assembly Base-1@FOCE Flue Assembly/FOCE LRS Electronics Housing-1@FOCE Flue Assembly Base", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ShowComponent2 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("FOCE Flue Assembly Base-1@FOCE Flue Assembly/FOCE LRS Electronics Housing-1@FOCE Flue Assembly Base", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("FOCE Flue Assembly Base-1@FOCE Flue Assembly/FOCE LRS Electronics Housing-1@FOCE Flue Assembly Base", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.EditRebuild3 swApp.SetUserPreferenceToggle 119, 0 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 2096 swApp.ActiveDoc.ActiveView.FrameHeight = 669 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 690 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 690 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 2096 swApp.ActiveDoc.ActiveView.FrameHeight = 669 Set Part = swApp.ActivateDoc2 ("FOCE Flue Assembly.SLDASM", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 690 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 2.646620810243, 0.07846779911439, 0.08010231630385, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 2.550403923812, 0.1406828708514, -0.4815300875753, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 2.603959555134, -0.0785187753191, -1.046895683696, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set Feature = Part.AddMate2 (0, 0, False, 0, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 2.580074396393, 0.1606704165364, -1.02431834725, True, 1, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 2.660186904403, 0.03831485721963, 0.102608966342, True, 1, Nothing, 0) Set Feature = Part.AddMate2 (0, 0, False, 0.08011250801082, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 2.656908450391, 0.004840220113564, -0.9983650075856, True, 1, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 2.672075029492, -0.05134549630543, -1.011357810674, True, 1, Nothing, 0) Set Feature = Part.AddMate2 (0, 1, False, 0.05618571641898, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 2.033244464115, 0.3496153218103, 0.08010231630374, True, 1, Nothing, 0) Part.TranslateComponent boolstatus = Part.Extension.SelectByID2("", "FACE", 2.085839864663, 0.3432408336152, 0.08010231630374, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 2.657921560131, 0.00484022011354, -1.003816487391, True, 1, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 2.687196920433, -0.05134549630549, -1.020583392087, True, 1, Nothing, 0) Set Feature = Part.AddMate2 (0, 1, False, 0.05618571641898, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 2.195379767659, 0.3548129472842, 0.08010231630385, True, 1, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 2.264087862781, 0.3483142415576, 0.08010231630385, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("FRP square Tube 2in x 2in x 10ft-1@FOCE Flue Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 2.832619337817, 0.6599119606669, -0.005622692194436, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 2.62728702392, 0.1429375061289, -1.046895683696, True, 0, Nothing, 0) Set Feature = Part.AddMate2 (0, 0, False, 1.041272991502, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 2.658386222467, 0.3169545036944, -1.01795860322, True, 1, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 2.838439804386, 0.6405929192675, -1.012059175808, True, 1, Nothing, 0) Set Feature = Part.AddMate2 (0, 1, False, 0.3236384155729, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.600301065802, 0.08438173183296, 0.08010231630379, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("FRP Diagonal 29.99 in-3@FOCE Flue Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 1.471229748033, -0.3209620285963, -0.5750076515372, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 1.559533104001, -0.06853676841252, -1.046895683696, True, 0, Nothing, 0) Set Feature = Part.AddMate2 (0, 0, False, 0.471888032159, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.572287691032, -0.3856691385411, -1.01938134448, True, 1, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 1.435648486961, 0.1400978610597, 0.1132244862924, True, 1, Nothing, 0) Set Feature = Part.AddMate2 (0, 0, False, 0.3941544165338, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.987607482241, -0.1522055560929, -0.889974720462, True, 1, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 1.987321981722, -0.1433248398889, -1.046895047228, True, 1, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Part.DeSelectByID "", "FACE", 1.987607482241, -0.1522055560929, -0.889974720462 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 1.80657792194, -0.04156589554936, 0.08010715138113, True, 1, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.394036867313, 0.2187734826878, -1.009734618582, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.402173815744, 0.3169545036945, -1.01229173736, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set Feature = Part.AddMate2 (0, 1, False, 0.0981810210067, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 1.732950201602, 0.005776326784598, 0.08010231630368, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Part.TranslateComponent boolstatus = Part.Extension.SelectByID2("", "FACE", 1.800699392737, -0.01547276391752, -1.046895683696, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 1.818037567984, -0.02454008338009, 0.1129458782942, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.834686904403, 0.1120388646054, 0.1022576909101, True, 0, Nothing, 0) Part.EditUndo 1 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.157002042336, 0.08173326956717, 0.08010231630374, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("FRP square Tube 2in x 2in x 13.75in-7@FOCE Flue Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 1.544834295057, 0.9909887649777, -0.6292954189503, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.168008627208, 0.1564255473981, 0.1003732223576, True, 0, Nothing, 0) Set Feature = Part.AddMate2 (0, 0, False, 0.3768256678488, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 1.994053886196, 0.3464861344723, -1.046895683696, False, 0, Nothing, 0) Part.RotateComponent boolstatus = Part.Extension.SelectByID2("FRP square Tube 2in x 2in x 10ft-5@FOCE Flue Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("FRP square Tube 2in x 2in x 10ft-5@FOCE Flue Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.FixComponent Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 1.145511103921, 0.997384506127, -0.6591659754807, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 1.359911231621, 0.3515849518389, -1.046895683696, True, 0, Nothing, 0) Set Feature = Part.AddMate2 (0, 0, False, 0.3877297082157, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.166458546456, 1.17120422394, -1.014029364613, True, 1, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.127147022997, 0.3169545036946, -1.030148593684, True, 1, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set Feature = Part.AddMate2 (0, 1, False, 0.854249720246, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 2.468305728891, 0.229253237598, -1.046895683696, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 2.633757129692, 0.2618605679811, -1.046895683696, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 2.779612076308, 0.3266675083526, -1.046895683696, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 1.626873172805, 0.05190917843994, -1.046895683696, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 1.144735916262, 0.08158435028619, -1.046895683696, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 4.120154440402, 0.06756568298607, 0.1309023163037, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 4.086060523783, 0.1290403363327, 0.3385879640855, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 3.886072502707, -0.05134549630554, -1.03494055866, True, 0, Nothing, 0) Set Feature = Part.AddMate2 (0, 1, False, 0.180385832638, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 4.062335963757, 0.2744948454896, 0.3224867665608, True, 1, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 4.000906640962, 0.3405835492002, -1.046895683696, True, 1, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set Feature = Part.AddMate2 (0, 0, False, 1.369382450257, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True Part.TranslateComponent boolstatus = Part.Extension.SelectByID2("", "FACE", 4.08813908908, 0.2601559335591, -1.003619235391, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 4.150737987321, 0.318793834818, -1.003084505901, True, 1, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 4.08813908908, 0.2795669002552, -1.000248622388, True, 1, Nothing, 0) Set Feature = Part.AddMate2 (0, 0, False, 0.06259889824132, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Loft Interface trapezoid-1@FOCE Flue Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.040235111553, -0.003047999999978, -0.5578192852848, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Stainless 39 in Hinge Assy-2@FOCE Flue Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Stainless 39 in Hinge Assy-2@FOCE Flue Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.EditDelete swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.147289795878, 0.2967752988523, 0.1372523163037, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.TranslateComponent boolstatus = Part.Extension.SelectByID2("", "FACE", 1.492493508145, -0.06470076473738, -0.6012982021362, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 1.125444805664, 0.325936651953, -1.06910912378, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.134752876044, 0.3257677781375, -1.046895683696, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set Feature = Part.AddMate2 (0, 1, False, 0, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 1.194372275842, 0.3261383166694, -1.050102516005, True, 1, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 1.196169164766, 0.3267193591895, -1.044522025984, True, 1, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set Feature = Part.AddMate2 (1, 1, False, 0, 0, 0, 0.0254, 0.0254, 0.0254, 0.5235987755983, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 2.603870405473, 0.2778785669994, 0.1309023163039, True, 1, Nothing, 0) Part.TranslateComponent boolstatus = Part.Extension.SelectByID2("", "FACE", 2.603870405473, 0.2778785669994, 0.1309023163039, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.TranslateComponent boolstatus = Part.Extension.SelectByID2("", "FACE", 2.272281935174, 0.2871340913845, -0.9249909529423, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 2.270350790539, 0.2707588182934, -0.4141671878116, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 1.850829193446, 0.1590928179752, -1.046895683696, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.EditRebuild3 ' MSGBOX ' Save changes to Stainless 39 in Hinge Assy.SLDASM? ' Note: Because this document is open in another window, any changes made since the last save will still appear there. Use the "Reload" command to revert Stainless 39 in Hinge Assy.SLDASM to its last saved state. swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 690 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 2096 swApp.ActiveDoc.ActiveView.FrameHeight = 669 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) boolstatus = Part.Extension.SelectByID2("", "EDGE", -1.939901357656, 0.6309861769392, 1.27972308175, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Set Part = swApp.ActivateDoc2 ("FOCE Flue Assembly.SLDASM", False, longstatus) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 4.07953346233, 0.315448582156, 0.1372523163037, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Part.TranslateComponent boolstatus = Part.Extension.SelectByID2("", "FACE", 3.837693193408, -0.1329448077709, -0.5113925801125, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.RotateComponent swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 3.933842767204, 0.525796230138, -1.016027164129, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 4.113176545518, 0.3677545036945, -1.044716677331, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set Feature = Part.AddMate2 (0, 0, False, 0, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 3.944627781784, 0.281574457758, -1.009600515367, True, 1, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 4.081571107736, 0.3407599025162, -1.046895683696, True, 1, Nothing, 0) Set Feature = Part.AddMate2 (0, 1, False, 0.0177423723405, 0, 0, 0.0254, 0.0254, 0.0254, 2.875054101797, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 3.971924284226, 0.3130362544179, -1.050625277037, True, 1, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 4.150737987321, 0.345219242841, -1.045260636927, True, 1, Nothing, 0) Set Feature = Part.AddMate2 (0, 0, False, 0.1788137030957, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 4.140559277009, 0.1295297179091, 0.1309023163037, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Coincident583", "MATE", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Coincident530", "MATE", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Coincident413", "MATE", 0, 0, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 4.102724725776, -0.03229549630547, 0.1126749232095, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 4.07311855454, -0.05134549630611, 0.1069719213277, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set Feature = Part.AddMate2 (0, 1, False, 0.01905000000049, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.133614426866, 0.1059454527853, 0.1309023163036, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Coincident537", "MATE", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Coincident538", "MATE", 0, 0, 0, False, 0, Nothing, 0) Part.EditDelete Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.122682014881, -0.05134549630591, 0.09972135884067, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.119442455748, -0.03229549630598, 0.1181342001395, True, 0, Nothing, 0) Set Feature = Part.AddMate2 (0, 1, False, 0.01904999999994, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 2.864171516953, 0.2277078922671, -0.9960956836963, False, 0, Nothing, 0) Part.RotateComponent boolstatus = Part.Extension.SelectByID2("", "FACE", 2.621921636847, 0.2230451129711, -0.9960956836962, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 2.911711731761, 0.333068787045, -0.9960956836962, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.786640534445, -0.02586835183095, -0.9960956836963, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.793761542877, 0.0003179941904676, -1.011102227489, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 4.099937987321, 0.243087343746, -1.028387908003, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 3.80286964774, 0.3677545036945, -1.019907258449, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 2.609386904403, 0.110850684463, -1.021249106689, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Control Vol. Flue Top Door.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Control Vol. Flue Top Door.SLDPRT", 1, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("Control Vol. Flue Top Door.SLDPRT", False, longstatus) '--------------------Block Recording-------------------- #IF 0 THEN Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" swApp.SetUserPreferenceToggle 119, 0 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 2109 swApp.ActiveDoc.ActiveView.FrameHeight = 439 boolstatus = Part.Extension.SelectByID2("Control Vol. Flue Top Door.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Set Part = swApp.ActivateDoc2 ("FOCE Flue Assembly.SLDASM", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 2.581227804264, -0.07289144026754, -0.8900509077989, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Part.TranslateComponent swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 2.944641242227, -0.07658732003722, -0.38566603712, False, 0, Nothing, 0) boolstatus = Part.SetComponentTransparent(False) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 2.929253459265, -0.07658732003728, -0.1533111122474, False, 0, Nothing, 0) boolstatus = Part.SetComponentTransparent(True) Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) Set Part = swApp.ActivateDoc2 ("FOCE Flue Assembly.SLDASM", False, longstatus) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Control Vol. Flue Top 1.025 meter x 1 meter.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Control Vol. Flue Top 1.025 meter x 1 meter.SLDPRT", 1, 0, "", longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("Control Vol. Flue Top 1.025 meter x 1 meter.SLDPRT", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set Part = Nothing swApp.CloseDoc "Control Vol. Flue Top 1.025 meter x 1 meter.SLDPRT" swApp.SetUserPreferenceToggle 136, 0 #END IF '--------------------UnBlock Recording------------------ swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 460 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE Flue Assembly.SLDASM", False, longstatus) Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\flume top OB.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\flume top OB.SLDPRT", 1, 0, "", longstatus, longwarnings ' MSGBOX ' A document named "flume top OB" is already opened. Do you want to show this already-opened document? swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("flume top OB.SLDPRT", False, longstatus) Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" '--------------------Block Recording-------------------- #IF 0 THEN swApp.SetUserPreferenceToggle 119, 0 Set Part = Nothing swApp.CloseDoc "flume top OB.SLDPRT" swApp.SetUserPreferenceToggle 136, 0 #END IF '--------------------UnBlock Recording------------------ swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 460 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE Flue Assembly.SLDASM", False, longstatus) boolstatus = Part.EditRebuild3 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Isometric", 7 Set Part = Nothing swApp.CloseDoc "FOCE Flue Assembly.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 920 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 0.03559689348458, 0.4308850743605, 0.8977044696137, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("FOCE Flue Assembly-2@FOCE Complete Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("FOCE Flue Assembly-2@FOCE Complete Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\FOCE Flue Assembly.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\FOCE Flue Assembly.SLDASM", 2, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 460 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE Flue Assembly.SLDASM", False, longstatus) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 Part.TranslateComponent boolstatus = Part.Extension.SelectByID2("", "FACE", 2.289095903372, 0.1474625794299, -0.6311710057195, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 2.28364954376, 0.1159147478388, -0.1224467177879, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 2.143752885752, -0.02054529242577, -0.2197850422192, False, 0, Nothing, 0) Part.RotateComponent boolstatus = Part.Extension.SelectByID2("", "EDGE", 2.94079186122, 0.3573713149564, 0.3056757373414, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 2.880683253932, -0.00680785355371, 0.3573122775201, False, 0, Nothing, 0) Part.TranslateComponent boolstatus = Part.Extension.SelectByID2("", "FACE", 3.145937775866, 0.3027006489406, 0.3285003145111, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 2.91232344859, 0.2914707264927, 0.4528344467541, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 3.144563382697, -0.1368681008572, -0.6878645648063, False, 0, Nothing, 0) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.EditRebuild3 Part.ShowNamedView2 "*Isometric", 7 Set Part = Nothing swApp.CloseDoc "FOCE Flue Assembly.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 920 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 920 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 2096 swApp.ActiveDoc.ActiveView.FrameHeight = 669 Set Part = swApp.ActivateDoc2 ("Control Vol. Flue Top Door.SLDPRT", False, longstatus) Part.ClearSelection2 True Set Part = Nothing swApp.CloseDoc "Control Vol. Flue Top Door.SLDPRT" swApp.SetUserPreferenceToggle 136, 0 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\FFS.mbari.template.SLDDRT", 2, 0.279400, 0.431800) Set Part = swApp.ActivateDoc2 ("Draw1 - Sheet1", False, longstatus) boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3370744023548, 0.07255390145136, 0, False, 0, Nothing, 0) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem2@Sheet Format1", "NOTE", 0.3432060941928, 0.04089207450608, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem2@Sheet Format1", "NOTE", 0.3442094619481, 0.04178395695524, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem5@Sheet Format1", "NOTE", 0.3418682705191, 0.02651047001332, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem6@Sheet Format1", "NOTE", 0.3417567852129, 0.01881798388929, 0, False, 0, Nothing, 0) Part.ClearSelection2 True swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 2109 swApp.ActiveDoc.ActiveView.FrameHeight = 654 swApp.SetUserPreferenceToggle 119, 0 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", -0.1184550530522, -0.002990916319646, 0.2721877432073, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Electronics Hsg Support Base Left.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Electronics Hsg Support Base Left.SLDPRT", 1, 0, "", longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("Electronics Hsg Support Base Left.SLDPRT", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ClearSelection2 True '--------------------Block Recording-------------------- #IF 0 THEN Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020344 Electronics Hsg Support Base Left.SLDPRT", 0, 2, Nothing, longstatus, longwarnings swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 2109 swApp.ActiveDoc.ActiveView.FrameHeight = 439 Set Part = swApp.ActivateDoc2 ("Draw1 - Sheet1", False, longstatus) boolstatus = Part.Extension.SelectByID2("DetailItem22@Sheet Format1", "NOTE", 0.3731598255725, 0.02376169286471, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem1@Sheet Format1", "NOTE", 0.3803741893188, 0.01654732911846, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem22@Sheet Format1", "NOTE", 0.3763426331076, 0.02461044154074, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem22@Sheet Format1", "NOTE", 0.3763426331076, 0.02461044154074, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem22@Sheet Format1", "NOTE", 0.3965004141633, 0.02397388003372, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem81@Sheet Format1", "NOTE", 0.3542751675308, 0.06068226027201, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem81@Sheet Format1", "NOTE", 0.3729476384035, 0.060470073103, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem82@Sheet Format1", "NOTE", 0.3992588473604, 0.06089444744102, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left.SLDPRT", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID2("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Part.SelectionManager.EnableContourSelection = 0 Part.ViewDisplayHiddenremoved swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 0.006236796177063, -0.02203423027913, -0.06545456140412, False, 0, Nothing, 0) Part.ViewDisplayHiddengreyed swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.EditRebuild3 Part.ClearSelection2 True Part.ShowNamedView2 "*Isometric", 7 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 460 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) boolstatus = Part.Extension.SelectByID2("", "FACE", -0.1131748460072, 0.02074801048887, 0.8858791689347, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Electronics Hsg Support Base Right.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Electronics Hsg Support Base Right.SLDPRT", 1, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("Electronics Hsg Support Base Right.SLDPRT", False, longstatus) Part.ClearSelection2 True Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" boolstatus = Part.Extension.SelectByID2("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Part.SelectionManager.EnableContourSelection = 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 0.04083728995951, 0, -0.0541228096896, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Sketch2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0) Part.EditSketch Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 0.03810000000001, 0.08545307707976, -0.04571536028584, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.0381076457335, 7.61197270549e-007, -0.08739361259124, True, 0, Nothing, 0) Part.SketchAddConstraints "sgCOLINEAR" Part.SketchAddConstraints "sgCOLINEAR" swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True Part.EditUndo 1 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 0.03810000000001, 0.08545307707976, -0.04571536028584, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.0381076457335, 7.61197270549e-007, -0.08739361259124, True, 0, Nothing, 0) Dim SkLine As Object Set SkLine = Part.SketchManager.CreateLine(0.0381, 0, 0, 0.0381, -0.08424064981632, 0) Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID2("Line8", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing, 0) Part.SketchManager.SketchTrim 0, 0.04324700078559, -0.07281474358117, 0 Part.SetPickMode boolstatus = Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing, 0) Part.SketchManager.SketchTrim 0, 0.04799930143065, -0.05765996198468, 0 ' MSGBOX ' The sketch has a problem that prevents its feature from rebuilding successfully. ' Click "Yes" to see the problem. ' Click "No" to exit the sketch and rebuild anyway. boolstatus = Part.Extension.SelectByID2("Line13", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0) ' MSGBOX ' The sketch contains an entity with unsuitable geometry. Part.SketchManager.InsertSketch True Part.ClearSelection2 True Part.SetPickMode boolstatus = Part.Extension.SelectByID2("Line13", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing, 0) Part.SketchManager.SketchTrim 0, 0.03792510714544, -0.07960292296359, 0 Part.SketchManager.InsertSketch True swApp.SetUserPreferenceToggle 119, 0 Part.ViewDisplayHiddengreyed swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 0.0156861531367, -0.02247494562432, -0.3005431870283, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Sketch7", "SKETCH", 0, 0, 0, False, 0, Nothing, 0) Part.EditSketch Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 ' MSGBOX ' The sketch segment being trimmed has a midpoint or equal length relation. Trimming the segment will delete the relation. Do you want to continue? Part.SetPickMode boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing, 0) Part.SketchManager.SketchTrim 0, -0.02030483996327, -0.02260541676047, 0 Part.SetPickMode boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing, 0) Part.SketchManager.SketchTrim 0, -0.01116715296422, -0.02229484643711, 0 Part.SetPickMode boolstatus = Part.Extension.SelectByID2("Line4", "SKETCHSEGMENT", 0.0, 0.0, 0.0, False, 0, Nothing, 0) Part.SketchManager.SketchTrim 0, -0.02850114758013, -0.02215651345517, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.0120598289439, -0.0002393091002837, -0.3022399356952, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", -0.1354055305579, -0.01049707861594, -0.1902751724632, True, 0, Nothing, 0) Dim Annotation As Object Set Annotation = Part.AddDimension2(-0.0147965, -0.0136697, -0.30226) Part.ClearSelection2 True Part.Parameter("D2@Sketch7").SystemValue = 0.0254 Part.ClearSelection2 True Part.SketchManager.InsertSketch True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.EditRebuild3 Part.EditSketch Part.ClearSelection2 True Part.EditUndo 1 boolstatus = Part.EditRebuild3 Part.ShowNamedView2 "*Isometric", 7 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 460 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", -0.1527233077003, -0.2730105737886, 0.2721877432072, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Electronics Hsg Support Clamp Left.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Electronics Hsg Support Clamp Left.SLDPRT", 1, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("Electronics Hsg Support Clamp Left.SLDPRT", False, longstatus) Part.ClearSelection2 True Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" boolstatus = Part.Extension.SelectByID2("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Part.SelectionManager.EnableContourSelection = 0 Part.ViewDisplayHiddengreyed swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.EditRebuild3 Part.ClearSelection2 True Part.ShowNamedView2 "*Isometric", 7 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 460 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", -0.1638489095744, -0.2921812500426, 0.9002349108242, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", -0.1727611742331, -0.2976129365354, 0.9023606901177, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Electronics Hsg Support Clamp Right.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Electronics Hsg Support Clamp Right.SLDPRT", 1, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("Electronics Hsg Support Clamp Right.SLDPRT", False, longstatus) Part.ClearSelection2 True Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" boolstatus = Part.Extension.SelectByID2("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Part.SelectionManager.EnableContourSelection = 0 Part.ViewDisplayHiddengreyed swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.02997763041005, 0.1763672744119, -0.3277648255802, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.EditRebuild3 Part.ClearSelection2 True Part.ShowNamedView2 "*Isometric", 7 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 1054 swApp.ActiveDoc.ActiveView.FrameHeight = 439 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 460 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", -0.2334609977016, -0.3282937345282, 0.9753190371209, False, 0, Nothing, 0) Part.EditDelete Part.EditUndo 1 boolstatus = Part.Extension.SelectByID2("", "FACE", -0.2379783137296, -0.3219070341289, 0.9714843194618, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Tiburon Power Housing Assembly-1@FOCE Complete Assembly/Tiburon Ti Pwr Hsg Standard Endcap Assembly-1@Tiburon Power Housing Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Tiburon Power Housing Assembly-1@FOCE Complete Assembly/Tiburon Ti Pwr Hsg Standard Endcap Assembly-1@Tiburon Power Housing Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\Tiburon Ti Pwr Hsg Standard Endcap Assembly.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\Tiburon Ti Pwr Hsg Standard Endcap Assembly.SLDASM", 2, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("Tiburon Ti Pwr Hsg Standard Endcap Assembly.SLDASM", False, longstatus) Part.ClearSelection2 True Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", -0.169535693224, -0.08049446461985, -0.023230280495, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Mult MinK Manifold Assembly-1@Tiburon Ti Pwr Hsg Standard Endcap Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\Mult MinK Manifold Assembly.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\Mult MinK Manifold Assembly.SLDASM", 2, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("Mult MinK Manifold Assembly.SLDASM", False, longstatus) Part.ClearSelection2 True Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 0.4649789969964, -0.0097829780998, -0.03858254667944, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.Extension.SelectByID2("", "FACE", 0.4591396848147, -0.01389416519329, -0.08703585835673, False, 0, Nothing, 0) Part.EditDelete swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.EditRebuild3 Part.ShowNamedView2 "*Isometric", 7 Set Part = Nothing swApp.CloseDoc "Mult MinK Manifold Assembly.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("Tiburon Ti Pwr Hsg Standard Endcap Assembly.SLDASM", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.EditRebuild3 Part.ShowNamedView2 "*Isometric", 7 Set Part = Nothing swApp.CloseDoc "Tiburon Ti Pwr Hsg Standard Endcap Assembly.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 460 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", -0.233829071237, -0.3214358500308, 0.974843988652, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", -0.2358241834567, -0.322256881903, 0.9738585105243, False, 0, Nothing, 0) Part.EditDelete Part.EditUndo 1 boolstatus = Part.Extension.SelectByID2("", "FACE", -0.2355939586948, -0.3257113396396, 0.973890337402, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Tiburon Power Housing Assembly-1@FOCE Complete Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\Tiburon Power Housing Assembly.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\Tiburon Power Housing Assembly.SLDASM", 2, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("Tiburon Power Housing Assembly.SLDASM", False, longstatus) Part.ClearSelection2 True Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", -0.1697813917519, -0.0759207298172, -0.03434284602923, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", -0.1697394214932, -0.07612706137871, -0.03418312910492, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.Extension.SelectByID2("", "FACE", -0.167324481321, -0.07700224279677, 0.03049930524475, False, 0, Nothing, 0) Part.EditDelete swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", -0.09953487645274, 0.118405250809, 0.01840963931608, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", -0.09813010311731, 0.1120010672541, 0.01480482791163, False, 0, Nothing, 0) Part.EditDelete swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Socket Head Cap Screw_AI-3@Tiburon Power Housing Assembly", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Socket Head Cap Screw_AI-7@Tiburon Power Housing Assembly", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Socket Head Cap Screw_AI-6@Tiburon Power Housing Assembly", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Socket Head Cap Screw_AI-5@Tiburon Power Housing Assembly", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Socket Head Cap Screw_AI-4@Tiburon Power Housing Assembly", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0) Part.EditDelete swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 0.001879327200669, 0.06796875218168, -0.1519061359505, False, 0, Nothing, 0) Part.EditDelete swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.EditRebuild3 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Isometric", 7 Set Part = Nothing swApp.CloseDoc "Tiburon Power Housing Assembly.SLDASM" swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 460 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", -0.1345432835407, -0.1860027855315, 0.09711560092251, False, 0, Nothing, 0) Part.TranslateComponent boolstatus = Part.Extension.SelectByID2("Tiburon Power Housing Assembly-1@FOCE Complete Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Tiburon Power Housing Assembly-1@FOCE Complete Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\Tiburon Power Housing Assembly.SLDASM", 2, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\ASSEMBLIES\Tiburon Power Housing Assembly.SLDASM", 2, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("Tiburon Power Housing Assembly.SLDASM", False, longstatus) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Tiburon 4K meter Pwr Housing-1@Tiburon Power Housing Assembly", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Part.ShowComponent2 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", -0.1375369649483, -0.475359394353, -0.06233369299019, False, 0, Nothing, 0) boolstatus = Part.SetComponentTransparent(True) Part.ClearSelection2 True swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 1048 swApp.ActiveDoc.ActiveView.FrameHeight = 439 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) boolstatus = Part.Extension.SelectByID2("", "FACE", 1.763727239971, -0.2133340881182, 0.5851413569849, False, 0, Nothing, 0) Set Part = swApp.ActivateDoc2 ("Draw1 - Sheet1", False, longstatus) boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.2701145933681, 0.07265017683418, 0, False, 0, Nothing, 0) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left.SLDPRT", False, longstatus) boolstatus = Part.Extension.SelectByID2("10020344 Electronics Hsg Support Base Left.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("10020344 Electronics Hsg Support Base Left.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Set Part = swApp.ActivateDoc2 ("Draw1 - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 1048 swApp.ActiveDoc.ActiveView.FrameTop = 1035 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Dim DrawView As Object Set DrawView = Part.CreateDrawViewFromModelView2("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020344 Electronics Hsg Support Base Left.SLDPRT", "*Front", 0.100667100877, 0.160294566155, 0) boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View1") Set DrawView = Part.CreateUnfoldedViewAt3(-0.01996333008807, 0.160294566155, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0.1147625044952, 0.1494771633782, 0, False, 0, Nothing, 0) Part.EditDelete Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.07247629364057, 0.14882156321, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.1586877157705, 0.1248921570674, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.1586877157705, 0.1248921570674, 0, False, 0, Nothing, 0) Set DrawView = Part.CreateUnfoldedViewAt3(0.05739748976994, 0.1681617681745, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.1586877157705, 0.1248921570674, 0, False, 0, Nothing, 0) Set DrawView = Part.CreateUnfoldedViewAt3(0.1750777199777, 0.09178434856888, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.1586877157705, 0.1248921570674, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2029407271299, 0.162589166737, -999.76095, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = True CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.1158571058082, 0.1463303534131, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.1329779421303, 0.1315984709964, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.108292, 0.138367, -3.6793e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1224930888788, 0.1464630730745, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1402775235079, 0.1390307720355, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.113866, 0.142083, -3.9388e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1205022939576, 0.1460649140903, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1220949298945, 0.1974274230566, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0974091, 0.175927, -6.30208e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1175824614065, 0.1464630730745, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1181133400522, 0.2051251634184, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0850661, 0.180705, -6.63572e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("RD3@Drawing View2", "DIMENSION", 0.09913442847034, 0.175661398592, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("RD1@Drawing View2", "DIMENSION", 0.1088229637534, 0.1379690147512, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD2@Drawing View2", "DIMENSION", 0.1147953485169, 0.141154286625, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.1159898254696, 0.1461976337517, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1190423776821, 0.1970292640723, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.118246, 0.121332, -2.48973e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1165207041153, 0.150179223594, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1328452224689, 0.1350491821931, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.123953, 0.112354, -1.86282e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.116122545131, 0.1649111060107, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1430646363976, 0.1361109394844, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.126209, 0.105851, -1.4087e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1159898254696, 0.1503119432555, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1500987784524, 0.1329256676105, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.129925, 0.101338, -1.0936e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.116122545131, 0.1487193073185, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1988068941904, 0.1395616506811, -999.79905, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.170272, 0.103332, -1.23279e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.116122545131, 0.1560188886962, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1734574388608, 0.1545589724206, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.15846, 0.109332, -1.65177e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1162552647924, 0.151771859531, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2114152620245, 0.133058387272, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.175846, 0.100011, -1.00092e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1159898254696, 0.1544262527592, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2311904915748, 0.1971619837337, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.166025, 0.0988167, -9.17509e-017) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2341103241259, 0.1499137842712, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1159898254696, 0.158540562263, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.184871, 0.0940388, -5.83869e-017) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1755584189702, 0.08070964068976, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.2390824037903, 0.1864943518128, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.2390824037903, 0.1864943518128, 0, False, 0, Nothing, 0) Set DrawView = Part.CreateUnfoldedViewAt3(0.1867725121621, 0.2486893829755, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.2390824037903, 0.1864943518128, 0, False, 0, Nothing, 0) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1284497225802, 0.2421721306828, -999.6695099875, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1332033868429, 0.2479953694046, -999.6695099875, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.12227, 0.245975, -5.56011e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1278555145473, 0.252273667241, -999.6695099875, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1277366729408, 0.2526301920607, -999.6695099875, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.108484, 0.249065, -5.77587e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDelete boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.Extension.SelectByID2("RD1@Drawing View5", "DIMENSION", 0.1248844743832, 0.2450243292474, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View2") swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("RD13@Drawing View2", "DIMENSION", 0.1962344244861, 0.1141826581757, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD12@Drawing View2", "DIMENSION", 0.1753382086451, 0.1186327782159, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD11@Drawing View2", "DIMENSION", 0.1871407009256, 0.119987162576, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD9@Drawing View2", "DIMENSION", 0.1842384487255, 0.1238568321761, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD10@Drawing View2", "DIMENSION", 0.1716620225249, 0.1302417870164, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("RD5@Drawing View2", "DIMENSION", 0.1313849210939, 0.141196312257, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View2", "DIMENSION", 0.1159901288945, 0.1581962486668, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD2@Drawing View2", "DIMENSION", 0.1249643442525, 0.1621361480922, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View2", "DIMENSION", 0.1029300919102, 0.157466637662, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View2", "DIMENSION", 0.1029300919102, 0.1573207154611, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 1, 1, 12, 12,"2x ", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("RD1@Drawing View2", "DIMENSION", 0.1058707755934, 0.1597731251969, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD5@Drawing View2", "DIMENSION", 0.1188913483259, 0.1372539379301, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD6@Drawing View2", "DIMENSION", 0.1355406052624, 0.132771445678, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD7@Drawing View2", "DIMENSION", 0.1383154814185, 0.1256208032757, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD8@Drawing View2", "DIMENSION", 0.1429046996767, 0.1216719410536, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD8@Drawing View2", "DIMENSION", 0.1433316037007, 0.1208181330055, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD10@Drawing View2", "DIMENSION", 0.1556050943911, 0.1135607645973, 0, False, 0, Nothing, 0) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID2("RD10@Drawing View2", "DIMENSION", 0.1567790804572, 0.1153751066994, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD11@Drawing View2", "DIMENSION", 0.1879430742102, 0.1074773822551, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD12@Drawing View2", "DIMENSION", 0.1785511856819, 0.1003267398528, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD13@Drawing View2", "DIMENSION", 0.1789780897059, 0.09061467330651, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD3@Drawing View2", "DIMENSION", 0.1099263638216, 0.1959532412321, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD4@Drawing View2", "DIMENSION", 0.09754614712514, 0.2017164455563, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2168842684436, 0.1855112033963, -999.76095, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.203039, 0.206686, -6.63757e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("RD4@Drawing View2", "DIMENSION", 0.1067057455555, 0.1885361681288, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"3", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"3x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"3x ", "", 1,"", "", 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2129799710561, 0.04638498203757, -999.6695100125, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2141462707398, 0.04390659520979, -999.6695100125, True, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.24607372458, 0.0565901042696, -999.6695100125, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.2233308807486, 0.0565901042696, -999.6695100125, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.23339, 0.0638795, -5.17159e-016) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 2, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.2102100093074, 0.04361502028887, -999.6695100125, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.2453447872777, 0.04405238267025, -999.6695100125, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.22785, 0.038804, -3.42058e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1849887786483, 0.03822088425892, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2731901922251, 0.08822598319588, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View2") Part.ClearSelection2 True Set SkLine = Part.SketchManager.CreateCenterLine(0.1964335702226, -0.0914399875, 0, -0.1879446666987, -0.0914399875, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") Dim ExcludedComponents As Variant Set DrawView = Part.CreateSectionViewAt4(0.1867725121621, 0.0331816047355, 0, "A", 0, ExcludedComponents) boolstatus = Part.ActivateView("Drawing View6") Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1912059494712, 0.06855400224905, -999.7139600125, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View6") Set SkLine = Part.SketchManager.CreateCenterLine(0.1216074361546, -0.01380308495608, 0, 0.112722441485, -0.004728567353468, 0) Set SkLine = Part.SketchManager.CreateCenterLine(0.1171649388198, -0.009265826154775, 0, 0.1025380203491, -0.02358725880131, 0) Set SkLine = Part.SketchManager.CreateCenterLine(0.1171649388198, -0.009265826154775, 0, 0.1497226424391, 0.02261190396611, 0) Set SkLine = Part.SketchManager.CreateCenterLine(0.1071639766388, 0.01648997867863, 0, 0.1458197115339, -0.02299030913132, 0) Set SkLine = Part.SketchManager.CreateCenterLine(0.1071639766388, 0.01648997867863, 0, 0.1008855549107, 0.02290232337966, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") Dim SkPoint As Object Set SkPoint = Part.SketchManager.CreatePoint(0.1458197115339, 0.01879048647522, 0) Set SkPoint = Part.SketchManager.CreatePoint(0.1071720619429, -0.01905, 0) ' MSGBOX ' Sketch points cannot be created at the same location as an existing point. Set SkPoint = Part.SketchManager.CreatePoint(0.1419616964678, -0.01905, 0) boolstatus = Part.ActivateView("Drawing View4") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("Line7", "SKETCHSEGMENT", 0.2240965735102, 0.0370776109046, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.2455289886306, 0.03957353772176, -999.6791527046, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.225182, 0.0480922, -2.46658e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("D1@Sketch13@10020344 Electronics Hsg Support Base Left.SLDDRW", "DIMENSION", 0.2262126853829, 0.04760391098903, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("Line6", "SKETCHSEGMENT", 0.234026021528, 0.03827131503789, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.2456375071881, 0.03941075988541, -999.6791527046, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.246723, 0.0464102, -2.34912e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2319641689341, 0.0273109407162, -999.6791527046, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2341887993644, 0.02839612629191, -999.6791527046, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.250358, 0.0265513, -9.62382e-017) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View6") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2264134991641, 0.02778074887734, -999.6791527046, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2229525455378, 0.03043826684036, -999.6791527046, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.221778, 0.00948714, -7.164e-017) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View6") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View2") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("DetailItem90@Drawing View3", "CENTERMARKSYM", 0.05767564384455, 0.1573875212747, 0, False, 0, Nothing, 0) ' MSGBOX ' Select one or two elements and then the desired text location. Set Annotation = Part.AddDimension2(0.0576756, 0.157388, -2.94485e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.0566143626795, 0.1577226626882, -999.65427, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.034673, 0.16734, -3.63986e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.ActivateView("Drawing View5") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.132685426551, 0.2496878650117, -999.6695099875, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.148187, 0.263371, -3.6791e-016) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View5") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View5") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", " 2", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", " 2.", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", " 2.0", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("RD1@Drawing View2", "DIMENSION", 0.1005088041303, 0.1605027121368, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD2@Drawing View2", "DIMENSION", 0.1210352692854, 0.1629658879554, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("RD1@Drawing View4", "DIMENSION", 0.2333330253805, 0.08538623714895, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.2020472862352, 0.08291631037432, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD2@Drawing View4", "DIMENSION", 0.2292164807561, 0.06480351402703, 0, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.Extension.SelectByID2("RD1@Drawing View4", "DIMENSION", 0.2339505070741, 0.08867947284846, 0, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1281553102275, 0.07509487558101, -999.7139600125, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.117929, 0.077359, -5.59104e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1275378285338, 0.07221329434394, -999.7139600125, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2456826592536, 0.07447739388735, -999.6695100125, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.183934, 0.0639802, -4.6568e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("RD13@Drawing View2", "DIMENSION", 0.1971074326859, 0.09814752548454, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View4") Part.EditDelete boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.1837286626566, 0.08909112731089, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1841403171191, 0.08847364561724, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View4", "DIMENSION", 0.1172464669729, 0.08065221083091, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.1792004635698, 0.04524992706121, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("Drawing View6", "DRAWINGVIEW", 0.1722023377084, 0.04504409982999, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View6", "DIMENSION", 0.2518574761902, 0.03187115703196, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D2@Sketch13@10020344 Electronics Hsg Support Base Left.SLDDRW", "DIMENSION", 0.2471234498722, 0.05224805292266, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D2@Sketch13@10020344 Electronics Hsg Support Base Left.SLDDRW", "DIMENSION", 0.2592672565141, 0.04154503689926, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.05076427128906, 0.1541325323692, -999.65427, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem90@Drawing View3", "CENTERMARKSYM", 0.05817405161295, 0.1566024591508, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0373855, 0.14734, -1.04778e-015) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") Part.ClearSelection2 True Set SkLine = Part.SketchManager.CreateCenterLine(-0.1325349982686, 0, 0, -0.06921350379697, 0, 0) Set SkLine = Part.SketchManager.CreateCenterLine(-0.10033, 0.02498885701418, 0, -0.10033, -0.02576501260048, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.05433779876157, 0.1667958649389, -999.60347, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.05839843788465, 0.1578850179744, -999.65427, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.069114, 0.162679, -3.22542e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True Part.ViewZoomtofit2 Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020344 Electronics Hsg Support Base Left.SLDDRW", 0, 2, Nothing, longstatus, longwarnings swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 1048 swApp.ActiveDoc.ActiveView.FrameTop = 1035 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 1054 swApp.ActiveDoc.ActiveView.FrameHeight = 429 Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left.SLDPRT", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 Part.ViewZoomtofit2 Part.ViewDisplayShadedWithEdges swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("10020344 Electronics Hsg Support Base Left.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left - Sheet1", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set DrawView = Part.CreateDrawViewFromModelView2("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020344 Electronics Hsg Support Base Left.SLDPRT", "Current Model View", 0.3490884050229, 0.1747872177415, 0) boolstatus = Part.ActivateView("Drawing View7") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2620519269887, 0.2194126194826, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.Extension.SelectByID2("Drawing View7", "DRAWINGVIEW", 0.3494866058087, 0.148652430352, 0, False, 0, Nothing, 0) boolstatus = Part.SetUserPreferenceToggle(6, False) Part.ViewZoomtofit2 Part.ViewZoomtofit2 Part.ViewZoomtofit2 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.362712, 0.1059755278823, 0, False, 0, Nothing, 0) Part.ViewZoomtofit2 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left.SLDPRT", False, longstatus) Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 900 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", -0.09792212491021, -0.03600672613733, 0.8985791689347, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Electronics Hsg Support Base Right.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Electronics Hsg Support Base Right.SLDPRT", 1, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 1054 swApp.ActiveDoc.ActiveView.FrameTop = 1011 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("Electronics Hsg Support Base Right.SLDPRT", False, longstatus) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 1054 swApp.ActiveDoc.ActiveView.FrameTop = 1011 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 1054 swApp.ActiveDoc.ActiveView.FrameHeight = 439 Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020345 Electronics Hsg Support Base Right.SLDPRT", 0, 2, Nothing, longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left - Sheet1", False, longstatus) Part.ClearSelection2 True Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020345 Electronics Hsg Support Base Right.SLDDRW", 0, 0, Nothing, longstatus, longwarnings Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020345 Electronics Hsg Support Base Right.SLDDRW", 3, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020345 Electronics Hsg Support Base Right.SLDDRW", 3, 0, "", longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("10020345 Electronics Hsg Support Base Right - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3501480570523, 0.07921898271588, 0, False, 0, Nothing, 0) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("DetailItem1@Sheet Format1", "NOTE", 0.3865661160918, 0.01640743771227, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem1@Sheet Format1", "NOTE", 0.3865661160918, 0.01640743771227, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem22@Sheet Format1", "NOTE", 0.4062689533764, 0.02309489708261, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem81@Sheet Format1", "NOTE", 0.3718249422109, 0.06048714302432, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.3785843097465, 0.07508450057464, 0, False, 0, Nothing, 0) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.ViewZoomtofit2 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 1054 swApp.ActiveDoc.ActiveView.FrameHeight = 316 Set Part = swApp.ActivateDoc2 ("10020345 Electronics Hsg Support Base Right.SLDPRT", False, longstatus) boolstatus = Part.Extension.SelectByID2("10020345 Electronics Hsg Support Base Right.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("10020345 Electronics Hsg Support Base Right.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Set Part = swApp.ActivateDoc2 ("10020345 Electronics Hsg Support Base Right - Sheet1", False, longstatus) Set DrawView = Part.CreateDrawViewFromModelView2("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020345 Electronics Hsg Support Base Right.SLDPRT", "*Front", 0.3248260015835, 0.07969764557157, 0) boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View8") Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("Drawing View3", "DRAWINGVIEW", 0.06492866707925, 0.1889781804834, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.3308422990526, 0.08855157668916, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.3144937821559, 0.07587313501415, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.3144937821559, 0.07587313501415, 0, False, 0, Nothing, 0) Set DrawView = Part.CreateUnfoldedViewAt3(0.1903785110215, -0.05976521285359, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.3144937821559, 0.07587313501415, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View9", "DRAWINGVIEW", 0.2197391127952, -0.07626816508604, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View9") Set DrawView = Part.CreateUnfoldedViewAt3(0.1903785110215, -0.1129689173032, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View9", "DRAWINGVIEW", 0.2197391127952, -0.07626816508604, 0, False, 0, Nothing, 0) Set DrawView = Part.CreateUnfoldedViewAt3(0.1903785110215, -0.007871308681348, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View9", "DRAWINGVIEW", 0.2197391127952, -0.07626816508604, 0, False, 0, Nothing, 0) Set DrawView = Part.CreateUnfoldedViewAt3(0.2751238843229, -0.05976521285359, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View9", "DRAWINGVIEW", 0.2197391127952, -0.07626816508604, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.106967710528, -0.05257949774588, 0, False, 0, Nothing, 0) Part.EditDelete swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.ActivateView("Drawing View11") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("DetailItem106@Drawing View11", "CENTERMARKSYM", 0.1361836500111, -0.008776523453278, 0, False, 0, Nothing, 0) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.ActivateView("Drawing View11") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1367191668672, -0.008668154025468, -999.6695099875, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Set Annotation = Part.AddDimension2(0.0769465, -0.0199225, -7.27534e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 swApp.SetUserPreferenceToggle 119, 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", " ", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", " 2", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", " 2.", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", " 2.0", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.1318125791174, -0.01432308168782, -999.6695099875, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1366709014984, -0.00850569653145, -999.6695099875, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Set Annotation = Part.AddDimension2(0.112523, -0.011199, -1.9134e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View12") boolstatus = Part.Extension.SelectByID2("Drawing View12", "DRAWINGVIEW", 0.2866542249953, -0.04199232480775, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.2492501247159, -0.08186428646516, -999.76095, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2466567588904, -0.03048124795962, -999.76095, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set Annotation = Part.AddDimension2(0.265222, -0.0535836, -8.72625e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View12") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2445566692423, -0.08126038520716, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.2487501199605, -0.0225520751515, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.277222, -0.0477128, -9.13621e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"3", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"3x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"3x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2437179790986, -0.08209907535082, -999.76095, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2250121408839, -0.08855611823718, -999.76095, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set Annotation = Part.AddDimension2(0.259222, -0.0861736, -6.04794e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2378838827679, -0.08178032817255, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2287835741937, -0.09715671162562, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.274285, -0.0896254, -5.80689e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View12") boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View12") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.3891092435383, -0.08962428519192, -999.65427, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Set Annotation = Part.AddDimension2(0.412461, -0.0820244, -2.28373e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View12") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.3874375683508, -0.09132642314515, -999.65427, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.3832006944467, -0.08170369258341, -999.60347, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Set Annotation = Part.AddDimension2(0.36579, -0.0859558, -5.34825e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View12") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View12") swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.3944768257571, -0.09566560069081, -999.65427, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.3889703484502, -0.09100344990438, -999.65427, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.391173, -0.100989, -4.48601e-017) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2213452197825, -0.06169336594796, -999.76095, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.202162, -0.0417276, -8.28321e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1782817979862, -0.071871992918, -999.76095, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.ConnectionLines = 0 End If boolstatus = Part.ActivateView("Drawing View9") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.Extension.SelectByID2("Drawing View10", "DRAWINGVIEW", 0.179847740597, -0.124331070372, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.2489862475203, -0.08167661297699, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2469583620434, -0.03097947605366, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.2458, -0.106595, -6.08876e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2320823943769, -0.09427329020922, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2491970406696, -0.07902569623933, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.241106, -0.118595, -3.64701e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("DetailItem102@Drawing View9", "CENTERMARKSYM", 0.2252365358598, -0.0924062378794, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2498193914439, -0.07871452085219, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.235816, -0.130595, -2.80905e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2491970406696, -0.07560276698078, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2152789234713, -0.09520681637064, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.235816, -0.136595, -2.39008e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2491970406696, -0.07249101310937, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2022095572114, -0.07217983772223, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.216835, -0.148595, -1.55212e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2491970406696, -0.06875690846369, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1673579138516, -0.09271741327352, -999.79905, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.201276, -0.160595, -7.14163e-017) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2491970406696, -0.07373571465794, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.157089126076, -0.09427329020922, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.197231, -0.166595, -2.95185e-017) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2491970406696, -0.07809217007791, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1377962520733, -0.03110468661967, -999.76095, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Set Annotation = Part.AddDimension2(0.183615, -0.166595, -1.96266e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2486609543481, -0.07788413464634, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1315115691173, -0.09215445636001, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.183615, -0.154595, -2.80062e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.Extension.SelectByID2("RD12@Drawing View9", "DIMENSION", 0.1822873649822, -0.1674884802833, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.Extension.SelectByID2("RD13@Drawing View9", "DIMENSION", 0.1812917611417, -0.1681522161769, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("RD10@Drawing View9", "DIMENSION", 0.2168016314525, -0.1498994791013, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("RD8@Drawing View9", "DIMENSION", 0.2373774441559, -0.1306511381852, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2494079090761, -0.1826342949859, -999.7139600125, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.259222, -0.182634, -5.73233e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1935718172642, -0.1885507020653, -999.7139600125, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.190244, -0.204277, -4.22105e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("RD14@Drawing View9", "DIMENSION", 0.1854367575301, -0.1541615859093, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") Part.EditDelete boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("RD6@Drawing View9", "DIMENSION", 0.2462886127163, -0.1081072913318, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD4@Drawing View9", "DIMENSION", 0.2742202334208, -0.08898904609233, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD7@Drawing View9", "DIMENSION", 0.2399158643031, -0.119768065024, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.Extension.SelectByID2("Drawing View10", "DRAWINGVIEW", 0.222310594525, -0.1930163384695, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("RD7@Drawing View9", "DIMENSION", 0.2405303155037, -0.119462650074, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD8@Drawing View9", "DIMENSION", 0.2351318796581, -0.1316091307265, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD8@Drawing View9", "DIMENSION", 0.2337822706968, -0.1251984881599, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD9@Drawing View9", "DIMENSION", 0.2341196729371, -0.1380197732931, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD9@Drawing View9", "DIMENSION", 0.2341196729371, -0.1373449688124, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD10@Drawing View9", "DIMENSION", 0.2121885273146, -0.1488166449842, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD11@Drawing View9", "DIMENSION", 0.2000420466621, -0.1619753323577, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD12@Drawing View9", "DIMENSION", 0.1990298399411, -0.172097399568, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD13@Drawing View9", "DIMENSION", 0.1821597279238, -0.1670363659629, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.Extension.SelectByID2("RD2@Drawing View10", "DIMENSION", 0.1895825772114, -0.2419396633197, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View9") Part.ClearSelection2 True Set SkLine = Part.SketchManager.CreateCenterLine(0.1914318899989, -0.0914399875, 0, -0.1865791493178, -0.0914399875, 0) boolstatus = Part.ActivateView("Drawing View11") swApp.SetUserPreferenceToggle 119, 0 Set DrawView = Part.CreateSectionViewAt4(0.1903785110215, -0.1962572132756, 0, "B", 0, ExcludedComponents) boolstatus = Part.ActivateView("Drawing View13") Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.Extension.SelectByID2("Drawing View10", "DRAWINGVIEW", 0.2019643616444, -0.2306359356287, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.Extension.SelectByID2("Drawing View13", "DRAWINGVIEW", 0.2115875191427, -0.2077066838118, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 Set SkLine = Part.SketchManager.CreateCenterLine(0.6001440840685, -0.8440676809755, 0, 0.6441059949588, -0.9014593589369, 0) boolstatus = Part.ActivateView("Drawing View13") Set SkLine = Part.SketchManager.CreateCenterLine(-0.1210274700131, 0.01905, 0, -0.12530415542, 0.02463315475013, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View13") Set SkLine = Part.SketchManager.CreateCenterLine(-0.089843027325, 0.01440675471053, 0, -0.1387402175591, -0.02304839551705, 0) Set SkLine = Part.SketchManager.CreateCenterLine(0.10033, 0.02184157737506, 0, 0.10033, -0.02304839551705, 0) Set SkLine = Part.SketchManager.CreateCenterLine(0.06964414391295, -0.0006034090709941, 0, 0.1298695719885, -0.0006034090709941, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateView("Drawing View13") ' MSGBOX ' Sketch points cannot be created at the same location as an existing point. Set SkPoint = Part.SketchManager.CreatePoint(-0.09184294597732, -0.01905, 0) Set SkPoint = Part.SketchManager.CreatePoint(-0.09403440842443, 0.01119616514519, 0) Set SkPoint = Part.SketchManager.CreatePoint(-0.1335203664828, -0.01905, 0) boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View13") Part.ClearSelection2 True Set SkLine = Part.SketchManager.CreateCenterLine(0.127677337902, 0, 0, 0.07283853386186, 0, 0) boolstatus = Part.Extension.SelectByID2("Line7", "SKETCHSEGMENT", 0.2310627927482, -0.2175964517055, -999.6824523277, False, 0, Nothing, 0) Part.EditDelete swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.1318108171899, -0.2107572373344, -999.679150241, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point1", "SKETCHPOINT", -0.1210274700131, 0.01905, 0, True, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.1313942898937, -0.2110349221985, -999.679150241, False, 0, Nothing, 0) ' MSGBOX ' Select one or two elements and then the desired text location. Set Annotation = Part.AddDimension2(0.131394, -0.211035, -999.679) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.1315331323258, -0.2107572373344, -999.679150241, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point2", "SKETCHPOINT", -0.12530415542, 0.02463315475013, 0, True, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View10") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0.1493905868449, -0.2102026053233, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.1314847880918, -0.21099959934, -999.679150241, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.134726, -0.203986, -2.65283e-016) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.Extension.SelectByID2("Line3", "SKETCHSEGMENT", 0.1595482641114, -0.2132259404423, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.1315292517223, -0.210960252116, -999.679150241, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.161096, -0.200387, -2.40483e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("D1@Sketch27@10020345 Electronics Hsg Support Base Right.SLDDRW", "DIMENSION", 0.1352676374723, -0.2044652788867, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D1@Sketch27@10020345 Electronics Hsg Support Base Right.SLDDRW", "DIMENSION", 0.1359473439723, -0.2043897559423, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D2@Sketch27@10020345 Electronics Hsg Support Base Right.SLDDRW", "DIMENSION", 0.1621160442226, -0.2002359939978, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View13") swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1605332938781, -0.221376271821, -999.679150241, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1558699280021, -0.2222319352845, -999.679150241, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.153945, -0.237292, -7.02071e-017) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1488107044283, -0.2227881165358, -999.679150241, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.146329, -0.221633, -1.79551e-016) Part.ClearSelection2 True Part.EditDelete boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1474844260599, -0.2211623559552, -999.679150241, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1489390539478, -0.2226169838431, -999.679150241, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.142308, -0.237292, -7.02071e-017) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("RD2@Drawing View13", "DIMENSION", 0.1435503337225, -0.2383485911835, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View13", "DIMENSION", 0.1584313402772, -0.2383485911835, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View13", "DIMENSION", 0.1547559109475, -0.2361971203563, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D1@Sketch27@10020345 Electronics Hsg Support Base Right.SLDDRW", "DIMENSION", 0.1359305412096, -0.2029389671527, 0, False, 0, Nothing, 0) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.Extension.SelectByID2("RD2@Drawing View11", "DIMENSION", 0.1115809798386, -0.0108920216666, 0, False, 0, Nothing, 0) Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID2("RD1@Drawing View11", "DIMENSION", 0.07479175636521, -0.01985887112367, 0, False, 0, Nothing, 0) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.Extension.SelectByID2("Drawing View5", "DRAWINGVIEW", 0.2489003324154, 0.2443175927051, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.Extension.SelectByID2("Drawing View11", "DRAWINGVIEW", 0.2533624076884, -0.01745748998038, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.2489003324154, 0.1853190418726, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("RD1@Drawing View4", "DIMENSION", 0.1061139236779, 0.07723766303653, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1745324111979, 0.09260703342147, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("Drawing View6", "DRAWINGVIEW", 0.1700703359249, 0.04996942525679, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3748300123436, 0.1263204910401, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.Extension.SelectByID2("Drawing View7", "DRAWINGVIEW", 0.400610891699, 0.1411940752835, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("Drawing View9", "DRAWINGVIEW", 0.1289200861846, -0.1002537756025, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.Extension.SelectByID2("Drawing View10", "DRAWINGVIEW", 0.1125591435167, -0.1587565402936, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.Extension.SelectByID2("Drawing View13", "DRAWINGVIEW", 0.1130549296582, -0.2147803742774, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.0545521649671, 0.06732194020753, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.Extension.SelectByID2("RD1@Drawing View11", "DIMENSION", 0.08526714435325, 0.2207080092789, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View11", "DRAWINGVIEW", 0.146338047817, 0.2407917292099, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.1278938152273, 0.1336102442718, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("Drawing View9", "DRAWINGVIEW", 0.1235901609563, 0.1354546675308, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.Extension.SelectByID2("RD1@Drawing View11", "DIMENSION", 0.1176470193441, 0.259031025882, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2721850949349, 0.1383506035964, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.0701469774554, 0.1971010307965, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.Extension.SelectByID2("Drawing View10", "DRAWINGVIEW", 0.1843898818331, 0.04778072760977, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.Extension.SelectByID2("Drawing View13", "DRAWINGVIEW", 0.1496342940225, 0.004979864842893, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.Extension.SelectByID2("RD1@Drawing View11", "DIMENSION", 0.1119824072275, 0.2556706324774, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("Drawing View9", "DRAWINGVIEW", 0.1950096447753, 0.2241331546492, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.Extension.SelectByID2("Drawing View11", "DRAWINGVIEW", 0.1615413009576, 0.2543833884845, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View11", "DIMENSION", 0.04536753059037, 0.2241331546492, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.Extension.SelectByID2("Drawing View10", "DRAWINGVIEW", 0.149021976678, 0.08270373704943, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.Extension.SelectByID2("Drawing View13", "DRAWINGVIEW", 0.1512211159876, 0.04944175499144, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.244134751819, 0.05713874257511, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0.1282336109483, 0.01406190461057, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Point2", "SKETCHPOINT", 1.024296133852, -0.610234470572, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.Extension.SelectByID2("D1@Sketch27@10020345 Electronics Hsg Support Base Right.SLDDRW", "DIMENSION", 0.09880168023282, 0.06597012511146, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View12") boolstatus = Part.Extension.SelectByID2("Drawing View12", "DRAWINGVIEW", 0.3774080662763, 0.1947940204138, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD2@Drawing View12", "DIMENSION", 0.2524295365243, 0.1689248086103, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View12", "DRAWINGVIEW", 0.2648601967416, 0.1978176945207, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3404520494142, 0.187738780831, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.2285448380256, 0.3819651632938, 0, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.Extension.SelectByID2("Drawing View7", "DRAWINGVIEW", 0.2263006514801, 0.3633704747739, 0, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("Drawing View3", "DRAWINGVIEW", 0.06824579906055, 0.4204369326455, 0, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.2134767283629, 0.3518289439684, 0, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.Extension.SelectByID2("Drawing View5", "DRAWINGVIEW", 0.2240564649346, 0.3229751169547, 0, False, 0, Nothing, 0) Part.EditDelete swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("Drawing View9", "DRAWINGVIEW", 0.1093303036699, 0.2209778628011, 0, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020345 Electronics Hsg Support Base Right.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020345 Electronics Hsg Support Base Right.SLDPRT", 1, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 674 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("10020345 Electronics Hsg Support Base Right.SLDPRT", False, longstatus) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.SetUserPreferenceToggle(4, False) boolstatus = Part.SetUserPreferenceToggle(5, False) boolstatus = Part.SetUserPreferenceToggle(6, False) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 674 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 1054 swApp.ActiveDoc.ActiveView.FrameHeight = 324 boolstatus = Part.Extension.SelectByID2("10020345 Electronics Hsg Support Base Right.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Set Part = swApp.ActivateDoc2 ("10020345 Electronics Hsg Support Base Right - Sheet1", False, longstatus) Set DrawView = Part.CreateDrawViewFromModelView2("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020345 Electronics Hsg Support Base Right.SLDPRT", "Current Model View", 0.365477093119, 0.1450366759653, 0) boolstatus = Part.ActivateView("Drawing View14") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 345 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID2("Drawing View14", "DRAWINGVIEW", 0.3416691320413, 0.08527553826556, 0, False, 0, Nothing, 0) Part.ViewZoomtofit2 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2783413805914, 0.105014058198, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.08927146173842, 0.2279742392632, -999.76095, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0595753, 0.218303, -8.38962e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"4", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"4x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"4x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.ViewZoomtofit2 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 345 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 1054 swApp.ActiveDoc.ActiveView.FrameHeight = 316 Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 674 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1340017052298, 0.2209123392858, -999.76095, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.159049, 0.22693, -1.69272e-015) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"4", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"4x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"4x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True Part.ViewZoomtofit2 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 674 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 1054 swApp.ActiveDoc.ActiveView.FrameHeight = 316 Set Part = swApp.ActivateDoc2 ("10020345 Electronics Hsg Support Base Right.SLDPRT", False, longstatus) Part.ClearSelection2 True Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left - Sheet1", False, longstatus) Set Part = swApp.ActivateDoc2 ("Electronics Hsg Support Clamp Right.SLDPRT", False, longstatus) Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020346 Electronics Hsg Support Clamp Right.SLDPRT", 0, 2, Nothing, longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("Electronics Hsg Support Clamp Left.SLDPRT", False, longstatus) Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020347 Electronics Hsg Support Clamp Left.SLDPRT", 0, 2, Nothing, longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left - Sheet1", False, longstatus) Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020347 Electronics Hsg Support Clamp Left.SLDDRW", 0, 0, Nothing, longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("10020345 Electronics Hsg Support Base Right - Sheet1", False, longstatus) Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020346 Electronics Hsg Support Clamp Right.SLDDRW", 0, 0, Nothing, longstatus, longwarnings Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020346 Electronics Hsg Support Clamp Right.SLDDRW", 3, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020346 Electronics Hsg Support Clamp Right.SLDDRW", 3, 0, "", longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020347 Electronics Hsg Support Clamp Left.SLDDRW", 3, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020347 Electronics Hsg Support Clamp Left.SLDDRW", 3, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("10020347 Electronics Hsg Support Clamp Left - Sheet1", False, longstatus) boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.Extension.SelectByID2("Drawing View5", "DRAWINGVIEW", 0.170297540412, 0.2388275912737, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.1682035499208, 0.2127690429378, 0, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("Drawing View3", "DRAWINGVIEW", 0.06606334706815, 0.1988091063292, 0, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1409816735341, 0.08945626956216, 0, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("Drawing View6", "DRAWINGVIEW", 0.1640155689382, 0.0487397877872, 0, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.Extension.SelectByID2("Drawing View7", "DRAWINGVIEW", 0.2819770332805, 0.13482606354, 0, True, 0, Nothing, 0) Part.EditDelete boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3429354231379, 0.1050448654417, 0, False, 0, Nothing, 0) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("DetailItem81@Sheet Format1", "NOTE", 0.3615590637759, 0.06011837176579, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem22@Sheet Format1", "NOTE", 0.3946312366301, 0.02311285796536, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem22@Sheet Format1", "NOTE", 0.3966380432353, 0.02271149664431, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem1@Sheet Format1", "NOTE", 0.3870053715302, 0.01701216588546, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.3195766695945, 0.1094055419902, 0, False, 0, Nothing, 0) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.ViewZoomtofit2 swApp.ActiveDoc.ActiveView.FrameLeft = 1054 swApp.ActiveDoc.ActiveView.FrameTop = 674 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right.SLDPRT", False, longstatus) swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 1054 swApp.ActiveDoc.ActiveView.FrameTop = 674 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 703 swApp.ActiveDoc.ActiveView.FrameHeight = 439 Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 920 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3254688559958, 0.08478774992653, 0, False, 0, Nothing, 0) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("DetailItem1@Sheet Format1", "NOTE", 0.3873249231809, 0.01576529763186, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem81@Sheet Format1", "NOTE", 0.3659198770856, 0.06091048576003, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem22@Sheet Format1", "NOTE", 0.3977355592363, 0.0232570637652, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.3570659716553, 0.07569942669857, 0, False, 0, Nothing, 0) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.ViewZoomtofit2 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 920 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 703 swApp.ActiveDoc.ActiveView.FrameHeight = 429 Set Part = swApp.ActivateDoc2 ("10020347 Electronics Hsg Support Clamp Left.SLDPRT", False, longstatus) boolstatus = Part.Extension.SelectByID2("10020347 Electronics Hsg Support Clamp Left.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Set Part = swApp.ActivateDoc2 ("10020347 Electronics Hsg Support Clamp Left - Sheet1", False, longstatus) Set DrawView = Part.CreateDrawViewFromModelView2("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020347 Electronics Hsg Support Clamp Left.SLDPRT", "*Right", 0.3504927058226, 0.09714926576741, 0) boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 900 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set DrawView = Part.CreateUnfoldedViewAt3(0.3789781451093, 0.09714926576741, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0.3119679554737, 0.1086288526642, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0.3119679554737, 0.1086288526642, 0, False, 0, Nothing, 0) Set DrawView = Part.CreateUnfoldedViewAt3(0.3084730525023, 0.1541050392727, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0.3119679554737, 0.1086288526642, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View3", "DRAWINGVIEW", 0.2790081505006, 0.154939464715, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View3") Set DrawView = Part.CreateUnfoldedViewAt3(0.3084730525023, 0.19916401316, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View3", "DRAWINGVIEW", 0.2790081505006, 0.154939464715, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View1") boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0.2977827229536, 0.1123837671548, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("Drawing View3", "DRAWINGVIEW", 0.2998687865595, 0.1457607848491, 0, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.3720465873235, 0.0881854293264, 0, True, 0, Nothing, 0) Part.EditDelete boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.3036237010501, 0.1732968244469, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1304804217609, 0.147846848455, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2080819879001, 0.1044567254524, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") Part.ClearSelection2 True Set SkLine = Part.SketchManager.CreateCenterLine(0.1885534219411, 0.1019955307879, 0, 0.1885534219411, -0.1286380651013, 0) boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 Set DrawView = Part.CreateSectionViewAt4(0.259944822285, 0.1860316802635, 0, "B", 0, ExcludedComponents) boolstatus = Part.ActivateView("Drawing View5") Part.EditDelete boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1527028031069, 0.2069788552905, -1499.65095, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = True CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.ActivateView("Drawing View4") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1209691997712, 0.1946867875952, -1499.65095, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0961342, 0.203341, -7.79523e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1297492481249, 0.2057245626685, -1499.65095, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.107297, 0.214505, -8.57475e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1747783532535, 0.1585631600931, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1747783532535, 0.1585631600931, 0, False, 0, Nothing, 0) Set DrawView = Part.CreateUnfoldedViewAt3(0.1579600321416, 0.2173894840633, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1747783532535, 0.1585631600931, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1135688733016, 0.2141283232357, -1499.758265, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.103828, 0.216888, -8.74117e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1146977366613, 0.2219049374919, -1499.723382031, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1150740244479, 0.2195217815101, -1499.715560881, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.109179, 0.219522, -8.9251e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("DetailItem90@Drawing View6", "CENTERMARKSYM", 0.1178334682162, 0.2178912011121, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("DetailItem90@Drawing View6", "CENTERMARKSYM", 0.1178334682162, 0.2181420596365, 0, False, 0, Nothing, 0) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View6") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1177017285559, 0.2179121526118, -1499.739215, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Set Annotation = Part.AddDimension2(0.115323, 0.238379, -3.79708e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("RD1@Drawing View6", "DIMENSION", 0.1008475379838, 0.2170802992602, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD2@Drawing View6", "DIMENSION", 0.1066221832779, 0.2198835251311, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View6", "DIMENSION", 0.09058773129636, 0.2176409444343, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") Set SkLine = Part.SketchManager.CreateCenterLine(0, -0.02684758168128, 0, 0, 0.02652374435526, 0) boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("Line5", "SKETCHSEGMENT", 0.1580612636341, 0.2116495829913, 0, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.118298, 0.214831, -4.04776e-016) Part.ClearSelection2 True Part.Parameter("D1@Sketch13").SystemValue = 0.0533713 Part.EditDelete boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1175909534939, 0.2167746440903, -1499.739215, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Line5", "SKETCHSEGMENT", 0.1580612636341, 0.2138586610557, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.137649, 0.209441, -3.67137e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1175909534939, 0.2166862809677, -1499.739215, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1995035681228, 0.2166862809677, -1499.739215, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.156736, 0.202627, -3.19558e-016) Part.ClearSelection2 True Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1958145436024, 0.1381995014116, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2398625426165, 0.1602235009186, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1711859913531, 0.1167264516299, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("Drawing View6", "DRAWINGVIEW", 0.1682460369108, 0.1941452519447, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View6", "DIMENSION", 0.08102738845494, 0.1330595318651, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD2@Drawing View6", "DIMENSION", 0.09703380708542, 0.135346163098, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("RD2@Drawing View6", "DIMENSION", 0.09203406067807, 0.1470630935619, 0, False, 0, Nothing, 0) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 Set SkLine = Part.SketchManager.CreateCenterLine(-0.1955818684232, 0, 0, 0.191973696829, 0, 0) boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 Set DrawView = Part.CreateSectionViewAt4(0.1471532425994, 0.1850260908208, 0, "C", 0, ExcludedComponents) boolstatus = Part.ActivateView("Drawing View7") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1083180817563, 0.1343145073555, -1499.672227098, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.131433, 0.144575, -4.94116e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateView("Drawing View7") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("RD3@Drawing View6", "DIMENSION", 0.1061952712861, 0.1535377355128, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD2@Drawing View6", "DIMENSION", 0.08697204313922, 0.1475231058473, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View6", "DIMENSION", 0.06609774018222, 0.1325454986408, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1040724608159, 0.2069617990025, -1499.662540456, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1043083286459, 0.202480310232, -1499.662540456, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0953454, 0.204839, -9.1494e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.Extension.SelectByID2("RD1@Drawing View7", "DIMENSION", 0.09687849200016, 0.2040134511377, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("RD1@Drawing View4", "DIMENSION", 0.09951991809616, 0.07804816124031, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View4", "DIMENSION", 0.1312484381879, 0.05599571465171, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") Set SkLine = Part.SketchManager.CreateCenterLine(-0.1392276059499, -0.088265, 0, -0.03481602210183, -0.088265, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") Set SkLine = Part.SketchManager.CreateCenterLine(0.03629186689814, -0.088265, 0, 0.1398033508854, -0.088265, 0) boolstatus = Part.ActivateSheet("Sheet1") swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 900 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 703 swApp.ActiveDoc.ActiveView.FrameHeight = 429 Set Part = swApp.ActivateDoc2 ("10020347 Electronics Hsg Support Clamp Left.SLDPRT", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("10020347 Electronics Hsg Support Clamp Left.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Set Part = swApp.ActivateDoc2 ("10020347 Electronics Hsg Support Clamp Left - Sheet1", False, longstatus) Set DrawView = Part.CreateDrawViewFromModelView2("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020347 Electronics Hsg Support Clamp Left.SLDPRT", "Current Model View", 0.3154793426341, 0.1528297136255, 0) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View8") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.1751283063999, 0.2292649378478, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3960011860587, 0.170123865647, 0, False, 0, Nothing, 0) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("DetailItem80@Sheet Format1", "NOTE", 0.2896601314153, 0.06111910649744, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.354168797292, 0.09749617372117, 0, False, 0, Nothing, 0) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.ViewZoomtofit2 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 900 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2937264943462, 0.07774263564403, 0, False, 0, Nothing, 0) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem80@Sheet Format1", "NOTE", 0.2903211461037, 0.06022941611155, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.3404284130994, 0.09097484595746, 0, False, 0, Nothing, 0) Part.EditSheet Part.EditSketch Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.ViewZoomtofit2 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 900 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 703 swApp.ActiveDoc.ActiveView.FrameHeight = 429 Set Part = swApp.ActivateDoc2 ("10020345 Electronics Hsg Support Base Right - Sheet1", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3011067189859, 0.08051527849111, 0, False, 0, Nothing, 0) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem80@Sheet Format1", "NOTE", 0.2898518910204, 0.06065381737564, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.3399469096117, 0.08801849713473, 0, False, 0, Nothing, 0) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.ViewZoomtofit2 Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left - Sheet1", False, longstatus) boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3179084730586, 0.0888215714639, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2970643679114, 0.07639000551824, 0, False, 0, Nothing, 0) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("DetailItem80@Sheet Format1", "NOTE", 0.2895735483392, 0.06004291419566, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.3042371101671, 0.07601685813016, 0, False, 0, Nothing, 0) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.ViewZoomtofit2 Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.ActivateView("Drawing View11") boolstatus = Part.Extension.SelectByID2("Drawing View11", "DRAWINGVIEW", 0.1762874674276, 0.2377240532941, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("Drawing View9", "DRAWINGVIEW", 0.1310607132271, 0.1563158957333, 0, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View10") boolstatus = Part.Extension.SelectByID2("", "FACE", 0.1377464073263, 0.08670602186986, -999.7139600125, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View13") boolstatus = Part.Extension.SelectByID2("", "FACE", 0.1389262356968, 0.04226581991634, -999.704550241, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View12") boolstatus = Part.Extension.SelectByID2("Drawing View12", "DRAWINGVIEW", 0.2702804609399, 0.2070485156625, 0, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View14") boolstatus = Part.Extension.SelectByID2("Drawing View14", "DRAWINGVIEW", 0.2974165134602, 0.1865981572414, 0, True, 0, Nothing, 0) Part.EditDelete swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left - Sheet1", False, longstatus) boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3190257896289, 0.07294081280211, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Set Part = swApp.ActivateDoc2 ("10020345 Electronics Hsg Support Base Right - Sheet1", False, longstatus) boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3344298370796, 0.066391572809, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Set Part = swApp.ActivateDoc2 ("10020347 Electronics Hsg Support Clamp Left - Sheet1", False, longstatus) boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3896002487631, 0.09572901903433, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right.SLDPRT", False, longstatus) boolstatus = Part.Extension.SelectByID2("10020346 Electronics Hsg Support Clamp Right.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right - Sheet1", False, longstatus) Set DrawView = Part.CreateDrawViewFromModelView2("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020346 Electronics Hsg Support Clamp Right.SLDPRT", "*Right", 0.3491490912848, 0.1458254837883, 0) boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View1") Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0.2962366850898, 0.1138420743971, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0.2962366850898, 0.1138420743971, 0, False, 0, Nothing, 0) Set DrawView = Part.CreateUnfoldedViewAt3(0.1312741188755, 0.1095160370388, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0.2962366850898, 0.1138420743971, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.1381396834498, 0.1095160370388, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View2") Set DrawView = Part.CreateUnfoldedViewAt3(0.1312741188755, 0.05642376036869, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.1381396834498, 0.1095160370388, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View1") boolstatus = Part.Extension.SelectByID2("Drawing View1", "DRAWINGVIEW", 0.1943781691078, 0.1460907165227, 0, False, 0, Nothing, 0) Part.EditDelete swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.0909677242656, 0.07081496265311, -999.76095, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.106473, 0.0492681, -7.60743e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("RD1@Drawing View3", "DIMENSION", 0.10607067761, 0.04906670984417, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.0992240054272, 0.06739162656172, -999.76095, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.108286, 0.0551079, -8.01522e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.09781439644839, 0.07705751670213, -999.76095, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.01016 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.08351693394903, 0.06255868149151, -999.76095, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.01016 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem88@Drawing View3", "CENTERMARKSYM", 0.1249997124683, 0.04101180139383, 0, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.Extension.SelectByID2("RD2@Drawing View3", "DIMENSION", 0.1066747957438, 0.05551063660444, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", 0.1159379404617, 0.03054042040838, 0, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1028487142299, 0.07987673465975, -999.76095, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.111306, 0.0637669, -8.61988e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1533932647558, 0.08189046177234, -999.76095, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.147352, 0.0637669, -8.61988e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1056679321875, 0.08168908906108, -999.76095, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1546015010233, 0.08168908906108, -999.76095, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00762 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("RD2@Drawing View3", "DIMENSION", 0.09418968764573, 0.04584474646403, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View2") Part.ClearSelection2 True Set SkLine = Part.SketchManager.CreateCenterLine(-0.1922051236153, 0, 0, 0.1914098913322, 0, 0) boolstatus = Part.ActivateSheet("Sheet1") Set DrawView = Part.CreateSectionViewAt4(0.1312741188755, 0.1769383814934, 0, "C", 0, ExcludedComponents) boolstatus = Part.ActivateView("Drawing View4") Part.ClearSelection2 True swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.07315266591597, 0.1156437216862, -999.8359360121, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.07382442479833, 0.1032161823625, -999.8253104229, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0417479, 0.109178, -3.28947e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("RD1@Drawing View2", "DIMENSION", 0.04258763676838, 0.1085062835681, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.07466412340129, 0.1032161823625, -999.8153297213, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.07399236451892, 0.1069948260758, -999.8233996852, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.055519, 0.106407, -3.09597e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View2") swApp.SetUserPreferenceToggle 119, 0 Set SkLine = Part.SketchManager.CreateCenterLine(0, -0.03098725586579, 0, 0, 0.03127134778703, 0) boolstatus = Part.ActivateView("Drawing View4") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.07722951545544, 0.108623779169, -999.8444525, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0513104, 0.121072, -3.10596e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 0, 3, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.07957322803151, 0.1115751209314, -999.7787427632, False, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.05777, 0.128536, -3.62719e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.ActivateSheet("Sheet1") swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Line5", "SKETCHSEGMENT", 0.1314168365043, 0.1007610824501, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.07880965866964, 0.1065640441934, -999.7834436713, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.101451, 0.0994293, -2.28517e-016) Part.ClearSelection2 True Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1834566618169, 0.1069326372067, -999.7814075196, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.07923531720942, 0.1072181751371, -999.7803451069, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.125397, 0.093166, -1.85008e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("RD2@Drawing View2", "DIMENSION", 0.05667782070534, 0.1062663820427, 0, False, 0, Nothing, 0) Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.074277043844, 0.2049599261274, -999.7725404564, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.0736912277113, 0.198662402701, -999.7725404564, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0624308, 0.201884, -1.17302e-015) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1882182816528, 0.2051063801606, -999.7725404564, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1321263869474, 0.1494538475548, -999.7725404564, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.198031, 0.177573, -1.00325e-015) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("RD2@Drawing View4", "DIMENSION", 0.1980307018754, 0.1774265678978, 0, False, 0, Nothing, 0) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") Set SkLine = Part.SketchManager.CreateCenterLine(0, -0.06264648628503, 0, 0, 0.09255993849087, 0) Set SkLine = Part.SketchManager.CreateCenterLine(0.0164772188387, -0.0835025, 0, 0.1422713473743, -0.0835025, 0) Set SkLine = Part.SketchManager.CreateCenterLine(-0.01655505232351, -0.0835025, 0, -0.1437066714548, -0.0835025, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.08095857844267, 0.02845248071133, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1064492351843, 0.08169627852076, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.101773, 0.0227209, -3.78119e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1548663997645, 0.08199794309758, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.1815637148135, 0.02890497757657, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.159693, 0.0227209, -3.78119e-016) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.07311529944525, 0.02845248071133, -999.76095, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1053934091654, 0.08109294936711, -999.76095, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0624308, 0.0350891, -4.64486e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("RD7@Drawing View3", "DIMENSION", 0.06602618188989, 0.03523993369685, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD2@Drawing View3", "DIMENSION", 0.1090133840873, 0.04428987100157, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("RD1@Drawing View3", "DIMENSION", 0.06542285273624, 0.07883046504791, 0, False, 0, Nothing, 0) Part.ClearSelection2 True swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right.SLDPRT", False, longstatus) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.SetUserPreferenceToggle(5, False) boolstatus = Part.SetUserPreferenceToggle(6, False) boolstatus = Part.Extension.SelectByID2("10020346 Electronics Hsg Support Clamp Right.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right - Sheet1", False, longstatus) boolstatus = Part.ActivateSheet("Sheet1") Set DrawView = Part.CreateDrawViewFromModelView2("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020346 Electronics Hsg Support Clamp Right.SLDPRT", "Current Model View", 0, 0, 0) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2634404368815, 0.1075367584411, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("Drawing View6", "DRAWINGVIEW", 0.3103264900673, 0.1344797988453, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View5") boolstatus = Part.Extension.SelectByID2("Drawing View5", "DRAWINGVIEW", 0.2206299976142, 0.07533211179286, 0, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1790316243026, 0.1435794430072, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.1946310142945, 0.1185554215619, 0, False, 0, Nothing, 0) Part.ViewZoomtofit2 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 swApp.ActiveDoc.ActiveView.FrameLeft = 1406 swApp.ActiveDoc.ActiveView.FrameTop = 337 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.223766932492, -0.5496310185622, 0.872238853572, False, 0, Nothing, 0) Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Stiffening Plate for Foam Platform.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Stiffening Plate for Foam Platform.SLDPRT", 1, 0, "", longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc2 ("Stiffening Plate for Foam Platform.SLDPRT", False, longstatus) Part.ClearSelection2 True Part.Extension.InsertScene "\scenes\02 studio scenes\66 light cards.p2s" swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 703 swApp.ActiveDoc.ActiveView.FrameHeight = 439 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.388458422303, -0.3849395287519, 0.5751988510355, False, 0, Nothing, 0) Part.RotateComponent Part.OpenCompFile Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Stiffening Plate for Foam Platform.SLDPRT", 1, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\Stiffening Plate for Foam Platform.SLDPRT", 1, 0, "", longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("Stiffening Plate for Foam Platform.SLDPRT", False, longstatus) Part.ClearSelection2 True swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ViewZoomtofit2 swApp.SetUserPreferenceToggle 119, 0 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameState = 0 boolstatus = Part.Extension.SelectByID2("Extrude1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0) Part.ClearSelection2 True Part.SelectionManager.EnableContourSelection = 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right - Sheet1", False, longstatus) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", 0, 2, Nothing, longstatus, longwarnings boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3821626761562, 0.2368865598185, 0, False, 0, Nothing, 0) Set Part = swApp.ActivateDoc2 ("Stiffening Plate for Foam Platform.SLDPRT", False, longstatus) Part.ShowNamedView2 "*Isometric", 7 Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020348 Stiffening Plate for Foam Platform.SLDPRT", 0, 2, Nothing, longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("10020347 FOCE Stiffening Plate for Foam Platform - Sheet1", False, longstatus) Part.ClearSelection2 True Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020346 Electronics Hsg Support Clamp Right.SLDDRW", 0, 0, Nothing, longstatus, longwarnings swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View6") boolstatus = Part.Extension.SelectByID2("Drawing View6", "DRAWINGVIEW", 0.2739119612717, 0.1574399605929, 0, False, 0, Nothing, 0) Part.EditDelete swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.05414176907315, 0.1978993378127, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.06844445091072, 0.1273723204757, 0, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("Drawing View3", "DRAWINGVIEW", 0.07189682238875, 0.05585891128791, 0, True, 0, Nothing, 0) Part.EditDelete Set Part = swApp.OpenDoc6 ("X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020346 Electronics Hsg Support Clamp Right.SLDDRW", 3, 0, "", longstatus, longwarnings) swApp.OpenDoc6 "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020346 Electronics Hsg Support Clamp Right.SLDDRW", 3, 0, "", longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.1468578824444, 0.1227802563514, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View4") boolstatus = Part.Extension.SelectByID2("Drawing View4", "DRAWINGVIEW", 0.1829314718006, 0.167628502578, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View2") boolstatus = Part.Extension.SelectByID2("Drawing View2", "DRAWINGVIEW", 0.1933310651285, 0.1214803071854, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View3") boolstatus = Part.Extension.SelectByID2("Drawing View3", "DRAWINGVIEW", 0.19365605242, 0.0707822897119, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2342794638571, 0.0711072770034, 0, False, 0, Nothing, 0) Part.ViewZoomtofit2 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 18 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 703 swApp.ActiveDoc.ActiveView.FrameHeight = 316 Set Part = swApp.ActivateDoc2 ("10020348 Stiffening Plate for Foam Platform.SLDPRT", False, longstatus) boolstatus = Part.Extension.SelectByID2("10020348 Stiffening Plate for Foam Platform.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) Set Part = swApp.ActivateDoc2 ("10020347 FOCE Stiffening Plate for Foam Platform - Sheet1", False, longstatus) Set DrawView = Part.CreateDrawViewFromModelView2("X:\900719_FOCE\FOCE 2008 FLUE\PARTS\10020348 Stiffening Plate for Foam Platform.SLDPRT", "*Front", 0.1203804896347, 0.07560012311, 0) boolstatus = Part.Extension.SelectByID2("Drawing View7", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View7") Set DrawView = Part.CreateUnfoldedViewAt3(0.1203804896347, 0.1706414857169, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View7", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 337 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.SetUserPreferenceToggle 119, 0 Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.2475205263147, 0.1371079179245, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.2508335046604, 0.1527262444115, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.Extension.SelectByID2("Drawing View7", "DRAWINGVIEW", 0.2177037212034, 0.06895522052713, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.1684823286386, 0.1953216802848, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.Extension.SelectByID2("Drawing View7", "DRAWINGVIEW", 0.1145281098656, 0.06706209004387, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.274970918322, 0.1683445708984, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2518763845433, 0.2165420344076, -1999.5552375, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2449995012723, 0.2271901117303, -1999.5552375, True, 0, Nothing, 0) Set SkPoint = Part.SketchManager.CreatePoint(0, 0, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.0553306239609, 0.2118835005789, -1999.5552375, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "FACE", 0.06198567228761, 0.2260809370092, -1999.5552375, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") Set SkPoint = Part.SketchManager.CreatePoint(-0.3112119408333, 0.3915835320686, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") Part.EditDelete boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.05621796373779, 0.2081123065271, -1999.5552375, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.06597870128364, 0.2265246068976, -1999.5552375, True, 0, Nothing, 0) Set SkPoint = Part.SketchManager.CreatePoint(0, 0, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.08727485592914, 0.104959057463, -1999.5552375, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.07662677860639, 0.1125014455666, -1999.5552375, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") Part.EditSketch Set SkPoint = Part.SketchManager.CreatePoint(0, 0, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2170482983001, 0.1051808924072, -1999.5552375, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2305802298978, 0.1125014455666, -1999.5552375, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") Part.EditSketch Set SkPoint = Part.SketchManager.CreatePoint(0, 0, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1895407652163, 0.1147197950088, -1999.5552375, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1908717748817, 0.1222621831124, -1999.5552375, True, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") Part.EditSketch Set SkPoint = Part.SketchManager.CreatePoint(0, 0, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Point18", "SKETCHPOINT", 0.2425130608315, -0.254, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View8") Part.EditDelete boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.0897150403156, 0.2145455199096, -1999.5552375, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1531598343636, 0.1717313756743, -1999.5552375, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2177138031328, 0.2156546946307, -1999.5552375, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2365697733918, 0.1987952388697, -1999.5552375, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2208194923519, 0.1275862217738, -1999.5552375, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1740123191207, 0.1588649489094, -1999.5552375, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1540471741405, 0.1462203570886, -1999.5552375, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1957521436546, 0.1176036492837, -1999.5552375, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1112330299053, 0.1167163095068, -1999.5552375, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1329728544393, 0.1588649489094, -1999.5552375, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.07041540016812, 0.1990170738139, -1999.5552375, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.08527834143112, 0.1273643868296, -1999.5552375, False, 0, Nothing, 0) Set CenterMark = Part.InsertCenterMark2(0, False) If Not CenterMark Is Nothing Then CenterMark.RotationAngle = 0 CenterMark.UseDocDisplaySettings = False CenterMark.Size = 0.00254 CenterMark.ShowLines = False CenterMark.CenterMarkFont = True CenterMark.ConnectionLines = 0 End If Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point12", "SKETCHPOINT", -0.3766509011394, -0.3048, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0617638, 0.0949947, -5.81027e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem103@Drawing View8", "CENTERMARKSYM", 0.07108090500079, 0.1970205593298, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0617638, 0.0829947, -4.97231e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem104@Drawing View8", "CENTERMARKSYM", 0.08483467154267, 0.1295827362858, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0708591, 0.0743458, -4.36837e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem93@Drawing View8", "CENTERMARKSYM", 0.09171155481361, 0.2143236849793, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0708591, 0.0589947, -3.2964e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem101@Drawing View8", "CENTERMARKSYM", 0.1123422046264, 0.1176036492977, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0761831, 0.0529947, -2.87742e-016) Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("DetailItem102@Drawing View8", "CENTERMARKSYM", 0.1300890001643, 0.1586431139791, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0901587, 0.0441763, -2.26164e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem99@Drawing View8", "CENTERMARKSYM", 0.1529379994194, 0.1435583377719, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.11567, 0.0349947, -1.62049e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View7") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem98@Drawing View8", "CENTERMARKSYM", 0.1760088336187, 0.159530453756, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.144508, 0.0289947, -1.20151e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("DetailItem100@Drawing View8", "CENTERMARKSYM", 0.1928682893797, 0.1173818143535, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.140072, 0.0193308, -5.26682e-017) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem95@Drawing View8", "CENTERMARKSYM", 0.2146081139136, 0.2141018500351, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.144508, 0.0169947, -3.63555e-017) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem97@Drawing View8", "CENTERMARKSYM", 0.2214849971846, 0.1306919110069, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.168023, 0.0259858, -9.91402e-017) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Point13", "SKETCHPOINT", 0.3766509011394, -0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.157153, 0.0133412, -1.08435e-017) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem96@Drawing View8", "CENTERMARKSYM", 0.2352387637265, 0.1972423942741, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.178893, 0.0229947, -7.82533e-017) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point5", "SKETCHPOINT", 0.5062253811335, 0.3048, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.24389, 0.0349947, -1.62049e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("", "FACE", 0.08195081726776, 0.2214224031805, -1999.5552375, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2893664901171, 0.2085559764295, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.1005849525826, 0.2214224031945, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.1480576306465, 0.2511482857205, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateView("Drawing View7") boolstatus = Part.Extension.SelectByID2("Drawing View7", "DRAWINGVIEW", 0.2560912484835, 0.06458509762817, 0, False, 0, Nothing, 0) Part.EditDelete boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.2006325124275, 0.2502609459436, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1054653213555, 0.1987952388662, -2499.4452375, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1143387191245, 0.2001262485315, -2499.4452375, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.125209, 0.203454, -1.33839e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1746778239533, 0.2356198396073, -2499.4452375, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1746778239533, 0.2438277325436, -2499.4452375, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.173294, 0.253819, -1.69009e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2463305109377, 0.195689549647, -2499.4452375, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.2549820737624, 0.1963550544797, -2499.4452375, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.271842, 0.183267, -1.19743e-015) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1886534254395, 0.1504352210254, -2499.4452375, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1893189302721, 0.1424491630333, -2499.4452375, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.187544, 0.158643, -1.02548e-015) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("RD3@Drawing View8", "DIMENSION", 0.271397859635, 0.1837104626764, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View8", "DIMENSION", 0.1232121168934, 0.2043411124892, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD2@Drawing View8", "DIMENSION", 0.1888752603837, 0.2533666351627, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD2@Drawing View8", "DIMENSION", 0.1873224157741, 0.2531448002185, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View8", "DIMENSION", 0.1240994566703, 0.204119277545, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("RD4@Drawing View8", "DIMENSION", 0.1735686492322, 0.159530453756, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD3@Drawing View8", "DIMENSION", 0.2727288693003, 0.1839322976206, 0, False, 0, Nothing, 0) boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") Part.ClearSelection2 True boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("RD3@Drawing View8", "DIMENSION", 0.2736162090772, 0.2098869860948, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD2@Drawing View8", "DIMENSION", 0.1831075518339, 0.2509264507762, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View8", "DIMENSION", 0.1218811072281, 0.202122763047, 0, True, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD4@Drawing View8", "DIMENSION", 0.1857695711645, 0.159530453756, 0, True, 0, Nothing, 0) Part.EditDelete boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem93@Drawing View8", "CENTERMARKSYM", 0.1296453302759, 0.2327359853499, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0965919, 0.243828, -1.62032e-015) Part.ClearSelection2 True Part.EditDelete boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem93@Drawing View8", "CENTERMARKSYM", 0.1292016603875, 0.2334014901825, 0, True, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("DetailItem93@Drawing View8", "CENTERMARKSYM", 0.1276488157779, 0.2342888299594, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0874195, 0.238504, -1.58315e-015) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1110111949611, 0.2207568983443, -2499.4452375, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0657569, 0.232514, -1.54132e-015) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1811110373358, 0.1972423942566, -2499.4452375, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0535559, 0.224972, -1.48865e-015) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("DetailItem102@Drawing View8", "CENTERMARKSYM", 0.1633642417979, 0.1870379868398, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0394195, 0.21632, -1.42824e-015) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1806673674474, 0.1772772492764, -2499.4452375, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0302633, 0.210109, -1.38487e-015) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("DetailItem104@Drawing View8", "CENTERMARKSYM", 0.1236557867819, 0.1610832983656, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0965919, 0.243828, -1.62032e-015) Part.ClearSelection2 True Part.EditDelete boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1229902819492, 0.1610832983481, -2499.4452375, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0274195, 0.188369, -1.23306e-015) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("DetailItem101@Drawing View8", "CENTERMARKSYM", 0.1453956113158, 0.1517662307082, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.14561744626, 0.1508788909138, -2499.4452375, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Point9", "SKETCHPOINT", -0.5062253811335, 0.3048, 0, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.00719244, 0.193249, -1.26714e-015) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x", "", 1,"", "", 0 Part.EditDimensionProperties2 0, 0, 0, "", "", 1, 9, 2, 1, 12, 12,"2x ", "", 1,"", "", 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1196627577858, 0.2440495674878, -2499.4452375, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1380750581564, 0.1417836582006, -2499.4452375, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.0334195, 0.132219, -8.4096e-016) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View8") Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.1966394834315, 0.2203132284733, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3073351205992, 0.1468858619352, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View8") boolstatus = Part.Extension.SelectByID2("D16@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.09103665797159, 0.2214861887311, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D17@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.07615074049652, 0.2157994337406, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D18@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.06594803301361, 0.2102799362499, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D19@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.0574179005279, 0.2047604387591, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View8", "DIMENSION", 0.04219746805339, 0.1458857988577, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D20@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.05223291803658, 0.1878674312874, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D21@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.03015492807357, 0.1927178987793, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("RD1@Drawing View8", "DIMENSION", 0.0202867355901, 0.1420388763642, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("D2@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1269622638203, 0.1319239509594, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D1@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1262473167339, 0.1446500090979, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D2@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.124817422561, 0.1499406175375, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D1@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1263903061512, 0.1309230250384, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D1@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1269622638203, 0.1346407498878, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D3@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1312519463389, 0.1220576811666, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D3@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1299650415834, 0.1240595330086, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D4@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1309659675044, 0.1074727606034, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D4@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1308229780871, 0.1081877076898, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D5@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1363995653612, 0.1007522579909, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D5@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1342547241019, 0.1011812262428, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D6@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1444069727293, 0.09317381887475, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D7@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1595638509616, 0.08559537975857, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D8@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1764366022014, 0.07887487714611, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D9@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1744347503594, 0.06943757560521, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D10@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1775805175397, 0.06600582959034, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D11@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1917364698511, 0.07458519462752, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D14@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.2362061786271, 0.08573836917586, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D11@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1569900414505, 0.07958982423254, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D12@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.1857309143251, 0.06371799891375, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D13@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.200172845471, 0.07215437453365, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("D14@Sketch19@10020347 FOCE Stiffening Plate for Foam Platform.SLDDRW", "DIMENSION", 0.2383510198864, 0.05785543280501, 0, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.1867793612669, 0.210369325578, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.1867793612669, 0.210369325578, 0, False, 0, Nothing, 0) Set DrawView = Part.CreateUnfoldedViewAt3(0.182462230997, 0.2463362155394, 0, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.1867793612669, 0.210369325578, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Drawing View8", "DRAWINGVIEW", 0.240729696209, 0.1491132161124, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.ActivateView("Drawing View9") swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "VERTEX", 0.1294003024917, 0.2457867870905, -3498.9252, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1283689299418, 0.2468918291083, -3498.927079894, True, 0, Nothing, 0) Set Annotation = Part.AddDimension2(0.122181, 0.237683, -4.25435e-016) Part.ClearSelection2 True Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateSheet("Sheet1") boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2893097402099, 0.0607484920892, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.2893097402099, 0.0607484920892, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.3032812480348, 0.09133476597621, 0, False, 0, Nothing, 0) Part.EditTemplate boolstatus = Part.Extension.SelectByID2("DetailItem80@Sheet Format1", "NOTE", 0.2889321318903, 0.05999327545002, 0, False, 0, Nothing, 0) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("DetailItem81@Sheet Format1", "NOTE", 0.3496646745217, 0.06027755191058, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem82@Sheet Format1", "NOTE", 0.3956231840512, 0.06066160630776, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem82@Sheet Format1", "NOTE", 0.3956231840512, 0.06066160630776, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem22@Sheet Format1", "NOTE", 0.3687393762485, 0.02353634791347, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem22@Sheet Format1", "NOTE", 0.3689954125133, 0.02340832978108, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("DetailItem22@Sheet Format1", "NOTE", 0.3689954125133, 0.02340832978108, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.3417275503133, 0.09420235699501, 0, False, 0, Nothing, 0) Part.EditSheet Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0.375396319133, 0.07858414484293, 0, False, 0, Nothing, 0) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("DetailItem1@Sheet Format1", "NOTE", 0.3875580417104, 0.0163673324994, 0, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0.3369908794147, 0.08588117838939, 0, False, 0, Nothing, 0) Part.EditSheet Part.EditSketch Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.ActivateView("Drawing View9") boolstatus = Part.Extension.SelectByID2("Drawing View9", "DRAWINGVIEW", 0.1709616235918, 0.2414089469998, 0, False, 0, Nothing, 0) Part.ViewZoomtofit2 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 337 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 swApp.ActiveDoc.ActiveView.FrameWidth = 703 swApp.ActiveDoc.ActiveView.FrameHeight = 316 Part.ClearSelection2 True boolstatus = Part.ActivateSheet("Sheet1") Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020347 FOCE Stiffening Plate for Foam Platform.PDF", 0, 0, Nothing, longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right - Sheet1", False, longstatus) Part.ClearSelection2 True Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020346 Electronics Hsg Support Clamp Right.PDF", 0, 0, Nothing, longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("10020347 FOCE Stiffening Plate for Foam Platform - Sheet1", False, longstatus) Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020348 FOCE Stiffening Plate for Foam Platform.SLDDRW", 0, 2, Nothing, longstatus, longwarnings Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020348 FOCE Stiffening Plate for Foam Platform.PDF", 0, 0, Nothing, longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("10020347 Electronics Hsg Support Clamp Left - Sheet1", False, longstatus) Part.ClearSelection2 True Part.SetPickMode Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020347 Electronics Hsg Support Clamp Left.PDF", 0, 0, Nothing, longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("10020345 Electronics Hsg Support Base Right - Sheet1", False, longstatus) Part.ClearSelection2 True Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020345 Electronics Hsg Support Base Right.PDF", 0, 0, Nothing, longstatus, longwarnings Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left - Sheet1", False, longstatus) Part.ClearSelection2 True Part.Extension.SaveAs "X:\900719_FOCE\FOCE 2008 FLUE\DRAWINGS\10020344 Electronics Hsg Support Base Left.PDF", 0, 0, Nothing, longstatus, longwarnings swApp.ActiveDoc.ActiveView.FrameLeft = 622 swApp.ActiveDoc.ActiveView.FrameTop = 92 Set Part = swApp.ActivateDoc2 ("10020348 FOCE Stiffening Plate for Foam Platform - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 2 swApp.ActiveDoc.ActiveView.FrameTop = 421 Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 17 swApp.ActiveDoc.ActiveView.FrameTop = 26 Set Part = swApp.ActivateDoc2 ("10020348 FOCE Stiffening Plate for Foam Platform - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 1051 swApp.ActiveDoc.ActiveView.FrameTop = 409 Set Part = swApp.ActivateDoc2 ("10020345 Electronics Hsg Support Base Right - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = -2 swApp.ActiveDoc.ActiveView.FrameTop = 362 Set Part = swApp.ActivateDoc2 ("10020347 Electronics Hsg Support Clamp Left - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 14 swApp.ActiveDoc.ActiveView.FrameTop = 1025 Set Part = swApp.ActivateDoc2 ("10020348 FOCE Stiffening Plate for Foam Platform - Sheet1", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 721 swApp.ActiveDoc.ActiveView.FrameTop = 9 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 21 Part.ViewZoomtofit2 Set Part = Nothing swApp.CloseDoc "10020348 FOCE Stiffening Plate for Foam Platform - Sheet1" Set Part = swApp.ActivateDoc2 ("10020347 Electronics Hsg Support Clamp Left - Sheet1", False, longstatus) Part.ViewZoomtofit2 Set Part = Nothing swApp.CloseDoc "10020347 Electronics Hsg Support Clamp Left - Sheet1" Set Part = swApp.ActivateDoc2 ("10020345 Electronics Hsg Support Base Right - Sheet1", False, longstatus) Part.ViewZoomtofit2 Set Part = Nothing swApp.CloseDoc "10020345 Electronics Hsg Support Base Right - Sheet1" Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left - Sheet1", False, longstatus) Part.ViewZoomtofit2 Set Part = Nothing swApp.CloseDoc "10020344 Electronics Hsg Support Base Left - Sheet1" Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right - Sheet1", False, longstatus) Part.ViewZoomtofit2 Set Part = Nothing swApp.CloseDoc "10020346 Electronics Hsg Support Clamp Right - Sheet1" Set Part = swApp.ActivateDoc2 ("10020348 Stiffening Plate for Foam Platform.SLDPRT", False, longstatus) Part.ClearSelection2 True boolstatus = Part.EditRebuild3 Set Part = Nothing swApp.CloseDoc "10020348 Stiffening Plate for Foam Platform.SLDPRT" swApp.SetUserPreferenceToggle 136, 0 #END IF '--------------------UnBlock Recording------------------ Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) Set Part = swApp.ActivateDoc2 ("10020346 Electronics Hsg Support Clamp Right.SLDPRT", False, longstatus) Part.ClearSelection2 True boolstatus = Part.EditRebuild3 Set Part = Nothing swApp.CloseDoc "10020346 Electronics Hsg Support Clamp Right.SLDPRT" swApp.SetUserPreferenceToggle 136, 0 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) Set Part = swApp.ActivateDoc2 ("10020347 Electronics Hsg Support Clamp Left.SLDPRT", False, longstatus) Part.ClearSelection2 True boolstatus = Part.EditRebuild3 Set Part = Nothing swApp.CloseDoc "10020347 Electronics Hsg Support Clamp Left.SLDPRT" swApp.SetUserPreferenceToggle 136, 0 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) Set Part = swApp.ActivateDoc2 ("10020345 Electronics Hsg Support Base Right.SLDPRT", False, longstatus) boolstatus = Part.EditRebuild3 Set Part = Nothing swApp.CloseDoc "10020345 Electronics Hsg Support Base Right.SLDPRT" swApp.SetUserPreferenceToggle 136, 0 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) Set Part = swApp.ActivateDoc2 ("10020344 Electronics Hsg Support Base Left.SLDPRT", False, longstatus) Part.ClearSelection2 True boolstatus = Part.EditRebuild3 Set Part = Nothing swApp.CloseDoc "10020344 Electronics Hsg Support Base Left.SLDPRT" swApp.SetUserPreferenceToggle 136, 0 Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) Set Part = swApp.ActivateDoc2 ("Tiburon Power Housing Assembly.SLDASM", False, longstatus) boolstatus = Part.EditRebuild3 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Isometric", 7 Set Part = Nothing swApp.CloseDoc "Tiburon Power Housing Assembly.SLDASM" Set Part = swApp.ActivateDoc2 ("FOCE Complete Assembly.SLDASM", False, longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 703 swApp.ActiveDoc.ActiveView.FrameTop = 674 swApp.ActiveDoc.ActiveView.FrameState = 1 boolstatus = Part.Extension.SelectByID2("PLANE2", "PLANE", 0, 0, 0, False, 0, Nothing, 0) Part.EditDelete swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 0.719759708016, -1.22167951862, 0.299633456071, False, 0, Nothing, 0) Part.ClearSelection2 True boolstatus = Part.EditRebuild3 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Isometric", 7 Part.ShowNamedView2 "*Isometric", 7 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.RotateComponent boolstatus = Part.Extension.SelectByID2("", "FACE", 2.019430594083, -1.307143803703, 0.1001305521124, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 Part.RotateComponent boolstatus = Part.Extension.SelectByID2("", "FACE", 2.012430550785, -1.340705008219, 0.3209196904749, False, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.228221392315, -0.9654442661063, 0.2210560828325, True, 0, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 Set Feature = Part.AddMate2 (0, 1, False, 0, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID2("", "FACE", 1.316169536997, -0.7999204880732, -0.129860287322, True, 1, Nothing, 0) Part.DeSelectByID "", "FACE", 1.316169536997, -0.7999204880732, -0.129860287322 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.247017614906, -0.807709980118, 0.1155681413792, True, 1, Nothing, 0) boolstatus = Part.Extension.SelectByID2("", "FACE", 0.8442977364539, -0.9477212302673, 0.299633456071, True, 1, Nothing, 0) Set Feature = Part.AddMate2 (3, 0, False, 0.2211229981561, 0, 0, 0.0254, 0.0254, 0.0254, 0.001349681052939, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.121942522852, -0.927444589669, 0.1722979549847, True, 1, Nothing, 0) swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 0.6797905921541, -2.203958270636, -0.1113873970443, True, 1, Nothing, 0) Set Feature = Part.AddMate2 (3, 0, False, 1.301421127742, 0, 0, 0.0254, 0.0254, 0.0254, 0, 0.5235987755983, 0.5235987755983, longstatus, 0, 0, 0, 0, 0, 1, False, False, False, False) Part.ClearSelection2 True swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.Extension.SelectByID2("", "FACE", 1.210586407583, -0.7692777517513, 0.1157505921407, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Parallel14", "MATE", 0, 0, 0, False, 0, Nothing, 0) boolstatus = Part.Extension.SelectByID2("Coincident405", "MATE", 0, 0, 0, False, 0, Nothing, 0) Part.EditDelete swApp.SetUserPreferenceToggle 119, 0 boolstatus = Part.EditRebuild3