' ****************************************************************************** ' swxJRNL.swj - journal recorded on 09/22/04 by Obihouane ' ***************************************************************************** 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 ("D:\Plans 3D\Trotinette électrique\Assemblages\trotinette.SLDASM", 2, 0, "", longstatus) ' MSGBOX ' L'ID interne du document D:\Plans 3D\Trotinette électrique\Assemblages\Guidon\bead2.sldprt ne correspond pas à l'ID interne enregistré avec le document de référence. Sélectionnez OUI pour accepter quand même ce document. Sélectionnez NON pour chercher avec Parcourir un modèle de remplacement. ' MSGBOX ' L'ID interne du document D:\Plans 3D\Trotinette électrique\Assemblages\Guidon\bead2.sldprt ne correspond pas à l'ID interne enregistré avec le document de référence. Sélectionnez OUI pour accepter quand même ce document. Sélectionnez NON pour chercher avec Parcourir un modèle de remplacement. ' MSGBOX ' L'ID interne du document D:\Plans 3D\Trotinette électrique\Pièces\Guidon\bead1.sldprt ne correspond pas à l'ID interne enregistré avec le document de référence. Sélectionnez OUI pour accepter quand même ce document. Sélectionnez NON pour chercher avec Parcourir un modèle de remplacement. Set Part = swApp.ActivateDoc ("trotinette") Part.WindowRedraw swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.ActiveView().RotateAboutCenter 0.00659075, 0 Part.ActiveView().RotateAboutCenter 0.079089, 0.0524789 Part.ActiveView().RotateAboutCenter 0.0724983, 0.0599759 Part.ActiveView().RotateAboutCenter 0.026363, 0.0224909 Part.ActiveView().RotateAboutCenter 0.0593168, 0.0374849 Part.ActiveView().RotateAboutCenter 0.0659075, 0.0374849 Part.ActiveView().RotateAboutCenter 0.0197723, 0.00749698 Part.ActiveView().RotateAboutCenter 0.0856798, 0.0299879 Part.ActiveView().RotateAboutCenter 0.0922706, 0.0224909 Part.ActiveView().RotateAboutCenter 0.0659075, 0.00749698 Part.ActiveView().RotateAboutCenter 0.0856798, 0.014994 Part.ActiveView().RotateAboutCenter 0.105452, 0 Part.ActiveView().RotateAboutCenter 0.0461353, 0.00749698 Part.ActiveView().RotateAboutCenter 0.0856798, 0.00749698 Part.ActiveView().RotateAboutCenter 0.0724983, 0.014994 Part.ActiveView().RotateAboutCenter 0.0593168, 0.014994 Part.ActiveView().RotateAboutCenter 0.0329538, 0.00749698 Part.ActiveView().RotateAboutCenter 0.0724983, 0.014994 Part.ActiveView().RotateAboutCenter 0.026363, 0.014994 Part.ActiveView().RotateAboutCenter 0.0329538, 0.014994 Part.ActiveView().RotateAboutCenter 0.0659075, 0.0374849 Part.ActiveView().RotateAboutCenter 0.0461353, 0.0374849 Part.ActiveView().RotateAboutCenter 0.026363, 0.0224909 Part.ActiveView().RotateAboutCenter 0.00659075, 0.157437 Part.ActiveView().RotateAboutCenter -0.0461353, 0.254897 Part.ActiveView().RotateAboutCenter -0.0922706, 0.217412 Part.ActiveView().RotateAboutCenter -0.0988613, 0.164934 Part.ActiveView().RotateAboutCenter -0.0197723, 0.0599759 Part.ActiveView().RotateAboutCenter -0.0395445, 0.0674728 Part.ActiveView().RotateAboutCenter -0.0197723, 0.0224909 Part.ActiveView().RotateAboutCenter -0.0593168, 0.0524789 Part.ActiveView().RotateAboutCenter -0.0461353, 0.0224909 Part.ActiveView().RotateAboutCenter -0.079089, 0.0449819 Part.ActiveView().RotateAboutCenter -0.0922706, 0.0224909 Part.ActiveView().RotateAboutCenter -0.105452, 0.0224909 Part.ActiveView().RotateAboutCenter -0.0593168, 0.014994 Part.ActiveView().RotateAboutCenter -0.0593168, 0.014994 Part.ActiveView().RotateAboutCenter -0.0395445, 0.0224909 Part.ActiveView().RotateAboutCenter -0.0329538, 0 Part.ActiveView().RotateAboutCenter -0.0131815, 0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, 0 Part.ActiveView().RotateAboutCenter -0.0461353, -0.014994 Part.ActiveView().RotateAboutCenter -0.26363, -0.0449819 Part.ActiveView().RotateAboutCenter -0.388854, -0.00749698 Part.ActiveView().RotateAboutCenter -0.26363, 0.0899638 Part.ActiveView().RotateAboutCenter -0.224086, 0.172431 Part.ActiveView().RotateAboutCenter -0.131815, 0.14994 Part.ActiveView().RotateAboutCenter -0.0659075, 0.142443 Part.ActiveView().RotateAboutCenter 0.00659075, 0.119952 Part.ActiveView().RotateAboutCenter 0.26363, 0.299879 Part.ActiveView().RotateAboutCenter 0.217495, 0.164934 Part.ActiveView().RotateAboutCenter 0.283402, 0.112455 Part.ActiveView().RotateAboutCenter 0.26363, 0.0374849 Part.ActiveView().RotateAboutCenter 0.151587, 0 Part.ActiveView().RotateAboutCenter 0.0329538, -0.0224909 Part.ActiveView().RotateAboutCenter 0.0329538, -0.0974608 Part.ActiveView().RotateAboutCenter 0.0659075, -0.352358 Part.ActiveView().RotateAboutCenter 0, -0.284885 Part.ActiveView().RotateAboutCenter 0, -0.172431 Part.ActiveView().RotateAboutCenter -0.00659075, -0.217412 Part.ActiveView().RotateAboutCenter 0, -0.164934 Part.ActiveView().RotateAboutCenter -0.026363, -0.164934 Part.ActiveView().RotateAboutCenter -0.0461353, -0.217412 Part.ActiveView().RotateAboutCenter -0.0395445, -0.112455 Part.ActiveView().RotateAboutCenter -0.0856798, -0.0449819 Part.ActiveView().RotateAboutCenter -0.112043, -0.0749698 Part.ActiveView().RotateAboutCenter -0.00659075, 0.00749698 Part.ActiveView().RotateAboutCenter -0.0659075, 0.127449 Part.ActiveView().RotateAboutCenter -0.0724983, 0.0899638 Part.ActiveView().RotateAboutCenter -0.0461353, 0.0449819 Part.ActiveView().RotateAboutCenter -0.026363, 0.0299879 Part.ActiveView().RotateAboutCenter -0.0197723, 0.0524789 Part.ActiveView().RotateAboutCenter -0.0197723, 0.0674728 Part.ActiveView().RotateAboutCenter -0.00659075, 0.104958 Part.ActiveView().RotateAboutCenter 0, 0.112455 Part.ActiveView().RotateAboutCenter 0.00659075, 0.0749698 Part.ActiveView().RotateAboutCenter 0, 0.0224909 Part.ActiveView().RotateAboutCenter 0, 0.014994 Part.ActiveView().RotateAboutCenter 0.00659075, 0.0299879 Part.ActiveView().RotateAboutCenter 0.0659075, 0.0524789 Part.ActiveView().RotateAboutCenter 0.164769, 0.0824668 Part.ActiveView().RotateAboutCenter 0.0461353, 0.0299879 Part.ActiveView().RotateAboutCenter 0.026363, 0 Part.ActiveView().RotateAboutCenter 0.0659075, -0.0299879 Part.ActiveView().RotateAboutCenter 0.0395445, -0.0374849 Part.ActiveView().RotateAboutCenter 0, -0.0749698 Part.ActiveView().RotateAboutCenter -0.00659075, -0.0449819 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter -0.0197723, -0.157437 Part.ActiveView().RotateAboutCenter -0.00659075, -0.014994 Part.ShowNamedView2 "*Isométrique", 7 Part.ShowNamedView2 "*Face", 1 Part.ShowNamedView2 "*Gauche", 3 Part.ViewZoomTo2 -0.202862, -0.315894, 0.0111256, -0.115419, -0.475513, 0.0111256 Part.ActiveView().RotateAboutCenter 0, 0.014994 Part.ActiveView().RotateAboutCenter 0, 0.0374849 Part.ActiveView().RotateAboutCenter 0, 0.0449819 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.014994 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.0224909 Part.ActiveView().RotateAboutCenter 0, 0.0524789 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, -0.014994 Part.ActiveView().RotateAboutCenter 0, -0.0224909 Part.ActiveView().RotateAboutCenter -0.00659075, -0.0299879 Part.ActiveView().RotateAboutCenter -0.00659075, -0.0299879 Part.ActiveView().RotateAboutCenter 0, -0.0449819 Part.ActiveView().RotateAboutCenter 0, -0.0224909 Part.ActiveView().RotateAboutCenter -0.00659075, -0.014994 Part.ActiveView().RotateAboutCenter 0, -0.0224909 Part.ActiveView().RotateAboutCenter -0.00659075, -0.0299879 Part.ActiveView().RotateAboutCenter 0, -0.0224909 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter 0, -0.0374849 Part.ActiveView().RotateAboutCenter 0, -0.0599759 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter 0, -0.0449819 Part.ActiveView().RotateAboutCenter 0, -0.0224909 Part.ActiveView().RotateAboutCenter 0, -0.014994 Part.ActiveView().RotateAboutCenter 0, -0.0224909 Part.ActiveView().RotateAboutCenter 0, -0.014994 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, 0 Part.ActiveView().RotateAboutCenter 0, -0.014994 Part.ActiveView().RotateAboutCenter -0.0197723, -0.0374849 Part.ActiveView().RotateAboutCenter -0.0131815, -0.0449819 Part.ActiveView().RotateAboutCenter -0.0131815, -0.0374849 Part.ActiveView().RotateAboutCenter -0.0131815, -0.0449819 Part.ActiveView().RotateAboutCenter -0.0131815, -0.0449819 Part.ActiveView().RotateAboutCenter -0.0197723, -0.0449819 Part.ActiveView().RotateAboutCenter -0.00659075, -0.0449819 Part.ActiveView().RotateAboutCenter -0.00659075, -0.014994 Part.ActiveView().RotateAboutCenter -0.00659075, -0.0674728 Part.ActiveView().RotateAboutCenter 0, -0.0224909 Part.ActiveView().RotateAboutCenter 0.00659075, 0.014994 Part.ActiveView().RotateAboutCenter 0.00659075, 0.0599759 Part.ActiveView().RotateAboutCenter 0.0131815, 0.142443 Part.ActiveView().RotateAboutCenter 0, 0.194922 Part.ActiveView().RotateAboutCenter 0, 0.217412 Part.ActiveView().RotateAboutCenter 0, 0.0974608 Part.ActiveView().RotateAboutCenter -0.00659075, 0.112455 Part.ActiveView().RotateAboutCenter 0, 0.0524789 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter 0, -0.0299879 Part.ActiveView().RotateAboutCenter -0.0131815, -0.0449819 Part.ActiveView().RotateAboutCenter 0, -0.014994 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, 0 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter 0, -0.014994 Part.ActiveView().RotateAboutCenter 0, -0.00749698 boolstatus = Part.Extension.SelectByID("", "FACE", -0.1814949145068, 0.02881361679397, 0.3975838330063, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D2@Esquisse1@support roue-1@trotinette/rondelle roue-1@support roue", "DIMENSION", -0.1785918918414, -0.04129270401709, 0.3853848437004, False, 0, Nothing) Part.ViewZoomTo2 -0.183899, -0.380105, 0.0111256, -0.150343, -0.399331, 0.0111256 boolstatus = Part.Extension.SelectByID("D1@Extrusion1@support roue-1@trotinette/rondelle roue-1@support roue", "DIMENSION", -0.1786136844026, -0.04166788148205, 0.3881645381113, False, 0, Nothing) Part.EditRebuild Part.WindowRedraw Part.WindowRedraw Part.ShowNamedView2 "*Gauche", 3 Part.ViewZoomTo2 -0.19731, -0.349206, 0.011119, -0.0821068, -0.443589, 0.011119 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter -0.0131815, -0.0224909 Part.ActiveView().RotateAboutCenter -0.00659075, -0.0524789 Part.ActiveView().RotateAboutCenter 0, -0.0299879 Part.ActiveView().RotateAboutCenter -0.00659075, -0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, -0.00749698 Part.ActiveView().RotateAboutCenter -0.0395445, -0.014994 Part.ActiveView().RotateAboutCenter -0.0197723, -0.0224909 Part.ActiveView().RotateAboutCenter -0.00659075, -0.00749698 Part.ActiveView().RotateAboutCenter -0.026363, 0 Part.ActiveView().RotateAboutCenter -0.0197723, 0.014994 Part.ActiveView().RotateAboutCenter -0.0131815, 0.014994 Part.ActiveView().RotateAboutCenter -0.0131815, 0.0374849 Part.ActiveView().RotateAboutCenter 0, 0.014994 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.0374849 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, -0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, -0.014994 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.EditRebuild Part.ClearSelection Part.WindowRedraw Part.WindowRedraw Part.ShowNamedView2 "*Gauche", 3 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.04 Part.ActiveView().ZoomByFactor 1.08 Part.ActiveView().ZoomByFactor 1.11 Part.ActiveView().ZoomByFactor 1.11 Part.ActiveView().ZoomByFactor 1.05 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.06 Part.ActiveView().ZoomByFactor 1.08 Part.ActiveView().ZoomByFactor 1.27 Part.ActiveView().ZoomByFactor 1.22 Part.ActiveView().ZoomByFactor 1.11 Part.ActiveView().ZoomByFactor 1.21 Part.ActiveView().ZoomByFactor 1.1 Part.ActiveView().ZoomByFactor 1.08 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.06 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().TranslateBy 0.000279121, 0.000558242 Part.ActiveView().TranslateBy 0.000558242, 0.00418681 Part.ActiveView().TranslateBy 0.0013956, 0.00865275 Part.ActiveView().TranslateBy 0.00167473, 0.0159099 Part.ActiveView().TranslateBy 0.000837363, 0.0170264 Part.ActiveView().TranslateBy 0.000558242, 0.0131187 Part.ActiveView().TranslateBy 0.000279121, 0.018422 Part.ActiveView().TranslateBy 0, 0.0120022 Part.ActiveView().TranslateBy -0.000279121, 0.00976923 Part.ActiveView().TranslateBy -0.000837363, 0.00837363 Part.ActiveView().TranslateBy -0.000837363, 0.00362857 Part.ActiveView().TranslateBy 0, 0.000279121 Part.ActiveView().TranslateBy 0.00111648, 0.00697802 Part.ActiveView().TranslateBy 0, 0.0281912 Part.ActiveView().TranslateBy -0.00223297, 0.0413099 Part.ActiveView().TranslateBy -0.00921099, 0.0466132 Part.ActiveView().TranslateBy -0.00558242, 0.0159099 Part.ActiveView().TranslateBy 0.000279121, 0.000837363 Part.ActiveView().TranslateBy 0.00697802, 0.0295868 Part.ActiveView().TranslateBy 0.00362857, 0.0823407 Part.ActiveView().TranslateBy -0.00474505, 0.016189 Part.ActiveView().TranslateBy 0.000279121, 0.000837363 Part.ActiveView().TranslateBy 0.000558242, 0.00865275 Part.ActiveView().TranslateBy 0.000279121, 0.00809451 Part.ActiveView().TranslateBy 0, 0.000279121 Part.ActiveView().TranslateBy 0, 0.000279121 Part.ActiveView().TranslateBy 0.000558242, 0.00390769 Part.ActiveView().TranslateBy 0.000279121, 0.00949011 Part.ActiveView().TranslateBy 0, 0.000279121 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.06 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.08 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.09 Part.ActiveView().ZoomByFactor 1.08 Part.ActiveView().ZoomByFactor 1.06 Part.ActiveView().ZoomByFactor 1.06 Part.ActiveView().ZoomByFactor 1.05 Part.ActiveView().ZoomByFactor 1.09 Part.ActiveView().ZoomByFactor 1.06 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.05 Part.ActiveView().ZoomByFactor 1.04 Part.ActiveView().ZoomByFactor 1.04 Part.ActiveView().ZoomByFactor 1.07 Part.ActiveView().ZoomByFactor 1.05 Part.ActiveView().ZoomByFactor 1.06 Part.ActiveView().ZoomByFactor 1.04 Part.ActiveView().ZoomByFactor 1.05 Part.ActiveView().ZoomByFactor 1.05 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.08 Part.ActiveView().ZoomByFactor 1.05 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.05 Part.ActiveView().ZoomByFactor 1.01 boolstatus = Part.Extension.SelectByID("", "FACE", -0.1571283577339, 0.0290150764157, 0.403549292459, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.1570681732156, 0.03178407815801, 0.3927762636843, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", -0.1836697303019, 0.03143260357649, 0.3930170017574, False, 0, Nothing) Part.ActivateSelectedFeature boolstatus = Part.Extension.SelectByID("D4@Esquisse1@support roue-1@trotinette/fourche-1@support roue", "DIMENSION", -0.1697671065758, 0.01111899977746, 0.4006002510626, False, 0, Nothing) Part.EditRebuild Part.WindowRedraw Part.WindowRedraw Part.EditRebuild Part.ClearSelection Part.WindowRedraw Part.WindowRedraw Part.ActiveView().RotateAboutCenter 0.00659075, 0.014994 Part.ActiveView().RotateAboutCenter 0.0131815, 0.0374849 Part.ActiveView().RotateAboutCenter 0.0197723, 0.0374849 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, 0 Part.ActiveView().RotateAboutCenter -0.0131815, 0 Part.ActiveView().RotateAboutCenter -0.0131815, -0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, -0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, 0 Part.ActiveView().RotateAboutCenter -0.00659075, -0.014994 Part.ActiveView().RotateAboutCenter -0.0131815, -0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, -0.014994 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, -0.00749698 Part.ActiveView().RotateAboutCenter 0, -0.014994 Part.ActiveView().RotateAboutCenter -0.0131815, -0.014994 Part.ActiveView().RotateAboutCenter -0.00659075, -0.014994 Part.ActiveView().RotateAboutCenter -0.00659075, -0.00749698 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter -0.0131815, -0.00749698 Part.ActiveView().RotateAboutCenter 0, -0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, 0 Part.ActiveView().RotateAboutCenter -0.00659075, 0.0224909 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, 0 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, 0 Part.ActiveView().RotateAboutCenter 0.00659075, 0 Part.ActiveView().RotateAboutCenter 0.00659075, -0.014994 boolstatus = Part.Extension.SelectByID("", "FACE", -0.1580593427448, 0.02925380371192, 0.3951905499635, False, 0, Nothing) Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.014994 Part.ActiveView().RotateAboutCenter 0, 0.014994 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, 0.00749698 Part.ActiveView().RotateAboutCenter 0, 0.00749698 Part.ActiveView().RotateAboutCenter -0.00659075, 0 Part.ActiveView().RotateAboutCenter 0.00659075, 0 Part.ActiveView().RotateAboutCenter 0.0197723, -0.0299879 Part.ActiveView().RotateAboutCenter 0, -0.0224909 Part.ActiveView().RotateAboutCenter 0.00659075, 0 Part.ActiveView().RotateAboutCenter 0.0131815, 0.0299879 boolstatus = Part.Extension.SelectByID("", "FACE", -0.1531789238784, 0.0238994505271, 0.3960014707738, False, 0, Nothing) Part.ActivateSelectedFeature Part.EditRebuild Part.ClearSelection Part.WindowRedraw Part.WindowRedraw Part.ShowNamedView2 "*Isométrique", 7 Part.ShowNamedView2 "*Dimétrique", 9 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.18 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.01 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.04 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1 Part.ActiveView().ZoomByFactor 0.900901 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.970874 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 1.02 Part.ActiveView().ZoomByFactor 1.03 Part.ActiveView().ZoomByFactor 1.01 ' MSGBOX ' Certains des modèles référencés dans ce document ont été modifiés. Ils doivent être enregistrés lorsque le document est enregistré. ' Enregistrer le document et les modèles référencés maintenant ? Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ExitApp End Sub