' ******************************************************************************
' swxJRNL.swj - journal recorded on 10/24/07 by chma
' ******************************************************************************

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 ("I:\600027.MOOS.Mooring\MTMSeriesDesignDocuments\MooringMechanicalDesignDrawings\MTM4DesignDrawings\MSE_2006_FullScale.SLDASM", 2)
' MSGBOX
' Cannot open I:\600027.MOOS.Mooring\MTMSeriesDesignDocuments\MooringMechanicalDesignDrawings\MTM4DesignDrawings\MSE_2006_FullScale.SLDASM.
' 
Future Version

swApp.ExitApp
End Sub