---

Hallo,
kann man den Status des Schalters Only Current Body per Makro abfragen?
Und wenn wir schon dabei sind auch den von Only Current Operated Solid?
Wenn ich prüfen lasse, ob Elemente sichtbar sind, wäre der Hinweis, dass visible Elemente nicht dargestellt werden echt cool.

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

---

Ich habe etwas Code zusammengetragen, der aber nicht so will, wie ich es will.
Der erste Teil ist zusammenkopiert aus der Hilfe, der zweite Teil ist angepasst auf meine Bedürfnisse.

Code:

---

Sub CATMain()
'ReadSettings
ReadCurrentBody
End Sub

'Lauffähiger Code aus V5Automation.chm
Sub ReadSettings()
Set settingControllers1 = CATIA.SettingControllers
Dim generalSessionSettingAtt1  As GeneralSessionSettingAtt
Set generalSessionSettingAtt1 = settingControllers1.Item("CATCafGeneralSessionSettingCtrl")

long1 = generalSessionSettingAtt1.UIStyle
'--------------------------------------------------
'' Returned value : (CATGenUIStyle) UIStyleP2
'--------------------------------------------------
Dim bSTR1 As String
bSTR1 = ""
Dim bSTR2 As String
bSTR2 = ""
Dim boolean1 As Boolean
boolean1 = generalSessionSettingAtt1.GetUIStyleInfo(bSTR1, bSTR2)
'--------------------------------------------------
' Parameter 1 : (String) "Default value"
' Parameter 2 : (String) "Unlocked"
' Returned value : (Boolean) False
'--------------------------------------------------

msgbox "User Interface Style" & Chr(13) & _
      "  Value: " & long1 & Chr(13) & _
      "  Default Value: " & bSTR1 & Chr(13) & _
      "  Lock Value: " & bSTR2 & Chr(13) & _
      "  Locked or modified at this level: " & boolean1
End Sub

'Hier wird die OnlyCurrentSolidSetInGeometryInfo nicht korrekt angesprochen
Sub ReadCurrentBody()
Dim oSettingControllers As SettingControllers
Dim oSettingstab  As PartInfrastructureSettingAtt
Dim bCurrentBody As Boolean
Dim bCurrentSolid As Boolean
Dim ioAdminLevel As String
Dim ioLocked As String

Set oSettingControllers = CATIA.SettingControllers
Set oSettingstab = oSettingControllers.Item("CATMmuPartInfrastructureSettingCtrl")

ioAdminLevel = ""
ioLocked = ""

'bCurrentBody = oSettingstab.GetOnlyCurrentSolidSetInGeometryInfo(ioAdminLevel,ioLocked)
bCurrentBody = oSettingstab.OnlyCurrentSolidSetInGeometryInfo(ioAdminLevel,ioLocked)
MsgBox "bCurrentBody: " & bCurrentBody

'bCurrentSolid = oSettingstab.GetOnlyCurrentSolidSetInGeometry(ioAdminLevel,ioLocked)
'MsgBox "bCurrentSolid " & bCurrentSolid
End Sub

---

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

---

Servus

Only Current Body geht zB so:

Code:

---

Sub CATMain()

Dim settingControllers1 As SettingControllers
Set settingControllers1 = CATIA.SettingControllers

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

if partInfrastructureSettingAtt1.OnlyCurrentSolidSetInGeometry then
  partInfrastructureSettingAtt1.OnlyCurrentSolidSetInGeometry = false
else
  partInfrastructureSettingAtt1.OnlyCurrentSolidSetInGeometry = true
end if

partInfrastructureSettingAtt1.SaveRepository

End Sub

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Danke.
Ich hatte gerstern noch nach "CATMmuPartInfrastructureSettingCtrl" gesucht und bin auf diesen Beitrag gestoßen.
CATIA Einstellung unter Knopf https://ww3.cad.de/foren/ubb/Forum137/HTMLna/006741.shtml
Da hattest du den Tipp mit dem Makrorekorder gegeben und vermutlich auch die Codebasis hergeholt.

Da war ich wohl irgendwo in der falschen Ecke gelandet von der V5Automation.chm, wo abgefragt werden kann, ob die Voreinstellungen verändert wurden:

Zitat:

---

Func GetOnlyCurrentOperatedSolidSetInGeometryInfo( CATBSTR  ioAdminLevel,
CATBSTR  ioLocked) As boolean 

Retrieves environment informations for the "OnlyCurrentOperatedSolidSetInGeometry" parameter.
Role:Retrieves the state of the "OnlyCurrentOperatedSolidSetInGeometry" parameter in the current environment.
Parameters:
ioAdminLevel

If the parameter is locked, AdminLevel gives the administration level that imposes the value of the parameter.
If the parameter is not locked, AdminLevel gives the administration level that will give the value of the parameter after a reset.
ioLocked
Indicates if the parameter has been locked.
Returns:
Indicates if the parameter has been explicitly modified or remain to the administrated value.

---

[Diese Nachricht wurde von Lionel Hutz am 06. Dez. 2023 editiert.]

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