---

Folie1.JPG Folie2.JPG

Hallo,
ich arbeite in einer Arbeitsumgebung, bei der mit jedem Neustart von Catia die CatSettings auf die firmenspezifischen Vorgaben zurückgesetzt werden. Allerding ist es erlaubt einige Einstellungen zu ändern, wobei es sehr lästig ist jedes mal in die Optionen zu gehen und die entsprechenden Haken zu setzen.
Ich möchte jeweils die "Updatefunktion" auf automatisch setzen und bei"synchonise all external references when updating", aber ich habe weder viel Ahnung vom Programmieren, noch eine Ahnung, wie die entsprechenden Parameter lauten. Ich weiß jedoch, daß *.catvbs erlaubt sind.
Vielen Dank im Voraus
Macxsis

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Macxsis,
versuch dieses Makro.
In CATIAV5_R16_Sp5 deutsche Umgebung hat es funktioniert.

Gruß marbat

Language="VBSCRIPT"

Sub CATMain()

Dim settingControllers1 As SettingControllers
Set settingControllers1 = CATIA.SettingControllers

Dim disconnectionSettingAtt1 As SettingController
Set disconnectionSettingAtt1 = settingControllers1.Item("CATSysDisconnectionSettingCtrl")

disconnectionSettingAtt1.InactivityDuration = 1800

Dim memoryWarningSettingAtt1 As SettingController
Set memoryWarningSettingAtt1 = settingControllers1.Item("CATSysMemoryWarningSettingCtrl")

memoryWarningSettingAtt1.UsageLimit = 70

Dim partInfrastructureSettingAtt1 As SettingController
Set partInfrastructureSettingAtt1 = settingControllers1.Item("CATMmuPartInfrastructureSettingCtrl")

partInfrastructureSettingAtt1.UpdateMode = catAutomaticUpdate

Dim asmGeneralSettingAtt1 As SettingController
Set asmGeneralSettingAtt1 = settingControllers1.Item("CATAsmGeneralSettingCtrl")

asmGeneralSettingAtt1.AutoUpdateMode = catAutomaticUpdate

asmGeneralSettingAtt1.UpdateStatusMode = catAutomaticCompute

partInfrastructureSettingAtt1.UpdateLinkedExternalReferences = True

Dim generalSessionSettingAtt1 As SettingController
Set generalSessionSettingAtt1 = settingControllers1.Item("CATCafGeneralSessionSettingCtrl")

generalSessionSettingAtt1.SaveRepository

disconnectionSettingAtt1.SaveRepository

memoryWarningSettingAtt1.SaveRepository

Dim cacheSettingAtt1 As SettingController
Set cacheSettingAtt1 = settingControllers1.Item("CATSysCacheSettingCtrl")

cacheSettingAtt1.SaveRepository

cacheSettingAtt1.SaveRepository

Dim visualizationSettingAtt1 As SettingController
Set visualizationSettingAtt1 = settingControllers1.Item("CATVizVisualizationSettingCtrl")

visualizationSettingAtt1.SaveRepository

partInfrastructureSettingAtt1.SaveRepository

asmGeneralSettingAtt1.SaveRepository

End Sub

------------------
mb