' ******************************************************************************
' swxJRNL.swj - journal recorded on 07/14/99 by hlundin
' ******************************************************************************

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 ("C:\Herb's work\drawings\shutter\ShutterClamp.SLDPRT", 1)
Set Part = swApp.ActivateDoc ("ShutterClamp")
Set Part = Nothing
swApp.CloseDoc "ShutterClamp"
swApp.ExitApp
End Sub