' ******************************************************************************
' swxJRNL.swj - journal recorded on 11/17/00 by magene
' ******************************************************************************

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 ("I:\Vault\600042-Genosensor-Housing&Assembly\Delta Clamp Assembly.SLDASM", 2, 0, 0, 0, longstatus)
Set Part = swApp.ActivateDoc ("Delta Clamp Assembly.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
Part.ShowNamedView2 "*Right", 4
Part.ViewDisplayHiddenremoved
Part.ViewDispTempRefaxes
Part.SelectByID "@ACME-NUT-1@Delta Clamp Assembly", "AXIS", 0, -0.06404035183752, -5.630068248955e-005
Part.AndSelectByID "", "EDGE", 0.01904999999988, -0.06269166260477, -0.01546989191395
Part.AddDimension -1.47995e-016, -0.063655, 0.0301929
Part.ClearSelection
Part.ShowNamedView2 "*Isometric", 7
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "TOP", "PLANE", 0, 0, 0
Part.ActivateSelectedFeature
Part.ShowNamedView2 "*Top", 5
Part.AndSelectByID "", "FACE", -0.01791351970423, -0.006349999999998, -0.00783280163826
Part.ActiveView().RotateAboutCenter 0, 0.00607658
Part.ActiveView().RotateAboutCenter -0.16681, 0.21268
Part.ActiveView().RotateAboutCenter -0.0185345, 0.0303829
Part.ActiveView().RotateAboutCenter 0.00463362, -0.00607658
Part.ActiveView().RotateAboutCenter 0.0926723, -0.206604
Part.ActiveView().RotateAboutCenter 0.0926723, -0.243063
Part.ActiveView().RotateAboutCenter 0.0880387, -0.236987
Part.ActiveView().RotateAboutCenter 0.0417026, -0.115455
Part.ActiveView().RotateAboutCenter 0.0231681, -0.0425361
Part.ActiveView().RotateAboutCenter 0.0231681, -0.00607658
Part.ActiveView().RotateAboutCenter 0.199246, 0.0182297
Part.ActiveView().RotateAboutCenter 0.379957, 0.0850721
Part.ActiveView().RotateAboutCenter 0.0278017, -0.00607658
Part.ActiveView().RotateAboutCenter 0.0556034, 0.00607658
Part.ActiveView().RotateAboutCenter 0.0509698, 0
Part.ActiveView().RotateAboutCenter 0.0185345, 0
Part.ActiveView().RotateAboutCenter 0.00463362, -0.0607658
Part.ActiveView().RotateAboutCenter -0.0278017, -0.200527
Part.ActiveView().RotateAboutCenter -0.0231681, -0.0911487
Part.ActiveView().RotateAboutCenter -0.00463362, -0.0243063
Part.ActiveView().RotateAboutCenter -0.0278017, -0.00607658
Part.ActiveView().RotateAboutCenter -0.0556034, -0.0121532
Part.ActiveView().RotateAboutCenter -0.148276, -0.0303829
Part.ActiveView().RotateAboutCenter -0.203879, 0.0425361
Part.ActiveView().RotateAboutCenter -0.139009, 0.0789956
Part.ActiveView().RotateAboutCenter -0.0185345, 0.00607658
Part.ShowNamedView2 "*Isometric", 7
Part.SetPickMode
Part.ClearSelection
Part.SelectByID "", "FACE", 0.008995089548819, -0.1016000000001, 0.001739926603136
Part.InsertSketch
Part.CreateCircle 0, 0, 0, -0.01361152998879, -0.0082165368554, 0
Part.ShowNamedView2 "*Top", 5
Part.ViewDisplayHiddengreyed
Part.ClearSelection
Part.SelectByID "Arc1", "SKETCHSEGMENT", -0.01161019211929, -0.009695613278663, 0
Part.AddDimension 0.0189138, -0.1016, -0.0223819
Part.ClearSelection
Part.Parameter("D1@Sketch2").SystemValue = 0.0302524
Part.ShowNamedView2 "*Right", 4
Part.SelectByID "", "EDGE", 0.0127, -0.1014183105738, -0.0100114988766
Part.ClearSelection
Part.ShowNamedView2 "*Isometric", 7
Part.SelectByID "", "EDGE", -0.002282630960394, -0.1015942248484, 0.01248587510128
Part.ShowNamedView2 "*Back", 2
Part.ClearSelection
Part.SelectByID "", "EDGE", -0.01150237439945, -0.1012256406834, -0.0127
Part.ClearSelection
Part.InsertSketch
Part.ClearSelection
Part.SelectByID "", "EDGE", -0.01150237439945, -0.1012256406834, -0.0127
Part.AndSelectByID "", "EDGE", -0.01053902494748, -0.05382884764668, -0.01587499999988
Part.AddDimension -0.0565871, -0.0730958, -0.00333169
Part.ClearSelection
Part.ShowNamedView2 "*Isometric", 7
Part.SelectByID "ACME-NUT-1@Delta Clamp Assembly", "COMPONENT", 0, 0, 0
Part.SelectByID "ACME-NUT-1@Delta Clamp Assembly", "COMPONENT", 0, 0, 0
Part.OpenCompFile
Set Part = swApp.OpenDoc2 ("I:\Vault\600042-Genosensor-Housing&Assembly\ACME-NUT.SLDPRT", 1, 0, 0, 0, longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("ACME-NUT.SLDPRT")
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ClearSelection
Part.ShowNamedView2 "*Isometric", 7
Part.ViewDisplayHiddengreyed
Part.SelectByID "", "EDGE", -8.101385782311e-005, 0.01588126880603, 0.007136945236311
Part.ClearSelection
Part.SelectByID "", "EDGE", -0.0009092875640704, 0.01587117321463, 0.007090102998973
Part.AddDimension -0.0104385, 0.0101222, 0.00825417
Part.ClearSelection
Part.SelectByID "", "EDGE", 0.0004560663903703, 0.01586615600593, 0.00314994855944
Part.AddDimension -0.0103092, 0.0089586, 0.00928827
Part.ClearSelection
Part.SelectByID "", "EDGE", -0.001805430191439, 2.266241330062e-005, 0.008414870862111
Part.AndSelectByID "", "EDGE", -0.0004015168640876, 0.00635055948544, 0.008626073000016
Part.AddDimension -0.00819552, 0.00287949, 0.0132527
Part.ClearSelection
swApp.ExitApp
End Sub