' ******************************************************************************
' swxJRNL.swj - journal recorded on 06/30/00 by grma
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc2 ("D:\Projects\altex\drawings\New_JBOXES\AFT_JBOX\fwdjbox.SLDDRW", 3, 0, 0, 0, longstatus)
Set Part = swApp.ActivateDoc ("fwdjbox - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Sheet1", "SHEET", 0.2562518362573, 0.0675818245614, 0
Part.SelectByID "Sheet1", "SHEET", 0.2558225614035, 0.0680110994152, 0
Part.SelectByID "Sheet1", "SHEET", 0.02916543859649, 0.1341194269006, 0
Part.SelectByID "", "FACE", 0.04461933333333, 0.1946471812831, -499.8011
Part.SelectByID "", "FACE", 0.04461933333333, 0.1946471812831, -499.8011
Part.SelectByID "RD6@Drawing View17", "DIMENSION", 0.02744833918129, 0.2049497777778, 0
Part.SelectByID "RD4@Drawing View17", "DIMENSION", 0.08411261988304, 0.1894958830409, 0
Part.SelectByID "RD5@Drawing View17", "DIMENSION", 0.05535120467836, 0.1401292748538, 0
Part.SelectByID "RD5@Drawing View17", "DIMENSION", 0.05535120467836, 0.1401292748538, 0
Part.SelectByID "RD12@Drawing View8", "DIMENSION", 0.1819872865497, 0.06972819883041, 0
Part.SelectByID "RD12@Drawing View8", "DIMENSION", 0.1824165614035, 0.07015747368421, 0
Part.SelectByID "RD2@Drawing View11", "DIMENSION", 0.1128740350877, 0.215252374269, 0
Part.SelectByID "RD2@Drawing View11", "DIMENSION", 0.1124447602339, 0.2148230994152, 0
Part.SelectByID "RD1@Drawing View8", "DIMENSION", 0.1120154853801, 0.1010652631579, 0
Part.SelectByID "RD1@Drawing View8", "DIMENSION", 0.1102983859649, 0.1010652631579, 0
Part.SelectByID "Sheet1", "SHEET", 0.06522452631579, 0.1044994619883, 0
Part.SelectByID "RD22@Drawing View11", "DIMENSION", 0.1764067134503, 0.1409878245614, 0
Part.SelectByID "RD22@Drawing View11", "DIMENSION", 0.1759774385965, 0.1405585497076, 0
Part.SelectByID "Sheet1", "SHEET", 0.1072934619883, 0.146139122807, 0
Part.SelectByID "RD4@Drawing View11", "DIMENSION", 0.1798409122807, 0.1907837076023, 0
Part.SelectByID "RD4@Drawing View11", "DIMENSION", 0.1798409122807, 0.1903544327485, 0
Part.SelectByID "Sheet1", "SHEET", 0.1815580116959, 0.1259632046784, 0
Part.SelectByID "Sheet1", "SHEET", 0.2755692046784, 0.08990411695906, 0
Part.SelectByID "RD1@Drawing View17", "DIMENSION", 0.09742014035088, 0.2401503157895, 0
Part.SelectByID "RD1@Drawing View17", "DIMENSION", 0.09742014035088, 0.2401503157895, 0
Part.SelectByID "RD1@Drawing View17", "DIMENSION", 0.09956651461988, 0.2362868421053, 0
Part.SelectByID "Sheet1", "SHEET", 0.09742014035088, 0.2298477192982, 0
Part.SelectByID "RD6@Drawing View8", "DIMENSION", 0.127469380117, 0.08990411695906, 0
Part.SelectByID "RD6@Drawing View8", "DIMENSION", 0.1283279298246, 0.08990411695906, 0
Part.SelectByID "Sheet1", "SHEET", 0.05492192982456, 0.07788442105263, 0
Part.SelectByID "RD9@Drawing View12", "DIMENSION", 0.3391018830409, 0.2255549707602, 0
Part.SelectByID "RD9@Drawing View12", "DIMENSION", 0.3391018830409, 0.2255549707602, 0
Part.Save2 FALSE
Part.SelectByID "Sheet1", "SHEET", 0.1107276608187, 0.03581548538012, 0
Part.SelectByID "Sheet1", "SHEET", 0.3794537192982, 0.02594216374269, 0
Part.EditTemplate
Part.EditSketch
Part.ClearSelection
Part.SelectByID "DetailItem1@Template1", "NOTE", 0.3816000935673, 0.01948365853659, 0
Part.SetPickMode
Part.ViewZoomTo2 0.35799, 0.0246543, -1.62802e-015, 0.410791, 0.00533697, -1.49312e-015
Part.SelectByID "DetailItem1@Template1", "NOTE", 0.3873237582846, 0.01726001706508, 0
Part.SelectByID "Template1", "SHEET", 0.3801704325775, 0.006195520467836, 0
Part.ViewZoomtofit2
Part.SelectByID "Template1", "SHEET", 0.1523673216374, 0.1401292748538, 0
Part.EditSheet
Part.EditSketch
Part.ClearSelection
Part.SelectByID "Sheet1", "SHEET", 0.2639787836257, 0.1139435087719, 0
Part.SelectByID "Sheet1", "SHEET", 0.2798619532164, 0.09848961403509, 0
Part.SelectByID "RD20@Drawing View11", "DIMENSION", 0.1579478947368, 0.2388624912281, 0
Part.SaveAs2 "D:\Projects\altex\drawings\New_JBOXES\AFT_JBOX\100902.SLDDRW", 0, FALSE, FALSE
Part.PrintDirect
Set Part = swApp.OpenDoc2 ("D:\Projects\altex\drawings\New_JBOXES\FWD_JBOX\sk118mg.SLDDRW", 3, 0, 0, 0, longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sk118mg - Sheet1")
Set Part = swApp.OpenDoc2 ("D:\Projects\altex\drawings\New_JBOXES\FWD_JBOX\sk119mg.SLDDRW", 3, 0, 0, 0, longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sk119mg - Sheet1")
Part.ViewZoomTo2 0.353268, 0.0328106, -1.79054e-015, 0.418947, 0.00361987, -1.5867e-015
Part.SelectByID "Sheet1", "SHEET", 0.3957096802093, 0.02288828737047, 0
Part.EditTemplate
Part.EditSketch
Part.ClearSelection
Part.SelectByID "DetailItem1@Template1", "NOTE", 0.3786817776752, 0.0164228055812, 0
Part.SelectByID "Template1", "SHEET", 0.3916127412537, 0.001251328511337, 0
Part.ViewZoomtofit2
Part.SelectByID "Template1", "SHEET", 0.07552712280702, 0.230276994152, 0
Part.EditSheet
Part.EditSketch
Part.ClearSelection
Part.SelectByID "RD6@Drawing View17", "DIMENSION", 0.02787761403509, 0.2053790526316, 0
Part.SelectByID "RD6@Drawing View17", "DIMENSION", 0.02744833918129, 0.2053790526316, 0
Part.SelectByID "RD5@Drawing View17", "DIMENSION", 0.05578047953216, 0.1388414502924, 0
Part.SelectByID "RD5@Drawing View17", "DIMENSION", 0.05578047953216, 0.1388414502924, 0
Part.SelectByID "RD22@Drawing View11", "DIMENSION", 0.1781238128655, 0.1401292748538, 0
Part.SelectByID "RD22@Drawing View11", "DIMENSION", 0.1785530877193, 0.1401292748538, 0
Part.SelectByID "RD2@Drawing View11", "DIMENSION", 0.1107276608187, 0.2139645497076, 0
Part.SelectByID "RD2@Drawing View11", "DIMENSION", 0.1107276608187, 0.2139645497076, 0
Part.SelectByID "RD12@Drawing View8", "DIMENSION", 0.1854214853801, 0.07015747368421, 0
Part.SelectByID "RD12@Drawing View8", "DIMENSION", 0.1854214853801, 0.07015747368421, 0
Part.SelectByID "RD1@Drawing View8", "DIMENSION", 0.1085812865497, 0.1023530877193, 0
Part.SelectByID "RD1@Drawing View8", "DIMENSION", 0.1085812865497, 0.1023530877193, 0
Part.SelectByID "RD4@Drawing View11", "DIMENSION", 0.1742603391813, 0.1937886315789, 0
Part.SelectByID "RD4@Drawing View11", "DIMENSION", 0.1742603391813, 0.1937886315789, 0
Part.SelectByID "RD6@Drawing View11", "DIMENSION", 0.2107487017544, 0.2019448538012, 0
Part.SelectByID "RD6@Drawing View11", "DIMENSION", 0.2068852280702, 0.2019448538012, 0
Part.SelectByID "Sheet1", "SHEET", 0.282866877193, 0.08174789473684, 0
Part.SelectByID "RD9@Drawing View12", "DIMENSION", 0.3322334853801, 0.2337111929825, 0
Part.SelectByID "RD20@Drawing View11", "DIMENSION", 0.1768359883041, 0.2358575672515, 0
Part.SelectByID "RD1@Drawing View17", "DIMENSION", 0.09055174269006, 0.2435845146199, 0
Part.SelectByID "RD1@Drawing View17", "DIMENSION", 0.1008543391813, 0.2410088654971, 0
Part.SelectByID "Sheet1", "SHEET", 0.1017128888889, 0.2337111929825, 0
Part.SelectByID "RD9@Drawing View12", "DIMENSION", 0.3369555087719, 0.2337111929825, 0
Part.SelectByID "RD9@Drawing View12", "DIMENSION", 0.3202137894737, 0.2341404678363, 0
Part.SelectByID "Sheet1", "SHEET", 0.3463995555556, 0.2435845146199, 0
Part.SelectByID "Sheet1", "SHEET", 0.3901855906433, 0.2397210409357, 0
' MSGBOX
' A document named "100902" is already opened. Please choose a different name.

swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("100902 - Sheet1")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "100902 - Sheet1"
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sk119mg - Sheet1")
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Sheet1", "SHEET", 0.04719498245614, 0.1165191578947, 0
Part.SaveAs2 "D:\Projects\altex\drawings\New_JBOXES\AFT_JBOX\100902.SLDDRW", 0, FALSE, FALSE
Part.PrintDirect
Set Part = swApp.OpenDoc2 ("D:\Projects\altex\drawings\New_JBOXES\FWD_JBOX\sk118mg.SLDDRW", 3, 0, 0, 0, longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("sk118mg - Sheet1")
Part.SelectByID "RD6@Drawing View8", "DIMENSION", 0.129615754386, 0.09205049122807, 0
Part.SelectByID "RD1@Drawing View17", "DIMENSION", 0.09012246783626, 0.2427259649123, 0
Part.SelectByID "RD1@Drawing View17", "DIMENSION", 0.09141029239766, 0.2367161169591, 0
Part.SelectByID "Sheet1", "SHEET", 0.09870796491228, 0.2315648187135, 0
Part.SelectByID "RD9@Drawing View12", "DIMENSION", 0.3391018830409, 0.228130619883, 0
Part.SelectByID "DetailItem99@Sheet1", "NOTE", 0.02401414035088, 0.04826445614035, 0
Part.EditDelete
Part.SelectByID "Sheet1", "SHEET", 0.03989730994152, 0.03667403508772, 0
Part.ViewZoomTo2 0.349404, 0.0237958, -1.47649e-015, 0.423669, -0.00281925, -1.29064e-015
Part.SelectByID "Sheet1", "SHEET", 0.3633743217286, 0.02489240681463, 0
Part.EditTemplate
Part.EditSketch
Part.ClearSelection
Part.SelectByID "DetailItem1@Template1", "NOTE", 0.3844376589264, 0.01627887717018, 0
Part.SelectByID "Template1", "SHEET", 0.3774165465271, 0.007303434515464, 0
Part.ViewZoomtofit2
Part.SelectByID "Template1", "SHEET", 0.1266108304094, 0.2015155789474, 0
Part.EditSheet
Part.EditSketch
Part.ClearSelection
Part.SelectByID "Sheet1", "SHEET", 0.3567021520468, 0.2165401988304, 0
Part.SelectByID "RD6@Drawing View17", "DIMENSION", 0.02701906432749, 0.2101010760234, 0
Part.SelectByID "RD6@Drawing View17", "DIMENSION", 0.02701906432749, 0.2096718011696, 0
Part.SelectByID "RD2@Drawing View11", "DIMENSION", 0.1107276608187, 0.2156816491228, 0
Part.SelectByID "RD2@Drawing View11", "DIMENSION", 0.1107276608187, 0.2156816491228, 0
Part.SelectByID "RD22@Drawing View11", "DIMENSION", 0.1789823625731, 0.141846374269, 0
Part.SelectByID "Sheet1", "SHEET", 0.1768359883041, 0.1405585497076, 0
Part.SelectByID "RD22@Drawing View11", "DIMENSION", 0.1776945380117, 0.1427049239766, 0
Part.SelectByID "RD22@Drawing View11", "DIMENSION", 0.1815580116959, 0.141846374269, 0
Part.SelectByID "RD1@Drawing View8", "DIMENSION", 0.1137325847953, 0.1023530877193, 0
Part.SelectByID "RD1@Drawing View8", "DIMENSION", 0.1133033099415, 0.1019238128655, 0
Part.SelectByID "RD12@Drawing View8", "DIMENSION", 0.1815580116959, 0.07058674853801, 0
Part.SelectByID "RD12@Drawing View8", "DIMENSION", 0.1815580116959, 0.07015747368421, 0
Part.SelectByID "RD5@Drawing View17", "DIMENSION", 0.05620975438596, 0.1379829005848, 0
Part.SelectByID "RD5@Drawing View17", "DIMENSION", 0.05620975438596, 0.1379829005848, 0
Part.SelectByID "RD5@Drawing View17", "DIMENSION", 0.05921467836257, 0.1414170994152, 0
Part.SelectByID "RD5@Drawing View17", "DIMENSION", 0.05620975438596, 0.1401292748538, 0
Part.SelectByID "Sheet1", "SHEET", 0.06522452631579, 0.1272510292398, 0
Part.SelectByID "Sheet1", "SHEET", 0.05878540350877, 0.1366950760234, 0
Part.SelectByID "Sheet1", "SHEET", 0.04590715789474, 0.1139435087719, 0
Part.SelectByID "RD5@Drawing View17", "DIMENSION", 0.05663902923977, 0.1379829005848, 0
Part.SelectByID "RD5@Drawing View17", "DIMENSION", 0.05706830409357, 0.1384121754386, 0
Part.SelectByID "Sheet1", "SHEET", 0.05878540350877, 0.1302559532164, 0
Part.SelectByID "RD5@Drawing View17", "DIMENSION", 0.05749757894737, 0.1397, 0
Part.SelectByID "RD5@Drawing View17", "DIMENSION", 0.05706830409357, 0.1397, 0
Part.SelectByID "RD4@Drawing View11", "DIMENSION", 0.1721139649123, 0.1929300818713, 0
Part.SelectByID "RD4@Drawing View11", "DIMENSION", 0.1721139649123, 0.1929300818713, 0
Part.SelectByID "RD6@Drawing View11", "DIMENSION", 0.209460877193, 0.2010863040936, 0
Part.SelectByID "RD6@Drawing View11", "DIMENSION", 0.2038803040936, 0.2010863040936, 0
Part.SaveAs2 "D:\Projects\altex\drawings\New_JBOXES\FWD_JBOX\100901DWG.SLDDRW", 0, FALSE, FALSE
Part.PrintDirect
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "100901DWG - Sheet1"
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("100902 - Sheet1")
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "100902 - Sheet1"
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.OpenDoc2 ("D:\Projects\altex\drawings\New_JBOXES\FWD_JBOX\JBOX_LID.SLDDRW", 3, 0, 0, 0, longstatus)
Set Part = swApp.ActivateDoc ("JBOX_LID - Sheet1")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Sheet1", "SHEET", 0.2107746585631, 0.181774117082, 0
Part.SelectByID "Sheet1", "SHEET", 0.3309864216544, 0.07315420257445, 0
Part.ViewZoomTo2 0.36061, 0.0259282, -2.00688e-016, 0.422433, -0.0058421, 2.11622e-017
Part.SelectByID "Sheet1", "SHEET", 0.3836882829545, 0.01739432273955, 0
Part.EditTemplate
Part.EditSketch
Part.ClearSelection
Part.SelectByID "DetailItem1@Template1", "NOTE", 0.3825434090203, 0.0175750923081, 0
Part.SelectByID "Template1", "SHEET", 0.3812780220404, 0.007632766037394, 0
Part.ViewZoomtofit2
Part.SelectByID "Template1", "SHEET", 0.1407942393349, 0.181774117082, 0
Part.EditSheet
Part.EditSketch
Part.ClearSelection
Part.SelectByID "D1@Sketch1@JBoxCoverNew2-1@Drawing View1", "DIMENSION", 0.2004707931552, 0.1079297483259, 0
Part.SelectByID "D1@Sketch1@JBoxCoverNew2-1@Drawing View1", "DIMENSION", 0.2004707931552, 0.1079297483259, 0
Part.SelectByID "D2@Sketch1@JBoxCoverNew2-1@Drawing View1", "DIMENSION", 0.1163225589913, 0.04095462317499, 0
Part.SelectByID "D2@Sketch1@JBoxCoverNew2-1@Drawing View1", "DIMENSION", 0.1154639035407, 0.04052529544966, 0
Part.SelectByID "RD1@Drawing View3", "DIMENSION", 0.2210785239709, 0.04997050540684, 0
Part.SelectByID "RD1@Drawing View3", "DIMENSION", 0.2210785239709, 0.04997050540684, 0
Part.SelectByID "RD1@Drawing View3", "DIMENSION", 0.2219371794215, 0.04739453905488, 0
Part.SelectByID "Sheet1", "SHEET", 0.2094866753871, 0.03494403502042, 0
Part.SelectByID "Sheet1", "SHEET", 0.1880202891208, 0.2375867213744, 0
Part.SaveAs2 "D:\Projects\altex\drawings\New_JBOXES\FWD_JBOX\100903DWG.SLDDRW", 0, FALSE, FALSE
Part.PrintDirect
Part.SelectByID "", "FACE", 0.08626961821848, 0.1418466386231, -499.886825
Part.CreateLine2 0.1570834383252, 0.2982904199144, 0, 0.1570834383252, 0.1402978169943, 0
Part.CreateLine2 0.1570834383252, 0.1402978169943, 0, 0.2987615876828, 0.1402978169943, 0
Part.CreateLine2 0.2987615876828, 0.1402978169943, 0, 0.2987615876828, 0.2982904199144, 0
Part.CreateLine2 0.2987615876828, 0.2982904199144, 0, 0.1570834383252, 0.2982904199144, 0
Part.SketchRectangle 0.1459209174667, 0.3094529407728, 0, 0.3099241085413, 0.1317112624878, 0, 1
Part.ClearSelection
Part.SelectByID "Line17", "SKETCHSEGMENT", 0.2987615876828, 0.2115662193985, 0
Part.AndSelectByID "Line22", "SKETCHSEGMENT", 0.3099241085413, 0.2132835302998, 0
Part.AddDimension 0.126197, 0.110935, 0
Part.ClearSelection
Part.Parameter("D1@Sketch1").SystemValue = 0.00635
Part.SelectByID "Line18", "SKETCHSEGMENT", 0.2472422606437, 0.2982904199144, 0
Part.AndSelectByID "Line19", "SKETCHSEGMENT", 0.2566874706009, 0.3094529407728, 0
Part.AddDimension 0.122762, 0.139271, 0
Part.ClearSelection
Part.Parameter("D2@Sketch1").SystemValue = 0.009525
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "D1@Sketch1@100903DWG.SLDDRW", "DIMENSION", 0.1283437353004, 0.1100763869525, 0
Part.Parameter("D1@Sketch1").SystemValue = 0.009525
Part.ClearSelection
Part.SelectByID "Line16", "SKETCHSEGMENT", 0.2609807478541, 0.1402978169943, 0
Part.AndSelectByID "Line21", "SKETCHSEGMENT", 0.2584047815022, 0.1300737416293, 0
Part.AddDimension 0.125768, 0.0813114, 0
Part.ClearSelection
Part.Parameter("D3@Sketch1").SystemValue = 0.009525
Part.SelectByID "Line15", "SKETCHSEGMENT", 0.1570834383252, 0.2184354630037, 0
Part.AndSelectByID "Line20", "SKETCHSEGMENT", 0.1411083966083, 0.2158594966517, 0
Part.AddDimension 0.0948562, 0.10793, 0
Part.ClearSelection
Part.Parameter("D4@Sketch1").SystemValue = 0.009525
Part.SelectByID "Line19", "SKETCHSEGMENT", 0.2395143615878, 0.3078154199144, 0
Part.AndSelectByID "", "EDGE", 0.1206158362446, 0.1611663862628, -499.886825
Part.SetPickMode
Part.ClearSelection
Part.SetPickMode
Part.EditUndo 1
Part.EditUndo 1
Part.EditUndo 1
Part.EditUndo 1
Part.EditUndo 1
Part.EditUndo 1
Part.EditUndo 1
Part.EditUndo 1
Part.EditUndo 1
Part.EditUndo 1
Part.SelectByID "Line18", "SKETCHSEGMENT", 0.1957229336046, 0.2982904199144, 0
Part.EditDelete
Part.SelectByID "Line17", "SKETCHSEGMENT", 0.2987615876828, 0.2270220175102, 0
Part.EditDelete
Part.SelectByID "Line16", "SKETCHSEGMENT", 0.2369383952359, 0.1402978169943, 0
Part.EditDelete
Part.SelectByID "Line15", "SKETCHSEGMENT", 0.1570834383252, 0.1935344549348, 0
Part.EditDelete
Part.SelectByID "", "EDGE", 0.2403982716106, 0.09462058883727, -499.791575
Part.SelectByID "", "EDGE", 0.2403982716106, 0.09462058883727, -499.791575
Part.InsertSurfaceFinishSymbol2 0, 0, 0.2407012294652, 0.09462058883727, 0.0492125, 0, 1, "", "", "", "", "32", "", ""
Part.ClearSelection
Part.PrintDirect
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "100903DWG - Sheet1"
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.OpenDoc2 ("D:\Projects\altex\drawings\LRS\LRS\SHIP_RAMP_AUV.SLDASM", 2, 0, 0, 0, longstatus)
Set Part = swApp.ActivateDoc ("SHIP_RAMP_AUV.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.OpenDoc2 ("D:\Projects\altex\leo\Leo\Shell\Shell_Bottom.SLDPRT", 1, 0, 0, 0, longstatus)
Set Part = swApp.OpenDoc2 ("D:\Projects\altex\leo\Leo\Shell\Backup of Part5.SLDPRT", 1, 0, 0, 0, longstatus)
' MSGBOX
' Some of the models referenced in this document have been modified.  They must be saved when the document is saved.
' 		Save the document and the referenced models now?

Part.SaveAs2 "D:\Projects\altex\drawings\LRS\LRS\SHIP_RAMP_AUV2.SLDASM", 0, TRUE, FALSE
Set Part = Nothing
swApp.CloseDoc "SHIP_RAMP_AUV.SLDASM"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Shell_Bottom.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Backup of Part5.SLDPRT")
swApp.ExitApp
End Sub