' ******************************************************************************
' swxJRNL.swj - journal recorded on 04/08/11 by alebreton
' *****************************************************************************
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 = Application.SldWorks

Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à poutre\pont.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("pont.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3897685324677, -0.2556251425897, 0.07187683578917, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2327685324677, -0.2393705430597, 0.07832846780923, True, 0, Nothing)
Part.EditDelete
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = Nothing
swApp.CloseDoc "pont.SLDASM"
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à poutre\pont.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("pont.SLDASM")
swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à poutre\pont_poutre.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à poutre\pont_poutre.SLDASM", 2, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("pont_poutre.SLDASM")
Set Part = Nothing
swApp.CloseDoc "pont_poutre.SLDASM"
Set Part = swApp.ActivateDoc ("pont.SLDASM")
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2327685324677, -0.2418109844022, 0.07832846780923, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3897685324677, -0.2243151151859, 0.09301282268825, True, 0, Nothing)
Part.EditDelete
Part.ActiveView().RotateAboutCenter -0.0184283, -0.0119301
Part.ActiveView().RotateAboutCenter -0.0460708, -0.0238602
Part.ActiveView().RotateAboutCenter -0.00921417, 0
Part.ActiveView().RotateAboutCenter -0.0829275, 0.0238602
Part.ActiveView().RotateAboutCenter -0.11057, 0.0119301
Part.ActiveView().RotateAboutCenter -0.11057, 0
Part.ActiveView().RotateAboutCenter -0.128998, 0
Part.ActiveView().RotateAboutCenter -0.0829275, 0
Part.ActiveView().RotateAboutCenter -0.0184283, 0
swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à poutre\poutre v2.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à poutre\poutre v2.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("poutre v2.SLDPRT")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameWidth = 962
swApp.ActiveDoc.ActiveView.FrameHeight = 317
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1636024053767, 0.006606827025115, 0.005999999999972, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("pont.SLDASM")
Set Part = swApp.ActivateDoc ("poutre v2.SLDPRT")
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "poutre v2.SLDPRT"
Set Part = swApp.ActivateDoc ("pont.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 317
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID("", "FACE", 0.3765188716591, 0.01631889376171, 0.100351420996, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0534198, -0.12852
Part.ActiveView().RotateAboutCenter 0.0356132, -0.11781
Part.ActiveView().RotateAboutCenter 0, -0.20349
Part.ActiveView().RotateAboutCenter -0.0089033, -0.12852
Part.ActiveView().RotateAboutCenter -0.0089033, -0.18207
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0642598
Part.ActiveView().RotateAboutCenter -0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", 0.5323520071281, -0.1906785068397, 0.08301430083431, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.01733712016189, 0
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0428399
Part.ActiveView().RotateAboutCenter -0.151356, -0.0428399
Part.ActiveView().RotateAboutCenter -0.222582, 0
Part.ActiveView().RotateAboutCenter -0.0979363, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0267099, 0
boolstatus = Part.Extension.SelectByID("", "FACE", 0.2745382822458, -0.003740812097249, 0.07976795629752, False, 0, Nothing)
Part.ActiveView().RotateAboutCenter 0.0178066, 0
Part.ActiveView().RotateAboutCenter 0.151356, -0.01071
Part.ActiveView().RotateAboutCenter 0.0979363, 0
Part.ActiveView().RotateAboutCenter 0.133549, 0
Part.ActiveView().RotateAboutCenter 0.089033, 0
Part.ActiveView().RotateAboutCenter 0.0178066, 0
Part.ActiveView().RotateAboutCenter 0.222582, 0
Part.ActiveView().RotateAboutCenter 0.151356, -0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", 0.5320262521672, -0.2105809565808, 0.08019397238684, True, 0, Nothing)
Part.AddMate 0, 2, False, 0.2068401444835, 0
Part.ClearSelection
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0749698
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0428399
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0712264, -0.0963898
Part.ActiveView().RotateAboutCenter -0.0445165, -0.0642598
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter 0.089033, -0.11781
Part.ActiveView().RotateAboutCenter 0.0623231, -0.1071
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0623231, -0.631889
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0712264, -0.14994
Part.ActiveView().RotateAboutCenter 0.0356132, -0.19278
Part.ActiveView().RotateAboutCenter 0, -0.0642598
Part.ActiveView().RotateAboutCenter 0, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0749698
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0535499
Part.ActiveView().RotateAboutCenter 0, -0.0428399
Part.ActiveView().RotateAboutCenter 0, -0.0749698
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0856798
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0089033, 0.01071
Part.ActiveView().RotateAboutCenter 0.133549, 0.11781
Part.ActiveView().RotateAboutCenter 0.089033, 0.0963898
Part.ActiveView().RotateAboutCenter 0.0801297, 0.0963898
Part.ActiveView().RotateAboutCenter 0.0623231, 0.0749698
boolstatus = Part.Extension.SelectByID("", "FACE", 0.04193876384687, -0.1930530416259, 0.07952427637315, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.06476853246807, -0.1849874786989, 0.09415044132368, True, 0, Nothing)
Part.AddMate 5, 2, False, 0.01, 0
Part.ClearSelection
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, 0.12852
Part.ActiveView().RotateAboutCenter -0.0356132, 0.19278
Part.ActiveView().RotateAboutCenter -0.0445165, 0.514079
Part.ActiveView().RotateAboutCenter -0.0267099, 0.17136
Part.ActiveView().RotateAboutCenter -0.0178066, 0.235619
Part.ActiveView().RotateAboutCenter -0.0089033, 0.257039
Part.ActiveView().RotateAboutCenter -0.0089033, 0.278459
Part.ActiveView().RotateAboutCenter 0, 0.460529
Part.ActiveView().RotateAboutCenter 0, 0.0856798
Part.ActiveView().RotateAboutCenter 0, 0.0321299
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.13923
Part.ActiveView().RotateAboutCenter 0.0178066, -0.235619
Part.ActiveView().RotateAboutCenter 0.115743, -0.17136
Part.ActiveView().RotateAboutCenter 0.0712264, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0178066, 0.01071
Part.ActiveView().RotateAboutCenter -0.178066, 0.257039
Part.ActiveView().RotateAboutCenter -0.0712264, 0.13923
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0321299
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0623231, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0267099, 0
Part.ActiveView().RotateAboutCenter -0.0445165, 0.0214199
Part.ActiveView().RotateAboutCenter -0.115743, 0.1071
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0535499
Part.ActiveView().RotateAboutCenter -0.0178066, 0.01071
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0356132, 0
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0267099, -0.214199
Part.ActiveView().RotateAboutCenter -0.0445165, -0.14994
Part.ActiveView().RotateAboutCenter -0.10684, -0.321299
Part.ActiveView().RotateAboutCenter -0.0712264, -0.16065
Part.ActiveView().RotateAboutCenter -0.0356132, -0.12852
Part.ActiveView().RotateAboutCenter -0.0267099, -0.0749698
Part.ActiveView().RotateAboutCenter 0, -0.214199
Part.ActiveView().RotateAboutCenter 0, -0.20349
Part.ActiveView().RotateAboutCenter 0, -0.0856798
Part.ActiveView().RotateAboutCenter 0, -0.0642598
Part.ActiveView().RotateAboutCenter -0.0089033, -0.257039
Part.ActiveView().RotateAboutCenter 0, -0.14994
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.0214199
boolstatus = Part.Extension.SelectByID("Distance4", "MATE", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("", "FACE", 0.06476853246783, -0.1845809565808, 0.08001430083429, False, 8, Nothing)
boolstatus = Part.Extension.SelectByID("", "FACE", 0.05476853246783, -0.1980809565808, 0.08001430083429, True, 8, Nothing)
boolstatus = Part.Extension.SelectByID("Distance4", "MATE", 0, 0, 0, True, 0, Nothing)
Part.EditMate 5, 0, True, 0.005, 0.5235987755983
Part.ClearSelection
Part.ClearSelection
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0445165, -0.0642598
Part.ActiveView().RotateAboutCenter -0.0801297, -0.01071
Part.ActiveView().RotateAboutCenter -0.10684, -0.0749698
Part.ActiveView().RotateAboutCenter -0.133549, -0.11781
Part.ActiveView().RotateAboutCenter -0.0445165, -0.0321299
Part.ActiveView().RotateAboutCenter -0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter 0, 0.01071
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0428399
Part.ActiveView().RotateAboutCenter -0.0356132, 0.20349
Part.ActiveView().RotateAboutCenter -0.0623231, 0.18207
Part.ActiveView().RotateAboutCenter -0.0534198, 0.235619
Part.ActiveView().RotateAboutCenter -0.0445165, 0.235619
Part.ActiveView().RotateAboutCenter 0, 0.16065
Part.ActiveView().RotateAboutCenter 0, 0.16065
Part.ActiveView().RotateAboutCenter 0, 0.16065
Part.ActiveView().RotateAboutCenter 0, 0.0749698
Part.ActiveView().RotateAboutCenter 0, 0.0963898
Part.ActiveView().RotateAboutCenter 0.160259, 0.364139
Part.ActiveView().RotateAboutCenter 0.160259, 0.417689
Part.ActiveView().RotateAboutCenter 0.0712264, 0.0856798
Part.ActiveView().RotateAboutCenter 0.0178066, 0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0214199
Part.ActiveView().RotateAboutCenter -0.089033, -0.214199
Part.ActiveView().RotateAboutCenter -0.0801297, -0.11781
Part.ActiveView().RotateAboutCenter -0.0534198, -0.0428399
Part.ActiveView().RotateAboutCenter -0.0267099, 0
Part.ActiveView().RotateAboutCenter -0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.133549, -0.0963898
Part.ActiveView().RotateAboutCenter 0.142453, -0.214199
Part.ActiveView().RotateAboutCenter 0.0979363, -0.214199
Part.ActiveView().RotateAboutCenter 0.0534198, -0.16065
Part.ActiveView().RotateAboutCenter 0.0178066, -0.17136
Part.ActiveView().RotateAboutCenter 0.0267099, -0.14994
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0642598
Part.ActiveView().RotateAboutCenter 0.0712264, -0.16065
Part.ActiveView().RotateAboutCenter 0.0089033, -0.1071
Part.ActiveView().RotateAboutCenter 0.0089033, -0.11781
Part.ActiveView().RotateAboutCenter 0.0089033, -0.17136
Part.ActiveView().RotateAboutCenter 0.0534198, -0.17136
Part.ActiveView().RotateAboutCenter 0.0267099, -0.17136
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0267099, -0.0642598
Part.ActiveView().RotateAboutCenter 0, -0.0749698
Part.ActiveView().RotateAboutCenter 0, -0.0535499
Part.ActiveView().RotateAboutCenter -0.0178066, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.115743, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0712264, 0
Part.ActiveView().RotateAboutCenter 0.0801297, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0178066, 0
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter -0.0178066, 0.0428399
Part.ActiveView().RotateAboutCenter -0.240389, 1.16739
Part.ActiveView().RotateAboutCenter -0.142453, 0.653308
Part.ActiveView().RotateAboutCenter -0.0089033, 0.342719
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0963898
Part.ActiveView().RotateAboutCenter 0, 0.0428399
Part.ActiveView().RotateAboutCenter 0.0712264, 0.589049
Part.ActiveView().RotateAboutCenter 0.0445165, 0.481949
Part.ActiveView().RotateAboutCenter 0.0623231, 0.20349
Part.ActiveView().RotateAboutCenter 0.0534198, 0.0535499
Part.ActiveView().RotateAboutCenter 0.0267099, 0
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.124646, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0445165, -0.01071
Part.ActiveView().RotateAboutCenter 0.089033, 0
Part.ActiveView().RotateAboutCenter 0.213679, 0
Part.ActiveView().RotateAboutCenter 0.0178066, 0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, 0
Part.ActiveView().RotateAboutCenter 0.169163, 0
Part.ActiveView().RotateAboutCenter 0.10684, 0
Part.ActiveView().RotateAboutCenter 0.0178066, 0
Part.ActiveView().RotateAboutCenter 0.0356132, 0
Part.ActiveView().RotateAboutCenter 0.0178066, 0
Part.ActiveView().RotateAboutCenter -0.0267099, 0.0321299
Part.ActiveView().RotateAboutCenter -0.240389, 0.332009
Part.ActiveView().RotateAboutCenter -0.10684, 0.19278
Part.ActiveView().RotateAboutCenter -0.0801297, 0.17136
Part.ActiveView().RotateAboutCenter -0.0534198, 0.0963898
Part.ActiveView().RotateAboutCenter -0.0089033, 0.0214199
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0428399
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter -0.0534198, -0.14994
Part.ActiveView().RotateAboutCenter -0.0356132, -0.11781
Part.ActiveView().RotateAboutCenter -0.0356132, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, -0.0642598
Part.ActiveView().RotateAboutCenter 0, 0.0214199
Part.ActiveView().RotateAboutCenter 0.0445165, 0.310589
Part.ActiveView().RotateAboutCenter 0.0801297, 0.449819
Part.ActiveView().RotateAboutCenter 0.0356132, 0.332009
Part.ActiveView().RotateAboutCenter 0.0712264, 0.299879
Part.ActiveView().RotateAboutCenter 0.0089033, 0.267749
Part.ActiveView().RotateAboutCenter 0.0623231, 0.17136
Part.ActiveView().RotateAboutCenter 0.0712264, 0.214199
Part.ActiveView().RotateAboutCenter 0.0445165, 0.1071
Part.ActiveView().RotateAboutCenter 0, -0.01071
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0979363, -0.0856798
Part.ActiveView().RotateAboutCenter 0.142453, -0.0749698
Part.ActiveView().RotateAboutCenter 0.0712264, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0428399
Part.ActiveView().RotateAboutCenter 0.0534198, -0.0535499
Part.ActiveView().RotateAboutCenter 0.0089033, -0.0321299
Part.Save2 FALSE
Part.ShowNamedView2 "*Isométrique", 7
Part.Save2 FALSE
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Part.ActiveView().RotateAboutCenter -0.124646, -0.01071
Part.ActiveView().RotateAboutCenter -0.133549, 0
Part.ActiveView().RotateAboutCenter -0.0712264, 0
Part.ActiveView().RotateAboutCenter -0.0712264, 0
Part.ActiveView().RotateAboutCenter -0.0445165, 0
Part.ActiveView().RotateAboutCenter -0.0178066, 0
Set Part = Nothing
swApp.CloseDoc "pont.SLDASM"
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\arc v2.SLDPRT", 1, 0, "", longstatus)
Set Part = swApp.ActivateDoc ("arc v2.SLDPRT")
Part.ActiveView().RotateAboutCenter -0.00921417, -0.0238602
Part.ActiveView().RotateAboutCenter -0.119784, 0
Part.ActiveView().RotateAboutCenter -0.147427, 0
Part.ActiveView().RotateAboutCenter -0.0921417, 0
Part.ActiveView().RotateAboutCenter -0.184283, 0
Part.ActiveView().RotateAboutCenter -0.175069, 0
Part.ActiveView().RotateAboutCenter -0.138213, 0
Part.ActiveView().RotateAboutCenter -0.138213, 0.0119301
Part.ActiveView().RotateAboutCenter -0.11057, 0.0596505
Part.ActiveView().RotateAboutCenter -0.0921417, 0.0119301
Part.ActiveView().RotateAboutCenter -0.0829275, 0.0238602
Part.ActiveView().RotateAboutCenter -0.119784, 0.0715806
Part.ActiveView().RotateAboutCenter -0.0737133, 0.0238602
Part.ActiveView().RotateAboutCenter -0.0368567, 0
Part.ActiveView().RotateAboutCenter -0.0276425, 0
Part.ActiveView().RotateAboutCenter -0.0184283, 0
Part.ActiveView().RotateAboutCenter -0.0184283, 0.0119301
Part.ActiveView().RotateAboutCenter 0.0276425, 0
Part.ActiveView().RotateAboutCenter 0.22114, -0.0238602
Part.ActiveView().RotateAboutCenter 0.340924, -0.131231
Part.ActiveView().RotateAboutCenter 0.0460708, 0
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2139594097487, 0.003708498929882, 0.02699055960795, False, 0, Nothing)
Set Annotation = Part.AddDimension2(0.212324, -0.0361731, 0.0607966)
Part.ClearSelection
Part.EditDelete
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
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont\pont.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont\pont.SLDASM", 2, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("pont.SLDASM")
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1197685324678, -0.2695809565808, 0.1015143008343, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("", "VERTEX", 0.1197685324678, -0.2695809565808, 0.05851430083429, True, 0, Nothing)
Set Annotation = Part.AddDimension2(0.239948, -0.192233, 0.163985)
Part.ClearSelection
Part.EditDelete
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("arc v2.SLDPRT")
boolstatus = Part.Extension.SelectByID("", "FACE", 0.09170622597589, 0.002999999999872, -0.01253645322458, False, 0, Nothing)
Part.ClearSelection
Set Part = Nothing
swApp.CloseDoc "arc v2.SLDPRT"
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("pont.SLDASM")
swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à poutre\poutre v2.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à poutre\poutre v2.SLDPRT", 1, 0, "", longstatus)
' MSGBOX
'  \\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à poutre\poutre v2.SLDPRT est actuellement utilisé par Alebreton. Voulez-vous ouvrir une copie ?

swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à poutre\pont_poutre.SLDASM", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à poutre\pont_poutre.SLDASM", 2, 0, "", longstatus)
swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à voute\Voute-4.SLDPRT", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc4 ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont à voute\Voute-4.SLDPRT", 1, 0, "", longstatus)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Voute-4.SLDPRT")
swApp.ArrangeWindows 1
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 0
swApp.ActiveDoc.ActiveView.FrameWidth = 962
swApp.ActiveDoc.ActiveView.FrameHeight = 317
boolstatus = Part.Extension.SelectByID("Graphiques STL1", "PICTURE BODY", -0.09512444830028, -0.01621556035977, 0.0888460915734, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Graphiques STL1", "PICTURE BODY", -0.1192030691659, 0.006508041957261, 0.07889062139773, False, 0, Nothing)
Set Part = swApp.ActivateDoc ("pont.SLDASM")
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 317
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ActiveView().RotateAboutCenter -0.0356132, 0
Part.ActiveView().RotateAboutCenter -0.231486, 0.14994
Part.ActiveView().RotateAboutCenter -0.169163, 0.14994
Part.ActiveView().RotateAboutCenter -0.0712264, 0.0428399
Part.ActiveView().RotateAboutCenter 0, -0.0321299
Part.ActiveView().RotateAboutCenter 0.0534198, -0.11781
Part.ActiveView().RotateAboutCenter 0.0178066, -0.0749698
Part.ActiveView().RotateAboutCenter 0, -0.0214199
Part.ActiveView().RotateAboutCenter -0.0089033, -0.01071
boolstatus = Part.Extension.SelectByID("", "FACE", 0.103806452672, -0.2557532182452, 0.1075143008343, False, 0, Nothing)
Part.ClearSelection
Part.InsertSketch2 True
Part.ActiveView().ZoomByFactor 0.980392
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.653595
Part.ActiveView().ZoomByFactor 0.793651
Part.ActiveView().ZoomByFactor 0.943396
Part.ActiveView().ZoomByFactor 0.925926
Part.ActiveView().ZoomByFactor 0.806452
Part.ActiveView().ZoomByFactor 0.740741
Part.ActiveView().ZoomByFactor 0.826446
Part.ActiveView().ZoomByFactor 0.671141
Part.ActiveView().ZoomByFactor 0.645161
Part.ActiveView().ZoomByFactor 0.840336
Part.Create3PointArc 0.1197685324678, -0.2695809565808, 0, 0.4997685324678, -0.2695809565808, 0, 0.3400328493186, -0.2022738210441, 0
boolstatus = Part.Extension.SelectByID("", "EDGE", 0.3308787889722, -0.1867119184553, 0.1075143008343, True, 0, Nothing)
Part.DeSelectByID "Arc1", "SKETCHSEGMENT", 0.3263113172689, -0.2011873220005, 0
Part.ClearSelection
Part.CreateLine2( 0.3497943402068, -0.1855809565808, 0, 0.3065055489009, -0.1855809565808, 0 ).ConstructionGeometry = TRUE
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Line2", "SKETCHSEGMENT", 0.3265938115331, -0.1861692797868, 0.08001430083429, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.3263108782565, -0.2015891433565, 0.08001430083429, True, 0, Nothing)
Part.SketchAddConstraints "sgTANGENT"
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", 0.1992497352909, -0.2101688461292, 0.08001430083429, False, 0, Nothing)
Part.EditCopy
swApp.LoadFile2 "\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont\Pièce.prtdot", ""
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDocument ("\\serv1\perso$\alebreton\Bureau\Kit Ponts Solidworks\pont\Pièce.prtdot", 0, 0.000000, 0.000000)
Set Part = swApp.ActivateDoc ("Part1")
Part.InsertSketch2 True
Part.Paste
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.002932003238866, 0.04300271417004, 0, False, 0, Nothing)
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.002932003238866, 0.04300271417004, 0, False, 1, Nothing)
boolstatus = Part.SketchOffset2 (0.003, 0, 1)
Part.ClearSelection
Part.CreateLine2 -0.1901885290148, -0.042, 0, -0.1879696023303, -0.04401900083418, 0
Part.CreateLine2 0.1875925443006, -0.04401900083418, 0, 0.1898114709852, -0.042, 0
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc2", "SKETCHSEGMENT", 0.04133832320686, 0.03352017156116, 0, False, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.00604421, -0.0687263, 0)
Part.ClearSelection
Part.Parameter("D2@Esquisse1").SystemValue = 0.253881
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Arc1", "SKETCHSEGMENT", -0.1450745253545, -0.003887089019728, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.1898114709852, -0.042, 0, False, 0, Nothing)
Part.SetPickMode
Part.ClearSelection
boolstatus = Part.Extension.SelectByID("Point2", "SKETCHPOINT", 0.1898114709852, -0.042, 0, False, 0, Nothing)
boolstatus = Part.Extension.SelectByID("Point1", "SKETCHPOINT", -0.1901885290148, -0.042, 0, True, 0, Nothing)
Set Annotation = Part.AddDimension2(-0.0733773, -0.0518931, 0)
Part.ClearSelection
Part.Parameter("D3@Esquisse1").SystemValue = 0.38
Part.ClearSelection 
boolstatus = Part.Extension.SelectByID("D3@Esquisse1@Part1.SLDPRT", "DIMENSION", 0, 0, 0, False, 0, Nothing)
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.006, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Voute-4.SLDPRT")
Part.ClearSelection
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc ("Part1")
Part.ClearSelection
swApp.ExitApp
End Sub
