' ******************************************************************************
' swxJRNL.swj - journal recorded on 02/29/00 by toto
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc ("C:\BAC SI\bac2000bon\Préparation matérielle bacS 2000\PO2000\Po8\somfydetails\somfy.SLDASM", 2)
Set Part = swApp.ActivateDoc ("somfy")
swApp.ActiveDoc.ActiveView.FrameWidth = 674
swApp.ActiveDoc.ActiveView.FrameHeight = 449
Part.ActiveView().RotateAboutCenter 0.0135254, 0.0171928
Part.ActiveView().RotateAboutCenter 0.284034, -0.257892
Part.ActiveView().RotateAboutCenter 0.29756, -0.197717
Part.ActiveView().RotateAboutCenter 0.486916, -0.085964
Part.ActiveView().RotateAboutCenter 0.196119, -0.163332
Part.ActiveView().RotateAboutCenter 0, -0.515784
Part.ActiveView().RotateAboutCenter -0.202882, -0.636133
Part.ActiveView().RotateAboutCenter -0.135254, -0.240699
Part.ActiveView().RotateAboutCenter -0.114966, -0.103157
Part.ActiveView().RotateAboutCenter -0.0405763, -0.0085964
Part.ActiveView().RotateAboutCenter -0.0270509, 0
Part.ActiveView().RotateAboutCenter -0.0135254, 0
Part.ActiveView().RotateAboutCenter -0.121729, 0.206314
Part.ActiveView().RotateAboutCenter -0.202882, 0.343856
Part.ActiveView().RotateAboutCenter -0.229933, 0.12035
Part.ActiveView().RotateAboutCenter -0.114966, 0.206314
Part.ActiveView().RotateAboutCenter -0.162305, 0.42982
Part.ActiveView().RotateAboutCenter -0.0405763, 0.515784
Part.ActiveView().RotateAboutCenter 0.0270509, 0.618941
Part.ActiveView().RotateAboutCenter -0.0202882, 0.189121
Part.ActiveView().RotateAboutCenter -0.0202882, 0
Part.ActiveView().RotateAboutCenter -0.541018, 0.042982
Part.ActiveView().RotateAboutCenter -0.0270509, -0.0171928
Part.ActiveView().RotateAboutCenter 0.0135254, -0.0171928
Part.ActiveView().RotateAboutCenter -0.0608645, -0.137542
Part.ActiveView().RotateAboutCenter -0.500442, -0.550169
Part.ActiveView().RotateAboutCenter -0.0608645, -0.223506
Part.ActiveView().RotateAboutCenter -0.304323, -0.085964
Part.ActiveView().RotateAboutCenter -0.22317, 0.0601748
Part.ActiveView().RotateAboutCenter -0.07439, 0.0171928
Part.ActiveView().RotateAboutCenter 0.351662, -0.567362
Part.ActiveView().RotateAboutCenter 0.0270509, -0.171928
Part.ActiveView().RotateAboutCenter 0.0135254, -0.447013
Part.ActiveView().RotateAboutCenter 0.0473391, -0.447013
Part.ActiveView().RotateAboutCenter 0.14878, -0.722097
Part.ActiveView().RotateAboutCenter 0.142017, -0.515784
Part.ActiveView().RotateAboutCenter 0.44634, -0.704905
Part.ActiveView().RotateAboutCenter 0.0338136, -0.042982
Part.ActiveView().RotateAboutCenter 0, 0.0687712
Part.ActiveView().RotateAboutCenter -0.0405763, 1.22069
Part.ActiveView().RotateAboutCenter -0.0473391, 0.997182
Part.ActiveView().RotateAboutCenter -0.07439, 0.601748
Part.ActiveView().RotateAboutCenter -0.270509, 0.773676
Part.ActiveView().RotateAboutCenter -0.182594, 0.550169
Part.ActiveView().RotateAboutCenter -0.0270509, 0.0515784
Part.ActiveView().RotateAboutCenter 0.0541018, 0
Part.ActiveView().RotateAboutCenter 0.493679, 0.0601748
Part.ActiveView().RotateAboutCenter 0.0946781, 0.0601748
Part.ActiveView().RotateAboutCenter 0.209644, 0.042982
Part.ActiveView().RotateAboutCenter 0.00676272, 0.0085964
Part.ActiveView().RotateAboutCenter 0.0473391, -0.567362
Part.ActiveView().RotateAboutCenter 0.0202882, -0.532977
Part.ActiveView().RotateAboutCenter 0, -0.257892
Part.ActiveView().RotateAboutCenter -0.0405763, 0.0515784
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ShowNamedView2 "*Isométrique", 7
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ExitApp
End Sub
