Jordan Caron RE: Macros CATIA V5 : Create a PRODUCT from an ALL.CATPART LWolf (Automotive) 22 Oct 20 11:29 Public Sub CCLV2(Context As Product, i_object_to_copy, CibleProd As Product)ĭo you have a macro that could do what I need ?
Oselection.PasteSpecial "CATPrtResultWithOutLink" Public Sub CCLV1(Context As Product, i_object_to_copy, CibleProd As Product)
Prod_ "CATPart", nombodyĬCLV2 Prod_doc.Product, (i), Prod_(Prod_)ĬCLV1 Prod_doc.Product, (i), Prod_(Prod_) If InStr(nombody, "\") 0 Then nombody = Replace(nombody, "\", "_") If (i).InBooleanOperation = False And (i).Shapes.Count 0 Then Response = MsgBox(Msg, Style, Title) ' Affiche le message. Style = vbYesNo + vbDefaultButton2 ' Définit les boutons. Msg = "Souhaitez-vous des liens entre pièces?" 'Recuperation des Body non vide, creation d'une part dans le product, renommage de la part et Copier Coller Avec ou sans lienĭim Msg, Style, Title, Response, nombody As String MsgBox "Renommage du document créé impossible" & vbCrLf & "Vérifiez si un document avec un nom identique ne figure pas déjà dans la session."Ĭ(Prod_doc.Name).Close 'Recuperation du nom de la part multi corps et création du produit correspondant 'L'objectif de la macro est de créer un assemblage multipart à partir d'une piece multi body Here is the cat vba I have, but it's not usefull in my situation. I would love to have a Macro that create only 3 CATPART and put them in position in the CATPRODUCT. So if I run my macro it will create 1000 CATPART with different axis system. I have an ALLCATPART with 1000 bodies but only 3 differents geometry. Unfortunately the macro replace every body in the ALLCATPART by a CATPART and add it to a PRODUCT. I already have a macro to create a CATPRODUCT from an ALL.CATPART.
0 kommentar(er)
