Vítejte !   Přihlášení | Registrace
Hlavní menu
CATIA fórum.cz
Novinky
Seriál CATIA
Obecně o CAD
Novinky ze světa DS
Makra pro CATIA V5
Diskuse
Vytvořit téma
Koncepty
Seznam oblíbených
Soukromé zprávy
Pravidla
Live CHAT
VIP žádost
Základy Catia
Ke stažení
Doporučujeme
Pracovní příležitosti
Reklama a kampaně
O fóru
Nápověda

Makro na zobratie a vratenie shareable licencie

Kompletní přehled příspěvků v tématu Makro na zobratie a vratenie shareable licencie řazený podle data jejich publikace na fóru.

UživatelPříspěvek
Peeer

Poslat zprávu | Profil
Datum: 21.7. 2014 | Zobrazeno: 4329x
Konfigurace CATIA: V5 R19 SP3

Text dotazu:
Dobry den,
Nevie mi niekto poradit ci existuje makro na zobratie a vratenie shareable licencie?
Mame 1 ST1 licenciu zdielanu medzi niekolkymi uzivatelmi.
Ist na Tools->Options->General->Shareable Products a zobrat/vratit licenciu trva nejaky cas. Ked to uzivatelia potrebuju robit 4-5 krat denne je to trochu otravne.
Record Macro nefunguje v tomto pripade.
Vie niekto poradit ako by sa to dalo urobit cez macro?

Peeer

Ing Jan Cinert

