mooneck

Bonjour Mac_H1, Les images ne sont plus visibles ! vérifie tes liens . @+

Bonjour, Connaissez vous une passerelle pour importer un CATProduct ou une CATPart de Catia V5 vers Sketchup ? Merci d'avance [Edité le 2/6/2010 par mooneck]

Bonjour, J'ai recu un CATPart dont le corps principal est un corp hybride (icone jaune). Existe t-il un moyen de le transformer en corps principal normal (icone vert). Merci d'avance.

Je suis d'accord ! Il faut utiliser le vba ! @+

Bonjour, si je comprends bien tu as un Path comme ceci : c:\dossier1\dosseir2\dossier3 et tu souhaite récupérer le nom de dossier3 ? si c'est ca, tu peux rechercher la position du dernier "\" , compter le nombre de caractere du Path et ensuite extraire les x dernieres caractères de path. C'est un peu compliqué mais ca marche ! je ne sais pas si j'ai répondu à ta question ? @+ [Edité le 10/11/2009 par mooneck]

Bonjour, Si tu souhaites tout simplement mettre fin à la macro tu peux utiliser l'instruction "end" @+ [Edité le 10/11/2009 par mooneck]

bonjour, je suis du meme avis que P.Chirossel. C'est un peu lourd si c'es pour une maquette numérique, maintenant si cela un interet pour ta conception alors il suffit de créer le profil d'une dent puis de créer une helice avec le pas du filetage. Ensuite utilise la fonction rainure de catia @+

Bonjour Skarab44, Attention tu réponds à un post qui a démarré il y a 3.5 ans. Je ne sais pas si le problème est toujours d'actualité. @+ [Edité le 20/1/2009 par mooneck]

Merci à tous Oui effectivement j'avais posé la meme question sur COE. J'ai le meme réponse ! Je vais donc utiliser le ostatus et tester ses états. @+

Bonjour J'ai un petit code pour renomer des points en les incrémentant. Je voudrais utiliser la touche Echap pour sortir de la boucle. Quelqu'un aurait-il une idée ? Voici le bout de code. Do oStatus = oSelection.SelectElement2(oInputObjectType, "Choisir un le Point " & "PT" & NumSheet & Format(NumPt, "00") & " ou appuyer sur Echap pour Annuler.", True) Set oPoint = oSelection.Item(1).Value 'MsgBox oPoint.Name oPoint.Name = "PT" & NumSheet & Format(NumPt, "00") NumPt = NumPt + 1 CATIA.ActiveDocument.Selection.Clear Loop Until NumPt = 100 Merci d'avance :question:

C'est sur que cela simplifie le code ! Mais pourquoi faire simple quand on peut faire compliqué :cool: @+

Bonjour 8_Pool, Je pense que ceci devrait répondre à ta question : Option Explicit Sub CATMain() Dim sNames() As String Dim oRelease, oServicePack As String oRelease = CATIA.SystemConfiguration.Release oServicePack = CATIA.SystemConfiguration.ServicePack 'MsgBox oRelease & ", " & oServicePack CATIA.Caption = Mid(CATIA.Caption, 1, 8) & " R" & _ oRelease & " SP" & oServicePack & " - MaSociété - " & Nom_Env End Sub Function Nom_Env() As String Dim myEnv As String Dim Pos, Deb, LG, LG2, POSR As Integer myEnv = Environ("CATEnvName") Pos = 1 Deb = 1 While Pos <> 0 Pos = InStr(Deb, myEnv, "\") If Pos <> 0 Then Deb = Pos + 1 End If 'MsgBox myEnv & "," & Pos Wend 'MsgBox "Position finale " & Deb LG = Len(myEnv) POSR = LG - (Deb - 1) Nom_Env = Right(myEnv, POSR) LG2 = Len(Nom_Env) - 4 Nom_Env = Left(Nom_Env, LG2) Debug.Print Nom_Env End Function bonne journée

