' ******************************************************************************
' swxJRNL.swj - journal recorded on 05/29/02 by Administrateur
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc4 ("D:\temp-divers\arrache moyeu MPMI\fichiers SW2001\Ar-Moy-ENS 00-mod-éclaté.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("Ar-Moy-ENS 00-mod-éclaté")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.LoadFile2 "D:\temp-divers\arrache moyeu MPMI\Arrache moyeu\Arrache moyeu.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("D:\temp-divers\arrache moyeu MPMI\Arrache moyeu\Arrache moyeu.SLDASM", 2, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Arrache moyeu")
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Arrache moyeu"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Ar-Moy-ENS 00-mod-éclaté")
Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Ar-Moy-ENS 00-mod-éclaté"
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub
