' ******************************************************************************
' C:\Users\machp\AppData\Roaming\SolidWorks\SOLIDWORKS 2020\swxJRNL.swj - journal recorded on 05/18/26 by machp
' *****************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks


' Open
Set Part = swApp.OpenDoc6("\\Nouveau-Z\public\DOCUMENTS\@@@Imprimante 3D\REGIS\Kodiaq\Assemblage1.SLDASM", 2, 0, "", longstatus, longwarnings)
Dim swAssembly As Object
Set swAssembly = Part
swApp.ActivateDoc2 "Assemblage1.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SelectByRay(0.08397349539791321149, 0.02677728359708453354, 0.1985370608840213436, -0.9935156930855988389, -0.07712565913249246063, -0.08353562291634128445, 0.0001961930500731592388, 2, False, 0, 0)
boolstatus = Part.Extension.SelectByRay(0.08397349539791321149, 0.02677728359708453354, 0.1985370608840213436, -0.9935156930855988389, -0.07712565913249246063, -0.08353562291634128445, 0.0001961930500731592388, 2, False, 0, 0)
Part.FeatEdit
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Line75", "SKETCHSEGMENT", -0.03141170074130240908, 0.01865923101004772489, 0.1820320327158781448, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line75", "SKETCHSEGMENT", -0.03141170074130240908, 0.01865923101004772489, 0.1820320327158781448, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line72", "SKETCHSEGMENT", -0.03363430782508822214, 0.02992463325038123567, 0.1980652338505289323, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01718058482431921927, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01718058482431921927, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01718058482431921927, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01374446785945537645, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01718058482431921927, 0.06739625556509333537
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01374446785945537645, 0.05990778272452740305
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01374446785945537645, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01374446785945537645, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01718058482431921927, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.05990778272452740305
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.05990778272452740305
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.1048386197679229553
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.05990778272452740305
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.05990778272452740305
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.08986167408679110458
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.1048386197679229553
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.0973501469273570369
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.06739625556509333537
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.0973501469273570369
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.08986167408679110458
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0.05241930988396147767
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0.08237320124622518613
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.08237320124622518613
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.05990778272452740305
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01374446785945537645, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01374446785945537645, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0

