Combobox je na formuláři, takže při inicializaci formuláře přiřadit hodnotu (-ty) comboboxu.

BOX_ROZMER_DESEK_X.Value = neco

BOX_ROZMER_DESEK_X.List= pole hodnot (mozna neni uplne presne toto).

p.

Oprava - přidání položky do boxu je ve VBA správně takto:

BOX_ROZMER_DESEK_X.AddItem oParameter.Value

Jinak je to stopro OK. Pro nastavení vychozí hodnoty lze použít vlastnost Value (příspěvek JK) i Text.

Samozřejmě, zatržení Checkboxu udává jeho vlastnost checked. Takže zjistíte, v jakém stavu je boolean parametr a podle toho nastavíte Checkbox, takže asi takto:

zatrhavaci_policko.checked = bool_parametr.value

ale nejsem si úplně jistý, jestli to v CATIA není jako "false" / "true", pak by to mohlo být

If bool_parametr.value = "true" then

   zatrhavaci_policko.checked = true

Else

   zatrhavaci_policko.checked = false

End If

Já se omlouvám za mystifikaci,
píšu makra na 90% ve Visual studiu 2008 a často si neuvědomím, že v catiovském VBA je to po staru. Takže:

Checkbox.value = True ' checkbox zatrzeny

Checkbox.value = False ' checkbox nezatrzeny

Problém je v tom, že hodnota z Catie se načítá jako "True" / "False" (defacto text) a ve VBA máte programové True / False, už jsem to psal v příaspěvku #2408.

If parametr.Value = "True" then

   Checkbox.Value = True

Else 

   Checkbox.Value = False

End If

Uživatel odpovídá na příspěvek #2417:
Dobrý den,
snažím se pomocí CheckBoxu prepínat parametr "Prepinani" (True/False) ten mám vytvoření v CATPart.
Dostal sem se zatim k inicializaci po pár hodinách sem ji nedokázal rozchodit.
Můžete mi prosím poradit?

Private Sub UserForm_Initialize()

  Set oPartDocument = CATIA.ActiveDocument

  Set oPart = oPartDocument.Part

  Set oParameters = oPart.Parameters

  Set oParametr = oParameters.Item("Prepinani")

     CheckBox.Value = oParametr.Value

  If parametr.Value = "True" Then

     CheckBox.Value = True

 Else

     CheckBox.Value = False

 End If

End Sub

Uživatel odpovídá na příspěvek #2462:
Děkuji za pomoc, už mi to funguje.
Jen ve zdrojovém kodu pro změnu parametru pri změně CheckBoxu sem musel odstranit závorky za oPart.Update a řádek
oParameter.ValuateFromString = "True"
mi nefungoval tak sem ho upravil pouze na:
oParametr.Value = "True"
a už mi to pracuje. Trvalo mi to asi tři hodiny, než sem to trefil, ale tím se člověk nejvíc učí.
Tak jak mi to pracuje to vypadá takto:

Private Sub CheckBox_Change()

   Set oPartDocument = CATIA.ActiveDocument

   Set oPart = oPartDocument.Part

   Set oParameters = oPart.Parameters

   Set oParametr = oParameters.Item("Prepinani")

     If CheckBox.Value = "True" Then

      oParametr.Value = "True"

   Else

      oParametr.Value = "False"

   End If

   oPart.Update

End Sub

Nemáte náhodou nějakou přírůčku, do které by se dalo nahlédnout, při problémech?
Ještě jednou děkuji za pomoc.

Dobrý den,
mužete mi prosím poradit jakým způsobem bych napsal do programu:
Jestliže je aktivni otevřené okno sestava vyplň parametr_1
Jestliže ne vyplň parametr_2
Jde mi o to co mám napsat jako:
If ........... = ............ Then

A ještě jestli by jste mi pomohl s tímto:
Jestliže existuje parametr_1
Asi to bude v tomto smyslu:
If ........... = True Then

Dobrý den,
děkuji za nápovědu.
Rozpoznání dle přípony mi jde bez problémů a šlo to na první pokus,
ale to s tím že jestli parametr existuje tak napříklat nic nedělej(nebo ten parametr vyplň) mi do toho makra přidat nejde....

Parts = Split(CATIA.ActiveDocument.Name, ".")



If Parts(UBound(Parts)) = "CATProduct" Then



   Set product1 = partDocument1.Product

   Dim parameters1 As Parameters

   Set parameters1 = product1.Parameters

   Dim strParam1 As StrParam

   Set strParam1 = parameters1.CreateString("Parametr_sestava", "")



End If



If Parts(UBound(Parts)) = "CATPart" Then



   Set part1 = partDocument1.Part

   Dim parameters2 As Parameters

   Set parameters2 = part1.Parameters

   Dim strParam2 As StrParam

   Set strParam2 = parameters2.CreateString("Parametr_dil", "")



End If

Chtěl jsem si udělat makro na to, že si dám do jednoho adresáře modely kterým chci zapsat určitý parametr.
Když je to sestava vytvoř parametr "sestava".
Když je to díl vytvoř parametr "díl".
Jestliže parametr existuje nevytvářej žádný...
Makro mi pracuje tak že otevírá jeden soubor za druhým a parametry se mi vytváří ale když existuje, tak mi to vždy vytvoří další a to nechci.


Celé to mám tekhle:

Sub CATMain()



Set FileSys = CATIA.FileSystem

Dim FoldObj 'As Folder

Dim FileObj 'As File

Dim files1 'As Files



FPath = CATIA.FileSelectionBox("Select a Part File.", "*.CATPart", CatFileSelectionModeOpen)

If FPath = "" Then

Exit Sub

End If



Set FileObj = FileSys.GetFile(FPath)

Set FoldObj = FileObj.ParentFolder

Set files1 = FoldObj.Files



Dim i 'As Interger

Dim partDocument1 'As Document

Dim product1 'As CATBaseDispatch

Dim part1





For i = 1 To files1.Count

Set Doc = CATIA.Documents.Open(files1.Item(i).Path)

If Err.Number = 0 Then

Set partDocument1 = CATIA.ActiveDocument

End If



' rozdelime nazev souoboru Do pole podle tecek

Parts = Split(CATIA.ActiveDocument.Name, ".")



' porovname posledni cast za teckou

If Parts(UBound(Parts)) = "CATProduct" Then



Set product1 = partDocument1.Product

Dim parameters1 As Parameters

Set parameters1 = product1.Parameters

Dim strParam1 As StrParam

Set strParam1 = parameters1.CreateString("Parametr_sestava", "")



End If



If Parts(UBound(Parts)) = "CATPart" Then



Set part1 = partDocument1.Part

Dim parameters2 As Parameters

Set parameters2 = part1.Parameters

Dim strParam2 As StrParam

Set strParam2 = parameters2.CreateString("Parametr_dil", "")



End If



partDocument1.Save

partDocument1.Close



Next



End Sub