' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/12/05 by Rémi
' ******************************************************************************

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 ("E:\Lycée Pape Clément\STAVRAKAS\Production\Vanne AMRI\vanne diam 100.SLDASM", 2, 0, "", longstatus)
' MSGBOX
' N'a pas pu trouver le fichier E:\Lycée Pape Clément\STAVRAKAS\Production\Vanne AMRI\joint.SLDPRT. Voulez-vous le chercher vous-même ?

Set Part = swApp.ActivateDoc ("vanne diam 100")
Part.ActiveView().RotateAboutCenter 0.0287779, 0.0629518
Part.ActiveView().RotateAboutCenter 0.014389, 0.0377711
Part.ActiveView().RotateAboutCenter 0.0215835, 0.0629518
Part.ActiveView().RotateAboutCenter 0.014389, 0.0251807
Part.ActiveView().RotateAboutCenter 0.0359724, 0.0629518
Part.ActiveView().RotateAboutCenter 0.0287779, 0.0377711
Part.ActiveView().RotateAboutCenter 0.0215835, 0.0251807
Part.ActiveView().RotateAboutCenter 0.014389, 0.0251807
Part.ActiveView().RotateAboutCenter 0.0215835, 0.0251807
Part.ActiveView().RotateAboutCenter 0.014389, 0.0251807
Part.ActiveView().RotateAboutCenter 0.014389, 0.0125904
Part.ActiveView().RotateAboutCenter 0.0215835, 0.0377711
Part.ActiveView().RotateAboutCenter 0.0287779, 0.0125904
Part.ActiveView().RotateAboutCenter 0.0431669, 0.0503614
Part.ActiveView().RotateAboutCenter 0.0431669, 0.0503614
Part.ActiveView().RotateAboutCenter 0.0431669, 0.0503614
Part.ActiveView().RotateAboutCenter 0.0359724, 0.0503614
Part.ActiveView().RotateAboutCenter 0.0287779, 0.0251807
Part.ActiveView().RotateAboutCenter 0.0215835, 0.0251807
Part.ActiveView().RotateAboutCenter 0.00719449, 0.0125904
Part.ActiveView().RotateAboutCenter 0.00719449, 0.0125904
Part.ActiveView().RotateAboutCenter 0.014389, 0
Part.ActiveView().RotateAboutCenter 0.00719449, 0
Part.ActiveView().RotateAboutCenter 0.0215835, 0
Part.ActiveView().RotateAboutCenter 0.0215835, 0.0125904
Part.ActiveView().RotateAboutCenter 0.0431669, 0.0125904
Part.ActiveView().RotateAboutCenter 0.0431669, 0.0251807
Part.ActiveView().RotateAboutCenter 0.0431669, 0.0125904
Part.ActiveView().RotateAboutCenter 0.0431669, 0.0251807
Part.ActiveView().RotateAboutCenter 0.0287779, 0.0125904
Part.ActiveView().RotateAboutCenter 0.0215835, 0.0125904
Part.ActiveView().RotateAboutCenter 0.014389, 0.0125904
Part.ActiveView().RotateAboutCenter 0.00719449, 0
Part.ActiveView().RotateAboutCenter 0.00719449, 0
Part.ActiveView().RotateAboutCenter 0.00719449, 0
Part.ActiveView().RotateAboutCenter -0.0359724, 0
Part.ActiveView().RotateAboutCenter -0.0359724, 0.0251807
Part.ActiveView().RotateAboutCenter -0.0431669, 0.0125904
Part.ActiveView().RotateAboutCenter -0.0431669, 0.0125904
Part.ActiveView().RotateAboutCenter -0.0575559, 0.0125904
Part.ActiveView().RotateAboutCenter -0.0431669, 0
Part.ActiveView().RotateAboutCenter -0.0431669, 0
Part.ActiveView().RotateAboutCenter -0.0503614, 0.0125904
Part.ActiveView().RotateAboutCenter -0.0431669, 0.0251807
Part.ActiveView().RotateAboutCenter -0.0287779, 0.0251807
Part.ActiveView().RotateAboutCenter -0.0215835, 0.0125904
Part.ActiveView().RotateAboutCenter -0.0215835, 0.0125904
Part.ActiveView().RotateAboutCenter -0.00719449, 0
Part.ActiveView().RotateAboutCenter -0.014389, 0.0125904
Part.ActiveView().RotateAboutCenter -0.00719449, 0.0251807
Part.ActiveView().RotateAboutCenter -0.014389, 0.0251807
Part.ActiveView().RotateAboutCenter 0, 0.0251807
Part.ActiveView().RotateAboutCenter 0, 0.0251807
Part.ActiveView().RotateAboutCenter -0.00719449, 0.0125904
Part.ActiveView().RotateAboutCenter 0, 0.0377711
Part.ActiveView().RotateAboutCenter 0.00719449, 0.0629518
Part.ActiveView().RotateAboutCenter 0.0287779, 0.100723
Part.ActiveView().RotateAboutCenter 0.0431669, 0.100723
Part.ActiveView().RotateAboutCenter 0.0431669, 0.100723
Part.ActiveView().RotateAboutCenter 0.0287779, 0.0755421
Part.ActiveView().RotateAboutCenter 0.00719449, 0.0377711
Part.ActiveView().RotateAboutCenter 0.014389, 0.0377711
Part.ActiveView().RotateAboutCenter 0, 0.0251807
Part.ActiveView().RotateAboutCenter 0, 0.0503614
Part.ActiveView().RotateAboutCenter 0.00719449, 0.0629518
Part.ActiveView().RotateAboutCenter 0.014389, 0.0629518
Part.ActiveView().RotateAboutCenter 0.00719449, 0.0629518
Part.ActiveView().RotateAboutCenter 0.00719449, 0.0377711
Part.ActiveView().RotateAboutCenter 0, 0.0125904
Part.ActiveView().RotateAboutCenter 0, 0.0125904
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter 0, -0.0251807
Part.ActiveView().RotateAboutCenter 0, -0.0251807
Part.ActiveView().RotateAboutCenter 0, -0.0503614
Part.ActiveView().RotateAboutCenter 0.00719449, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0503614
Part.ActiveView().RotateAboutCenter 0, -0.0629518
Part.ActiveView().RotateAboutCenter -0.0215835, -0.125904
Part.ActiveView().RotateAboutCenter -0.014389, -0.113313
Part.ActiveView().RotateAboutCenter -0.014389, -0.125904
Part.ActiveView().RotateAboutCenter -0.0215835, -0.100723
Part.ActiveView().RotateAboutCenter -0.0215835, -0.100723
Part.ActiveView().RotateAboutCenter -0.0215835, -0.0629518
Part.ActiveView().RotateAboutCenter -0.014389, -0.0503614
Part.ActiveView().RotateAboutCenter -0.00719449, -0.0377711
Part.ActiveView().RotateAboutCenter -0.014389, -0.0629518
Part.ActiveView().RotateAboutCenter -0.014389, -0.0377711
Part.ActiveView().RotateAboutCenter -0.00719449, -0.0377711
Part.ActiveView().RotateAboutCenter -0.00719449, -0.0377711
Part.ActiveView().RotateAboutCenter -0.00719449, -0.0377711
Part.ActiveView().RotateAboutCenter -0.00719449, -0.0377711
Part.ActiveView().RotateAboutCenter -0.014389, -0.0629518
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter -0.00719449, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0251807
Part.ActiveView().RotateAboutCenter 0, -0.0251807
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0251807
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter -0.00719449, -0.0125904
Part.ActiveView().RotateAboutCenter 0, -0.0251807
Part.ActiveView().RotateAboutCenter 0, -0.0251807
Part.ActiveView().RotateAboutCenter 0, -0.0251807
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0503614
Part.ActiveView().RotateAboutCenter 0, -0.0251807
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0251807
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter -0.00719449, -0.0125904
Part.ActiveView().RotateAboutCenter -0.00719449, -0.0125904
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter -0.00719449, 0
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter -0.00719449, 0
Part.ActiveView().RotateAboutCenter -0.00719449, -0.0251807
Part.ActiveView().RotateAboutCenter -0.00719449, 0
Part.ActiveView().RotateAboutCenter -0.00719449, 0
Part.ActiveView().RotateAboutCenter -0.014389, 0
Part.ActiveView().RotateAboutCenter -0.0215835, 0
Part.ActiveView().RotateAboutCenter -0.014389, 0
Part.ActiveView().RotateAboutCenter -0.0215835, 0
Part.ActiveView().RotateAboutCenter -0.014389, 0
Part.ActiveView().RotateAboutCenter -0.014389, 0
Part.ActiveView().RotateAboutCenter -0.0215835, 0
Part.ActiveView().RotateAboutCenter -0.014389, 0
Part.ActiveView().RotateAboutCenter -0.0215835, 0
Part.ActiveView().RotateAboutCenter -0.014389, 0
Part.ActiveView().RotateAboutCenter -0.0215835, 0
Part.ActiveView().RotateAboutCenter -0.014389, 0
Part.ActiveView().RotateAboutCenter -0.014389, 0
Part.ActiveView().RotateAboutCenter -0.014389, -0.0125904
Part.ActiveView().RotateAboutCenter -0.014389, 0
Part.ActiveView().RotateAboutCenter -0.014389, 0
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter -0.00719449, 0
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter 0.00719449, 0
Part.ActiveView().RotateAboutCenter 0.014389, -0.0125904
Part.ActiveView().RotateAboutCenter 0.014389, 0
Part.ActiveView().RotateAboutCenter 0.014389, -0.0125904
Part.ActiveView().RotateAboutCenter 0.0215835, -0.0125904
Part.ActiveView().RotateAboutCenter 0.014389, 0
Part.ActiveView().RotateAboutCenter 0.014389, 0
Part.ActiveView().RotateAboutCenter 0.014389, 0
Part.ActiveView().RotateAboutCenter 0.00719449, 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
swApp.LoadFile2 "E:\Lycée Pape Clément\STAVRAKAS\Production\Vanne AMRI\Actionneur\actair PA8-15.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("E:\Lycée Pape Clément\STAVRAKAS\Production\Vanne AMRI\Actionneur\actair PA8-15.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("actair PA8-15")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
Set Part = swApp.ActivateDoc ("vanne diam 100")
swApp.LoadFile2 "E:\Lycée Pape Clément\Documents divers\Maquettes\Actair\Solid Works\actair.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("E:\Lycée Pape Clément\Documents divers\Maquettes\Actair\Solid Works\actair.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("actair")
' MSGBOX
' L'ID interne du document E:\Lycée Pape Clément\STAVRAKAS\Production\Vanne AMRI\Actionneur\Arbre.SLDPRT, qui est déjà ouvert, ne correspond pas à l'ID interne enregistré avec le document de référence.  Sélectionnez OUI pour accepter quand même ce document.

