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