Reaction VB action

Kompletní přehled příspěvků v tématu Reaction VB action řazený podle data jejich publikace na fóru.

Uživatel	Příspěvek
Jiří Šrom Poslat zprávu \| Profil	Datum: 10.11. 2022 \| Zobrazeno: 561x Konfigurace CATIA: V5-6R2020, KWA Text dotazu: Prosím o pomoc s reakcí. Vytrořil jsem si reakci, při níž se na základě změny parametru POCET_VYPADU uzamknou či odemknou potřebné parametry. Bohužel při této funkci mi vyskakuje hláška s oznámením o uzamčení či odemknutí parametrů. Lze nějakým způsobem do skripitu dostat to, že se mi automaticky hláška potvrdí? Můj skript je zde: Dim oPar As Parameter Dim oSel As Selection Set oPar = CATIA.ActiveDocument.Part.Parameters.Item("POCET_VYPADU") Set oPar2 = CATIA.ActiveDocument.Part.Parameters.Item("POLOHA_DILU_V_OSE_X") Set oPar3 = CATIA.ActiveDocument.Part.Parameters.Item("POLOHA_DILU_V_OSE_Y") Set oPar4 = CATIA.ActiveDocument.Part.Parameters.Item("POLOHA_DILU_V_OSE_Z") Set oSel = CATIA.ActiveDocument.Selection oSel.Clear() oSel.Add oPar2 oSel.Add oPar3 oSel.Add oPar4 If (oPar.Value <> "2") Then CATIA.StartCommand("unlock") Else CATIA.StartCommand("lock") End If End sub Přiložené obrázky:

