• la plateforme 3DExperience
• CATIA 3DExperience (Part, Assembly et Drafting)
• le paramétrage (paramètres, formules, table, modèle robuste)
• la cinématique d'une mécanisme (en préparation)

En accès libre.

Je m'excuse par avance si un sujet identique à déjà été lancé.

Cela fait quelques mois maintenant que j'utilise CATIA, j'ai trouvés différents tutos pour pouvoir mettre des raccourcis clavier mais à chaque fois que je ferme CATIA, ils ne s'enregistrent pas. Donc je suis obligé de tous les remettre à chaque fois.

Y a t-il une solution qui me permettrait qu'ils s'enregistrent ?

Merci par avance.

J'ai un fichier .txt, qui me donne des points ordonnés, et je voudrais savoir s'il est possible de faire une macro, ou bien s'il existe une fonction dans Catia qui me permettent de relier automatiquement ces points. 

Voici le fichier .txt : SurfaceMB2.txt

et voici ce que cela donne dans Catia. 

J'aimerais relier les 4 extrémités par des lignes droites, relier le reste par des splines et utiliser la fonction "Multi-section surface" pour le faire. 

Existe-t-il un moyen d'automatiser cela ? 

merci d'avance.

Passez une bonne journée. 

Je souhaite lancer une macro CATIA à partir d'un fichier bat.  Le but étant que ça lance automatiquement CATIA puis la macro concernée

Voici le contenu de mon fichier bat:

"C:\Program Files\Dassault Systemes\B27\win_b64\code\bin\CATSTART.exe"  -run "CNEXT.exe" -env CATIA_P3.V5-6R2017.B27 -direnv "C:\ProgramData\DassaultSystemes\CATEnv" -macro "C:\Users\xxxxx\Desktop\Macro1.catvbs"

Celui ci me lance bien CATIA mais pas la macro. Quelle serait l'erreur ?

Merci

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part

Set parametersconcepteur = part1.Parameters
Set strParamconcepteur = parametersconcepteur.Item("Concepteur")

Set parametersmateriau = part1.Parameters
Set strParammateriau = parametersmateriau.Item("Materiau")

Set parameterstype = part1.Parameters
Set strParamtype = parameterstype.Item("Type")

Set parameterstraitementmateriau = part1.Parameters
Set strParamtraitementmateriau = parameterstraitementmateriau.Item("TraitementMateriau")

Set parameterstraitementdesurface = part1.Parameters
Set strParamtraitementdesurface = parameterstraitementdesurface.Item("TraitementDeSurface")

Set parametersmasse = part1.Parameters
Set strParammasse = parametersmasse.Item("Masse")

Set parametersgx = part1.Parameters
Set strParamgx = parametersgx.Item("Gx")

Set parametersgy = part1.Parameters
Set strParamgy = parametersgy.Item("Gy")

Set parametersgz = part1.Parameters
Set strParamgz = parametersgz.Item("Gz")
 

Set parametersproprieteconcepteur = part1.Parameters
Set strParamproprieteconcepteur = parametersproprieteconcepteur.Item("Propriétés\Concepteur")

Set parametersproprieteinformations = part1.Parameters
Set strParamproprieteinformations = parametersproprieteinformations.Item("Propriétés\Informations")

Set parametersproprietemateriau = part1.Parameters
Set strParamproprietemateriau = parametersproprietemateriau.Item("Propriétés\Materiau")

Set parametersproprietetype = part1.Parameters
Set strParamproprietetype = parametersproprietetype.Item("Propriétés\Type")

Set parametersproprietetraitementmateriau = part1.Parameters
Set strParamproprietetraitementmateriau = parameterstraitementmateriau.Item("Propriétés\TraitementMateriau")

Set parametersproprietetraitementdesurface = part1.Parameters
Set strParamproprietetraitementdesurface = parametersproprietetraitementdesurface.Item("Propriétés\TraitementDeSurface")

