' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/05/03 by shfa
' *****************************************************************************
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 = Application.SldWorks

Set Part = swApp.OpenDoc4 ("C:\2003 Projects\MultiBeam AUV\Nose\MultiBeam AUV Towhook.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("MultiBeam AUV Towhook.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameWidth = 1197
swApp.ActiveDoc.ActiveView.FrameHeight = 678
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameWidth = 1210
swApp.ActiveDoc.ActiveView.FrameHeight = 678
swApp.LoadFile2 "C:\Program Files\SolidWorks\data\templates\Drawing.drwdot", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks\data\templates\Drawing.drwdot", 2, 0.279400, 0.431800)
Set Part = swApp.ActivateDoc ("Draw1 - Sheet1")
swApp.ActiveDoc.ActiveView.FrameWidth = 1197
swApp.ActiveDoc.ActiveView.FrameHeight = 678
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameWidth = 1239
swApp.ActiveDoc.ActiveView.FrameHeight = 339
Set Part = swApp.ActivateDoc ("MultiBeam AUV Towhook.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 339
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("Cut-Extrude12", "BODYFEATURE", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
boolstatus = Part.Extension.SelectByID("", "FACE", 0.0538752421768, 0.05758130776704, 0.006349999999998, False, 0, Nothing)
Part.ShowNamedView2 "*Normal To", 0
boolstatus = Part.Extension.SelectByID("", "FACE", 0.06251363651839, 0.08391658989649, 0.006349999999998, False, 0, Nothing)
Part.InsertSketch2 True
Part.ClearSelection
Part.CreateCircle 0.06238140812911, 0.08418104667506, 0, 0.06383592041123, 0.08100756533225, 0
Part.ClearSelection
Part.CreateCircle 0.05656335900061, 0.06447901667175, 0, 0.05722450094703, 0.06209890566464, 0
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.06555488947192, 0.08378436150721, 0, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0839346, 0.0919825, 0.00635)
Part.ClearSelection
Part.Parameter("D1@Sketch25").SystemValue = 0.00674624
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.05775341450417, 0.06646244251101, 0, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0746786, 0.0699004, 0.00635)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D1@Sketch25@MultiBeam AUV Towhook.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D2@Sketch25").SystemValue = 0.00674624
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03765469933301, 0.05429743069689, 0.006349999999998, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1@Sketch23", "EXTSKETCHSEGMENT", -0.04844802306553, 0.06189918967437, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2@Sketch23", "EXTSKETCHPOINT", -0.04762739056833, 0.0651709630221, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.03646464382945, 0.05429743069689, 0.006349999999998, True, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D2@Sketch25@MultiBeam AUV Towhook.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.05286096410066, 0.05429743069689, 0.006349999999998, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.05722450094703, 0.0615699921075, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0670094, 0.0602477, 0.00635)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D2@Sketch25@MultiBeam AUV Towhook.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D3@Sketch25").SystemValue = 0.010922
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.04757182852931, 0.0541652023076, 0.006349999999998, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point5@Sketch23", "EXTSKETCHPOINT", -0.05639897819281, 0.08415891305749, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.04968748275785, 0.0541652023076, 0.006349999999998, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.0641003771898, 0.08074310855368, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0879015, 0.0689748, 0.00635)
Part.ClearSelection
Part.Parameter("D4@Sketch25").SystemValue = 0.0298958
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.05829840522502, 0.05425972784575, 0.00635, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2@Sketch23", "EXTSKETCHPOINT", -0.04762739056833, 0.0651709630221, 0, True, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D4@Sketch25@MultiBeam AUV Towhook.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.05829840522502, 0.05425972784575, 0.00635, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.05656335900061, 0.06143776371822, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0572245, 0.0501984, 0.00635)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("D4@Sketch25@MultiBeam AUV Towhook.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.Parameter("D5@Sketch25").SystemValue = 0.010668
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.05829840522502, 0.05425972784575, 0.00635, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.05829840522502, 0.05425972784575, 0.00635, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point5@Sketch23", "EXTSKETCHPOINT", -0.05639897819281, 0.08415891305749, 0, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.06238140812911, 0.08415552784575, 0, False, 0, Nothing)
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.05829840522502, 0.05425972784575, 0.00635, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.05153868020782, 0.08087533694296, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.0556378, 0.0451737, 0.00635)
Part.ClearSelection
Part.Parameter("D6@Sketch25").SystemValue = 0.001905
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("D6@Sketch25@MultiBeam AUV Towhook.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureCut True, False, False, 1, 0, 0.00254, 0.00254, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID("Sketch23", "SKETCH", 0, 0, 0, False, 0, Nothing)
Part.EditDelete
Part.Save2 FALSE
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 339
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 1538
swApp.ActiveDoc.ActiveView.FrameHeight = 429
boolstatus = Part.Extension.SelectByID("MultiBeam AUV Towhook.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("MultiBeam AUV Towhook - Sheet1")