' ******************************************************************************
' swxJRNL.swj - journal recorded on 07/01/99 by grma
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc ("D:\Projects\moog\1_ATM_HOUSING\clamp\clamp.SLDASM", 2)
Set Part = swApp.ActivateDoc ("clamp.SLDASM")
Part.SelectByID "clrod-1@clamp/clrodend-1@clrod", "COMPONENT", 0, 0, 0
Part.ClearSelection
Part.SelectByID "clrod-1@clamp/clrodend-1@clrod", "COMPONENT", 0, 0, 0
Part.OpenCompFile
Set Part = swApp.OpenDoc ("D:\Projects\moog\1_ATM_HOUSING\clamp\clrodend.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("clrodend.SLDPRT")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "clrodend.SLDPRT"
Set Part = swApp.ActivateDoc ("clamp.SLDASM")
Set Part = swApp.OpenDoc ("D:\Projects\moog\1_ATM_HOUSING\clamp\100617DWG.SLDDRW", 3)
Set Part = swApp.ActivateDoc ("100617DWG - Sheet1")
Part.EditSketch
Part.EditSketch
Part.ViewZoomTo2 0.0437827, 0.0593432, -1.18975e-015, 0.142439, 0.0296404, -9.82335e-016
Part.EditSketch
Set Part = Nothing
swApp.CloseDoc "100617DWG - Sheet1"
Set Part = swApp.ActivateDoc ("clamp.SLDASM")
Set Part = Nothing
swApp.CloseDoc "clamp.SLDASM"
swApp.ExitApp
End Sub