Set parametersproprietemasse = part1.Parameters
Set strParamproprietemasse = parametersproprietemasse.Item("Propriétés\Masse")

Set parametersproprietegx = part1.Parameters
Set strParamproprietegx = parametersproprietegx.Item("Propriétés\Gx")

Set parametersproprietegy = part1.Parameters
Set strParamproprietegy = parametersproprietegy.Item("Propriétés\Gy")

Set parametersproprietegz = part1.Parameters
Set strParamproprietegz = parametersproprietegz.Item("Propriétés\Gz")
 

strParamproprieteconcepteur.Value = strParamconcepteur.Value
strParamproprieteinformations.Value = "N/A"
strParamproprietemateriau.Value = strParammateriau.Value
strParamproprietetype.Value = strParamtype.Value
strParamproprietetraitementmateriau.Value = strParamtraitementmateriau.Value
strParamproprietetraitementdesurface.Value = strParamtraitementdesurface.Value
strParamproprietemasse.Value = strParammasse.Value
strParamproprietegx.Value = strParamgx.Value
strParamproprietegy.Value = strParamgy.Value
strParamproprietegz.Value = strParamgz.Value

End Sub

______________________________________________________________________________________________________________________________

Ensuite j'ai un drawing dans lequel je souhaite remplir des paramètres qui sont identiques à la Part (Concepteur/Reference/Nomenclature/Type/Materiau/Masse/...) en auto via une macro. Les champs du cartouche sont remplis via la fonction "lier à un attribut".
Actuellement ma macro n'arrive à récupérer que les propriétés standards de la Part (Definition/Nomenclature), mais je ne trouve pas comment coder les propriétées ajoutées manuellement (Masse/Materiau/Concepteur/Type/...). J'ai bien trouvé sur le site un vieux post pour faire de la liaison, mais cette dernière nécessite de nommer les cellules des champs du drawing. Or de mon côté je veux "simplement" récupérer les données de la Part pour les intégrer dans des paramètres spécifiques au Drawing.

Quelqu'un(e) peut-il m'aider ? 🙂

Voici ma macro actuelle:
______________________________________________________________________________________________________________________________

Sub CATMain()
set drawingDoc1 = CATIA.ActiveDocument
Set parameters1 = drawingDoc1.Parameters

Set strParamdrawdef= parameters1.Item("Designation")
Set strParamdrawref= parameters1.Item("PartReference")
Set strParamdrawdate= parameters1.Item("DateDeCreationDrawing")
Set strParamdrawtype = parameters1.Item("Type")
Set strParamdrawmat = parameters1.Item("Materiau")
Set strParamdrawmasse = parameters1.Item("Masse")
Set strParamdrawtraitmat = parameters1.Item("TraitementMateriau")
Set strParamdrawtraitsurf = parameters1.Item("TraitementDeSurface")

Set ParentVue = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item(3).GenerativeLinks.FirstLink
Set ParentVue = ParentVue.Parent

Dim ActualDay, MyDay, MyMonth

MyDay = Day(Now)
MyMonth = Month(Now)

If Len(MyDay) = 1 Then MyDay = "0" & MyDay
If Len(MyMonth) = 1 Then MyMonth = "0" & MyMonth
ActualDay =  MyDay & "/" & MyMonth & "/"  & Year(Now)

        strParamdrawdate.Value = ActualDay 
        strParamdrawdef.Value = ParentVue.Product.Definition
        strParamdrawref.Value = ParentVue.Product.Nomenclature
        strParamdrawtype.Value = "le bon codage pour le type"
        strParamdrawmat.Value = "le bon codage pour le materiau"
        strParamdrawmasse.Value = "le bon codage pour la masse"
        strParamdrawtraitmat.Value = "le bon codage pour le TraitementMateriau"
        strParamdrawtraitsurf.Value = "le bon codage pour le TraitementDeSurface"
    
