' ****************************************************************************** ' swxJRNL.swj - journal recorded on 06/25/03 by prof ' ****************************************************************************** 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 = CreateObject ("SldWorks.Application") Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\prof\Mes documents\Cric hydraulique\Maquette virtuelle\bras de levage.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("bras de levage") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "", "FACE", 0.204062730993, 0.05096266074668, 0.04776106517977 Part.ClearSelection Part.SelectByID "", "FACE", 0.03542373744222, 0.07211908451535, 0.0578517356218 Part.ClearSelection Set Part = Nothing swApp.CloseDoc "bras de levage" swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\prof\Mes documents\Cric hydraulique\Maquette virtuelle\groupe tête de levage.SLDASM", 2, 0, "", longstatus) Set Part = swApp.ActivateDoc ("groupe tête de levage") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "tête-1@groupe tête de levage", "COMPONENT", 0, 0, 0 Part.SelectByID "tête-1@groupe tête de levage", "COMPONENT", 0, 0, 0 Part.SelectByID "tête-1@groupe tête de levage", "COMPONENT", 0, 0, 0 Part.SelectByID "sabot-1@groupe tête de levage", "COMPONENT", 0, 0, 0 Part.SelectByID "tête-1@groupe tête de levage", "COMPONENT", 0, 0, 0 Part.SelectByID "axe de sabot-1@groupe tête de levage", "COMPONENT", 0, 0, 0 Part.SelectByID "entretoise-1@groupe tête de levage", "COMPONENT", 0, 0, 0 Part.SelectByID "circlips D11-1@groupe tête de levage", "COMPONENT", 0, 0, 0 Part.SelectByID "groupe tête de levage.SLDASM", "COMPONENT", 0, 0, 0 Part.SelectByID "groupe tête de levage.SLDASM", "COMPONENT", 0, 0, 0 Part.SelectByID "tête-1@groupe tête de levage", "COMPONENT", 0, 0, 0 Part.SelectByID "tête-1@groupe tête de levage/selle-1@tête", "COMPONENT", 0, 0, 0 Part.SelectByID "tête-1@groupe tête de levage/selle-1@tête", "COMPONENT", 0, 0, 0 Part.SelectByID "tête-1@groupe tête de levage", "COMPONENT", 0, 0, 0 Part.SelectByID "tête-1@groupe tête de levage", "COMPONENT", 0, 0, 0 Part.OpenCompFile swApp.LoadFile2 "C:\Documents and Settings\prof\Mes documents\Cric hydraulique\Maquette virtuelle\groupe tête de levage\tête.SLDASM", "" Set Part = swApp.ActiveDoc Set Part = swApp.OpenDoc4 ("C:\Documents and Settings\prof\Mes documents\Cric hydraulique\Maquette virtuelle\groupe tête de levage\tête.SLDASM", 2, 0, "", longstatus) swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("tête") Part.ClearSelection Part.SelectByID "", "FACE", -0.03229678433428, -0.07450659122298, 0.01878604437439 Part.SelectByID "", "FACE", -0.0200000000001, -0.05170220435804, 0.01082841266077 Part.SelectByID "", "FACE", -0.02105889063807, -0.05056397119705, -0.007506303429693 Part.ClearSelection Part.SelectByID "", "FACE", -0.03337899464265, -0.07553817541395, 0.02038456560189 Part.SelectByID "", "FACE", -0.0200000000001, -0.05161188300241, 0.01410486231561 Part.SelectByID "", "FACE", -0.01899042580004, 0.006511997052939, -0.01407575131776 Part.ClearSelection Part.AndSelectByID "axe de tête-1@tête", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AndSelectByID "selle-1@tête", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AndSelectByID "cuvette-1@tête", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "", "FACE", -0.03203668515761, -0.07729135854578, 0.02172687508687 Part.SelectByID "", "FACE", -0.03325765896477, -0.07461374885179, 0.01901660598202 Part.SelectByID "", "FACE", -0.02000000000015, -0.06853174918166, -0.001681667839307 Part.ClearSelection Part.AndSelectByID "Coaxial2", "MATE", 0, 0, 0 Part.ClearSelection Part.AndSelectByID "selle-1@tête", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AndSelectByID "cuvette-1@tête", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AndSelectByID "axe de tête-1@tête", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AndSelectByID "cuvette-1@tête", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.AndSelectByID "cuvette-1@tête", "COMPONENT", 0, 0, 0 Part.EditDelete Part.ClearSelection Part.SelectByID "", "FACE", 0.007254041703732, 0.004052545009529, -0.01583003540952 Part.ClearSelection Part.AndSelectByID "axe de tête-1@tête", "COMPONENT", 0, 0, 0 Part.AndSelectByID "selle-1@tête", "COMPONENT", 0, 0, 0 Part.AndSelectByID "Coaxial2", "MATE", 0, 0, 0 Part.SelectByID "", "FACE", 0.02399999999994, -0.03896889444957, -0.00563697642292 Part.ClearSelection Part.ViewZoomtofit2 Part.SelectByID "", "FACE", 0.02399999999994, -0.0329777010752, -0.008615567018239 Part.ActiveView().RotateAboutCenter 0, 0.00805537 Part.ActiveView().RotateAboutCenter -0.053044, 0.185273 Part.ActiveView().RotateAboutCenter -0.159132, 0.22555 Part.ActiveView().RotateAboutCenter -0.079566, 0.0724983 Part.ActiveView().RotateAboutCenter -0.0596745, 0.0402768 Part.ActiveView().RotateAboutCenter -0.013261, 0.0241661 Part.CreatePlaneAtOffset3 0.01, 0, 1 Part.ClearSelection Part.SelectByID "PLAN4", "PLANE", 0, 0, 0 Part.InsertSketch Part.ActiveView().RotateAboutCenter 0, -0.00805537 Part.ActiveView().RotateAboutCenter -0.13261, -0.55582 Part.ActiveView().RotateAboutCenter -0.238698, -0.749149 Part.ActiveView().RotateAboutCenter -0.344786, -0.861924 Part.ActiveView().RotateAboutCenter -0.066305, -0.22555 Part.ActiveView().RotateAboutCenter -0.0198915, -0.0966644 Part.ActiveView().RotateAboutCenter 0.092827, 0.169163 Part.ActiveView().RotateAboutCenter 0.13924, 0.338325 Part.ActiveView().RotateAboutCenter 0.0729355, 0.169163 Part.ActiveView().RotateAboutCenter 0.0198915, 0.0402768 Part.ActiveView().RotateAboutCenter 0.0596745, 0.144997 Part.ActiveView().RotateAboutCenter 0.039783, 0.0966644 Part.ActiveView().RotateAboutCenter 0.013261, 0.0563876 Part.SketchUseEdge ' MSGBOX ' Cette opération demande de sélectionner: ' pour un décalage d'arêtes d'un modèle ' -une ou plusieurs arêtes connectées ' -une face du modèle ' -une face du modèle et une arête de la face pour spécifier la boucle ' pour un décalage d'entités externes d'une esquisse ' -une ou plusieurs entités connectées ' -une entité sur un contour fermé ' -une esquisse externe avec un contour fermé Part.ClearSelection Part.SelectByID "", "EDGE", 0.02399014862135, -0.04221935714491, 0.0007818376292761 Part.SetPickMode Part.ClearSelection Part.SelectByID "", "EDGE", 0.02400754630747, -0.0412819175672, -0.0004129634167214 Part.SketchUseEdge Part.ClearSelection Part.InsertSketch Part.SelectByID "Arc2@Esquisse1", "EXTSKETCHSEGMENT", -0.001040051945866, -0.04229202873864, 0 Part.SelectByID "Arc2@Esquisse1", "EXTSKETCHSEGMENT", -0.001276438327861, -0.04248883431473, 0 Part.InsertNewPart swApp.LoadFile2 "C:\Program Files\SolidWorks EE 2002-2003\data\templates\Pièce.prtdot", "" Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks EE 2002-2003\data\templates\Pièce.prtdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Part1") swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("tête") Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.SetPickMode Part.SelectByID "Esquisse1", "SKETCH", 0, 0, 0 Part.ActivateSelectedFeature Part.SelectByID "Esquisse1", "SKETCH", 0, 0, 0 Part.SelectByID "Esquisse1", "SKETCH", 0, 0, 0 Part.EditSketch Part.ClearSelection Part.SelectByID "Arc2", "SKETCHSEGMENT", 0.004292517137123, -0.04122088677539, 0 Part.EditDelete Part.InsertSketch Part.SelectByID "PLAN4", "PLANE", 0, 0, 0 Part.EditDelete Part.ActiveView().RotateAboutCenter 0, -0.00805537 Part.ActiveView().RotateAboutCenter 0, -0.0563876 Part.ActiveView().RotateAboutCenter 0.026522, -0.0644429 Part.ActiveView().RotateAboutCenter 0.079566, -0.144997 Part.ActiveView().RotateAboutCenter 0.0066305, -0.112775 Part.ActiveView().RotateAboutCenter 0, -0.0402768 Part.ActiveView().RotateAboutCenter 0, -0.0805537 Part.ActiveView().RotateAboutCenter -0.0198915, -0.0644429 Part.ActiveView().RotateAboutCenter 0, -0.00805537 Part.ActiveView().RotateAboutCenter 0, -0.00805537 Part.ActiveView().RotateAboutCenter -0.0066305, -0.00805537 Part.SelectByID "", "FACE", 0.02216787037156, -0.04715838173475, 0.003318417313665 Part.InsertNewPart swApp.LoadFile2 "C:\Program Files\SolidWorks EE 2002-2003\data\templates\Pièce.prtdot", "" Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks EE 2002-2003\data\templates\Pièce.prtdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Part2") Part.SaveAs2 "C:\Documents and Settings\All Users\Documents\Terminale GM\TP Term GM série1\Essai fab méca 3d.SLDPRT", 0, FALSE, FALSE swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("tête") Part.AddComponent "C:\Documents and Settings\All Users\Documents\Terminale GM\TP Term GM série1\Essai fab méca 3d.SLDPRT", 0, 0, 0 ' MSGBOX ' Veuillez sélectionner une face plane. Part.ClearSelection Part.SketchUseEdge ' MSGBOX ' Cette opération demande de sélectionner: ' pour un décalage d'arêtes d'un modèle ' -une ou plusieurs arêtes connectées ' -une face du modèle ' -une face du modèle et une arête de la face pour spécifier la boucle ' pour un décalage d'entités externes d'une esquisse ' -une ou plusieurs entités connectées ' -une entité sur un contour fermé ' -une esquisse externe avec un contour fermé Part.SelectByID "", "EDGE", 0.02419427986763, -0.04373436258085, 0.002614863538327 Part.SketchUseEdge Part.ClearSelection Part.FeatureExtrusion3 1, 0, 1, 0, 0, 0.07, 0.01, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, 0, 0, 1 Part.EditRebuild Part.ClearSelection ' MSGBOX ' C:\Documents and Settings\prof\Mes documents\Cric hydraulique\Maquette virtuelle\groupe tête de levage\tête.SLDASM est référencé par d'autres documents ouverts. "Enregistrer sous" replacera ces références avec le nouveau nom. Sélectionnez "Enregistrer copie sous" dans la boîte de dialogue "Enregistrer sous" si vous souhaitez garder les références existantes. ' MSGBOX ' C:\Documents and Settings\prof\Mes documents\Cric hydraulique\Maquette virtuelle\groupe tête de levage\tête.SLDASM est référencé par d'autres documents ouverts. "Enregistrer sous" replacera ces références avec le nouveau nom. Sélectionnez "Enregistrer copie sous" dans la boîte de dialogue "Enregistrer sous" si vous souhaitez garder les références existantes. ' MSGBOX ' Il y a des pièces qui ont des fonctions définies dans le contexte de C:\Documents and Settings\prof\Mes documents\Cric hydraulique\Maquette virtuelle\groupe tête de levage\tête.SLDASM. Si vous sélectionnez OK pour continuer cette opération, ces fonctions ne seront pas mises à jour dans le contexte du dernier assemblage enregistré. Il vous est fortement recommandé d'enregistrer maintenant les nouvelles versions de ces pièces, qui se mettront à jour dans le contexte du dernier assemblage enregistré. Pour faire cela, sélectionnez Annuler, sélectionnez Références à partir de la boîte de dialogue Enregistrez sous, puis entrez des nouveaux noms pour les pièces que vous souhaitez mettre à jour dans le nouvel assemblage. ' 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.SaveAs2 "C:\Documents and Settings\All Users\Documents\Terminale GM\TP Term GM série1\Essai fab méca 3D.SLDASM", 0, FALSE, FALSE Part.SelectByID "", "FACE", -0.004061552978555, -0.04607949260715, -0.008608460311734 Part.EditAssembly Part.ClearSelection Part.SelectByID "", "FACE", -0.0111162771189, -0.04726504874478, -0.008673634828995 Part.SelectByID "Essai fab méca 3d-1@Essai fab méca 3D", "COMPONENT", 0, 0, 0 Part.ClearSelection Part.SelectByID "Essai fab méca 3d-1@Essai fab méca 3D", "COMPONENT", 0, 0, 0 Part.SelectByID "Essai fab méca 3d-1@Essai fab méca 3D", "COMPONENT", 0, 0, 0 Part.FixComponent Part.ClearSelection ' MSGBOX ' L'assemblage ne peut pas être résolu en ajoutant cette contrainte. Considérez : ' o Enlever la contrainte. ' o Déplacer l'esquisse plus près de la solution désirée en faisant glisser ou en changeant les valeurs de cote. ' o Ajouter des contraintes supplémentaires pour encore plus définir l'esquisse. ' o Changer le système de contrainte. Part.SelectByID "Essai fab méca 3d-1@Essai fab méca 3D", "COMPONENT", 0, 0, 0 Part.UnfixComponent Part.ClearSelection Part.SelectByID "cordon tête 4-1@Essai fab méca 3D", "COMPONENT", 0, 0, 0 Part.SelectByID "Essai fab méca 3d-1@Essai fab méca 3D", "COMPONENT", 0, 0, 0 Part.SelectByID "", "FACE", -0.01108984634294, -0.0461921957373, -0.008624864265244 Part.TranslateComponent ' MSGBOX ' Le composant sélectionné est totalement contraint. Il ne peut pas être déplacé. Part.SelectByID "", "FACE", -0.002102981366249, -0.04580730480714, -0.008559753668123 Part.SetPickMode Part.ClearSelection Part.SetPickMode Part.SetPickMode Part.SelectByID "", "FACE", -0.003086893340765, -0.04849488874068, -0.008490284267111 Part.SelectByID "", "FACE", 0.024, -0.02620677876615, -0.002203397862388 Part.SelectByID "", "FACE", 0.002786694614485, -0.04874971282738, -0.008418699624031 Part.SelectByID "", "FACE", -0.001715422601251, -0.04935137458427, -0.008199549674373 Part.SelectByID "Essai fab méca 3d-1@Essai fab méca 3D", "COMPONENT", 0, 0, 0 Part.SelectByID "Essai fab méca 3d-1@Essai fab méca 3D", "COMPONENT", 0, 0, 0 Part.EditDelete swApp.LoadFile2 "C:\Program Files\SolidWorks EE 2002-2003\data\templates\Pièce.prtdot", "" Set Part = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.NewDocument ("C:\Program Files\SolidWorks EE 2002-2003\data\templates\Pièce.prtdot", 0, 0.000000, 0.000000) Set Part = swApp.ActivateDoc ("Part3") swApp.ArrangeWindows 2 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 406 swApp.ActiveDoc.ActiveView.FrameHeight = 836 Set Part = swApp.ActivateDoc ("groupe tête de levage") Set Part = Nothing swApp.CloseDoc "groupe tête de levage" Set Part = swApp.ActivateDoc ("Part3") Set Part = swApp.ActivateDoc ("Essai fab méca 3D") swApp.ActiveDoc.ActiveView.FrameLeft = 406 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.SelectByID "", "EDGE", 0.0243053697352, -0.04813157164117, -0.008267569803081 Part.ClearSelection Part.SelectByID "", "EDGE", 0.02425871502925, -0.04289988882451, -0.006574517721958 Part.AddDimension 0.0391856, -0.0205672, 0.0380265 Part.ClearSelection Part.EditDelete swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Part3") Part.InsertSketch Part.CreateCircle 0, 0, 0, 0.01923507537688, -0.02120070351759, 0 Part.ClearSelection Part.SelectByID "Arc1", "SKETCHSEGMENT", 0.01684524868068, 0.02314509778077, 0 Part.AddDimension 0.0546164, 0.0400146, 0 Part.ClearSelection Part.Parameter("D1@Esquisse1").SystemValue = 0.012 Part.FeatureExtrusion3 1, 0, 1, 0, 0, 0.1, 0.01, 0, 0, 0, 0, 0.01745329251994, 0.01745329251994, 0, 0, 0, 0, 1 swApp.ActiveDoc.ActiveView.FrameLeft = 406 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 1 Set Part = swApp.ActivateDoc ("Essai fab méca 3D") swApp.ArrangeWindows 2 swApp.ActiveDoc.ActiveView.FrameLeft = 406 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameState = 0 swApp.ActiveDoc.ActiveView.FrameLeft = 0 swApp.ActiveDoc.ActiveView.FrameTop = 0 swApp.ActiveDoc.ActiveView.FrameWidth = 609 swApp.ActiveDoc.ActiveView.FrameHeight = 836 Set Part = swApp.ActivateDoc ("Part3") Part.SelectByID "Part3.SLDPRT", "COMPONENT", 0, 0, 0 ' MSGBOX ' Ne peut pas insérer un modèle non enregistré dans ce document. Voulez-vous enregistrer maintenant ? ' MSGBOX ' Un document nommé "essai fab méca 3d" est déjà ouvert. Veuillez choisir un nom différent. ' MSGBOX ' L'action glisser-déposer a échoué. Part.ClearSelection Set Part = Nothing swApp.CloseDoc "Part3" Set Part = swApp.ActivateDoc ("Essai fab méca 3D") Set Part = Nothing swApp.CloseDoc "Essai fab méca 3D" swApp.ExitApp End Sub