utilistion de la collection Parameters pour un objet CATIA

Bonjour,
en fait je voudrais utiliser la collection parameters du DrawingDocument.
En effet je voudrais crééer des property tels que la couleurs etc propre à un objet que je pourrais stocker dans la collection Parameters.
S'il y'a aussi d'autre moyens de sauvegarder des paramétres sous CATIA n'hésitais pas
SVP s'il y'en a qui ont déjà utiliser la collection dites moi comment en VBA ou C#. merci

Je n'ai pas très bien saisis ta question.

Je sais que pour ce qui est des propriété couleurs, taille ... ce n'est pas super évident, il faut passer par un objet "selection" et ensuite modifier les paramètres de couleur ... de l'objet "selection", on ne peut le faire directement sur l'objet.

Bonjour,
merci d'avoir répondu
oui vous avez raison pour les propriétes couleurs, taille par exemple il faut d'abord l'objet Selection
comme par exemple ici en c#
private Selection objselect;
objselect = CATIA.ActiveDocument.Selection;
objselect.VisProperties.SetRealLineType(2, 1);

mon problème concerne plutôt l'ajout et la recupération de parametres de la collection KnowledgewareTypeLib.Parameters d'un drawingdocument ensuite après les avoir récupérer avoir la possibilté grâce à la "selection" de modifier ces paramétres
si vous voulez des éclaircissements n'hésitez surtout pas je sais que c'est pas du tout évident

Bonjour
Ci joint un bout de code qui récupère les textes d'un drawing pour les mettre dans des paramètres CATIA

Code:

Sub RecupCartouche()
'CATInit
Dim DernierIndice As DrawingText
Dim Ind As Integer
If CATCheckRef = 0 Then Exit Sub

'Recupération de la ref CMN
Set strParam1 = parameters1.Item("Drawing\Num_plan")
Form_cartouche_CMN.TextBoxNum_plan.Text = strParam1.Value

'Recupération de l'activité BE
Set strParam3 = parameters3.Item("Drawing\Activite_BE")
Form_cartouche_CMN.ComboBoxUPL.Text = strParam3.Value

'Recupération de la designation
Set strParam4 = parameters4.Item("Drawing\Designation")
Form_cartouche_CMN.TextBoxNomDuModele1.Text = strParam4.Value

'Recupération de la designation 2
Set strParam5 = parameters5.Item("Drawing\Designation2")
Form_cartouche_CMN.TextBoxNomDuModele2.Text = strParam5.Value

'Recupération de l'échelle
Set Texte = DrwTexts.GetItem("Cartouche_Text_echelle")
Form_cartouche_CMN.TextBoxScale = Texte.Text

'Recupération du poids
Set Texte = DrwTexts.GetItem("Cartouche_Text_poids")
Form_cartouche_CMN.TextBoxWeight = Texte.Text

'Recupération du dernier indice
For i = 1 To 4
Set Texte = DrwTexts.GetItem("Cartouche_Text_rev_" & CStr(i) & "_ind")
  If Texte.Text <> "." Then
     Ind = i + 1
     Set DernierIndice = DrwTexts.GetItem("Cartouche_Text_rev_" & CStr(Ind - 1) & "_ind")
     Form_cartouche_CMN.TextBoxRevisonValidation = DernierIndice.Text
     Set DernierIndice = DrwTexts.GetItem("Cartouche_Text_rev_" & CStr(Ind - 1) & "_date")
     Form_cartouche_CMN.TextBoxDateValidation = DernierIndice.Text
     Set DernierIndice = DrwTexts.GetItem("Cartouche_Text_rev_" & CStr(Ind - 1) & "_modif")
     Form_cartouche_CMN.TextBoxModifValidation = DernierIndice.Text
     Set DernierIndice = DrwTexts.GetItem("Cartouche_Text_rev_" & CStr(Ind - 1) & "_designer")
     Form_cartouche_CMN.TextBoxDesignerValidation = DernierIndice.Text
     Set DernierIndice = DrwTexts.GetItem("Cartouche_Text_rev_" & CStr(Ind - 1) & "_rft")
     Form_cartouche_CMN.TextBoxRftValidation = DernierIndice.Text
    
  ElseIf Texte.Text = "." Then
      Exit For
  End If
Next
End Sub

Bonjour Xorman,
merci je vais regarder ça de plus prés et éventuellement le traduire en c#