Problém by to nebyl, ale už na to nestačí obyčejný CATScript, takže triviální to úplně není.
Napsat to lze jako VBA aplikaci přímo v Catii (má zabudovaný VB 6) nebo externě (C, novější VB). Já osobně používám Visual studio 2008, ale pokud nemáte žádné zkušenosti s programováním, bude pro vás o trochu jednodušší VB6 v Catii.
Ale jak vám co nejlépe poradit... Buď to nechám na vás a budete se v tom topit anebo vám to napíšu pro jeden parametr a vy si upravíte podle svých představ.

Ještě poznámka - pokud byste potřeboval jen vybírat hodnoty parametrů z předem definovaných hodnot, jde to příkazem Add range, ale předpokládám, že tohle víte.

Tak jsem dal dohromady jednoduchý příklad, pokusím se vám to alespoň trochu vysvětlit.

1. Vytvořte si novou Library typu VBA Project, pojmenujte třeba Parameters.catvba a dále si otevřete prázdný Part s jedním parametrem typu String a názvem "Color".

2. Otevřete si VBA editor (Tools - Macros) a načtěte si tento nově vytvořený projekt

3. Vložte do projektu UserForm, ten pojmenujte "Main" a vložte do něj tento kód:
(pravým tlačítkem nad názvem UserFormu a vybrat view code)

Dim oActiveDocument As Document

Dim oPart As Part

Dim oColorParameter As Parameter



Private Sub UserForm_Initialize()

   ' pri inicializaci naplnime rozklikavaci seznam hodnotami

   ColorsComboBox.AddItem ("White")

   ColorsComboBox.AddItem ("Yellow")

   ColorsComboBox.AddItem ("Red")

   ColorsComboBox.AddItem ("Blue")

   ColorsComboBox.AddItem ("Green")

End Sub



Private Sub ChangeColorButton_Click()

   'nastavime potrebne instance

   Set oActiveDocument = CATIA.ActiveDocument

   Set oPart = oActiveDocument.Part

   Set oParameters = oPart.Parameters

   Set oColorParameter = oParameters.Item("Color")

   'zmenime nAs parametr na hodnotu vybranou v seznamu

   oColorParameter.ValuateFromString (ColorsComboBox.Text)

   'provedeme update

   oPart.Update

End Sub



Private Sub ExitCommandButton_Click()

   Main.Hide

End Sub

4. Vložte do projektu Module, pojmenujte ho "ChangeColor" a vložte do něj tento kód

Sub CatMain()

   ' zobrazime formular

   Main.Show vbModeless

End Sub

5. Uložte projekt a tlačítkem Run spusťte makro. Mělo by to hned fungovat.

6. Abyste mohl makro pohodlně spouštět ikonou, je třeba si vytvořit nový panel a makro do něj přiřadit. V Tools - Customize si v záložce Toolbars vytvoříte nový panel nástrojů. Pak se přepněte do záložky Commands a v levém sloupci vyberete skupinu Macros. Pokud máte nastavený jako aktuální projekt Parameters.catvba, mělo by se v pravém sloupci objevit ChangeColor - modul, který jste vytvořil v projektu. Stačí ho pouze přetáhnout myší do panelu nástrojů a vybrat mu nějakou ikonku. A to je vše.

Samotný kód je úplné minimum, bez ošetření chyb atd, ale pro pochopení by to mělo stačit.

Přeju hodně trpělivosti...

V příloze máte CATPart, celý VBA projekt a video, jak by to mělo vypadat.

PS: Pokud byste měl zájem o něco "většího" (např. fajnovou konfiguraci celého rámu kola), neváhejte se obrátit přímo na mě.

Děkuji moc za Váš čas. Makro funguje perfektně, naučil jsem se přidávat i další parametry i když tuším že je to taková "surová" verze, jak říkáte bez ošetření chyb. Nepřišel jsem však na to, jak zabezpečit aby mekro fungovalo i v případě že Part v kterém chci měnit hodnoty je součástí Assembly. Lze makro deklarovat přímo na název souboru (Partu)?

PS: Děkuji za nabídku, až si udělám představu o funkcionalitě tak bych se ozval. Můžete mi na Vás poslat kontakt?

Uživatel odpovídá na příspěvek #1155:

Dobrý den,
zkoušel jsem přidat do vašeho makra změnu parametru typu Boolean.
Chtěl bych aktivovat a deaktivovat různé stavy dílu. Můžete mi prosím pomoct, jak to vyřešit? Díl přikládám do přílohy.