' ****************************************************************************** ' swxJRNL.swj - journal recorded on 03/08/00 by lgurfinkel ' ****************************************************************************** Dim swApp As Object Dim Part As Object Dim Gtol As Object Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = CreateObject ("SldWorks.Application") Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110706.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 907 Set Part = swApp.OpenDoc ("E:\Leo\ALTEX DWGS\HardwareTail\10-110707.SLDDRW", 3) Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 907 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Set Part = swApp.OpenDoc ("E:\Leo\Launch\FlBarRightNose.SLDPRT", 1) Set Part = swApp.ActivateDoc ("FlBarRightNose") swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 907 Set Part = swApp.OpenDoc ("E:\Leo\Launch\FlBarLeftNose.SLDPRT", 1) Set Part = swApp.ActivateDoc ("FlBarLeftNose") swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 907 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("FlBarRightNose") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Set Part = swApp.ActivateDoc ("FlBarRightNose") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDrawing2 (3, "E:\SOLIDW~1\data\temp_c.slddrt", 3, 0.000000, 0.000000) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Draw1 - Sheet1") Part.SaveAs2 "E:\Leo\ALTEX DWGS\HardwareNose\10-100705.SLDDRW", 0, FALSE, FALSE Part.SelectByID "Sheet1", "SHEET", 0.3511997417943, 0.1643391115974, 0 Part.ViewZoomTo2 0.359392, 0.0906119, -6.62892e-016, 0.55407, 0.0062833, -7.40286e-017 Part.SelectByID "Sheet1", "SHEET", 0.4580396688965, 0.08443856423882, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem88@Template1", "NOTE", 0.513662095905, 0.02996130484526, 0 Part.SelectByID "DetailItem88@Template1", "NOTE", 0.5134985005314, 0.02996130484526, 0 Part.InsertNewNote3 "FLAT BAR, RIGHT NOSE", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem88@Template1", "NOTE", 0.5061367087215, 0.02963411409816, 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("FlBarRightNose") Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.4926307768053, 0.03182280962801, 0 Part.SelectByID "Sheet1", "SHEET", 0.4362511137856, 0.1373539737418, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "Template1", "SHEET", 0.5056414682713, 0.03230468708972, 0 Part.SelectByID "DetailItem88@Template1", "NOTE", 0.509496487965, 0.0308590547046, 0 Part.SelectByID "DetailItem88@Template1", "NOTE", 0.509496487965, 0.03037717724289, 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("FlBarRightNose") Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "DetailItem88@Template1", "NOTE", 0.5144800727727, 0.03143366320725, 0 Part.SelectByID "DetailItem88@Template1", "NOTE", 0.5141528820256, 0.0294705187246, 0 Part.InsertNewNote3 "FLAT BAR, RIGHT NOSE", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "Template1", "SHEET", 0.4799614489528, 0.09948933860581, 0 Part.SelectByID "Template1", "SHEET", 0.4622931486089, 0.06039004432635, 0 Part.SelectByID "DetailItem95@Template1", "NOTE", 0.4616387671147, 0.06039004432635, 0 Part.InsertNewNote3 "FLAT BAR, RIGHT NOSE", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem96@Template1", "NOTE", 0.5197151247265, 0.06055363969991, 0 Part.InsertNewNote3 "UHMWPE", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem97@Template1", "NOTE", 0.5418005001563, 0.06104442582057, 0 Part.InsertNewNote3 "1", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem82@Template1", "NOTE", 0.3880208490153, 0.02309029915599, 0 Part.InsertNewNote3 "10-100000", 1, 1, 1, 0, 0, 0, 0, 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("FlBarRightNose") Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ViewZoomTo2 0.34614, 0.0973581, -2.62821e-015, 0.558166, 0.000982652, -1.95523e-015 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("FlBarRightNose") Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "DetailItem83@Template1", "NOTE", 0.4068343169741, 0.02407187139731, 0 Part.SelectByID "DetailItem83@Template1", "NOTE", 0.4068343169741, 0.02407187139731, 0 Part.SelectByID "DetailItem83@Template1", "NOTE", 0.4068343169741, 0.02407187139731, 0 Part.SelectByID "DetailItem83@Template1", "NOTE", 0.4065071262269, 0.02390827602376, 0 Part.SelectByID "DetailItem83@Template1", "NOTE", 0.4042167909972, 0.02325389452954, 0 Part.SelectByID "DetailItem83@Template1", "NOTE", 0.4047075771178, 0.02407187139731, 0 Part.InsertNewNote3 "ALTEX", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem83@Template1", "NOTE", 0.4066707216005, 0.02358108527665, 0 Part.SelectByID "DetailItem83@Template1", "NOTE", 0.4084702707096, 0.02292670378243, 0 Part.SelectByID "Template1", "SHEET", 0.4110877966865, 0.07674958168178, 0 Part.SelectByID "DetailItem36@Template1", "NOTE", 0.436935865708, 0.02521703901219, 0 Part.InsertNewNote3 "UHMW POLYETHYLENE", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem36@Template1", "NOTE", 0.4454428251329, 0.02587142050641, 0 Part.SelectByID "DetailItem36@Template1", "NOTE", 0.4349727212254, 0.02521703901219, 0 Part.SelectByID "DetailItem36@Template1", "NOTE", 0.4349727212254, 0.02521703901219, 0 Part.InsertNewNote3 "UHMW POLYETHYLENE", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem36@Template1", "NOTE", 0.4308828368865, 0.0255442297593, 0 Part.SelectByID "DetailItem37@Template1", "NOTE", 0.4361178888403, 0.01916401019068, 0 Part.InsertNewNote3 "NONE", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "Template1", "SHEET", 0.4379174379494, 0.02063636855267, 0 Part.SelectByID "DetailItem37@Template1", "NOTE", 0.4388990101907, 0.01932760556424, 0 Part.SelectByID "DetailItem37@Template1", "NOTE", 0.4388990101907, 0.01900041481713, 0 Part.InsertNewNote3 "NONE", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem84@Template1", "NOTE", 0.4567309059081, 0.03388759381057, 0 Part.InsertNewNote3 "DANA C.", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem85@Template1", "NOTE", 0.4735812293842, 0.03388759381057, 0 Part.InsertNewNote3 "3/8/00", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "Template1", "SHEET", 0.4181223977493, 0.1024340553298, 0 Part.ViewZoomtofit2 Part.SelectByID "Template1", "SHEET", 0.2634980437637, 0.1855417199125, 0 Part.SelectByID "Template1", "SHEET", 0.1507387177243, 0.3349237330416, 0 Part.SelectByID "DetailItem99@Template1", "NOTE", 0.05050820568928, 0.4033503326039, 0 Part.SelectByID "DetailItem98@Template1", "NOTE", 0.03123310722101, 0.408169107221, 0 Part.SelectByID "Template1", "SHEET", 0.07845709846827, 0.09976753172867, 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("FlBarRightNose") Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "Template1", "SHEET", 0.1782057330416, 0.2568595842451, 0 Part.SelectByID "Template1", "SHEET", 0.2683168183807, 0.3064929628009, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.SelectByID "Sheet1", "SHEET", 0.2659074310722, 0.1985524113786, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("FlBarRightNose") Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ViewZoomtofit2 Part.SelectByID "Template1", "SHEET", 0.1071288074398, 0.127234547046, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem102@Drawing View5", "NOTE", 0.0700242428884, 0.02748591247265, 0 Part.EditSketch Part.EditCopy swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("FlBarRightNose") Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "Template1", "SHEET", 0.0447256761488, 0.03230468708972, 0 Part.SelectByID "Template1", "SHEET", 0.03316061706783, 0.03326844201313, 0 Part.Paste swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Part.EditSketch Part.EditSketch swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 465 Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.ViewZoomTo2 -0.0187068, 0.103269, -7.51279e-016, 0.156123, -0.00768011, 2.34775e-017 Part.SetPickMode Part.ClearSelection Part.SelectByID "DetailItem99@Template1", "NOTE", 0.04527588112581, 0.03918406980945, 0 Part.SelectByID "DetailItem99@Template1", "NOTE", 0.04527588112581, 0.03918406980945, 0 Part.InsertNewNote3 "1) BREAK ALL SHARP EDGES - 0.02 MAX.", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem98@Template1", "NOTE", 0.0345479370666, 0.04398341320436, 0 Part.SelectByID "DetailItem98@Template1", "NOTE", 0.0345479370666, 0.04398341320436, 0 Part.InsertNewNote3 "NOTE:", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "Template1", "SHEET", 0.06560251197483, 0.08350741763301, 0 Part.SelectByID "DetailItem99@Template1", "NOTE", 0.04329968090438, 0.03918406980945, 0 Part.SelectByID "DetailItem98@Template1", "NOTE", 0.03737108024008, 0.04426572752171, 0 Part.SelectByID "DetailItem99@Template1", "NOTE", 0.04471125249111, 0.0394663841268, 0 Part.SelectByID "Template1", "SHEET", 0.04555819544316, 0.03438472641454, 0 Part.ClearSelection Part.SelectByID "DetailItem102@Template1", "NOTE", 0.04696976702989, 0.03156158324107, 0 Part.SelectByID "DetailItem102@Template1", "NOTE", 0.04866365293398, 0.03156158324107, 0 Part.SelectByID "Template1", "SHEET", 0.06277936880135, 0.05132358545539, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 463 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 430 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 275 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 112 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 105 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 107 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 123 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 139 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 143 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 144 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 147 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 150 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 152 Part.ViewZoomTo2 0.0509238, 0.359042, -4.50525e-015, 0.469338, 0.0947801, -2.65992e-015 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 153 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 172 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 215 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 226 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 227 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 258 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 298 swApp.ArrangeWindows 2 swApp.ActiveDoc.ActiveView.FrameWidth = 683 swApp.ActiveDoc.ActiveView.FrameHeight = 931 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 683 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameLeft = 683 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 683 swApp.ActiveDoc.ActiveView.FrameHeight = 929 swApp.ActiveDoc.ActiveView.FrameWidth = 669 swApp.ActiveDoc.ActiveView.FrameHeight = 854 swApp.ActiveDoc.ActiveView.FrameWidth = 667 swApp.ActiveDoc.ActiveView.FrameHeight = 770 swApp.ActiveDoc.ActiveView.FrameWidth = 653 swApp.ActiveDoc.ActiveView.FrameHeight = 626 swApp.ActiveDoc.ActiveView.FrameWidth = 653 swApp.ActiveDoc.ActiveView.FrameHeight = 558 swApp.ActiveDoc.ActiveView.FrameWidth = 656 swApp.ActiveDoc.ActiveView.FrameHeight = 524 swApp.ActiveDoc.ActiveView.FrameWidth = 677 swApp.ActiveDoc.ActiveView.FrameHeight = 460 swApp.ActiveDoc.ActiveView.FrameWidth = 683 swApp.ActiveDoc.ActiveView.FrameHeight = 431 swApp.ActiveDoc.ActiveView.FrameWidth = 683 swApp.ActiveDoc.ActiveView.FrameHeight = 440 swApp.ActiveDoc.ActiveView.FrameWidth = 683 swApp.ActiveDoc.ActiveView.FrameHeight = 441 Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameWidth = 682 swApp.ActiveDoc.ActiveView.FrameHeight = 931 swApp.ActiveDoc.ActiveView.FrameWidth = 670 swApp.ActiveDoc.ActiveView.FrameHeight = 808 swApp.ActiveDoc.ActiveView.FrameWidth = 662 swApp.ActiveDoc.ActiveView.FrameHeight = 569 swApp.ActiveDoc.ActiveView.FrameWidth = 667 swApp.ActiveDoc.ActiveView.FrameHeight = 499 swApp.ActiveDoc.ActiveView.FrameWidth = 674 swApp.ActiveDoc.ActiveView.FrameHeight = 483 swApp.ActiveDoc.ActiveView.FrameWidth = 682 swApp.ActiveDoc.ActiveView.FrameHeight = 482 swApp.ActiveDoc.ActiveView.FrameWidth = 683 swApp.ActiveDoc.ActiveView.FrameHeight = 468 swApp.ActiveDoc.ActiveView.FrameWidth = 683 swApp.ActiveDoc.ActiveView.FrameHeight = 456 swApp.ActiveDoc.ActiveView.FrameWidth = 683 swApp.ActiveDoc.ActiveView.FrameHeight = 447 swApp.ActiveDoc.ActiveView.FrameWidth = 683 swApp.ActiveDoc.ActiveView.FrameHeight = 445 swApp.ActiveDoc.ActiveView.FrameWidth = 683 swApp.ActiveDoc.ActiveView.FrameHeight = 440 swApp.ActiveDoc.ActiveView.FrameWidth = 685 swApp.ActiveDoc.ActiveView.FrameHeight = 439 Set Part = swApp.ActivateDoc ("FlBarRightNose") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 906 swApp.ActiveDoc.ActiveView.FrameWidth = 1363 swApp.ActiveDoc.ActiveView.FrameHeight = 739 swApp.ActiveDoc.ActiveView.FrameWidth = 1350 swApp.ActiveDoc.ActiveView.FrameHeight = 552 swApp.ActiveDoc.ActiveView.FrameWidth = 1348 swApp.ActiveDoc.ActiveView.FrameHeight = 526 swApp.ActiveDoc.ActiveView.FrameWidth = 1331 swApp.ActiveDoc.ActiveView.FrameHeight = 444 swApp.ActiveDoc.ActiveView.FrameWidth = 1324 swApp.ActiveDoc.ActiveView.FrameHeight = 406 swApp.ActiveDoc.ActiveView.FrameWidth = 1325 swApp.ActiveDoc.ActiveView.FrameHeight = 406 swApp.ActiveDoc.ActiveView.FrameWidth = 1338 swApp.ActiveDoc.ActiveView.FrameHeight = 406 swApp.ActiveDoc.ActiveView.FrameWidth = 1351 swApp.ActiveDoc.ActiveView.FrameHeight = 406 swApp.ActiveDoc.ActiveView.FrameWidth = 1351 swApp.ActiveDoc.ActiveView.FrameHeight = 408 swApp.ActiveDoc.ActiveView.FrameWidth = 1352 swApp.ActiveDoc.ActiveView.FrameHeight = 408 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 408 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 5 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 14 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 19 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 24 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 33 swApp.ActiveDoc.ActiveView.FrameLeft = 2 swApp.ActiveDoc.ActiveView.FrameTop = 42 swApp.ActiveDoc.ActiveView.FrameLeft = 2 swApp.ActiveDoc.ActiveView.FrameTop = 48 swApp.ActiveDoc.ActiveView.FrameLeft = 5 swApp.ActiveDoc.ActiveView.FrameTop = 61 swApp.ActiveDoc.ActiveView.FrameLeft = 10 swApp.ActiveDoc.ActiveView.FrameTop = 209 swApp.ActiveDoc.ActiveView.FrameLeft = 5 swApp.ActiveDoc.ActiveView.FrameTop = 340 swApp.ActiveDoc.ActiveView.FrameLeft = -6 swApp.ActiveDoc.ActiveView.FrameTop = 409 swApp.ActiveDoc.ActiveView.FrameLeft = -7 swApp.ActiveDoc.ActiveView.FrameTop = 431 swApp.ActiveDoc.ActiveView.FrameLeft = -9 swApp.ActiveDoc.ActiveView.FrameTop = 445 swApp.ActiveDoc.ActiveView.FrameLeft = -9 swApp.ActiveDoc.ActiveView.FrameTop = 446 swApp.ActiveDoc.ActiveView.FrameLeft = -9 swApp.ActiveDoc.ActiveView.FrameTop = 447 swApp.ActiveDoc.ActiveView.FrameLeft = -9 swApp.ActiveDoc.ActiveView.FrameTop = 450 swApp.ActiveDoc.ActiveView.FrameLeft = -9 swApp.ActiveDoc.ActiveView.FrameTop = 455 swApp.ActiveDoc.ActiveView.FrameLeft = -9 swApp.ActiveDoc.ActiveView.FrameTop = 457 swApp.ActiveDoc.ActiveView.FrameLeft = -9 swApp.ActiveDoc.ActiveView.FrameTop = 458 swApp.ActiveDoc.ActiveView.FrameLeft = -9 swApp.ActiveDoc.ActiveView.FrameTop = 459 swApp.ActiveDoc.ActiveView.FrameLeft = -8 swApp.ActiveDoc.ActiveView.FrameTop = 459 swApp.ActiveDoc.ActiveView.FrameLeft = -8 swApp.ActiveDoc.ActiveView.FrameTop = 457 swApp.ActiveDoc.ActiveView.FrameLeft = -8 swApp.ActiveDoc.ActiveView.FrameTop = 456 swApp.ActiveDoc.ActiveView.FrameLeft = -7 swApp.ActiveDoc.ActiveView.FrameTop = 454 swApp.ActiveDoc.ActiveView.FrameLeft = -6 swApp.ActiveDoc.ActiveView.FrameTop = 451 swApp.ActiveDoc.ActiveView.FrameLeft = -6 swApp.ActiveDoc.ActiveView.FrameTop = 449 swApp.ActiveDoc.ActiveView.FrameLeft = -5 swApp.ActiveDoc.ActiveView.FrameTop = 449 swApp.ActiveDoc.ActiveView.FrameLeft = -5 swApp.ActiveDoc.ActiveView.FrameTop = 447 swApp.ActiveDoc.ActiveView.FrameLeft = -2 swApp.ActiveDoc.ActiveView.FrameTop = 443 swApp.ActiveDoc.ActiveView.FrameLeft = -1 swApp.ActiveDoc.ActiveView.FrameTop = 442 swApp.ActiveDoc.ActiveView.FrameLeft = 2 swApp.ActiveDoc.ActiveView.FrameTop = 441 swApp.ActiveDoc.ActiveView.FrameLeft = 5 swApp.ActiveDoc.ActiveView.FrameTop = 439 swApp.ActiveDoc.ActiveView.FrameLeft = 6 swApp.ActiveDoc.ActiveView.FrameTop = 438 swApp.ActiveDoc.ActiveView.FrameLeft = 6 swApp.ActiveDoc.ActiveView.FrameTop = 440 swApp.ActiveDoc.ActiveView.FrameLeft = 4 swApp.ActiveDoc.ActiveView.FrameTop = 440 Part.SetPickMode Part.ShowNamedView2 "*Front", 1 Part.ShowNamedView2 "*Isometric", 7 Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.SelectByID "Template1", "SHEET", 0.1188616747967, 0.2141096097561, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "Template1", "SHEET", 0.2203171219512, 0.2630469430894, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("FlBarRightNose") Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.Create3rdAngleViews "E:\Leo\Launch\FlBarRightNose.SLDPRT" Part.EditSketch Part.SelectByID "Drawing View2", "DRAWINGVIEW", 0.2119619674797, 0.3107906829268, 0 Part.SelectByID "Drawing View2", "DRAWINGVIEW", 0.1809285365854, 0.3012419349593, 0 Part.EditSketch Part.EditSketch Part.SelectByID "Drawing View3", "DRAWINGVIEW", 0.4005497398374, 0.1042990081301, 0 Part.SelectByID "Drawing View3", "DRAWINGVIEW", 0.3814522439024, 0.08878229268293, 0 Part.EditSketch Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.2155427479675, 0.106686195122, 0 Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.2298658699187, 0.106686195122, 0 Part.EditSketch Part.EditSketch Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0.1654118211382, 0.1532363414634, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.CreateUnfoldedViewAt2 0.07469871544715, 0.1747912357724, 0, 0 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "Drawing View2", "DRAWINGVIEW", 0.1570566666667, 0.2487238211382, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.CreateUnfoldedViewAt2 0.2232515447154, 0.3275009918699, 0, 0 Part.ClearSelection Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.4518742601626, 0.2690149105691, 0 Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("FlBarRightNose") Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.CreateDrawViewFromModelView "E:\Leo\Launch\FlBarRightNose.SLDPRT", "*Dimetric", 0.4220344227642, 0.2869188130081, 0 ' MSGBOX ' SolidWorks has determined that this view may need Isometric (True) dimensions ' instead of standard Projected dimensions. ' Do you want to switch the view to use Isometric (True) dimensions? Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("FlBarRightNose") swApp.ActiveDoc.ActiveView.FrameLeft = 4 swApp.ActiveDoc.ActiveView.FrameTop = 440 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Part.EditSketch swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 465 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0137936, 0.384566, -2.71556e-015, 0.419488, 0.115597, -8.37363e-016 Part.ViewZoomTo2 0.0407503, 0.201147, -2.37385e-015, 0.108506, 0.153239, -2.03931e-015 Part.ViewOrientationUndo Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.SelectByID "Sheet1", "SHEET", 0.3327524333969, 0.2057296267176, 0 Part.AndSelectByID "RD1@Drawing View3", "DIMENSION", 0.3314075906489, 0.2070744694656, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "RD1@Drawing View3", "DIMENSION", 0.3347696975191, 0.2077468908397, 0 Part.SelectByID "RD1@Drawing View3", "DIMENSION", 0.3253557982824, 0.2084193122137, 0 Part.SelectByID "Drawing View3", "DRAWINGVIEW", 0.3831840364504, 0.211781419084, 0 Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0.09208017295029, 0.1717178093351, 0 Part.EditSketch Part.EditSketch Part.ClearSelection Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.06881062921741, 0.1778773944374, -499.8194102375 Part.AddDimension 0.100977, 0.206622, -1.16688e-015 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.InsertBaseDim Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.294662, 0.227838, -2.56024e-015, 0.448652, 0.116966, -1.78602e-015 Part.SetPickMode Part.EditSketch Part.SelectByID "", "EDGE", 0.385762817007, 0.178749871717, -499.7559102125 Part.SelectByID "", "VERTEX", 0.3662966472834, 0.1810068189313, -499.7559102125 Part.EditSketch Part.ClearSelection Part.EditSketch Part.InsertBaseDim Part.SelectByID "", "EDGE", 0.3854806986052, 0.178749871717, -499.7559102125 Part.AddDimension 0.366297, 0.181289, 0 Part.SelectByID "", "VERTEX", 0.3662966472834, 0.1812889373331, -499.7559102125 Part.AddDimension 0.355012, 0.181289, 0 Part.SelectByID "", "VERTEX", 0.3550119112118, 0.1812889373331, -499.7971852125 Part.InsertBaseDim Part.EditSketch Part.ClearSelection Part.EditSketch Part.InsertBaseDim Part.SelectByID "", "EDGE", 0.3866091722123, 0.1725432668776, -499.7559102125 Part.AddDimension 0.37476, 0.168594, 0 Part.SelectByID "", "VERTEX", 0.3747601993371, 0.1685936092525, -499.7559102125 Part.AddDimension 0.363475, 0.168594, 0 Part.SelectByID "", "VERTEX", 0.3634754632655, 0.1685936092525, -499.7971852125 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SetPickMode Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.SelectByID "Sheet1", "SHEET", 0.1256466501908, 0.2010226770992, 0 Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem103@Drawing View5", "NOTE", 0.1337157066794, 0.2023675198473, 0 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.SelectByID "DetailItem103@Drawing View3", "NOTE", 0.3575509768279, 0.1894703709885, 0 Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem103@Drawing View3", "NOTE", 0.3273643078363, 0.1635154780238, 0 Part.DeSelectByID "DetailItem103@Drawing View3", "NOTE", 0.3569867400243, 0.1770571613098, 0 Part.EditSketch Part.SelectByID "DetailItem103@Drawing View3", "NOTE", 0.3095908485235, 0.152512860354, 0 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.3473947143634, 0.1307897434161, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection Part.EditSketch Part.SelectByID "", "EDGE", 0.1558363195476, 0.1784677533152, -499.9078049441 Part.AndSelectByID "", "EDGE", 0.2898425603981, 0.1773392797081, -499.8869215745 Part.AddDimension 0.22298, 0.212322, 0 Part.ClearSelection Part.SetPickMode Part.SelectByID "RD1@Drawing View1", "DIMENSION", 0.2229804991737, 0.2123219615336, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditDelete Part.EditSketch Part.EditSketch Part.EditSketch Part.InsertBaseDim Part.EditSketch Part.SelectByID "", "EDGE", 0.1564005563511, 0.1784677533152, -499.9078049441 Part.AddDimension 0.17897, 0.177904, 0 Part.SelectByID "", "EDGE", 0.1789700284944, 0.1779035165116, -499.9078049441 Part.AddDimension 0.28956, 0.17875, 0 Part.SelectByID "", "EDGE", 0.2895604419963, 0.178749871717, -499.8850536769 Part.EditSketch Part.EditSketch Part.InsertBaseDim Part.EditSketch Part.EditSketch Part.ClearSelection Part.EditSketch Part.SelectByID "", "EDGE", 0.1566826747529, 0.2591536162273, -499.8772846137 Part.SetPickMode Part.ClearSelection Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.1738918972622, 0.2571787874148, -499.8772846137 Part.AddDimension 0.174174, 0.219939, 0 Part.ClearSelection Part.SelectByID "", "EDGE", 0.281943245148, 0.2442013409324, -499.8772846137 Part.AddDimension 0.281379, 0.220503, 0 Part.ClearSelection Part.SelectByID "", "EDGE", 0.160632332378, 0.2639496290578, -499.8772846137 Part.SetPickMode Part.ClearSelection Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.1558363195476, 0.2602820898345, -499.8772846137 Part.AddDimension 0.135524, 0.261411, 0 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.InsertBaseDim Part.SelectByID "", "EDGE", 0.1561184379494, 0.3282726246661, -499.8579202559 Part.AddDimension 0.179252, 0.324605, -2.31708e-015 Part.SelectByID "", "EDGE", 0.1792521468962, 0.3246050854428, -499.8579202559 Part.AddDimension 0.236804, 0.324887, -2.31708e-015 Part.SelectByID "", "EDGE", 0.2368043008615, 0.3248872038446, -499.8579202559 Part.AddDimension 0.281379, 0.324605, -2.31708e-015 Part.SelectByID "", "EDGE", 0.2813790083444, 0.3246050854428, -499.8579202559 Part.InsertBaseDim Part.EditSketch Part.ClearSelection Part.EditSketch Part.SelectByID "", "EDGE", 0.1609144507798, 0.3209375462195, -499.8579202559 Part.AndSelectByID "", "EDGE", 0.1789700284944, 0.324322967041, -499.8579202559 Part.AddDimension 0.135806, 0.337583, -2.31708e-015 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0746021, 0.347934, -3.29602e-015, 0.315541, 0.0872387, -1.47559e-015 Part.EditSketch Part.EditSketch Part.EditSketch Part.AndSelectByID "", "EDGE", 0.1682602883614, 0.3208380436022, -499.8579202559 Part.AndSelectByID "", "EDGE", 0.1776727154116, 0.3234050691613, -499.8579202559 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.05844863944285, 0.1787959626633, -499.7559102375 Part.SelectByID "", "FACE", 0.06757584143089, 0.1773698373527, -499.8352852375 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection Part.EditUndo 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.05873386450498, 0.1759437120421, -499.7559102375 Part.AndSelectByID "", "EDGE", 0.06786106649302, 0.1767993872284, -499.8194102375 Part.AddDimension 0.0401942, 0.203325, -1.16688e-015 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.06158611512624, 0.1810777631603, -499.7559102375 Part.AddDimension 0.0687167, 0.177655, -1.16688e-015 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditUndo 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.06158611512624, 0.1810777631603, -499.7559102375 Part.AndSelectByID "", "EDGE", 0.06928719180365, 0.1762289371042, -499.8194102375 Part.AddDimension 0.0453283, 0.167672, -1.16688e-015 Part.ClearSelection Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.1599887615598, 0.3205528185401, -499.8579202559 Part.AndSelectByID "", "EDGE", 0.1773874903495, 0.3236902942234, -499.8579202559 Part.AddDimension 0.136886, 0.307432, -2.31708e-015 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.1799545159086, 0.3256868696583, -499.8579202559 Part.AddDimension 0.212185, 0.355065, -2.31708e-015 Part.ClearSelection Part.SelectByID "", "EDGE", 0.2381404285824, 0.3248311944719, -499.8579202559 Part.AddDimension 0.270941, 0.355065, -2.31708e-015 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SetPickMode Part.EditSketch Part.EditSketch Part.SelectByID "RD1@Drawing View1", "DIMENSION", 0.1645523625538, 0.1902049651519, 0 Part.EditDelete Part.EditSketch Part.EditSketch Part.SelectByID "RD2@Drawing View1", "DIMENSION", 0.2238791754761, 0.1964799165186, 0 Part.EditSketch Part.SelectByID "RD2@Drawing View2", "DIMENSION", 0.2794980625907, 0.2204388217372, 0 Part.SelectByID "RD2@Drawing View2", "DIMENSION", 0.2789276124664, 0.2227206222342, 0 Part.SelectByID "Sheet1", "SHEET", 0.1879408176482, 0.2135934202462, 0 Part.SelectByID "RD2@Drawing View2", "DIMENSION", 0.2789276124664, 0.2218649470479, 0 Part.AndSelectByID "RD1@Drawing View2", "DIMENSION", 0.1736795645418, 0.2178717961781, 0 Part.SelectByID "RD1@Drawing View2", "DIMENSION", 0.1736795645418, 0.2184422463024, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.AlignParallelDimensions Part.AlignDimensions Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.2663777097329, 0.2811917599701, 0 Part.SelectByID "RD2@Drawing View2", "DIMENSION", 0.27807193728, 0.2173013460538, 0 Part.SelectByID "RD1@Drawing View2", "DIMENSION", 0.1713977640448, 0.2170161209917, 0 Part.SelectByID "RD1@Drawing View2", "DIMENSION", 0.1742500146661, 0.2178717961781, 0 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.117490227303, 0.3670445036701, 0 Part.CenterMark Part.SelectByID "", "EDGE", 0.1805249660329, 0.3239755192856, -499.8579202559 Part.AddCenterMark 0.00254,1 Part.SelectByID "", "EDGE", 0.2344325027747, 0.3245459694098, -499.8579202559 Part.AddCenterMark 0.00254,1 Part.SelectByID "", "EDGE", 0.2789276124664, 0.3242607443477, -499.8579202559 Part.AddCenterMark 0.00254,1 Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.180810191095, 0.1767993872284, -499.9078049441 Part.AddCenterMark 0.00254,1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.06843151661727, 0.1750880368557, -499.8194102375 Part.AddCenterMark 0.00254,1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.171683, 0.330536, -4.023e-015, 0.204199, 0.306292, -3.8537e-015 Part.ViewOrientationUndo Part.SetPickMode Part.ClearSelection Part.SelectByID "RD5@Drawing View5", "DIMENSION", 0.212470172991, 0.3556355011851, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "RD6@Drawing View5", "DIMENSION", 0.2706560856648, 0.3533537006881, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "Drawing View1", "DRAWINGVIEW", 0, 0, 0 Part.SelectByID "Drawing View2", "DRAWINGVIEW", 0, 0, 0 Part.EditSketch Part.SelectByID "Drawing View3", "DRAWINGVIEW", 0, 0, 0 Part.EditSketch Part.SelectByID "FlBarRightNose-2@Drawing View2", "COMPONENT", 0, 0, 0 Part.SelectByID "Drawing View4", "DRAWINGVIEW", 0, 0, 0 Part.SelectByID "FlBarRightNose-4@Drawing View4", "COMPONENT", 0, 0, 0 Part.SelectByID "FlBarRightNose-4@Drawing View4", "COMPONENT", 0, 0, 0 Part.SelectByID "Boss-Extrude1@FlBarRightNose-4@Drawing View4", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.EditSketch Part.SelectByID "Cut-Extrude1@FlBarRightNose-4@Drawing View4", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.EditSketch Part.SelectByID "Sketch3@FlBarRightNose-4@Drawing View4", "SKETCH", 0, 0, 0 Part.SelectByID "Cut-Extrude1@FlBarRightNose-4@Drawing View4", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude1@FlBarRightNose-4@Drawing View4", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.EditSketch Part.SelectByID "Cut-Extrude1@FlBarRightNose-4@Drawing View4", "BODYFEATURE", 0, 0, 0 Part.ActivateSelectedFeature Part.EditSketch Part.SelectByID "Cut-Extrude1@FlBarRightNose-4@Drawing View4", "BODYFEATURE", 0, 0, 0 Part.EditSketch Part.EditSketch Part.SelectByID "Cut-Extrude1@FlBarRightNose-4@Drawing View4", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude1@FlBarRightNose-4@Drawing View4", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude1@FlBarRightNose-4@Drawing View4", "BODYFEATURE", 0, 0, 0 Part.SelectedFeatureProperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "Cut-Extrude1" Part.SelectByID "Cut-Extrude1@FlBarRightNose-4@Drawing View4", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude1@FlBarRightNose-4@Drawing View4", "BODYFEATURE", 0, 0, 0 Part.SelectByID "Cut-Extrude2@FlBarRightNose-4@Drawing View4", "BODYFEATURE", 0, 0, 0 Part.EditSketch Part.EditSketch Part.SelectByID "Cut-Extrude2@FlBarRightNose-4@Drawing View4", "BODYFEATURE", 0, 0, 0 Part.ViewZoomToSelection Part.ViewOrientationUndo Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("FlBarRightNose") swApp.ActiveDoc.ActiveView.FrameLeft = 4 swApp.ActiveDoc.ActiveView.FrameTop = 440 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ShowNamedView2 "*Front", 1 Part.ShowNamedView2 "*Back", 2 Part.ShowNamedView2 "*Left", 3 Part.ShowNamedView2 "*Right", 4 Part.ShowNamedView2 "*Top", 5 Part.ShowNamedView2 "*Bottom", 6 Part.ShowNamedView2 "*Isometric", 7 Part.ViewSection Part.AndSelectByID "Font", "PLANE", 0, 0, 0 Part.ClearSelection Part.AndSelectByID "Font", "PLANE", 0, 0, 0 swApp.ActiveDoc.ActiveView.FrameLeft = 4 swApp.ActiveDoc.ActiveView.FrameTop = 440 swApp.ActiveDoc.ActiveView.FrameLeft = 4 swApp.ActiveDoc.ActiveView.FrameTop = 440 Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.EditSketch Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.4611849158397, 0.2245574251908, 0 Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "Drawing View3", "DRAWINGVIEW", 0.3861900689825, 0.2079536199492, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameState = 0 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.09986977516122, 0.2070907090181, 0 Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.106117384692, 0.1993555734086, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("FlBarRightNose") swApp.ActiveDoc.ActiveView.FrameLeft = 4 swApp.ActiveDoc.ActiveView.FrameTop = 440 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ActiveView().RotateAboutCenter 0, 0.00736049 Part.ActiveView().RotateAboutCenter 0, 0.0883259 Part.ActiveView().RotateAboutCenter -0.00847691, 0.110407 Part.ActiveView().RotateAboutCenter -0.00847691, 0.132489 Part.ActiveView().RotateAboutCenter 0, 0.224495 Part.ActiveView().RotateAboutCenter -0.00565127, 0.110407 Part.ActiveView().RotateAboutCenter -0.00565127, 0.217135 Part.ActiveView().RotateAboutCenter -0.00565127, 0.110407 Part.ActiveView().RotateAboutCenter -0.00565127, 0.0956864 Part.ActiveView().RotateAboutCenter 0, 0.0478432 Part.ActiveView().RotateAboutCenter 0, 0.0368025 Part.ActiveView().RotateAboutCenter 0, 0.125128 Part.ActiveView().RotateAboutCenter 0, 0.0772852 Part.ActiveView().RotateAboutCenter 0, 0.0920062 Part.ActiveView().RotateAboutCenter 0, 0.044163 Part.ActiveView().RotateAboutCenter 0, 0.058884 Part.ActiveView().RotateAboutCenter 0, 0.058884 Part.ActiveView().RotateAboutCenter 0.00282564, 0.202414 Part.ActiveView().RotateAboutCenter 0, 0.0184012 Part.ActiveView().RotateAboutCenter 0.00847691, 0.0552037 Part.ActiveView().RotateAboutCenter 0, 0.0110407 Part.ActiveView().RotateAboutCenter 0.00565127, 0 Part.ActiveView().RotateAboutCenter 0.0169538, 0.00368025 Part.ActiveView().RotateAboutCenter 0.0423845, 0.0257617 Part.ActiveView().RotateAboutCenter 0.0282564, 0.0257617 Part.ActiveView().RotateAboutCenter 0.0254307, 0.0220815 Part.ActiveView().RotateAboutCenter 0.0282564, 0.0184012 Part.ActiveView().RotateAboutCenter 0.0508614, 0.0110407 Part.ActiveView().RotateAboutCenter 0.0367333, 0.014721 Part.ActiveView().RotateAboutCenter 0.0565127, 0.0257617 Part.ActiveView().RotateAboutCenter 0.0169538, 0.014721 Part.ActiveView().RotateAboutCenter 0.0169538, 0.014721 Part.ActiveView().RotateAboutCenter 0.0197794, 0.0331222 Part.ActiveView().RotateAboutCenter 0.00282564, 0 Part.ActiveView().RotateAboutCenter 0.00847691, 0 Part.ActiveView().RotateAboutCenter 0.0706409, 0.014721 Part.ActiveView().RotateAboutCenter 0.00282564, 0 Part.ActiveView().RotateAboutCenter 0.00565127, 0 Part.ActiveView().RotateAboutCenter 0.00847691, 0.00736049 Part.ActiveView().RotateAboutCenter 0.0226051, 0 Part.ActiveView().RotateAboutCenter 0.0226051, 0.014721 Part.ActiveView().RotateAboutCenter 0.0113025, 0.00368025 Part.ActiveView().RotateAboutCenter 0.00847691, 0.0184012 Part.ActiveView().RotateAboutCenter 0, 0.0846457 Part.ActiveView().RotateAboutCenter -0.00282564, 0 Part.ActiveView().RotateAboutCenter -0.031082, 0.00368025 Part.ActiveView().RotateAboutCenter -0.00847691, 0 Part.ActiveView().RotateAboutCenter -0.0197794, 0 Part.ActiveView().RotateAboutCenter -0.0254307, 0 Part.ActiveView().RotateAboutCenter -0.0197794, 0 Part.ActiveView().RotateAboutCenter -0.0480358, -0.0404827 Part.ActiveView().RotateAboutCenter -0.0423845, -0.114088 Part.ActiveView().RotateAboutCenter 0, -0.0220815 Part.ActiveView().RotateAboutCenter 0, -0.0662444 Part.ActiveView().RotateAboutCenter 0, -0.0331222 Part.ActiveView().RotateAboutCenter 0.00847691, -0.00368025 Part.ActiveView().RotateAboutCenter 0.0169538, 0 Part.ActiveView().RotateAboutCenter 0.0254307, -0.0184012 Part.ActiveView().RotateAboutCenter 0.0395589, -0.0331222 Part.ActiveView().RotateAboutCenter 0.00847691, -0.00368025 Part.ActiveView().RotateAboutCenter -0.00282564, 0 Part.SetPickMode Part.ClearSelection Part.AndSelectByID "", "EDGE", -0.3898294894432, -0.1360909394785, 0.02163368441279 Part.AndSelectByID "", "FACE", -0.3825702743472, -0.1355341172308, 0.01573782103861 Part.DeSelectByID "", "FACE", -0.3825702743472, -0.1355341172308, 0.01573782103861 Part.DeSelectByID "", "EDGE", -0.3898294894432, -0.1360909394785, 0.02163368441279 Part.AndSelectByID "", "FACE", -0.3824946573432, -0.1370897655988, 0.01772521669065 Part.ViewDisplayHiddengreyed Part.EditDelete Part.DeSelectByID "", "FACE", -0.3824946573432, -0.1370897655988, 0.01772521669065 Part.AndSelectByID "", "EDGE", -0.3739279042227, -0.1368889083957, 0.02029153349704 swApp.ActiveDoc.ActiveView.FrameLeft = 4 swApp.ActiveDoc.ActiveView.FrameTop = 440 swApp.ActiveDoc.ActiveView.FrameLeft = 4 swApp.ActiveDoc.ActiveView.FrameTop = 440 Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.104927363829, 0.2002480890559, 0 Part.EditSketch Part.EditSketch Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.1070099003392, 0.2011406047031, 0 Part.SelectByID "RD2@Drawing View4", "DIMENSION", 0.04483131024742, 0.2029256359976, 0 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.1102824577125, 0.1279543216285, 0 Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.ViewZoomTo2 0.295769, 0.253472, -4.13665e-015, 0.412098, 0.174126, -3.58258e-015 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.ViewZoomTo2 0.0352046, 0.229414, -3.31687e-015, 0.150627, 0.125268, -2.58962e-015 Part.ViewOrientationUndo Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.ViewOrientationUndo Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.111295, 0.396893, -4.76956e-015, 0.395953, 0.271375, -3.89307e-015 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.ViewZoomTo2 0.106183, 0.380657, -4.01169e-015, 0.327078, 0.264571, -3.20107e-015 Part.SetPickMode Part.ClearSelection Part.EditSketch Part.SelectByID "RD5@Drawing View5", "DIMENSION", 0.2116087230908, 0.3546631405844, 0 Part.EditSketch Part.EditSketch Part.SelectByID "RD6@Drawing View5", "DIMENSION", 0.2733439591597, 0.3546631405844, 0 Part.EditSketch Part.EditSketch Part.SelectByID "RD6@Drawing View5", "DIMENSION", 0.2754116464922, 0.3552539083937, 0 Part.AndSelectByID "RD5@Drawing View5", "DIMENSION", 0.2104271874723, 0.3543677566798, 0 Part.SelectByID "RD5@Drawing View5", "DIMENSION", 0.2113133391862, 0.3537769888705, 0 Part.SelectByID "RD5@Drawing View5", "DIMENSION", 0.206587196712, 0.354958524489, 0 Part.SelectByID "Sheet1", "SHEET", 0.1176766414167, 0.3401893292573, 0 Part.SelectByID "Sheet1", "SHEET", 0.3276945976127, 0.34609700735, 0 Part.SelectByID "RD6@Drawing View5", "DIMENSION", 0.2777747177293, 0.3520046854427, 0 Part.SelectByID "RD5@Drawing View5", "DIMENSION", 0.213085642614, 0.3534816049659, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.SelectByID "Center Mark1", "CENTERMARKS", 0.1689865853194, 0.3598446561001, 0 Part.EditSketch Part.ClearSelection Part.EditSketch Part.SelectByID "", "EDGE", 0.1645151827982, 0.3646354445122, -499.8586865334 Part.AndSelectByID "Center Mark1", "CENTERMARKS", 0.1696253571082, 0.3604834278888, 0 Part.AddDimension 0.139284, 0.348666, -2.39037e-015 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SetPickMode Part.EditSketch Part.EditSketch Part.SelectByID "RD2@Drawing View4", "DIMENSION", 0.1782487762562, 0.3812435110231, 0 Part.SelectByID "RD2@Drawing View4", "DIMENSION", 0.1782487762562, 0.3812435110231, 0 Part.SelectByID "Sheet1", "SHEET", 0.2069935067498, 0.3790078097624, 0 Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "RD2@Drawing View1", "DIMENSION", 0.2231286953716, 0.1954512159857, 0 Part.SelectByID "RD2@Drawing View1", "DIMENSION", 0.222833311467, 0.1954512159857, 0 Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.EditSketch Part.EditSketch Part.SelectByID "RD2@Drawing View1", "DIMENSION", 0.2229628014684, 0.2081363562729, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "RD3@Drawing View5", "DIMENSION", 0.09425028603617, 0.1752396091525, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "RD1@Drawing View5", "DIMENSION", 0.08498809509935, 0.2046231114348, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "RD2@Drawing View5", "DIMENSION", 0.09041765530369, 0.2100526716392, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "RD4@Drawing View5", "DIMENSION", 0.09584721550803, 0.1662968041101, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.SelectByID "RD2@Drawing View3", "DIMENSION", 0.3702298798803, 0.1987004389367, 0 Part.EditSketch Part.EditSketch Part.AndSelectByID "RD1@Drawing View3", "DIMENSION", 0.3746606384498, 0.1916112252255, 0 Part.AndSelectByID "RD3@Drawing View3", "DIMENSION", 0.3787960131147, 0.1600051474294, 0 Part.AndSelectByID "RD4@Drawing View3", "DIMENSION", 0.3764329418776, 0.1538020854321, 0 Part.EditSketch Part.AndSelectByID "RD2@Drawing View1", "DIMENSION", 0.2201748563253, 0.1957465998904, 0 Part.EditSketch Part.SelectByID "RD2@Drawing View3", "DIMENSION", 0.3702298798803, 0.1963373676996, 0 Part.EditSketch Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.3684575764524, 0.2102204112175, 0 Part.SelectByID "RD2@Drawing View3", "DIMENSION", 0.3681621925478, 0.1966327516043, 0 Part.AndSelectByID "RD1@Drawing View3", "DIMENSION", 0.3764329418776, 0.1898389217976, 0 Part.DeSelectByID "RD1@Drawing View3", "DIMENSION", 0.3752514062591, 0.1901343057023, 0 Part.DeSelectByID "RD2@Drawing View3", "DIMENSION", 0.3725929511173, 0.1969281355089, 0 Part.SelectByID "Sheet1", "SHEET", 0.3684575764524, 0.2040173492202, 0 Part.AndSelectByID "RD2@Drawing View3", "DIMENSION", 0.3708206476895, 0.1972235194135, 0 Part.SelectByID "RD2@Drawing View3", "DIMENSION", 0.3699344959756, 0.1966327516043, 0 Part.SelectByID "RD2@Drawing View3", "DIMENSION", 0.3714114154988, 0.1984050550321, 0 Part.SelectByID "Sheet1", "SHEET", 0.3758421740683, 0.2152419375963, 0 Part.SelectByID "RD2@Drawing View3", "DIMENSION", 0.3702298798803, 0.1972235194135, 0 Part.AndSelectByID "RD4@Drawing View3", "DIMENSION", 0.3737744867359, 0.1502574785765, 0 Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.AndSelectByID "RD2@Drawing View5", "DIMENSION", 0.0891401117262, 0.2106914434279, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.SelectByID "RD2@Drawing View5", "DIMENSION", 0.09712475908552, 0.2119689870054, 0 Part.SelectByID "RD2@Drawing View5", "DIMENSION", 0.09009826940932, 0.2106914434279, 0 Part.SelectByID "Sheet1", "SHEET", 0.1111777384379, 0.292134846493, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "RD2@Drawing View5", "DIMENSION", 0.08626563867684, 0.2126077587942, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection Part.EditSketch Part.EditSketch Part.SelectByID "", "EDGE", 0.3778649602393, 0.182904870614, -499.7689404375 Part.AndSelectByID "Center Mark4", "CENTERMARKS", 0.3727547859293, 0.1857793436668, 0 Part.AddDimension 0.393195, 0.198555, 0 Part.ClearSelection Part.SelectByID "", "EDGE", 0.3813782050774, 0.1883344308183, -499.7689404375 Part.AndSelectByID "Center Mark4", "CENTERMARKS", 0.3717966282462, 0.1835436424062, 0 Part.AddDimension 0.404055, 0.161187, 0 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SetPickMode Part.SelectByID "Drawing View3", "DRAWINGVIEW", 0.3829751345493, 0.2110108293223, 0 Part.SelectByID "RD3@Drawing View3", "DIMENSION", 0.4030964458948, 0.1605478580114, 0 Part.SelectByID "RD3@Drawing View3", "DIMENSION", 0.3532722463726, 0.1662968041101, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.AndSelectByID "DetailItem104@Drawing View4", "NOTE", 0.2092292080104, 0.1193470776373, 0 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.AndSelectByID "DetailItem105@Drawing View5", "NOTE", 0.1830395646718, 0.1177501481654, 0 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.SelectByID "DetailItem105@Drawing View1", "NOTE", 0.2671408971624, 0.1062452767857, 0 Part.SelectByID "DetailItem104@Drawing View3", "NOTE", 0.2910669934379, 0.1086083480228, 0 Part.SelectByID "DetailItem104@Drawing View3", "NOTE", 0.2825008602034, 0.1074268124043, 0 Part.InsertNewNote3 "FLAT BAR, RIGHT NOSE", 1, 1, 1, 0, 0, 0, 0, 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.CreateLine2 0.06769259937862, -0.1453626673031, 0, 0.2413783353045, -0.1453626673031, 0 Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Part.EditSketch Part.EditSketch swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 465 Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0821564, 0.346462, -2.44948e-015, 0.437419, 0.0931831, -6.80847e-016 Part.ViewZoomTo2 0.108336, 0.308438, -3.06828e-015, 0.404795, 0.107362, -1.66417e-015 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0513959, 0.207132, -3.3416e-015, 0.300567, 0.0730814, -2.40553e-015 Part.SetPickMode Part.EditSketch Part.EditSketch Part.SelectByID "RD2@Drawing View4", "DIMENSION", 0.09343605735404, 0.158014343336, 0 Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.08934290246782, 0.1515335147662, 0 Part.SelectByID "RD3@Drawing View4", "DIMENSION", 0.08115659269536, 0.1225403343221, 0 Part.SelectByID "RD4@Drawing View4", "DIMENSION", 0.08627303630315, 0.1129896395875, 0 Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.09070728742989, 0.1511924185257, 0 Part.SelectByID "RD2@Drawing View4", "DIMENSION", 0.09173057615145, 0.1583554395766, 0 Part.SelectByID "RD2@Drawing View4", "DIMENSION", 0.09173057615145, 0.1583554395766, 0 Part.EditSketch Part.EditSketch Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.08320317013848, 0.1505102260446, 0 Part.SelectByID "RD2@Drawing View4", "DIMENSION", 0.09138947991093, 0.1576732470955, 0 Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.08627303630315, 0.1583554395766, 0 Part.SelectByID "RD3@Drawing View4", "DIMENSION", 0.08252097765744, 0.1245869117652, 0 Part.SelectByID "RD4@Drawing View4", "DIMENSION", 0.08559084382211, 0.1143540245496, 0 Part.SelectByID "RD4@Drawing View4", "DIMENSION", 0.08559084382211, 0.1136718320686, 0 Part.SelectByID "RD3@Drawing View4", "DIMENSION", 0.07876891901173, 0.1239047192841, 0 Part.SelectByID "RD3@Drawing View4", "DIMENSION", 0.07842782277121, 0.1235636230436, 0 Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.08524974758159, 0.1569910546145, 0 Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.08524974758159, 0.156649958374, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "RD4@Drawing View4", "DIMENSION", 0.08968399870834, 0.1143540245496, 0 Part.SelectByID "RD4@Drawing View4", "DIMENSION", 0.08934290246782, 0.1160595057522, 0 Part.SelectByID "RD3@Drawing View4", "DIMENSION", 0.08115659269536, 0.1269745854488, 0 Part.SelectByID "RD2@Drawing View4", "DIMENSION", 0.09377715359456, 0.1651773643869, 0 Part.SelectByID "RD1@Drawing View4", "DIMENSION", 0.08661413254367, 0.1634718831843, 0 Part.SelectByID "RD2@Drawing View4", "DIMENSION", 0.09207167239197, 0.1662006531085, 0 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.1486936483181, 0.1058266185366, 0 Part.SelectByID "RD1@Drawing View1", "DIMENSION", 0.2404485370177, 0.157332150855, 0 Part.SelectByID "RD1@Drawing View1", "DIMENSION", 0.2404485370177, 0.157332150855, 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Part.SelectByID "", "EDGE", 0.3878021129219, 0.1426650125092, -499.7689404375 Part.AndSelectByID "Center Mark4", "CENTERMARKS", 0.3789336106684, 0.1436883012342, 0 Part.AddDimension 0.407245, 0.167906, 0 Part.ClearSelection Part.SelectByID "", "EDGE", 0.3850733429977, 0.1440293974713, -499.7689404375 Part.AndSelectByID "Center Mark4", "CENTERMARKS", 0.3785925144279, 0.1399362425885, 0 Part.AddDimension 0.405198, 0.129021, 0 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Part.SelectByID "", "EDGE", 0.1776868287622, 0.3486871417826, -499.8586865334 Part.AndSelectByID "Center Mark1", "CENTERMARKS", 0.1817799836484, 0.3517570079508, 0 Part.AddDimension 0.158244, 0.364378, -3.33027e-015 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.Save2 FALSE Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.SelectByID "Sheet1", "SHEET", 0.06155369953588, 0.3573215957261, 0 Part.EditSketch Part.EditSketch ' MSGBOX ' Some of the models referenced in this document have been modified. They must be saved when the document is saved. ' Save the document and the referenced models now? Part.Save2 FALSE Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 Set Part = swApp.ActivateDoc ("FlBarLeftNose") Part.EditRebuild Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.08134836323851, 0.3397425076586, 0 Part.Save2 FALSE Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 Set Part = swApp.ActivateDoc ("FlBarLeftNose") Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 465 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch swApp.ArrangeWindows 2 swApp.ActiveDoc.ActiveView.FrameWidth = 455 swApp.ActiveDoc.ActiveView.FrameHeight = 931 swApp.ArrangeWindows 1 swApp.ActiveDoc.ActiveView.FrameWidth = 1366 swApp.ActiveDoc.ActiveView.FrameHeight = 310 Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.ViewZoomTo2 -0.0981166, 0.241808, -4.38445e-015, 0.168366, 0.00493486, -2.73037e-015 Part.ViewZoomTo2 -0.00269551, 0.109438, -4.28715e-015, 0.164509, 0.0109064, -3.59911e-015 Part.SetPickMode Part.ClearSelection Part.SelectByID "Sheet1", "SHEET", 0.2320156487738, 0.09867379454639, 0 Part.EditSketch Part.SetPickMode Part.ClearSelection Part.EditSketch Part.AndSelectByID "DetailItem105@Drawing View5", "NOTE", 0.185233997599, 0.1193736401989, 0 Part.EditSketch Part.SelectByID "DetailItem106@Drawing View1", "NOTE", 0.03785109655291, 0.0572741032413, 0 Part.InsertNewNote3 "1", 1, 0, 1, 0, 0, 2, 1, 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem106@Drawing View1", "NOTE", 0.03743709963986, 0.05437612484994, 0 Part.InsertNewNote3 "2", 1, 0, 1, 0, 0, 2, 0, 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.00431735, 0.064726, -4.42302e-015, 0.105333, 0.00221251, -3.98649e-015 Part.SetPickMode Part.ClearSelection Part.EditSketch Part.SelectByID "DetailItem102@Drawing View5", "NOTE", 0.05535029380203, 0.02716539497239, 0 Part.InsertNewNote3 "DEPICTED SURFACES TO BE MACHINED FLAT.", 1, 1, 1, 0, 0, 0, 0, 1 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.05272367473184, 0.03320661883385, 0 Part.SelectByID "Sheet1", "SHEET", 0.04747043659144, 0.03425726646193, 0 Part.SelectByID "Sheet1", "SHEET", 0.07137267013024, 0.05185561423225, 0 Part.SelectByID "DetailItem106@Drawing View1", "NOTE", 0.03722662221767, 0.05632086665158, 0 Part.SelectByID "Sheet1", "SHEET", 0.05692626524415, 0.03399460455491, 0 Part.SelectByID "Sheet1", "SHEET", 0.08082849878295, 0.05421957139543, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem99@Template1", "NOTE", 0.05613827952309, 0.03425726646193, 0 Part.EditSketch Part.EditCopy Part.SelectByID "Template1", "SHEET", 0.04458115561423, 0.05211827613927, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.06454346054772, 0.05054230469715, 0 Part.Paste Part.SelectByID "Sheet1", "SHEET", 0.04326784607913, 0.05710885237264, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem98@Template1", "NOTE", 0.03827726984575, 0.04161179985848, 0 Part.SelectByID "DetailItem98@Template1", "NOTE", 0.03853993175277, 0.03951050460232, 0 Part.EditCopy Part.SelectByID "Template1", "SHEET", 0.04274252226509, 0.0552702190235, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.0469451127774, 0.0592101476288, 0 Part.Paste Part.SelectByID "Sheet1", "SHEET", 0.02514417449477, 0.05579554283754, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem99@Template1", "NOTE", 0.06217950338455, 0.03425726646193, 0 Part.EditDelete Part.EditSketch Part.SelectByID "DetailItem98@Template1", "NOTE", 0.04090388891595, 0.04108647604444, 0 Part.EditDelete Part.EditSketch Part.EditSketch Part.SelectByID "Template1", "SHEET", 0.04458115561423, 0.04817834753397, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Part.SelectByID "DetailItem107@Drawing View5", "NOTE", 0.07583792254957, 0.04949165706907, 0 Part.SelectByID "DetailItem107@Drawing View5", "NOTE", 0.0482584223125, 0.0366212236251, 0 Part.InsertNewNote3 "1) BREAK ALL SHARP EDGES - 0.02 MAX.", 1, 1, 1, 0, 0, 0, 0, 1 Part.SelectByID "DetailItem107@Drawing View5", "NOTE", 0.06007820812839, 0.0366212236251, 0 Part.SelectByID "DetailItem102@Drawing View5", "NOTE", 0.05823957477925, 0.02847870450749, 0 Part.SelectByID "DetailItem106@Drawing View1", "NOTE", 0.03512532696152, 0.02742805687941, 0 Part.SelectByID "DetailItem102@Drawing View5", "NOTE", 0.05009705566164, 0.02795338069345, 0 Part.SelectByID "DetailItem102@Drawing View5", "NOTE", 0.04536914133529, 0.03241863311279, 0 Part.SelectByID "DetailItem108@Drawing View5", "NOTE", 0.05009705566164, 0.05710885237264, 0 Part.SelectByID "DetailItem106@Drawing View1", "NOTE", 0.02645748402987, 0.03110532357769, 0 Part.SelectByID "DetailItem108@Drawing View5", "NOTE", 0.02540683640179, 0.05027964279013, 0 Part.SelectByID "Sheet1", "SHEET", 0.06349281291965, 0.061836766699, 0 Part.AndSelectByID "DetailItem108@Drawing View5", "NOTE", 0.02724546975093, 0.04607705227781, 0 Part.AndSelectByID "DetailItem107@Drawing View5", "NOTE", 0.03985324128787, 0.04029849032338, 0 Part.AndSelectByID "DetailItem102@Drawing View5", "NOTE", 0.04064122700893, 0.03241863311279, 0 Part.AndSelectByID "DetailItem106@Drawing View1", "NOTE", 0.02672014593689, 0.03136798548471, 0 Part.SelectByID "DetailItem106@Drawing View1", "NOTE", 0.02777079356497, 0.03136798548471, 0 Part.SelectByID "Sheet1", "SHEET", 0.04379316989317, 0.05290626186033, 0 Part.DeSelectByID "DetailItem108@Drawing View5", "NOTE", 0.028296117379, 0.04817834753397, 0 Part.SelectByID "Sheet1", "SHEET", 0.03276136979834, 0.05632086665158, 0 Part.AndSelectByID "DetailItem108@Drawing View5", "NOTE", 0.028296117379, 0.04791568562695, 0 Part.DeSelectByID "DetailItem107@Drawing View5", "NOTE", 0.02987208882112, 0.04082381413742, 0 Part.AndSelectByID "DetailItem107@Drawing View5", "NOTE", 0.0361759745896, 0.04029849032338, 0 Part.EditCopy Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.ViewZoomTo2 -0.0425994, 0.132624, -2.38856e-015, 0.281251, 0.008636, -1.52275e-015 Part.SetPickMode Part.ClearSelection Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.05420567346939, 0.1034505714286, 0 Part.Paste Part.SelectByID "DetailItem106@Drawing View4", "NOTE", 0.0854632244898, 0.1013667346939, 0 Part.EditDelete Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.SelectByID "Sheet1", "SHEET", 0.02278021733159, 0.05842216190774, 0 Part.SelectByID "Sheet1", "SHEET", 0.01857762681928, 0.05500755711648, 0 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditCopy Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.SelectByID "Sheet1", "SHEET", 0.05628951020408, 0.1039715306122, 0 Part.Paste Part.ClearSelection Part.EditUndo 1 Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.SelectByID "Sheet1", "SHEET", 0.03906525556681, 0.0592101476288, 0 Part.SelectByID "Sheet1", "SHEET", 0.02199223161053, 0.0565835285586, 0 Part.ClearSelection Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.SelectByID "Sheet1", "SHEET", 0.06097814285714, 0.07375589795918, 0 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.05681046938776, 0.03051628571429, 0 Part.SetPickMode Part.ClearSelection Part.SelectByID "Sheet1", "SHEET", 0.05368471428571, 0.04145642857143, 0 Part.SelectByID "Sheet1", "SHEET", 0.05055895918367, 0.03207916326531, 0 Part.SelectByID "Sheet1", "SHEET", 0.07035540816327, 0.07792357142857, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem98@Template1", "NOTE", 0.03493018367347, 0.04666602040816, 0 Part.AndSelectByID "DetailItem99@Template1", "NOTE", 0.05160087755102, 0.04093546938776, 0 Part.AndSelectByID "DetailItem102@Template1", "NOTE", 0.04795416326531, 0.03207916326531, 0 Part.EditDelete Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.SelectByID "DetailItem108@Drawing View5", "NOTE", 0.02698280784391, 0.04765302371993, 0 Part.SelectByID "Sheet1", "SHEET", 0.04300518417211, 0.05684619046562, 0 Part.SelectByID "Sheet1", "SHEET", 0.054824969988, 0.05159295232523, 0 Part.SelectByID "DetailItem109@Drawing View5", "NOTE", 0.03538798886854, 0.04581439037079, 0 Part.EditDelete Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Part.SelectByID "Sheet1", "SHEET", 0.07953828571429, 0.06785428571429, 0 Part.EditSketch Part.ViewZoomTo2 -3.62857e-005, 0.0919117, -1.7503e-015, 0.153561, 0.00123371, -1.1171e-015 Part.SetPickMode Part.ClearSelection Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.02951842857143, 0.04085771428571, 0 Part.SelectByID "Sheet1", "SHEET", 0.03675742857143, 0.03895271428571, 0 Part.SelectByID "Sheet1", "SHEET", 0.03751942857143, 0.03133271428571, 0 Part.SelectByID "DetailItem105@Drawing View4", "NOTE", 0.03751942857143, 0.03057071428571, 0 Part.EditDelete Part.SelectByID "Sheet1", "SHEET", 0.07104742857143, 0.05800271428571, 0 Part.SelectByID "Sheet1", "SHEET", 0.07066642857143, 0.05800271428571, 0 Part.EditTemplate Part.EditSketch Part.ClearSelection Part.SelectByID "DetailItem98@Template1", "NOTE", 0.03028042857143, 0.04161971428571, 0 Part.EditDelete Part.SelectByID "DetailItem99@Template1", "NOTE", 0.04742542857143, 0.03476171428571, 0 Part.EditDelete Part.SelectByID "Template1", "SHEET", 0.04780642857143, 0.06219371428571, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.SelectByID "Template1", "SHEET", 0.08754706122449, 0.07688165306122, 0 Part.SelectByID "Template1", "SHEET", 0.08754706122449, 0.07583973469388, 0 Part.EditSheet Part.EditSketch Part.ClearSelection Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.AndSelectByID "DetailItem108@Drawing View5", "NOTE", 0.028296117379, 0.04607705227781, 0 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.AndSelectByID "DetailItem107@Drawing View5", "NOTE", 0.02908410310006, 0.0392478426953, 0 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.AndSelectByID "DetailItem102@Drawing View5", "NOTE", 0.04195453654403, 0.03189330929875, 0 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.AndSelectByID "DetailItem106@Drawing View1", "NOTE", 0.02698280784391, 0.03057999976365, 0 Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.SelectByID "Sheet1", "SHEET", 0.1449180040958, 0.05133029041821, 0 Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 620 Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Part.EditSketch Part.EditSketch Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.ViewZoomTo2 0.0125289, 0.103451, -2.61774e-015, 0.195386, 0.0107198, -1.97021e-015 Part.SetPickMode Part.EditSketch Part.SelectByID "DetailItem108@Drawing View1", "NOTE", 0.05837115803464, 0.06994282695936, 0 Part.EditSketch Part.SelectByID "DetailItem109@Drawing View4", "NOTE", 0.09577515186074, 0.05435782953181, 0 Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem111@Drawing View1", "NOTE", 0.07083915597668, 0.03877283210427, 0 Part.EditSketch Part.EditSketch Part.SelectByID "DetailItem110@Drawing View1", "NOTE", 0.09460627705368, 0.04033133184702, 0 Part.EditSketch Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.07785240481907, 0.03331808300463, 0 Part.EditSketch Part.SelectByID "DetailItem111@Drawing View1", "NOTE", 0.04161728580003, 0.04072095678271, 0 Part.SelectByID "Sheet1", "SHEET", 0.05252678399931, 0.02513595935517, 0 Part.EditSketch Part.SelectByID "DetailItem111@Drawing View1", "NOTE", 0.04161728580003, 0.04227945652547, 0 Part.SelectByID "DetailItem110@Drawing View1", "NOTE", 0.06031928271309, 0.04344833133253, 0 Part.SelectByID "Sheet1", "SHEET", 0.06343628219859, 0.03799358223289, 0 Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.1008402760247, 0.08630707425827, 0 Part.EditSketch Part.ViewZoomtofit2 Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 310 Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Part.EditSketch Part.EditSketch Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.0302694, 0.078083, -1.79383e-015, 0.0664102, 0.0588079, -1.65923e-015 Part.ViewOrientationUndo Part.ViewZoomTo2 0.0167768, 0.0877206, -1.86112e-015, 0.197481, 0.00869269, -1.30928e-015 Part.SetPickMode Part.EditSketch Part.SelectByID "DetailItem108@Drawing View4", "NOTE", 0.05732130509534, 0.05002886902157, 0 Part.SelectByID "DetailItem109@Drawing View4", "NOTE", 0.099991756799, 0.03757699343545, 0 Part.SelectByID "DetailItem111@Drawing View4", "NOTE", 0.07736578774617, 0.02421400500156, 0 Part.SelectByID "DetailItem110@Drawing View4", "NOTE", 0.1250473601125, 0.02709919568615, 0 Part.SelectByID "Sheet1", "SHEET", 0.08829914191935, 0.07614743732416, 0 Part.ClearSelection Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.SelectByID "Sheet1", "SHEET", 0.08616713785558, 0.3373331203501, 0 Part.Save2 FALSE Part.EditSketch swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 Set Part = swApp.ActivateDoc ("FlBarLeftNose") Set Part = swApp.ActivateDoc ("10-110707 - Sheet1") Part.ClearSelection Set Part = Nothing swApp.CloseDoc "10-110707 - Sheet1" Set Part = swApp.ActivateDoc ("FlBarLeftNose") Set Part = swApp.ActivateDoc ("10-100705 - Sheet1") Part.ClearSelection Set Part = Nothing swApp.CloseDoc "10-100705 - Sheet1" Set Part = swApp.ActivateDoc ("FlBarLeftNose") Set Part = swApp.ActivateDoc ("10-110706 - Sheet1") Part.ClearSelection Set Part = Nothing swApp.CloseDoc "10-110706 - Sheet1" Set Part = swApp.ActivateDoc ("FlBarLeftNose") Part.Save2 FALSE Set Part = Nothing swApp.CloseDoc "FlBarLeftNose" Set Part = swApp.ActivateDoc ("FlBarRightNose") Part.ClearSelection Set Part = Nothing swApp.CloseDoc "FlBarRightNose" swApp.ExitApp End Sub