XGX4

salut, Tu peux faire un export au format STEP à l'école. tu pourras l'ouvrir avec ta version à la maison en mode solide mort mais tu auras au moins tout le solide

Bonjour Thibault, est ce que tu connais la notion de Catalogue dans CATIA? je pense que c'est un bon moyen de gérer une base de donnée d'éléments std. Je te conseille de regarder ICI = ?

Salut, regarde dans Tools / References si certaines librairies ne sont pas 'MISSING' j'ai eu se problème, en reselectionnant les bonnes librairies tout est OK

Salut, c'est possible. Il faut: 1 Passer un argument dans le lancement de CATIA (avec -macro)qui lance un CATscript "%DIR_INSTALL%\code\bin\CNEXT.exe" %MODE% -env R20 -direnv "F:\CATEnv" -macro "F:\Macros\Version\entete.CATScript" 2 Dans ton CATScript Sub main() Dim param() Dim oFilePath, oFileName, oModule As String Dim oSystemService As Variant Set oSystemService = CATIA.SystemService oFilePath = "F:\Macro" 'chemin de ton vba oFileName = "Test.catvba" 'nom du projet vba oModule = "Module1" 'nom du module Dim ss As Variant Set ss = CATIA.SystemService ss.ExecuteScript oFilePath & oFileName, catScriptLibraryTypeVBAProject, oModule, "CATMain", param End Sub

Bonjour à tous, Voilà, je cherche à changer une entité de set geometrique. j'arrive à connaitre le nom du set en utilisant: Debug.Print hybridShapes2.Parent.Name le problème est que c'est du read only. Est ce quelqu'un peut me donner la solution? Merci d'avance

Bonjour et bonne année à tous! Safran Engineering Services cherche dessinateurs projeteurs Catia V5 sur la région Paloise maitrisant les modules Part Design, Generative Shape Design, Drafting et Assembly Design De niveau BAC +2 à BAC +3 en Génie mécanique, Productique, CAO/CFAO. Débutant possible avec au minimum un stage en BE mécanique/conception. Une expérience en construction mécanique acquise dans un bureau d'études à forte dominante mécanique, préférentiellement aéronautique faciliterait l’adaptation au poste. Merci de m’envoyer votre CV actualisé à guillaume.malere@safran-engineering.com

Bonjour et bonne année à tous! Safran Engineering Services cherche dessinateurs projeteurs Catia V5 maitrisant les modules Part Design, Generative Shape Design, Drafting et Assembly Design De niveau BAC +2 à BAC +3 en Génie mécanique, Productique, CAO/CFAO. Débutant possible avec au minimum un stage en BE mécanique/conception. Une expérience en construction mécanique acquise dans un bureau d'études à forte dominante mécanique, préférentiellement aéronautique faciliterait l’adaptation au poste. Merci de m’envoyer votre CV actualisé à guillaume.malere@safran-engineering.com

Au fait merci marc!!!

Résolu! si ça peut servir à quelqu'un, voici le bout de code. Dim param As Parameter For i = 1 To search_param.Count Set param = search_param.Item(i).Value Valeur = param.ValueAsString Nom_Param = param.Name MsgBox Nom_Param & "=" & Valeur ' ... Next i

Bonjour à tous, Je voudrais savoir comment on fait pour faire une boucle sur une recherche dans le cas ci dessous, je cherche tous les parametres commencant par AVP_* pour pouvoir les exporter. je les compte bien, mais catia me retourne aussi les parametres intrinseque a la CATPart. C'est pour cela que le i est incrementé de 40 Comment je peut faire? sub Catmain() Dim mon3ddoc As PartDocument Dim mon3d As Part Dim search_param As Selection Set search_param = mon3ddoc.Selection search_param.search "(Name=AVP_* & CATKnowledgeSearch.InternalParameter),all" 'MsgBox search_param.Count For i = 40 To search_param.Count + 38 'mon3d.Parameters.Count Set param = mon3d.Parameters.Item(i) Valeur = param.Value Nom_Param = param.Name next end sub merci d'avance

Bonjour Eag14 et les autres, En fait il faut que tu fasses une boucle sur les objets qui sont dans un repertoire. Sub CATMain() Dim documents1 As Documents Dim partDocument1 As PartDocument Dim windows1 As Windows Dim specsAndGeomWindow1 As SpecsAndGeomWindow Dim objFSO, objDossier, objFichier Dim Repertoire On Error Resume Next Repertoire = "F:\CATIAV5\Tempo\TUTU\" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objDossier = objFSO.GetFolder(Repertoire) If (objDossier.Files.Count > 0) Then For Each objFichier In objDossier.Files Set documents1 = CATIA.Documents Set partDocument1 = documents1.Open(Repertoire & objFichier.Name) Next End If End Sub Je pense que cela repond à ta question

Tout est dans le titre. par avance merci

Bonjour le forum! J'ai la solution à mon problème, donc our ce que ça interesse: Dim ActDoc As Document Set ActDoc = CATIA.ActiveDocument Dim camIsoView As Camera3D Set camIsoView = ActDoc.Cameras.Item("* iso") Dim objIsoViewPoint As Viewpoint3D Set objIsoViewPoint = camIsoView.Viewpoint3D Dim ActWin As Window Set ActWin = CATIA.ActiveWindow Dim ActViewer As Viewer3D Set ActViewer = ActWin.ActiveViewer ActViewer.Viewpoint3D = objIsoViewPoint

Bonjour, je cherche comment, dans ma fenetre 3d, je peux orienter mon modele 3d en vue iso. si quelqu'un a une petite idée, elle serait la bien venue. par avance merci

Bonjour à tous, Lors de l’exécution d’une macro vba Catia, le résultat apparaît dans une msgbox. Mon problème est que je souhaiterais que cette fenêtre résultat soit non persistante. C a d que l’on puisse manipuler la fenêtre graphique CATIA en ayant toujours à l’écran la msgbox. Apparent ce n’est pas possible, il faut que je passe par une Userform non modale mais pour cela il faut charger les bibliothèques xls. Est-ce que c’est possible et si oui de quelle manière ? Par avance, merci