'Set drawingDoc1.Name = ParentVue.Product.Name

End Sub

______________________________________________________________________________________________________________________________

Merci d'avance.

J'ai un problème d'affichage des couleurs sur les pièces et également quand j'essaye d'appliquer un matériau.

 La couleur par défaut est blanche, mais je peux la changer. Comment change-t-on la couleur par défaut ?

Et quand j'applique des matériaux, il n'y a pas le revêtement qui s'affiche. Avez-vous des solutions ? Merci

Je souhaiterais modéliser un changement de section HVAC. Je suis passé par GSD et j'ai créé une surface que je n'arrive pas à extruder en contrôlant l'épaisseur de feuille d'acier.

Pourriez vous m'aider en me précisant la fonction permettant d'extruder cette surface ou toute autre méthodes permettant de modéliser ce composant (ci joint dans le message).

Cordialement,

Rémi

Je cherche à faire une macro qui enregistre un cat drawing avec une nomenclature spécifique gérée par un paramètre (assemblage de plusieurs paramètres via formule) et qui fait également l'enregistrement en pdf.

J'ai trouvé des pistes sur les forums pour faire l'export en pdf mais pas comment définir le nom des fichiers selon un paramètre.

Sauriez-vous m'aider ?

Merci

Martin

Voila, je cherche à reproduire dans un macro VBA le fait d'isoler le lien créé entre un texte (dans un drawing) et un paramètre, soit l'équivalent Edition/Liens/isoler sur le liens de type Attribut.

J'insiste sur le type de lien car je ne parle pas de lien sur une CatPart.

Merci pour toute aide apportée

Pour la plupart des ouvrages BA que je traite, le ferraillage est fait en 2D sur une base AutoCAD.

Par contre pour des structures complexes il m'est indispensable d'avoir une vision 3D du ferraillage tant les formes sont complexes et les interférences nombreuses (nucléaire, hydraulique...).

Avez-vous des infos sur le logiciel Arma3D qui tourne sous Catia ?

D'avance merci 

Je souhaiterai pourvoir exporter un tableau depuis une draw sur un fichier excel nommer P3 et ranger dans "C/temp/p3":

le code que j'utilise est le suivant :

Mon soucis est lorsqu'il ouvre le fichier excel il les ranges automatiquement dans la 1erfeuill du claseur ouvert

Ce que je souhaiterai c'est pouvoir le ranger sur une autre feuille exemple feuil2 ou feuil3 du claseur excel

la ligne qui me pose peut etre soucis est celle ci

(myexcel.ActiveSheet.Cells(i, j) = DrwTbl.GetCellString(i, j))

j'ai essayer plusieurs facon de tourner le Sheet mais sans succèes

le deuxieme soucis c'est qu'avce ce code je ne peut que seletionner une tableau

y at-il une facon de selectioner plusieurs tableau a la fois et de les exporter sur le fichier excel dit

Sub catmain()

Set odrawing = CATIA.ActiveDocument

Set osel = odrawing.Selection

Dim inpsel(0)

inpsel(0) = "DrawingTable"

osel.Clear

st = osel.SelectElement2(inpsel, "Selectionnez un tableau",False)

Set DrwTbl = osel.Item(1).Value

Set myexcel = CreateObject("Excel.application" )

Set myexcel = GetObject(, "Excel.Application")

If Err.Number <> 0 Then ExcelWasNotRunning = True

Err.Clear

Set myexcel = GetObject("C:\Temp\P3.xls")

myexcel.Application.Visible = True

myexcel.Parent.Windows(1).Visible = True

For i = 1 To DrwTbl.NumberOfRows

For j = 1 To DrwTbl.NumberOfColumns

myexcel.ActiveSheet.Cells(i, j) = DrwTbl.GetCellString(i, j)

Next

Next

End Sub

Merci d'avance pour votre aide

