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

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.

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. :-)

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...

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

Do admin modu sa dostat neviem, ale každopádne ďakujem za Váš čas a ochotu, zase som sa naučil niečo nové.