' ******************************************************************************
' swxJRNL.swj - journal recorded on 03/02/07 by Granouillet
' *****************************************************************************
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 ("E:\Site HTML\grntech\sw\Verin SE\Verin SE - terminé\Verin simple effet.SLDASM", 2, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Verin simple effet.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("35x100", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "35x100"
boolstatus = Part.Extension.SelectByID("35x75", "CONFIGURATIONS", 0, 0, 0, False, 0, Nothing)
Part.ShowConfiguration "35x75"
Part.ShowNamedView2 "*Isométrique", 7
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusy
Part.ViewRotateminusx
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateplusy
Part.ViewRotateminusx
Part.ViewRotateminusx
' MSGBOX
' Certains des modèles référencés dans ce document ont été modifiés. Ils doivent être enregistrés lorsque le document est enregistré.
' 		Enregistrer le document et les modèles référencés maintenant ?

Part.Save2 FALSE
Set Part = Nothing
swApp.CloseDoc "Verin simple effet.SLDASM"
swApp.ExitApp
End Sub
