toggle 'enable selection through transparency'

[innov]

I'm looking for a way to add a tolbar shortcut to toggle 'enable selection through transparency' on and off.

what's the best way of going about this?
thanks!

 

[CorBlimeyLimey]

Record a macro, then assign a button or hotkey to it.

See the SW Help index for macro



Helpful SW websites FAQ559-520
How to get answers to your SW questions FAQ559-1091

 

[Stoker]

Assign this macro to a toolbar button

Sub Main()

    Dim swApp As SldWorks.SldWorks
    Set swApp = CreateObject("SldWorks.Application")
    
    If swApp.GetUserPreferenceToggle(swDisplayEnableSelectionThroughTransparency) Then
        swApp.SetUserPreferenceToggle swDisplayEnableSelectionThroughTransparency, False
    Else
        swApp.SetUserPreferenceToggle swDisplayEnableSelectionThroughTransparency, True
    End If

End Sub

 

[dezignstuff]

Also that to temporarily toggle it, you can use Shift-select.

I've seem SW change this setting on me automatically sometimes 10x in a day. Can't figure out what is triggering it.