' ******************************************************************************
' swxJRNL.swj - journal recorded on 07/29/04 by jfeldman
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("X:\701312 ESP 2G\SolidWorks files\1002520 (camera focusing jig)\Assem1.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Assem1.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
' MSGBOX
' There are parts that have features defined in the context of X:\701312 ESP 2G\SolidWorks files\1002520 (camera focusing jig)\Assem1.SLDASM.  If you select OK to continue this operation, these features will not update in the context of the newly saved assembly. It is highly recommended that you consider saving new versions of these parts now which will update in the context of this newly saved assembly.  To do this, select Cancel, select References from the Save As dialog box, then input new names for those parts that you want to update in the new assembly.

' MSGBOX
' One or more documents are being closed as a result of this operation.   If you do not save them, your changes will be lost.
' Click "Yes" to close and save them.
' Click "No" to close them without the changes.

Set Part = Nothing
swApp.CloseDoc "Assem1.SLDASM"
swApp.ExitApp
End Sub