načtení všech multiple values parametru

Kompletní přehled příspěvků v tématu načtení všech multiple values parametru řazený podle data jejich publikace na fóru.

Uživatel	Příspěvek
Fojman Poslat zprávu \| Profil	Datum: 9.8. 2014 \| Zobrazeno: 9039x Konfigurace CATIA: V5 R21 Text dotazu: Dobrý den, narazil jsem na problém při použití metody GetEnumerateValues při načítání hodnot z parametru CATPartu. Když je parametr typu String a obsahuje více možných hodnot a použiju vzor z dokumentace tak pole enumValues s hodnotami kterých může parametr nabývat obsahuje jen prázdné prvky. Počet hodnot je správný, ale jsou prázdné. Čím to? Co dělám špatně? Dim enumValues () As Variant ReDim enumValues (aStrParameter.GetEnumerateValuesSize() - 1) aStrParameter.GetEnumerateValues(enumValues) For i = LBound(enumValues) to UBound(enumValues) ... Next

Ing Jan Cinert Poslat zprávu \| Profil	[#4654] \| Publikováno: 12.08. 2014 - 13:01 Zdravím, já zkusil jen u deklarace vypustit typ Variant a funguje to tak jak má... Parametr je typu String, hodnoty uvnitř jsou 1,2,3, MgsBox je všechny vypíše. Sub CATMain() Dim enumValues () Set oPar = CATIA.ActiveDocument.Part.Parameters.Item("String.1") ReDim enumValues (oPar.GetEnumerateValuesSize() - 1) oPar.GetEnumerateValues(enumValues) For i = LBound(enumValues) to UBound(enumValues) msgbox(enumValues(i)) Next End Sub

Uživatel nepřihlášen

Pro zobrazení obsahu stránky / provedení akce (vytvoření nového téma, napsání odpovědi do diskuse apod.) musíte být přihlášeni.

Reklama

Partneři CATIA fóra

Uživatel	Příspěvek
Fojman Poslat zprávu \| Profil	Datum: 9.8. 2014 \| Zobrazeno: 9039x Konfigurace CATIA: V5 R21 Text dotazu: Dobrý den, narazil jsem na problém při použití metody GetEnumerateValues při načítání hodnot z parametru CATPartu. Když je parametr typu String a obsahuje více možných hodnot a použiju vzor z dokumentace tak pole enumValues s hodnotami kterých může parametr nabývat obsahuje jen prázdné prvky. Počet hodnot je správný, ale jsou prázdné. Čím to? Co dělám špatně? Dim enumValues () As Variant ReDim enumValues (aStrParameter.GetEnumerateValuesSize() - 1) aStrParameter.GetEnumerateValues(enumValues) For i = LBound(enumValues) to UBound(enumValues) ... Next

Ing Jan Cinert Poslat zprávu \| Profil	[#4654] \| Publikováno: 12.08. 2014 - 13:01 Zdravím, já zkusil jen u deklarace vypustit typ Variant a funguje to tak jak má... Parametr je typu String, hodnoty uvnitř jsou 1,2,3, MgsBox je všechny vypíše. Sub CATMain() Dim enumValues () Set oPar = CATIA.ActiveDocument.Part.Parameters.Item("String.1") ReDim enumValues (oPar.GetEnumerateValuesSize() - 1) oPar.GetEnumerateValues(enumValues) For i = LBound(enumValues) to UBound(enumValues) msgbox(enumValues(i)) Next End Sub