Part.ActiveView().RotateAboutCenter -0.014389, 0
Part.ActiveView().RotateAboutCenter -0.0287779, 0
Part.ActiveView().RotateAboutCenter -0.0359724, 0
Part.ActiveView().RotateAboutCenter -0.0431669, 0
Part.ActiveView().RotateAboutCenter -0.0575559, 0
Part.ActiveView().RotateAboutCenter -0.0647504, 0
Part.ActiveView().RotateAboutCenter -0.0791394, 0
Part.ActiveView().RotateAboutCenter -0.0215835, 0
Part.ActiveView().RotateAboutCenter -0.014389, 0
Part.ActiveView().RotateAboutCenter -0.00719449, 0
Part.ActiveView().RotateAboutCenter -0.014389, 0
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter 0, -0.0377711
Part.ActiveView().RotateAboutCenter 0, -0.0629518
Part.ActiveView().RotateAboutCenter 0.00719449, -0.0503614
Part.ActiveView().RotateAboutCenter 0.0215835, -0.113313
Part.ActiveView().RotateAboutCenter 0.00719449, -0.0251807
Part.ActiveView().RotateAboutCenter 0.00719449, -0.0377711
Part.ActiveView().RotateAboutCenter 0.014389, -0.0125904
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter 0.00719449, -0.0125904
Part.ActiveView().RotateAboutCenter 0, -0.0251807
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter 0.00719449, -0.0251807
Part.ActiveView().RotateAboutCenter 0.00719449, 0
Part.ActiveView().RotateAboutCenter 0, -0.0125904
Part.ActiveView().RotateAboutCenter 0.0287779, 0
Part.ActiveView().RotateAboutCenter 0.0359724, 0
Part.ActiveView().RotateAboutCenter 0.0215835, 0
Part.ActiveView().RotateAboutCenter 0.0215835, 0
Part.ActiveView().RotateAboutCenter 0.0215835, 0
Part.ActiveView().RotateAboutCenter 0.0359724, 0.0251807
Part.ActiveView().RotateAboutCenter 0.0431669, 0.0377711
Part.ActiveView().RotateAboutCenter 0.0215835, 0.0251807
Part.ActiveView().RotateAboutCenter 0.0287779, 0.0251807
Part.ActiveView().RotateAboutCenter 0.0215835, 0.0125904
Part.ActiveView().RotateAboutCenter 0.0215835, 0.0251807
Part.ActiveView().RotateAboutCenter 0.0287779, 0.0251807
Part.ActiveView().RotateAboutCenter 0.0215835, 0.0125904
Part.ActiveView().RotateAboutCenter 0.014389, 0.0125904
Part.ActiveView().RotateAboutCenter 0.0431669, 0.0377711
Part.ActiveView().RotateAboutCenter 0.014389, 0.0125904
Part.ActiveView().RotateAboutCenter 0.014389, 0.0125904
Part.ActiveView().RotateAboutCenter 0.014389, 0.0125904
Part.ActiveView().RotateAboutCenter 0.0215835, 0.0251807
Part.ActiveView().RotateAboutCenter 0.0287779, 0.0125904
Part.ActiveView().RotateAboutCenter 0.0215835, 0.0125904
Part.ActiveView().RotateAboutCenter 0.014389, 0.0125904
Part.ActiveView().RotateAboutCenter 0.0359724, 0.0125904
Part.ActiveView().RotateAboutCenter 0.014389, 0
Part.ActiveView().RotateAboutCenter 0.014389, 0
Part.ActiveView().RotateAboutCenter 0.00719449, 0
Set Part = Nothing
swApp.CloseDoc "actair"
Set Part = swApp.ActivateDoc ("vanne diam 100")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
Set Part = swApp.ActivateDoc ("actair PA8-15")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ExitApp
End Sub