' Roll View
Dim swModelView As Object
Set swModelView = Part.ActiveView
swModelView.RollBy 0
boolstatus = Part.Extension.SketchBoxSelect("0.000000", "0.000000", "0.000000", "0.000000", "0.000000", "0.000000")
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0
boolstatus = Part.Extension.SelectByRay(-0.1129009492642012447, 0.01930382129770524813, 0.1955816224576736317, 0.9996300769209421899, -0.009790837127173043081, 0.02537417630940560706, 0.0002344899334474399464, 2, False, 0, 0)
Part.FeatEdit
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Line72", "SKETCHSEGMENT", 0.001012349212563443471, 0.01370125409924410204, 0.1948022453088007477, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Part.EditUndo2 3
boolstatus = Part.Extension.SelectByRay(-0.1128974218156031384, 0.008033278134773169654, 0.1937354788196259392, 0.9996300769209421899, -0.009790837127173043081, 0.02537417630940560706, 0.0002344899334474399464, 1, False, 0, 0)
boolstatus = Part.Extension.SelectByRay(-0.1129009492642012447, 0.004873577915827986828, 0.1952193918684912433, 0.9996300769209421899, -0.009790837127173043081, 0.02537417630940560706, 0.0002344899334474399464, 2, False, 0, 0)
Part.FeatEdit
Part.ClearSelection2 True
boolstatus = Part.Extension.SketchBoxSelect("-499.893099", "4.890335", "0.000000", "-499.893099", "4.890505", "0.000000")
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01374446785945537645, 0.07488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01030835089459153364, 0.08237320124622518613
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01374446785945537645, 0.08237320124622518613
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01374446785945537645, 0.0973501469273570369
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.05990778272452740305
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01030835089459153364, 0.07488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.05990778272452740305
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01030835089459153364, 0.07488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, -0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, -0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01374446785945537645, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, -0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, -0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, -0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, -0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, -0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, -0.07488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, -0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01374446785945537645, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0
boolstatus = Part.Extension.SelectByID2("Line72", "SKETCHSEGMENT", -0.01006675261484618611, -0.005624105103635743119, 0.2198669243872402312, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line77", "SKETCHSEGMENT", 0.004273745839580712913, 0.001894478131809859689, 0.170386247216379183, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line70", "SKETCHSEGMENT", -0.01038049088903697514, -0.001403968008729161721, 0.2212652432634898136, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Part.EditSketch
Part.ClearSelection2 True
Part.EditUndo2 1
Part.EditUndo2 1

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.006872233929727688227, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.006872233929727688227, -0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, -0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.006872233929727688227, -0.02246541852169777614, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.01497694568113185076, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, -0.01497694568113185076, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, -0.01497694568113185076, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.02246541852169777614, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.02246541852169777614, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, -0.01497694568113185076, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, -0.02246541852169777614, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, -0.04493083704339555229, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.01497694568113185076, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, -0.02995389136226370153, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.01497694568113185076, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.02995389136226370153, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, -0.02995389136226370153, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.01497694568113185076, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, -0.04493083704339555229, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.02246541852169777614, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0.003436116964863844114, -0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, -0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.006872233929727688227, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.006872233929727688227, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.006872233929727688227, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint -0.003436116964863844114, 0, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.01497694568113185076, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.007488472840565925381, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.02246541852169777614, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607
Set myModelView = Part.ActiveView
myModelView.RotateAboutPoint 0, 0.01497694568113185076, -0.0574703972127963425, -0.0133978535416154898, 0.1994817009426128607

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.1048386197679229553
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.06739625556509333537
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.1347925111301866707
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.05990778272452740305
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02995389136226370153

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 3.567566762755745913
Dim swTranslation() As Double
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = -0.493155720769853867
swTranslation(1) = -0.0772356937114470482
swTranslation(2) = 0.374824311407709887
Dim swTranslationVar As Variant
swTranslationVar = swTranslation
Dim swMathUtils As Object
Set swMathUtils = swApp.GetMathUtility()
Dim swTranslationVector As MathVector
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.972972302296454927
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = -0.4074096954202054421
swTranslation(1) = -0.0643630780928724916
swTranslation(2) = 0.3123535928397582206
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.477476918580379106
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = -0.3359546742954985232
swTranslation(1) = -0.05363589841072708558
swTranslation(2) = 0.260294660699798508
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.984911950096842403
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = -0.4256174137471577801
swTranslation(1) = -0.04123530103367000627
swTranslation(2) = 0.3136080249395162833
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 3.596279457948003078
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = -0.5337072573078869286
swTranslation(1) = -0.02629482226613145263
swTranslation(2) = 0.3778409939030317188
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 4.332866816804822996
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = -0.6639359844894878737
swTranslation(1) = -0.008294245437771689128
swTranslation(2) = 0.4552301131361827236
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 3.610722347337352645
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = -0.5497265818532338644
swTranslation(1) = -0.006911871198143066178
swTranslation(2) = 0.3793584276134856492
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 3.00893528944779387
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = -0.4545520796563554677
swTranslation(1) = -0.005759892665119219213
swTranslation(2) = 0.3161320230112381058
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.507446074539828373
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = -0.3752399944922902852
swTranslation(1) = -0.00479991055426598652
swTranslation(2) = 0.2634433525093650696
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 2.089538395449856978
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = -0.3091465901889025591
swTranslation(1) = -0.003999925461888354482
swTranslation(2) = 0.2195361270911375118
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.741281996208214222
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = -0.2540687532694126949
swTranslation(1) = -0.003333271218240278777
swTranslation(2) = 0.1829467725759479635
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.451068330173511889
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = -0.2081705558365045672
swTranslation(1) = -0.002777726015200234627
swTranslation(2) = 0.1524556438132899649
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector

' Zoom In/Out (MouseWheel)
Set swModelView = Part.ActiveView
swModelView.Scale2 = 1.748275096594592792
ReDim swTranslation(0 To 2) As Double
swTranslation(0) = -0.2780302008833889782
swTranslation(1) = 0.00361614150897610195
swTranslation(2) = 0.1836814985702288905
swTranslationVar = swTranslation
Set swMathUtils = swApp.GetMathUtility()
Set swTranslationVector = swMathUtils.CreateVector((swTranslationVar))
swModelView.Translation3 = swTranslationVector
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0
boolstatus = Part.Extension.SketchBoxSelect("0.000000", "0.000000", "0.000000", "0.000000", "0.000000", "0.000000")
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0

' Named View
Part.ShowNamedView2 "*Gauche", 3
Part.ViewZoomtofit2
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01374446785945537645, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01030835089459153364, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01718058482431921927, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01374446785945537645, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.02405281875404690836, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01030835089459153364, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.01030835089459153364, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0
boolstatus = Part.Extension.SelectByRay(-0.1129009492643149315, 0.02019034328028901371, 0.1956961816143518718, 0.9533221858666490744, -0.02191189175114319904, 0.3011588931682421255, 0.0003597442296596564215, 2, False, 0, 0)
Part.FeatEdit
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateLine(-0.006000, 0.040000, 0.000000, -0.006000, 0.036342, 0.000000)
Set skSegment = Part.SketchManager.CreateLine(-0.006000, 0.035000, 0.000000, 0.050724, 0.035000, 0.000000)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Line83", "SKETCHSEGMENT", -0.1129009492644829776, 0.03017716104710276015, 0.1918744446625959832, False, 2, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line70", "SKETCHSEGMENT", -0.1129009492644829776, 0.03017716104710275321, 0.1918744446625959832, True, 2, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line72", "SKETCHSEGMENT", -0.1079009492644828205, 0.03003299261833778516, 0.1918744446625959832, True, 2, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line84", "SKETCHSEGMENT", -0.09454097821526104284, 0.02659637021534395906, 0.1918744446625959832, True, 2, Nothing, 0)
boolstatus = Part.SketchManager.SketchTrim(4, 0, 0, 0)
boolstatus = Part.Extension.SelectByID2("Line71", "SKETCHSEGMENT", -0.0264803666273952, 0.02976355702332931022, 0.2183495434455489659, True, 0, Nothing, 0)
Part.EditDelete
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Line71", "SKETCHSEGMENT", -0.02648646466721248441, 0.02955206689787160529, 0.2183534591456640639, False, 0, Nothing, 0)
Part.EditDelete
boolstatus = Part.Extension.SelectByID2("Line70", "SKETCHSEGMENT", -0.02707234328367671625, 0.01476168162261920491, 0.2191319377744196939, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line75", "SKETCHSEGMENT", -0.009282600579767864152, 0.01140179809472391392, 0.1625738277831604017, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line70", "SKETCHSEGMENT", -0.02711981463545047946, 0.01200952529031162203, 0.2190819659517768137, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line77", "SKETCHSEGMENT", -0.009703875828791012209, 0.01006052869553770296, 0.1638097909235822214, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Line75", "SKETCHSEGMENT", -0.009226828341027486918, 0.01001875817517661194, 0.1622966520614902985, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01374446785945537645, 0.05990778272452740305
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01718058482431921927, 0.07488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.05990778272452740305
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.006872233929727688227, 0.007488472840565925381

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.08986167408679110458
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01030835089459153364, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01030835089459153364, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0
boolstatus = Part.Extension.SelectByID2("Support bouteille central - 2-2@Assemblage1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Contraintes", "MATEGROUPS", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Contraintes", "MATEGROUPS", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Support bouteille central - 2-2@Assemblage1", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.05990778272452740305
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.003436116964863844114, 0.05241930988396147767
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.04493083704339555229
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.03744236420282962691
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.02995389136226370153
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.01497694568113185076
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, 0.02246541852169777614
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.01497694568113185076

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01030835089459153364, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01030835089459153364, 0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.02748893571891075291, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01030835089459153364, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01030835089459153364, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.02405281875404690836, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01030835089459153364, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.02061670178918306728, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01030835089459153364, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, 0
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.01374446785945537645, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.006872233929727688227, -0.007488472840565925381
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0.003436116964863844114, 0

' Roll View
Set swModelView = Part.ActiveView
swModelView.RollBy 0
boolstatus = Part.Extension.SelectByRay(-0.1079009492644900092, 0.02389574147517237179, 0.1973020056781820131, -0.8311860853097562396, -0.2191377846033003285, 0.5109875956876059888, 0.0002962037863359445831, 2, False, 0, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByRay(-0.1103763070907461952, 0.02659637021531580103, 0.1980155065769508838, -0.8311860853097562396, -0.2191377846033003285, 0.5109875956876059888, 0.0002962037863359445831, 2, False, 0, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByRay(-0.1103763070907461952, 0.02659637021531580103, 0.1980155065769508838, -0.8311860853097562396, -0.2191377846033003285, 0.5109875956876059888, 0.0002962037863359445831, 2, False, 1, 0)
Dim swFeatData As Object
Set swFeatData = Part.FeatureManager.CreateDefinition(swFmFillet)

swFeatData.Initialize swConstRadiusFillet

Dim swFace As Object
Dim facesArray(0) As Object
Set swFace = Part.SelectionManager.GetSelectedObject6(1, 1)
Set facesArray(0)=swFace
Dim facesVar As Variant
facesVar=facesArray
swFeatData.SetFaces 0, (facesVar)

Dim swFeat As Object
Dim featuresArray(0) As Object
Set swFeat = Part.SelectionManager.GetSelectedObject6(1, -1)
Set featuresArray(0)=swFeat
Dim featuresVar As Variant
featuresVar=featuresArray
swFeatData.Features = featuresVar

swFeatData.AsymmetricFillet = False
swFeatData.DefaultRadius = 0.002
swFeatData.ConicTypeForCrossSectionProfile = swFeatureFilletCircular
swFeatData.CurvatureContinuous = False
swFeatData.ConstantWidth = 0.002
swFeatData.IsMultipleRadius = False
swFeatData.OverflowType = swFilletOverFlowType_Default

Dim swFeature As Object
Set swFeature = Part.FeatureManager.CreateFeature(swFeatData)
swApp.ActivateDoc2 "Assemblage1.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc

' Save As
longstatus = Part.SaveAs3("\\Nouveau-Z\public\DOCUMENTS\@@@Imprimante 3D\REGIS\Kodiaq\Support bouteille central - Axe.STL", 0, 2)
swApp.ActivateDoc2 "Assemblage1.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
swApp.ActivateDoc2 "Assemblage1.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc

' Save As
longstatus = Part.SaveAs3("\\Nouveau-Z\public\DOCUMENTS\@@@Imprimante 3D\REGIS\Kodiaq\Support bouteille central - Axe-3.SLDPRT", 0, 2)
swApp.ActivateDoc2 "Assemblage1.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByRay(0.02487686935700139657, 0.002250713931914560817, 0.2191879410916044435, -0.8311860853097562396, -0.2191377846033003285, 0.5109875956876059888, 7.139613129093662412e-05, 2, False, 0, 0)
Part.ClearSelection2 True
Part.EditAssembly
Dim swErrors As Long
Dim swWarnings As Long

' Save All
boolstatus = Part.Save3(5, swErrors, swWarnings)

' Save As
longstatus = Part.SaveAs3("\\Nouveau-Z\public\DOCUMENTS\@@@Imprimante 3D\REGIS\Kodiaq\Assemblage2.SLDASM", 0, 0)
boolstatus = swApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swSaveAssemblyAsPartOptions, swSaveAsmAsPartOptions_e.swSaveAsmAsPart_AllComponents)

' New Document
Dim swSheetWidth As Double
swSheetWidth = 0
Dim swSheetHeight As Double
swSheetHeight = 0
Set Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SOLIDWORKS 2020\templates\Pièce.prtdot", 0, swSheetWidth, swSheetHeight)
Dim swPart As PartDoc
Set swPart = Part
swApp.ActivateDoc2 "Pièce1", False, longstatus
Set Part = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "Assemblage2.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized

' Save As
longstatus = Part.SaveAs3("\\Nouveau-Z\public\DOCUMENTS\@@@Imprimante 3D\REGIS\Kodiaq\Assemblage2.SLDPRT", 0, 2)
' MSGBOX
' Enregistrer les modifications apportées à Assemblage2.SLDASM ?


' Save
boolstatus = Part.Save3(1, swErrors, swWarnings)
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ExitApp
End Sub