' ****************************************************************************** ' swxJRNL.swj - journal recorded on 12/08/06 by Laurent ' ***************************************************************************** Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim FeatureData As Object Dim Feature As Object Dim Component As Object Sub main() Set swApp = Application.SldWorks Set Part = swApp.OpenDoc6 ("D:\2006-2007\ROC1\Apprentissage SW\Echangeur\Rechauffeur pour tank à suif.SLDDRW", 3, 0, "", longstatus, longwarnings) Set Part = swApp.ActivateDoc ("Rechauffeur pour tank à suif - Feuille1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Feuille de calcul", "OLEITEM", 0.4627438256434, 0.5358280325591, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Feuille de calcul", "OLEITEM", 0, 0, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.3315738750289, 0.491309767344, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Feuille de calcul", "OLEITEM", 0, 0, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.378445, 0.612009, -4.33426e-015, 0.614482, 0.4559, -3.24415e-015 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Feuille de calcul", "OLEITEM", 0.4353956700877, 0.5379572895926, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Feuille de calcul", "OLEITEM", 0.4475177318692, 0.5395583166204, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Feuille de calcul", "OLEITEM", 0, 0, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.3860630108324, 0.5390293064978, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Feuille de calcul", "OLEITEM", 0, 0, 0, False, 0, Nothing) swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch boolstatus = Part.Extension.SelectByID("Vue de mise en plan18", "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.EditSketch Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.78125 Part.ActiveView().ZoomByFactor 0.757576 Part.ActiveView().ZoomByFactor 0.952381 Part.ActiveView().ZoomByFactor 0.884956 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.336576, 0.796908, -8.79348e-015, 0.700704, 0.475768, -6.55097e-015 Part.ViewZoomTo2 0.514563, 0.663742, -1.31261e-015, 0.627348, 0.580399, -7.30636e-016 Part.EditSketch Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.564972 Part.ActiveView().ZoomByFactor 0.877193 Part.ActiveView().ZoomByFactor 0.714286 Part.ActiveView().ZoomByFactor 0.840336 Part.ActiveView().ZoomByFactor 0.884956 Part.ActiveView().ZoomByFactor 0.990099 Part.ActiveView().ZoomByFactor 0.925926 Part.ActiveView().ZoomByFactor 0.961538 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Vue de mise en plan7", "DRAWINGVIEW", 0.4292353770996, 0.5512101494327, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail106@Vue de mise en plan6", "CENTERMARKSYM", 0.3739798452448, 0.526652135275, 0, False, 0, Nothing) Part.Save2 FALSE Part.ViewZoomtofit2 Part.ViewZoomTo2 0.0275113, 0.839304, -5.92145e-015, 0.209847, 0.76687, -5.41564e-015 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail132@Vue de mise en plan4", "NOTE", 0.0448261552935, 0.8174865644025, 0, False, 0, Nothing) Part.EditSketch boolstatus = Part.Extension.SelectByID("RD23@Vue de mise en plan4", "DIMENSION", 0.1080782193046, 0.8021152527574, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("RD23@Vue de mise en plan4", "DIMENSION", 0.1080782193046, 0.8021152527574, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Vue de mise en plan4", "DRAWINGVIEW", 0.1663831945103, 0.8060022511044, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.ViewZoomTo2 0.387187, 0.587032, -4.15984e-015, 0.634464, 0.453402, -3.22671e-015 Part.ViewZoomtofit2 Part.ViewZoomTo2 0.751858, 0.199881, -1.45638e-015, 0.804311, 0.143682, -1.06394e-015 Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.7778466356918, 0.1659553295619, -499.8895935627, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.7778466356918, 0.1659553295619, -499.8895935627, False, 0, Nothing) Part.Save2 FALSE Part.EditSketch Part.ViewZoomtofit2 Part.ViewZoomTo2 0.2061, 0.383465, -2.73834e-015, 0.257304, 0.338506, -2.42439e-015 boolstatus = Part.Extension.SelectByID("", "FACE", 0.2184489832267, 0.3683098580536, -499.8895935627, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2417213657373, 0.3678025581624, -499.8895935627, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.2417213657373, 0.3678025581624, -499.8895935627, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2203513578189, 0.3641246339509, -499.9498348494, False, 0, Nothing) Part.HideEdge Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.2400726410908, 0.3601296473074, -499.9707708905, False, 0, Nothing) Part.HideEdge Part.ClearSelection2 True Part.ViewZoomtofit2 Part.ViewZoomTo2 0.500834, 0.739394, -5.22379e-015, 0.601993, 0.684444, -4.84007e-015 Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.5266142757551, 0.7250051683318, 0.02268358475339, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.5266142757551, 0.7259853889611, 0.02672297713025, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "EDGE", 0.5267122978181, 0.7250051683318, 0.02228651313919, False, 0, Nothing) Part.HideEdge Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("", "EDGE", 0.5668033215539, 0.7184376901159, 0.00207453176057, False, 0, Nothing) Part.HideEdge Part.ClearSelection2 True Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail230@Vue de mise en plan16", "NOTE", 0.5170698311838, 0.5795386117296, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.811804, 0.0450207, -3.74996e-016, 0.879243, 0.0137988, -1.56975e-016 Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail226@Vue de mise en plan3", "NOTE", 0.8493137982405, 0.02506410623766, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.Save2 FALSE Part.ViewZoomTo2 0.201105, 0.379719, -2.71218e-015, 0.253557, 0.296044, -2.12789e-015 Part.ViewZoomtofit2 Part.ViewZoomTo2 0.3722, 0.457149, -3.25287e-015, 0.43964, 0.413438, -2.94765e-015 Part.EditSketch boolstatus = Part.Extension.SelectByID("D12@Esquisse10@Rechauffeur pour tank à suif.SLDDRW", "DIMENSION", 0.3935692927934, 0.4453246249063, 0, False, 0, Nothing) Part.ViewZoomtofit2 Part.ViewZoomTo2 0.467115, 0.458398, -3.2616e-015, 0.49459, 0.419683, -2.99125e-015 Part.ViewZoomtofit2 Part.ViewZoomTo2 0.233576, 0.50086, -3.5581e-015, 0.719387, 0.375972, -2.68602e-015 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("D12@Esquisse10@Rechauffeur pour tank à suif.SLDDRW", "DIMENSION", 0.3743291350351, 0.4447709817731, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.3696216557169, 0.4603056635232, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomtofit2 Part.Save2 FALSE Part.EditSketch Part.ViewZoomTo2 0.634464, 0.322271, -2.31102e-015, 0.729378, 0.188641, -1.37789e-015 Part.EditSketch boolstatus = Part.Extension.SelectByID("", "FACE", 0.6785285903182, 0.257623363034, -500.0828013095, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.6796594463258, 0.2559270790227, -500.08244687, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.6813557303371, 0.2557386030214, -500.082403755, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail74@Vue de mise en plan3", "NOTE", 0.6745705942918, 0.2519690829997, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.6819211583409, 0.2557386030214, -500.082403755, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail74@Vue de mise en plan3", "NOTE", 0.6642044142226, 0.2512151789947, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.6824865863447, 0.2538538430088, -500.0819313585, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.6800363983283, 0.2555501270201, -500.0823598916, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.6819211583409, 0.2553616510189, -500.0823152794, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail74@Vue de mise en plan3", "NOTE", 0.6819211583409, 0.252911463006, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail74@Vue de mise en plan3", "NOTE", 0.6828635383472, 0.2517806069985, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail74@Vue de mise en plan3", "NOTE", 0.6229281699469, 0.2604505030564, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("", "FACE", 0.7081193225159, 0.2546077470139, -500.0821293315, False, 0, Nothing) Part.ViewZoomtofit2 Part.Save2 FALSE Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ViewZoomTo2 0.330988, 0.764372, -5.3982e-015, 0.420907, 0.71067, -5.02321e-015 boolstatus = Part.Extension.SelectByID("Objet de détail85@Vue de mise en plan6", "NOTE", 0.3847687523856, 0.7310596631687, 0, False, 0, Nothing) Part.Save2 FALSE Part.EditSketch Part.ViewZoomtofit2 Part.EditSketch Part.EditSketch Part.EditSketch Part.EditSketch Part.ClearSelection2 True Part.EditUndo 1 Part.EditSketch Part.ViewZoomTo2 0.32849, 0.818073, -5.7732e-015, 0.407169, 0.730652, -5.16274e-015 Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail85@Vue de mise en plan6", "NOTE", 0.3749809444591, 0.7442155545491, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail85@Vue de mise en plan6", "NOTE", 0.3749809444591, 0.7442155545491, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail85@Vue de mise en plan6", "NOTE", 0.3759673609143, 0.7556826458406, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail85@Vue de mise en plan6", "NOTE", 0.3759673609143, 0.7556826458406, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail85@Vue de mise en plan6", "NOTE", 0.3737479238901, 0.7544496252716, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail85@Vue de mise en plan6", "NOTE", 0.3582118647209, 0.7542030211578, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch boolstatus = Part.Extension.SelectByID("Objet de détail236@Vue de mise en plan6", "NOTE", 0.3572254482657, 0.7435990442646, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail236@Vue de mise en plan6", "NOTE", 0.378680006166, 0.7445854607198, 0, False, 0, Nothing) Part.EditSketch Part.EditSketch Part.EditSketch Part.Save2 FALSE Part.ViewZoomtofit2 Part.ViewZoomTo2 0.967913, 0.0987222, -7.49993e-016, 1.19771, -0.0136764, 3.48834e-017 Part.EditSketch boolstatus = Part.Extension.SelectByID("Feuille1", "SHEET", 0.9914462268831, 0.01889105325642, 0, False, 0, Nothing) Part.EditTemplate Part.EditSketch Part.ClearSelection2 True boolstatus = Part.Extension.SelectByID("Objet de détail81@Fond de plan1", "NOTE", 1.045631438574, 0.01691349078596, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Fond de plan1", "NOTE", 1.045631438574, 0.01691349078596, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Fond de plan1", "NOTE", 1.045631438574, 0.01691349078596, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Objet de détail81@Fond de plan1", "NOTE", 1.045631438574, 0.01691349078596, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem114@Fond de plan1", "NOTE", 1.178325880342, 0.01869329700937, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("DetailItem114@Fond de plan1", "NOTE", 1.177930367848, 0.01612246579777, 0, False, 0, Nothing) Part.ViewZoomtofit2 boolstatus = Part.Extension.SelectByID("Fond de plan1", "SHEET", 0.1161813765063, 0.6657108963799, 0, False, 0, Nothing) Part.EditSheet Part.EditSketch Part.ClearSelection2 True Part.EditSketch Part.Save2 FALSE Part.Save2 FALSE Part.Save2 FALSE swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ExitApp End Sub