Poslat zprávu | Profil
[#4634] | Publikováno: 21.07. 2014 - 16:16
Dobrý den,

podle dokumentace k API by to mohlo jít pomocí DynLicenseSettingAtt a jeho metody SetLicenseLock, viz. screenshot v příloze.

Přiložené obrázky:

Peeer

Poslat zprávu | Profil
[#4635] | Publikováno: 22.07. 2014 - 08:38
Dobry den,

Napisal som kratke makro ale mam chybu, ked chcem locknut licenciu.

Source: CATIADynLicenseSettingAtt
Description: The method SetLicenseLock failed

Neviete mi poradit, kde mam chybu?



Language="VBSCRIPT"
Sub CATMain()

Dim settingControllers1, dynLicenseSettingAtt1

Set settingControllers1 = CATIA.SettingControllers
Set dynLicenseSettingAtt1 = settingControllers1.Item("CATSysDynLicenseSettingCtrl")

dynLicenseSettingAtt1.SetLicenseLock "ST1.prd", True


End Sub

Přiložené obrázky:

Peeer

Poslat zprávu | Profil
[#4636] | Publikováno: 22.07. 2014 - 08:39

Language="VBSCRIPT"
Sub CATMain()

Dim settingControllers1, dynLicenseSettingAtt1

Set settingControllers1 = CATIA.SettingControllers
Set dynLicenseSettingAtt1 = settingControllers1.Item("CATSysDynLicenseSettingCtrl")

dynLicenseSettingAtt1.SetLicenseLock "ST1.prd", True


End Sub
Ing Jan Cinert

Poslat zprávu | Profil
[#4637] | Publikováno: 22.07. 2014 - 11:14
Zkuste se podívat sem - http://www.eng-tips.com/viewthread.cfm?qid=338731, tady je těch možností víc.

V dokumentaci píšou už jen že licence musí být volná a odemčené nastavení, ale to předpokládám máte.
Peeer

Poslat zprávu | Profil
[#4638] | Publikováno: 22.07. 2014 - 12:44
Skusal som vsetky moznosti, ale nepodarilo sa rozbehnut ani jednu.

Chybu stale vyhadzuje na tomto riadku:
dynLicenseSettingAtt1.SetLicenseLock "ST1.prd", True


Mozno nie je spravna syntax.
Ing Jan Cinert

Poslat zprávu | Profil
[#4639] | Publikováno: 22.07. 2014 - 13:33
já to můžu zkusit v .NET, jestli se mi povede zjistit, kde je zakopaný pes. Dám vědět jestli se to podařilo. :-)
andrejM

Poslat zprávu | Profil
[#6520] | Publikováno: 01.08. 2018 - 15:15
Dobrý deň,
podarilo sa Vám vyriešiť problém s makrom na licencie? Docela by sa hodil update.
Ďakujem za odpoveď.
Ing Jan Cinert

Poslat zprávu | Profil
[#6523] | Publikováno: 06.08. 2018 - 13:01
Dobrý den,

stále stejný stav, ale objevují se podobné požadavky od jiných zájemců o tuto funkci, takže se k tomu opět vracím...
andrejM

Poslat zprávu | Profil
[#6526] | Publikováno: 07.08. 2018 - 14:22
Ako som sa dočítal na nemeckom fóre, tento problém pravdepodobne nie je riešiteľný.

Tak len prikladám link, aby tým niekto zbytočne nestácal čas.
http://ww3.cad.de/foren/ubb/Forum137/HTML/001669.shtml
Ing Jan Cinert

Poslat zprávu | Profil
[#6527] | Publikováno: 07.08. 2018 - 14:49
Tak mám nové poznatky. Vlastním zkoušením i hledáním na netu jsem dospěl k závěru, že zapnout shareable licenci pomocí API Catia defacto nelze - alespoň ne tak, jak bychom si představovali.

Dá se pouze:

1) zjistit stav licence, tj. zda ji mám zrovna chycenou či ne - metoda GetLicense (název licence ve tvaru např. KIN.prd)

vrací se Requested (použitá) nebo NotRequested


2) zamknout možnost chycení metodou SetLicenseLock (název licence ve tvaru např. KIN.prd) - ale tady už to bylo jedno velké zkoušení. Zaprvé metoda funguje jen v AdminMode (nechápu smysl), a zadruhé se tím nechytí licence, ale zamkne se stav. To mi také nedává smysl, protože po ukončení Catie se licence uvolní automaticky

Když jsem si s tím hrál, tak po uzamčení licence ze seznamu zmizela a poté se dala chytit v normálních concurent licencích, dokonce to tak zůstalo i po restartu Catia - to jsem také ještě nezažil, aby shareable licence zůstala chycená i po restartu

V tuto chvíli se již dá takto přesunutá licence chytit pomocí metody SetLicence u LicenseSettingsAtt...ale možná to byla jen nějaká náhoda.


Pak mi ještě fungovala metoda GetLicenseInfo, ale to co vrací je víceméně k ničemu.

Přikládám skript, který by v admin modu měl chytit shareable licenci (název licence se dá zadat jako vstup).

Sub CATMain()

Dim SCs As SettingControllers
Set SCs = CATIA.SettingControllers
Dim DLSAtt As SettingController
Set DLSAtt = SCs.Item("CATSysDynLicenseSettingCtrl")

Dim LSAtt As SettingController
Set LSAtt = SCs.Item("CATSysLicenseSettingCtrl")

Dim LicName
LicName = InputBox ("Enter licence name", "License","KIN")

Dim Action
Action = MsgBox ("Action", vbYesNo, "")

If Action = 6 Then
DLSAtt.SetLicenseLock LicName + ".prd", True
LSAtt.SetLicense LicName + ".prd", LicName + ".prd"
Else
LSAtt.SetLicense LicName + ".prd","NotRequested"
DLSAtt.SetLicenseLock LicName + ".prd", False
End if

LSAtt.SaveRepository
DLSAtt.SaveRepository

End Sub
Ing Jan Cinert

Poslat zprávu | Profil
[#6528] | Publikováno: 07.08. 2018 - 14:56
A ještě doplním - aby se Shareable licence objevila zpět v seznamu shareable, pokud se použije jako Concurent, musí proběhnout restart Catia.

Závěr: Buď to neumíme (spíš se není čemu divit, když je to tak "dobře" zdokumentované) nebo to zkrátka opravdu nejde.
andrejM

Poslat zprávu | Profil
[#6529] | Publikováno: 08.08. 2018 - 10:18
Do admin modu sa dostat neviem, ale každopádne ďakujem za Váš čas a ochotu, zase som sa naučil niečo nové.


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.