' ******************************************************************************
' swxJRNL.swj - journal recorded on 08/02/98 by grma
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc ("F:\Projects\Sampler\NUT.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("NUT - Sheet1")
Set Part = swApp.OpenDoc ("F:\Projects\Sampler\sampnut.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("sampnut.SLDPRT")
swApp.ArrangeWindows 2
Part.SelectByID "", "FACE", 0.01800422830706, 0.02909985676851, 0.006350000000111
Part.SelectByID "", "FACE", 0.02053269290457, 0.02605188792826, 0.006350000000168
Part.ActivateSelectedFeature
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "", "FACE", 0.02069595162476, 0.006623300615033, 0.006350000000054
Part.SelectByID "", "FACE", 0.02069595162476, 0.006623300615033, 0.006350000000054
Part.FeatEdit
Part.ClearSelection
Part.InsertSketch
Part.SelectByID "3/4-16 Tapped Hole 7", "BODYFEATURE", 0, 0, 0
Part.SelectByID "3/4-16 Tapped Hole 7", "BODYFEATURE", 0, 0, 0
Part.ActivateSelectedFeature
Part.SelectByID "Sketch15", "SKETCH", 0, 0, 0
Part.SelectByID "Sketch16", "SKETCH", 0, 0, 0
Part.ActivateSelectedFeature
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Part.SelectByID "sampnut.SLDPRT", "COMPONENT", 0, 0, 0
Part.SelectByID "sampnut.SLDPRT", "COMPONENT", 0, 0, 0
' MSGBOX
' You must pre-select a sketch, plane or planar face.
' Pre-selecting a sketch will edit that sketch.
' Pre-selecting a plane or planar face will insert a new sketch.

Part.InsertSketch
Part.SelectByID "", "FACE", -0.002472549912795, 0.006887286403995, 0.006350000000111
Part.SelectByID "", "FACE", -0.002526359999649, 0.007085706500064, 0.006350000000168
Part.SelectByID "sampnut.SLDPRT", "COMPONENT", 0, 0, 0
Part.SelectByID "", "FACE", 0.02085555342586, 0.02486136735186, 0.006350000000111
Part.SelectByID "", "FACE", 0.02085555342586, 0.02486136735186, 0.006350000000111
Part.FeatEdit
Part.ClearSelection
Part.InsertSketch
Part.SelectByID "Annotations", "DCABINET", 0, 0, 0
Set Part = swApp.OpenDoc ("F:\Projects\TAUTWIRE\WFLYER\037-45\tautline.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("tautline - Sheet1")
Part.ViewZoomTo2 0.759713, 0.778108, -1.21092e-014, 1.33375, -0.0272331, -6.48549e-015
Part.SelectByID "tautline.SLDDRW", "COMPONENT", 0, 0, 0
Set Part = swApp.OpenDoc ("F:\Projects\TAUTWIRE\WFLYER\037-45\FRAME1819.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("FRAME1819 - Sheet1")
' MSGBOX
' Automatic solving is being turned off for the active sketch or sheet because it is very large.  You can turn it back on if desired.  Dragging sketch items is disabled while automatic solving is off.

Part.ViewZoomtofit
Part.ViewZoomtofit
Part.ViewZoomTo2 5.54014, 12.7149, -3.41966e-013, 15.2546, 8.35582, -3.11527e-013
Set Part = Nothing
swApp.CloseDoc "FRAME1819 - Sheet 1"
Set Part = swApp.ActivateDoc ("tautline - Sheet 1")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "tautline - Sheet 1"
Set Part = swApp.ActivateDoc ("sampnut.SLDPRT")
Part.ClearSelection
swApp.ExitApp
End Sub