Je tente d'ouvrir un CATProduct contenant beaucoup de product et de pièces dont la plupart sont des solides morts. Malheureusement, à son ouverture, il manque des pièces, et il s'agit des solides morts (issu d'un autre CATPart ou autre source). En regardant chez un autre collègue, il a réussi à les avoir.

La question est : comment lire les PART contenant des solides morts ?

D'où vient le problème ? Une licence manquante ? Si c'est le cas, ce serait lequel ?

Une option que je n'ai pas coché/coché malencontreusement ? Si oui lequel ?

Autre chose ?

J'ai les licences SMD et MD2.

Pouvez-vous me répondre le plus rapidement possible, svp ?

Je vous remercie d'avance :)

Je suis en école de Génie mécanique et nous apprenons à utiliser CATIA V5.

Seulement j'ai un fichier que j'ai fais à liut ( soit avec la version étudiante ), et je ne peut pas l'ouvrir chez moi car je possède la version professionnel

Quand j'essaie d'ouvrir mon fichier ce message d'erreur apparait :

"" Le fichier D:\Users\33783\Downloads\Mow_moteur\Mow_moteur.CATProduct a été créé avec une licence Education. ""

y'aurait il une solution de faire en sorte que le fichier puisse d'ouvrir sur ma version à moi ?

Si cela n'est pas possible est-ce que l'un de vous qui possède la version étudiante voudrai bien me la prêté pour une après midi ? j'ai des devoirs à faire et cela me serra impossible sans votre aide,

au pire des cas j'accepterai de vous donner mes fichier et vous ferai vous même les modifications ( il y en as pour 15 min grand max ).

Merci pour votre aide!

Je veux exporter mon assemblage en PDF 3D avec programmation(Macro VB) sans passer par Adobe acrobate Pro converter ou autre logiciel/plugin.

Est-ce que c'est possible avec Catia ?

Je vous remercie.

jai une disaine des Tutorials de Catia V5...veuilez laisser vos e-mail si ca vous interesse

d'autre part jai besoin des Tutorial pour le logiciel Robot bat (calcul des structures metallique)

Merci

Pour les nouveau membres je vous informe que mon site perso (http://vue3d.free.fr) est à votre disposition pour des tutoriaux détaillés relatifs à CATIA V5 que j'ai réalisé moi-même.

N'hésitez pas à venir voir.

Je suis à votre disposition pour tout renseignement ou suggestions. ;)

Bonne journée à tous.

Je me suis lancé dans la programmation VBA de Catia en raison d'une reconstitution de maillage. :huh:

En donnée d'entrée j'ai 2 fichiers excel :

-L'un contenant des points avec leur coordonnées et leur identifiant :

Point A : 0.0 0.0 0.0

Point B : 1.0 2.0 3.0

etc

-L'autre contenant les barres avec leur identifiant et les points reliés :

Barre1 : PointA PointB

Barre2 : PointA PointC

Avec l'aide de macro excel, j'ai traité le fichier excel pour pouvoir utilisé le fichier : GSD_PointSplineLoftFromExcel (voir lien)

https://d2t1xqejof9utc.cloudfront.net/files/23155/Excel_to_CATIA.pdf?1371318453

J'ai donc une part avec dans l'arborescense :

Point1

point2

Spline1

Point3

Point4

Spline2

etc

J'ai donc créer un programme pour :

-créer sur chacun des points un plan orthogonal à la spline

-créer un cercle sur les points dans un des plans de rayon radius

-créer une extrusion de ce cercle jusqu'au prochain plan

Le BLABLA d'entrée

Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part 

Set hybridShapeFactory1 = part1.HybridShapeFactory

Set hybridBodies1 = part1.HybridBodies 

Set hybridBody1 = hybridBodies1.Item("GeometryFromExcel") 

Set hybridShapes1 = hybridBody1.HybridShapes

Déclaration des variables

Radius =20

NombreBarre = 3

Créations des plans sur chacun des points

I=1

For N= 3 to 3*NombreBarre Step 3

Set hybridShapeSpline1 = hybridShapes1.Item(N) 

Set Spline1 = part1.CreateReferenceFromObject(hybridShapeSpline1)

Set hybridShapePointCoord1 = hybridShapes1.Item(I)

Set Point1  = part1.CreateReferenceFromObject(hybridShapePointCoord1)

Set hybridShapePlaneNormal1 = hybridShapeFactory1.AddNewPlaneNormal(Spline1, Point1)

hybridBody1.AppendHybridShape hybridShapePlaneNormal1

part1.InWorkObject = hybridShapePlaneNormal1


Set hybridShapePointCoord2 = hybridShapes1.Item(I+1)

Set Point2 = part1.CreateReferenceFromObject(hybridShapePointCoord2)

Set hybridShapePlaneNormal2 = hybridShapeFactory1.AddNewPlaneNormal(Spline1, Point2)

hybridBody1.AppendHybridShape hybridShapePlaneNormal2

part1.InWorkObject = hybridShapePlaneNormal2

I=I+3


Next

part1.Update

Création de l'esquisse du cercle

For K=NombreBarre*3+1 to NombreBarre*5 Step 2


Set sketches1 = hybridBody1.HybridSketches

Set hybridShapes1 = hybridBody1.HybridShapes

Set reference1 = hybridShapes1.Item(K)

Set sketch1 = sketches1.Add(reference1)

part1.InWorkObject = sketch1

Set factory2D1 = sketch1.OpenEdition()

Set circle2D =factory2D1.CreateClosedCircle(0,0, radius)
sketch1.CloseEdition 

part1.InWorkObject = hybridBody1

Next

part1.Update

Créations des extrusions pour chacunes des esquisses

P=NombreBarre*3+2

For J= 1 to NombreBarre

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("Corps principal")

part1.InWorkObject = body1

part1.InWorkObject = body1

Set shapeFactory1 = part1.ShapeFactory

Set Ref8 = part1.CreateReferenceFromName("")

Set pad1 = shapeFactory1.AddNewPadFromRef(Ref8, 20.000000)


Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("GeometryFromExcel")

Set sketches2 = hybridBody1.HybridSketches

Set sketch2 = sketches1.Item(J)

Set reference9 = part1.CreateReferenceFromObject(sketch2)

pad1.SetProfileElement reference9

Set limit1 = pad1.FirstLimit

limit1.LimitMode = catUpToPlaneLimit

Set hybridShapes1 = hybridBody1.HybridShapes

Set hybridShapePlaneNormal1 = hybridShapes1.Item(P)

Set reference10 = part1.CreateReferenceFromObject(hybridShapePlaneNormal1)

limit1.LimitingElement = reference10

P=P+2

Next

part1.Update

End Sub

j'ai globalement construit mon raisonnement sur la place des items dans l'arborescence.

-Spline

-Point

-Point

etc

-Plan

etc

-Esquisse

etc

Voila en gros mon programme, il fonctionne !!!

je voulais donc avoir des suggestions sur l'amélioration de mon programme, rapidité etc

Et également comment intégrer une toolbox pour entrer en lancement du programme les paramètres nombre de barre / radius (rayon du cylindre d'extrusion)

Merci d'avance :)

pour mon boulot j'ai une macro qui me permet de faire une mise en plan automatique.

Celle ci permet également de faire une vue dépliée (pièce faite avec sheetmetal) de ma pièce.

Jusqu'à aujourd’hui cette vue dépliée utilisée un des trois plans XY, YZ, ZX.

Je voudrais remplacer ce choix par la sélection d'une face ou d'un plan pour créer ma vue.

Dans la macro ci-dessous je parviens à les sélectionner mais dans ce cas la face choisie est toujours projetée suivant la face qui a servie à l'esquisse (du moins il me semble).

C'est à dire que je n'arrive pas à projeter suivant la face de dessous par exemple.

Contrairement à l'icône Catia dans la mise en plan qui va créer la vue suivant la face sélectionnée dans le 3D.

Quelqu'un peut-il me dire ce qu'il manque à mon programme pour obtenir la même chose.

Merci par avance.

Public mydraw As DrawingDocument, mysheet, myview, myplandoc As Document
Public Document As PartDocument

Sub CATMain()
'macro qui demande de sélectionner une face ou un plan
'recupération des coordonnées des 2 axes
'creation de la vue dans draw

Dim Status
Dim BiDimFeature
Dim selection1 'As Selection

   Set mydraw = CATIA.ActiveDocument
   Set mysheet = mydraw.Sheets.Item(1)
   Set myview = mysheet.Views.Item(3)
   Set myplandoc = myview.GenerativeBehavior.Document.Parent
   
   Plan_projection.Show
   Unload Plan_projection
   
       myplandoc.Activate

   Set selection1 = myplandoc.Selection
   
Dim InputObjectType(1)
InputObjectType(0) = "Plane"
InputObjectType(1) = "PlanarFace"

selection1.Clear

Status = selection1.SelectElement2(InputObjectType, "Selectionner le plan de projection", True)
If (Status = "Cancel") Then Exit Sub

Set BiDimFeature = selection1.Item(1).Value
' Dim AutomationType

Dim v1(2), v2(2)
BiDimFeature.GetFirstAxis v1
BiDimFeature.GetSecondAxis v2


MsgBox v1(0) & ";" & v1(1) & ";" & v1(2) & "+" & v2(0) & ";" & v2(1) & ";" & v2(2)

mydraw.Activate

Dim DrawingFrontView, DrawingViewGenerativeBehavior As DrawingViewGenerativeBehavior

Set DrawingFrontView = mysheet.Views.Add("Front View")
Set DrawingViewGenerativeBehavior = DrawingFrontView.GenerativeBehavior
    DrawingViewGenerativeBehavior.Document = myplandoc.Product
    DrawingViewGenerativeBehavior.DefineFrontView v1(0), v1(1), v1(2), v2(0), v2(1), v2(2)
    DrawingFrontView.X = 300
    DrawingFrontView.Y = 150
   DrawingViewGenerativeBehavior.Update

selection1.Clear


End Sub

J'aimerais savoir si c'est possible de lancer automatiquement une macro lorsque j'ouvre un part catia défini.

Merci d'avance pour vos réponses.

Guigz

PS : J'ai cherché dans le forum et je n'ai rien trouvé

je suis dans un entreprise qui est spécialiste de la mesure sans contact à l'aide de scanner 3D, de bras de mesure etc...

Un prospect actuel nous interroge sur la numérisation de chaine de production de véhicules.

Ma questoin est la suivante:

Sous catia V5 R19 comment gere t on les nuages de points issu de ces scanners.

Quelles sont les limites (nbre de point, format d'entrée ..)

Merci par avance de bien vouloir partager votre expérience.

Pierre

Pour les prochains mois a venir je suis amene a developper une mutlitude de macros pour CATIA... Je suis deja familier de certains langages de programmation et suis actuellement en auto-formation concernant le VBA.

J'ai la chance de disposer de plusieurs codes que je decortique afin d'en comprendre leur fonctionnant et cela m'a deja grandement aide.

Je reuissis a m'en inspirer et je commence doucement la creation de mes macros, cela dit j'aurais aime savoir si vous auriez à me partager des liens/bouquins/cours de référence pour débuter le VB Scripting avec CATIA. Autrement, je suis preneur de tout autres conseils.. notamment une manière efficace de comprendre les familles et les bibliothèques rapidement… (L'autoformation c'est bien... mais c'est long :) )

Merci d'avance et belle soiree a tous,

Pharys

Edit: je suis desole de ne pas pouvoir mettre d'accentuation.. je suis en qwerty...