golum_64

Bonjour, En exécutant le code suivant, j'ai le message d'erreur : "Method 'item' of object 'Products' failed" Ce code doit permettre de faire un replace component dynamique Note : les vars SearchFile & file_full sont déclarées en 'string' Merci d'avance Function REPLACE_COMPONENT(SearchFile As String) Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim product1 As Product Set product1 = productDocument1.Product Dim products1 As Products Set products1 = product1.Products Dim product2 As Product Set product2 = products1.Item(file_full) Set Nothing1 = product1.ReplaceComponent(product2, SearchFile, True) product2.Name = file_full End Function

Bonjour, Je débute en vbscript Catia. Je n'arrive pas à sélectionner le Main Part Body d'une CATPart en récursif afin de lui appliquer un layer + couleur. Quelle est la méthode à appliquer ? CATProduct1 | -- CATPart1 | |-- PartBody | -- CATPart2 | |-- PartBody | -- CATPart3 | |-- PartBody | -- ....... ........ Sub CATMain() Set documents1 = CATIA.Documents For i = 1 To documents1.Count myPart = documents1.Item(i).Name If Mid(myPart, Len(myPart) - 7) = ".CATPart" Then nom = Mid(myPart, 1, Len(myPart) - 8) Set partDocument1 = documents1.Item(i) Set product1 = partDocument1.GetItem(nom) nom_fichier = product1.PartNumber ' Retrieve main partbody from CATPart Set Body1 = partDocument1.Part.MainBody Body1Name = Body1.Name MsgBox Body1.Name Set selection1 = CATIA.ActiveDocument.Selection 'Set selection1 = documents1.Item(i).Selection.Add(Body1) selection1.Add product1.Products Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties 'visProperties1.SetRealColor 128, 64, 64, 4 selection1.Clear End If Next i End Sub Merci d'avance pour votre aide

Bonjour, Je débute en vbscript sur Catia. Je n'arrive pas avec le code suivant à sélectionner le Main Part Body d'une CATPart afin de lui appliquer un layer + couleur CATProduct1 | -- CATPart1 | |-- PartBody | -- CATPart2 | |-- PartBody | -- CATPart3 | |-- PartBody | -- ....... ........ Sub CATMain() Set documents1 = CATIA.Documents For i = 1 To documents1.Count myPart = documents1.Item(i).Name If Mid(myPart, Len(myPart) - 7) = ".CATPart" Then nom = Mid(myPart, 1, Len(myPart) - 8) Set partDocument1 = documents1.Item(i) Set product1 = partDocument1.GetItem(nom) nom_fichier = product1.PartNumber ' Retrieve main partbody from CATPart Set Body1 = partDocument1.Part.MainBody Body1Name = Body1.Name MsgBox Body1.Name Set selection1 = CATIA.ActiveDocument.Selection 'Set selection1 = documents1.Item(i).Selection.Add(Body1) selection1.Add product1.Products Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties visProperties1.GetLayer layertype, 'visProperties1.SetRealColor 128, 64, 64, 4 selection1.Clear End If Next i End Sub Merci d'avance pour votre aide

ok merci Marc je vais tester tt ça.. @++

Bonjour à tous, Marc je recherche à faire un UserForm Compatible Unix/Win du à l'homogénéité du parc machine, mais j'avoue que je bloque un peu sorti du VB. Peut être pourrais tu m'aiguiller sur le choix du langage à utiliser et poster un petit exemple ? Merci d'avance Seb