Select Main Part Body + Set Layer

[golum_64]

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

[ferdo]

Bonjour

 

Peut-être cela vous aidera un peu http://www.eng-tips.com/viewthread.cfm?qid=210748&page=2

 

Fernando