Hallo ihr alle
Eine kleine praktische Frage, auf Solidworks gibt es die Tastenkombination " Tab " zum " Ausblenden einer Komponente ". Gibt es oder ist es möglich, eine Tastenkombination zu setzen, um " eine Komponente transparent zu machen "
Vielen Dank
Hallo
Es ist nicht möglich, dieser Funktion eine Taste zuzuweisen (überprüft bei SW2023 und 2024).
Hallo
Nach diesem Beitrag (Assigning a keyboard shortcut to a cmdbutton in a UF - #3 by Sylk) kam mir die einfache Idee, diese Methode zu nutzen, um vielleicht euer Problem zu lösen und uns endlich allen zu dienen:
Hier sind die 2 Makros, eines um transparent zu machen, das andere, um undurchsichtig zu machen:
Macros_CompTransparent-Opaque.zip (15.2 KB)
CompTransparent.swp
' *****************
' 01/07/25 by Sylk
' *****************
'*** prérequis: assemblage ouvert et au moins un composant sélectionné.
Dim swApp, Part As Object
Dim boolstatus As Boolean
Dim longstatus, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
If Part Is Nothing Or Part.GetType <> swDocASM Then
If MsgBox("Le document doit être un assemblage. S'il n'est simplement pas encore enregistré, vous pouvez choisir d'ignorer cet avertissement.", vbYesNo + vbInformation) = vbNo Then Exit Sub
End If
boolstatus = Part.SetComponentTransparent(True)
End Sub
CompOpaque.swp
' *****************
' 01/07/25 by Sylk
' *****************
'*** prérequis: assemblage ouvert et au moins un composant sélectionné.
Dim swApp, Part As Object
Dim boolstatus As Boolean
Dim longstatus, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
If Part Is Nothing Or Part.GetType <> swDocASM Then
If MsgBox("Le document doit être un assemblage. S'il n'est simplement pas encore enregistré, vous pouvez choisir d'ignorer cet avertissement.", vbYesNo + vbInformation) = vbNo Then Exit Sub
End If
boolstatus = Part.SetComponentTransparent(False)
End Sub
Fortsetzung des Tutorials folgt...