Salut baba14, essaye avec ca : Option Explicit '------------------------------------------------------------------------ 'Main program Sub Main() 'Get the type of operations to do: ' Points --> 1 ' Splines + Points --> 2 ' Loft + Splines + Points --> 3 Dim GetTypeFile As Integer GetTypeFile = 1 Dim GetCATIAPartDocument As PartDocument Dim myHBody As HybridBody Dim referencebody As Reference Set GetCATIAPartDocument = CATIA.ActiveDocument Dim TypeFile As Integer TypeFile = GetTypeFile ' V5R12 - Create dedicate opneBody for created geometry 'Get CATIA Dim PtDoc As Object Set PtDoc = GetCATIAPartDocument ' Create Open body Set myHBody = PtDoc.Part.HybridBodies.Add() Set referencebody = PtDoc.Part.CreateReferenceFromObject(myHBody) PtDoc.Part.HybridShapeFactory.ChangeFeatureName referencebody, "GeometryFromExcel" If TypeFile = 1 Then CreationPoint ElseIf TypeFile = 2 Then CreationSpline ElseIf TypeFile = 3 Then CreationLoft End If End Sub Public Sub CreationPoint() MsgBox "CreationPoint !" End Sub Public Sub CreationSpline() MsgBox "CreationSpline !" End Sub Public Sub CreationLoft() MsgBox "CreationLoft !" End Sub chez moi ca marche. J'ai ajouté quelques déclaration supplémentaire car je n'ai pas le ton code complet. +

Je pense qu'il y a un probleme de compatibilité. Il faut regarder dans les options de catia quelle version de dwg il peut lire.

bonjour Je ne sais pas si j'ai bien compris la question. Normalement, tu peux faire "fichier ouvrir" Catia v5 peut lire des dwg. Ensuite tu les enregistres au format que tu veux. @+

Bonjour, Je souhaiterais créer via une macro une tolérance géométrique de localisation. Quelqu'un a-t-il une idée ? J'ai bien tenté d'enregistrer la macro, mais comme 9 fois sur 10 CATMain() est vide !! :casstet: @+

Merci Marc54 pour cette brillante idée. Je le sentais pas du tout puis a force de chercher sur le net j'ai trouvé sur un auter forum ou je suis inscrit. http:// http://www.coe.org/Collaboration/DiscussionForum/ActiveDiscussions/tabid/210/view/topic/forumid/10/postid/106825/Default.aspx Apres 2 ou 3 heures de bataille je suis finalement arrivé à mes fins. @+

Ok merci pour le tuyau je vais explorer cette voie. Je pense quand même que la fonction doit déja exister dans CATIA, mais l'aide est tellement bien faite ...

Bonjour, J'ai besoin d'enrichir une macro que j'avais créé il y a quelques temps sur la création de tableau de coordonnée de points. Par défault elle renvoie les coordonnées de points (issus d'un set géométrique) dans un tableau 2D dans un CATDrawing. Les coordonnées sont expprimées en fonction du repère ABSOLU. Jusqu'à présent cela me convenait. désormais j'ai besoin de pouvoir choisir un repère différent pour pouvoir sortir les coordonnées. La fonction incluse dans Catia CATDrawing ne permet pas non plus de le faire. voici un bout du code que j'utilise : dim tablecoord as variant Set Point = current_part.HybridBodies.Item(NomCorpsSurf).HybridShapes.Item(I) 'récupère les coordonnées de Point par rapport au repère absolu Point.GetCoordinates tablecoord Si quelqu'un à une idée. Meci d'avance [Edité le 14/4/2008 par mooneck]

Je peux t'aider sur le 2D si tu veux mais CATProcess je ne connais pas

Bonjour, Tu peux consulter ce site qui propose quelques MASTER. http:// http://www.estia.fr/index.php?id=8 @+

C'est un peu bizarre ce que tu veux dire là ! Faire un script, faire une macro c'est à peu pres la même chose Localiser les fichiers script : comprends pas ce que tu veux dire. Ensuite il vaut mieux executer la macro apres l'avoir faite. C'est plus facile :)

Un scanner de plan : bonne idée. Mais tu dors jamais ? comment trouves tu le temps de programmer ? L'idéal serait quand même que ces fontions soient intégrées dans Catia : - Gestion de cartouche paramétrique - Gestion des fond de plans réutilisables. - Gestion des nomenclature C'est peut-etre pas le sujet pour en parler ici mais bon quand meme. Vont-il un jour sortir une solution complete et pratique. Avec un PDM (même basique) intégré ca serait pas mal aussi. @+

Effectivement elle est pas mal. Par contre il y a quand meme du boulot avant de pouvoir l'adapter au besoin de son entreprise. Deja pour commencer : traduire les menus en Français. Bon courage ! Apres je ne suis pas rentrer dans les détails mais y a t-il un moyen d'adapter rapidement son propre fond de plan ? nomenclature ? @+

Ok merci pour ces indcations Marc Je vais y travailler dessus la semaine prochaine. @+