' ******************************************************************************
' swxJRNL.swj - journal recorded on 04/11/05 by magene
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("C:\GENE\ESP\mooring\emTermination.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("emTermination.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SaveAs2 "C:\GENE\ESP\mooring\emTermination-2.SLDPRT", 0, FALSE, FALSE
boolstatus = Part.Extension.SelectByID("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
Part.ClearSelection2 True
Part.ViewZoomTo2 -0.0407758, 0.0169212, 2.92349e-016, 0.0303093, -0.03781, 6.74535e-016
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -3.802681385538e-005, -0.01594166114205, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point19", "SKETCHPOINT", -0.005750477751734, -0.0301127143393, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0309074, -0.0333397, 0)
Part.ClearSelection2 True
' MSGBOX
' The sketch is no longer over defined.

boolstatus = Part.Extension.SelectByID("D3@Sketch1@emTermination-2.SLDPRT", "DIMENSION", -0.02921590481466, -0.04874412026096, 0, False, 0, Nothing)
Part.Parameter("D3@Sketch1").SystemValue = 0.003175
Part.ClearSelection2 True
Part.EditUndo 1
boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line28", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line31", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line32", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line34", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line21", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
Part.EditDelete
Part.CreateLine2 -0.009220298979739, -0.0301127143393, 0, -0.01054931205638, -0.02929220159376, 0
Part.CreateLine2 -0.01054931205638, -0.02929220159376, 0, -0.009220298979739, -0.02814441757303, 0
Part.ClearSelection2 True
Part.EditUndo 1
Part.ClearSelection2 True
Part.EditUndo 1
Part.EditUndo 1
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line16", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", -0.006803911567665, -0.02947343064967, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", -0.007166369679476, -0.02826523694363, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0118023, -0.0274799, 0)
Part.ClearSelection2 True
' MSGBOX
' The sketch is no longer over defined.

boolstatus = Part.Extension.SelectByID("Line42", "SKETCHSEGMENT", -0.01205955418893, -0.006819798661467, 0, False, 0, Nothing)
Part.EditDelete
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line28", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line31", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line32", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line34", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line21", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", -0.008193334329608, -0.02482188488142, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D3@Sketch1@emTermination-2.SLDPRT", "DIMENSION", -0.02873262733224, -0.04777756529613, 0, False, 0, Nothing)
Part.Parameter("D3@Sketch1").SystemValue = 0.003175
Part.ClearSelection2 True
Part.EditUndo 1
boolstatus = Part.Extension.SelectByID("Line19", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line20", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line22", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line23", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line24", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line25", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line26", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line27", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line28", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line29", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line30", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line31", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line32", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line33", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line34", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line35", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line37", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line21", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
Part.EditDelete
Part.CreateLine2 -0.01169709607712, -0.005490785584825, 0, -0.008132924644306, -0.0301127143393, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", 8.279255674836e-005, -0.01467305775071, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point55", "SKETCHPOINT", -0.008132924644306, -0.0301127143393, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0279473, -0.032071, 0)
Part.ClearSelection2 True
Part.Parameter("D3@Sketch1").SystemValue = 0.012065
boolstatus = Part.Extension.SelectByID("Line1", "SKETCHSEGMENT", -9.843649915724e-005, -0.01358568341528, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line43", "SKETCHSEGMENT", -0.01363020600678, -0.01968706163076, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.00716637, -0.0108672, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("D3@Sketch1@emTermination-2.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D7@Sketch1").SystemValue = 0.20944
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.934579
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.909091
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.925926
Part.ActiveView().ZoomByFactor 0.961538
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.952381
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.970874
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 0.990099
Part.ActiveView().ZoomByFactor 1
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Line40", "SKETCHSEGMENT", 0, 0, 0, True, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Point12", "SKETCHPOINT", -0.0142875, 0.001129285660696, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("D14@Sketch1@emTermination-2.SLDPRT", "DIMENSION", 0.01479762493993, -0.04592175089581, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Point12", "SKETCHPOINT", -0.0142875, 0.004155460828542, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Line9", "SKETCHSEGMENT", -0.04352759812726, 0.0250700610193, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("Point54", "SKETCHPOINT", -0.01723754324873, -0.005777811628731, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point55", "SKETCHPOINT", -0.012065, -0.02840057594668, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point16", "SKETCHPOINT", -0.0052705, -0.0301127143393, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgHORIZPOINTS"
boolstatus = Part.Extension.SelectByID("Point54", "SKETCHPOINT", -0.02305485568701, 0.02159049162464, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point54", "SKETCHPOINT", -0.02305485568701, 0.02159049162464, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.EditUndo 1
Part.ClearSelection2 True
Part.EditUndo 1
Part.ClearSelection2 True
Part.EditUndo 1
Part.ClearSelection2 True
Part.EditUndo 1
Part.ClearSelection2 True
Part.EditUndo 1
boolstatus = Part.Extension.SelectByID("Point12", "SKETCHPOINT", -0.0142875, 0.004155460828542, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point54", "SKETCHPOINT", -0.01723754324873, -0.005777811628731, 0, False, 0, Nothing)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point55", "SKETCHPOINT", -0.012065, -0.03122205369411, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point16", "SKETCHPOINT", -0.0052705, -0.0301127143393, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgHORIZPOINTS"
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Point54", "SKETCHPOINT", -0.01848899226509, 0.0001097930940757, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point15", "SKETCHPOINT", -0.0052705, -0.004712714339304, 0, True, 0, Nothing)
Part.SketchAddConstraints "sgHORIZPOINTS"
boolstatus = Part.Extension.SelectByID("Point12", "SKETCHPOINT", -0.02172928243549, -0.0009995462607295, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.CreateLine2 -0.02055099510079, -0.004712714339304, 0, -0.01746393666642, -0.004712714339304, 0
Part.SetPickMode
Part.ClearSelection2 True
Part.CreateLine2 -0.012065, -0.0301127143393, 0, -0.0052705, -0.0301127143393, 0
Part.SetPickMode
Part.ClearSelection2 True
Part.SetPickMode
boolstatus = Part.Extension.SelectByID("Annotations", "DCABINET", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("emTermination-2.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("emTermination-2.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("emTermination-2.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
swApp.LoadFile2 "C:\GENE\ESP\mooring\emTermination-2.slddrw", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6 ("C:\GENE\ESP\mooring\emTermination-2.SLDDRW", 3, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("emTermination-2 - Sheet1")
Part.EditSketch
Part.ViewZoomtofit2
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("emTermination-2.SLDDRW", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.DimPreferences
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("emTermination-2.SLDDRW", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.DimPreferences
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", 0, 0, 0, False, 0, Nothing)
Part.EditSketch
boolstatus = Part.Extension.SelectByID("RD1@Drawing View1", "DIMENSION", 0.06451961269147, 0.03243974617068, 0, False, 0, Nothing)
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("Template1", "SHEET", 0.09732107692308, 0.2022471242604, 0, False, 0, Nothing)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
boolstatus = Part.Extension.SelectByID("Section Line1", "SECTIONLINE", 0.111003260355, 0.1263435828402, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Drawing View1", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing)
Part.ViewPropertySheet
Part.EditSketch
Part.ClearSelection2 True
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
Part.EditSketch
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' Save changes to emTermination-2 - Sheet1?

' MSGBOX
' Save changes to emTermination-2.SLDPRT?

Part.ClearSelection2 True
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("emTermination-2.SLDPRT")
Part.ClearSelection2 True
swApp.ExitApp
End Sub