Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
SplitterPosition = Part.FeatureManagerSplitterPosition
If SplitterPosition = 1 Then
toggle = 0.5
Else: toggle = 1
End If
Part.FeatureManagerSplitterPosition = toggle
End Sub