Zitat:
Original erstellt von sto.teac:
ich hab mal eine etwas andere Frage.
Würdest du mal dein Makro-Code hier posten? Mich würden die Befehle für die ganzen Einstellungen interessieren.Danke im Voraus.
Hi,
kein Problem. Ich muss aber dazu sagen, dass ich mir das auch nicht aus der Automation.chm rausgesucht habe, sondern einfach per "Recording" die passenden Befehle hergeleitet habe.
Am Ende meines Codes sind noch "SaveRepository"-Befehle. Die habe ich aber als Kommentar herausgenommen, da das Ändern der Einstellungen auch ohne diese funktioniert.
Mein Code ändert auch eigentlich nur zwei Einstellungen (3D Accuracy und CacheManagement). Aber man kann sich ja, wie oben geschrieben, die passenden Befehle einfach aufzeichnen.
Code:
Sub CATMain()
'------------------------------------
' Objekte deklarieren
'------------------------------------
Dim setcontr As SettingControllers
Set setcontr = CATIA.SettingControllers
Dim genses As GeneralSessionSettingAtt
Set genses = setcontr.Item("CATCafGeneralSessionSettingCtrl")
Dim visset As VisualizationSettingAtt
Set visset = setcontr.Item("CATVizVisualizationSettingCtrl")
Dim cacheset As CacheSettingAtt
Set cacheset = setcontr.Item("CATSysCacheSettingCtrl")
'------------------------------------
' Einstellungen ändern
'------------------------------------
' Accuracy
visset.Viz3DAccuracyMode = False
visset.Viz3DProportionnalAccuracy = 0.01
' Cache
cacheset.ActivationMode = False
'------------------------------------
' Einstellungen speichern, nicht notwendig!
'------------------------------------
'genses.SaveRepository
'visset.SaveRepository
'cacheset.SaveRepository
End Sub
'
'
Ich hoffe ich konnte weiterhelfen.
Gruß,
sprog
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP