' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/02/02 by DPI
' ******************************************************************************

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")
' MSGBOX
' N'a pas pu initialiser le composant de complément.

' MSGBOX
' C:\PROGRAM FILES\SOLIDWORKS (2)\apps\WCAD_Compact.dll ne peut pas être chargé. Le complément ou l'un de ses composants est manquant.

Set Part = swApp.OpenDoc4 ("C:\Mes documents\julien\EDPI juin\U32\U32-2001\Assemblage1-HEL.SLDASM", 2, 0, "", longstatus)
' MSGBOX
'  C:\Mes documents\julien\EDPI juin\U32\U32-2001\Assemblage1-HEL.SLDASM n ést pas disponible en lecture seule.  Voulez-vous ouvrir le(s) document(s) enlecture seule?

Set Part = swApp.OpenDoc4 ("C:\Mes documents\julien\EDPI juin\U32\U32-2001\coque-sup.SLDPRT", 1, 0, "", longstatus)
' MSGBOX
'  C:\Mes documents\julien\EDPI juin\U32\U32-2001\coque-sup.SLDPRT n ést pas disponible en lecture seule.  Voulez-vous ouvrir le(s) document(s) enlecture seule?

Set Part = swApp.ActivateDoc ("coque-sup")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 2
Set Part = swApp.ActivateDoc ("Assemblage1-HEL")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.SelectByID "Point1@Origine@tôle de butée-1@Assemblage1-HEL", "EXTSKETCHPOINT", 0, 0, 0
Part.SelectByID "", "EDGE", 0.02661048481104, 0.02652547581999, -0.09731687960215
Part.SelectByID "", "FACE", 0.02396094958806, 0.02499999999986, -0.09264766122209
Part.HideComponent2
Part.ClearSelection
Part.ViewRotateminusy
Part.ViewRotateminusx
Part.ViewRotateminusx
Part.ViewRotateminusx
Part.ViewTranslateminusy
Part.ViewTranslateminusy
Part.ViewZoomTo2 -0.109025, 0.118834, -0.157911, 0.204588, -0.102662, -0.157911
Part.SetPickMode
Part.SelectByID "", "FACE", 0.01162389852792, 0.05020808297655, -0.01368431558126
Part.HideComponent2
Part.ClearSelection
Part.ViewRotateplusx
Part.ViewRotateplusx
Part.ViewRotateminusy
Part.ViewRotateplusx
Part.ViewRotateminusx
Part.ViewRotateplusx
Part.SelectByID "", "FACE", 0.02221758165535, 0.01900000000001, -0.03372014639348
Part.TranslateComponent
Part.SetPickMode
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "Assemblage1-HEL"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("coque-sup")
swApp.ExitApp
End Sub