Ing Jan Cinert Poslat zprávu \| Profil	[#7093] \| Publikováno: 10.11. 2022 - 19:47 Zdravím, mělo by zafungovat tohle: Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "{ENTER}" Pošle se tím do CATIE stisk klávesy Enter, nicméně to tady zrovna nějak nefunguje, jinde ale jo. Netuším proč, ale je to asi jediná možnost, jak okno se seznamem parametrů potvrdit.
Jiří Šrom Poslat zprávu \| Profil	[#7094] \| Publikováno: 11.11. 2022 - 06:25 Děkuji za informaci a pomoc. Zkoušel jsem to, ale bohužel je to asi opravdu tak, že to prostě nefunguje. Budeme se tedy muset nejpíš smířit s tím, že budeme klikat potvrzení. Pokud by ale někdo přišel na variantu, kdy by se hláška automaticky potvrdila, velmi by mi to pomohlo.
Ing Jan Cinert Poslat zprávu \| Profil	[#7095] \| Publikováno: 11.11. 2022 - 08:28 Ještě mě napadlo místo Reaction použí Rule a parametr jen skrýt. Jeho zobrazení je pro uživatele ještě větší námaha než prosté odemčení. To by šlo napsat přímo v EKL přes vlastnost parametru Hidden.
Jiří Šrom Poslat zprávu \| Profil	[#7096] \| Publikováno: 11.11. 2022 - 08:34 Původní požadavek byl na uzamčení parametrů. Protože se mi toto nedaří, tak jsem opravdu využil skrytí parametrů. Ale byl požadavek, aby se při jistém nastavení změnily hodnoty a aby se zabránilo nechtěnému přepsání, tak ještě chtěli parametry i uzamknout. Takže nejspíše tedy zůstane pouze u toho skrytí. Je ale fajn, že uvažujeme velmi podobně. ;o)
Ing Jan Cinert Poslat zprávu \| Profil	[#7097] \| Publikováno: 11.11. 2022 - 11:54 Možná to dokonce ještě lépe splní účel. U nás jsou všichni naučení, že skrytý parametr je opravdu "důležitý" a nemělo by se na něj sahat (=nepátrej po tom, proč to tam je, nesnaž se tomu rozumět :-) , nepředělávej to).
Jiří Šrom Poslat zprávu \| Profil	[#7098] \| Publikováno: 11.11. 2022 - 11:56 Jo, tak nějak to bude. Jen jsme to chtěli mít pojištěno ještě trochu více. ;o)) Děkuji za váš čas.

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
Jiří Šrom Poslat zprávu \| Profil	Datum: 10.11. 2022 \| Zobrazeno: 561x Konfigurace CATIA: V5-6R2020, KWA Text dotazu: Prosím o pomoc s reakcí. Vytrořil jsem si reakci, při níž se na základě změny parametru POCET_VYPADU uzamknou či odemknou potřebné parametry. Bohužel při této funkci mi vyskakuje hláška s oznámením o uzamčení či odemknutí parametrů. Lze nějakým způsobem do skripitu dostat to, že se mi automaticky hláška potvrdí? Můj skript je zde: Dim oPar As Parameter Dim oSel As Selection Set oPar = CATIA.ActiveDocument.Part.Parameters.Item("POCET_VYPADU") Set oPar2 = CATIA.ActiveDocument.Part.Parameters.Item("POLOHA_DILU_V_OSE_X") Set oPar3 = CATIA.ActiveDocument.Part.Parameters.Item("POLOHA_DILU_V_OSE_Y") Set oPar4 = CATIA.ActiveDocument.Part.Parameters.Item("POLOHA_DILU_V_OSE_Z") Set oSel = CATIA.ActiveDocument.Selection oSel.Clear() oSel.Add oPar2 oSel.Add oPar3 oSel.Add oPar4 If (oPar.Value <> "2") Then CATIA.StartCommand("unlock") Else CATIA.StartCommand("lock") End If End sub Přiložené obrázky:

Ing Jan Cinert Poslat zprávu \| Profil	[#7093] \| Publikováno: 10.11. 2022 - 19:47 Zdravím, mělo by zafungovat tohle: Set WshShell = CreateObject("WScript.Shell") WshShell.SendKeys "{ENTER}" Pošle se tím do CATIE stisk klávesy Enter, nicméně to tady zrovna nějak nefunguje, jinde ale jo. Netuším proč, ale je to asi jediná možnost, jak okno se seznamem parametrů potvrdit.
Jiří Šrom Poslat zprávu \| Profil	[#7094] \| Publikováno: 11.11. 2022 - 06:25 Děkuji za informaci a pomoc. Zkoušel jsem to, ale bohužel je to asi opravdu tak, že to prostě nefunguje. Budeme se tedy muset nejpíš smířit s tím, že budeme klikat potvrzení. Pokud by ale někdo přišel na variantu, kdy by se hláška automaticky potvrdila, velmi by mi to pomohlo.
Ing Jan Cinert Poslat zprávu \| Profil	[#7095] \| Publikováno: 11.11. 2022 - 08:28 Ještě mě napadlo místo Reaction použí Rule a parametr jen skrýt. Jeho zobrazení je pro uživatele ještě větší námaha než prosté odemčení. To by šlo napsat přímo v EKL přes vlastnost parametru Hidden.
Jiří Šrom Poslat zprávu \| Profil	[#7096] \| Publikováno: 11.11. 2022 - 08:34 Původní požadavek byl na uzamčení parametrů. Protože se mi toto nedaří, tak jsem opravdu využil skrytí parametrů. Ale byl požadavek, aby se při jistém nastavení změnily hodnoty a aby se zabránilo nechtěnému přepsání, tak ještě chtěli parametry i uzamknout. Takže nejspíše tedy zůstane pouze u toho skrytí. Je ale fajn, že uvažujeme velmi podobně. ;o)
Ing Jan Cinert Poslat zprávu \| Profil	[#7097] \| Publikováno: 11.11. 2022 - 11:54 Možná to dokonce ještě lépe splní účel. U nás jsou všichni naučení, že skrytý parametr je opravdu "důležitý" a nemělo by se na něj sahat (=nepátrej po tom, proč to tam je, nesnaž se tomu rozumět :-) , nepředělávej to).
Jiří Šrom Poslat zprávu \| Profil	[#7098] \| Publikováno: 11.11. 2022 - 11:56 Jo, tak nějak to bude. Jen jsme to chtěli mít pojištěno ještě trochu více. ;o)) Děkuji za váš čas.