VBscript ou VBA

[G-CAD]

Bonjour à tous,

 

Quelqu'un peut-il me donner un petit truc pour :

 

- détecter le paramètres d'un objet existant dans un CATDrawing et même un CATPart ?

 

- comment puis-je changer les propriétés d'un texte incéré via un VBScript dans un CATDrawing ?

 

- si vous avez des référances sur un tutorial ou un livre VBA ==> Catia ou Autocad je suis à la recherche.

 

Salutations.

 

Guy

[mooneck]

Bonjour

 

Voici un exemple de code qui passe en revue les parametres d'un composant :

 

 

       Dim listeParam As Parameters
       Set listeParam = ProduitEnCours.Parameters
       Dim iParam, VAR As Integer
       Dim MonParam As Parameter
       
       For iParam = 1 To listeParam.Count
           Debug.Print "Parametre " & iParam; " : " & listeParam.ITEM(iParam).Name
       Next

 

 

Si tu veux changer la valeur d'un parametre et si tu connais le nom du parametre (facile avec le Debug.print) voici le reste du code

 

 For iParam = 1 To listeParam.Count
           Debug.Print "Parametre " & iParam; " : " & listeParam.ITEM(iParam).Name
           If listeParam.ITEM(iParam).Name Like "*\Nomduparametre" Then
               Set MonParam = listeParam.ITEM(iParam)
               Exit For
           End If
       Next

'Affiche la valeur du parametre
msgbox EtatActivation.ValueAsString

'Change la vakleur du parametre
'EtatActivation.ValuateFromString "nouvelle valeur"

 

J'espère que ce bout de code te sera utile

 

@+

 

 

[G-CAD]

Je te remercie pour ce code que je met en oeuvre de suite.

 

A+

 

Guy

[mooneck]

Tiens moi au courant de l'évolution.

 

@+

Mooneck