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 ist das Makro in der 2-in-1-Version:
CompTransparent-Opaque_(macroSW).zip (19.2 KB)
Das Paket enthält die Symbole für die 2 Makro-Schaltflächen, die auf beide Funktionen (Methode) abzielen.
' *****************
' 01/07/25 by Sylk
' *****************
'*** prérequis: assemblage ouvert et au moins un composant sélectionné.
'*** but: rendre transparent ou opaque un ou plusieurs composants d'un assemblage, via des raccourcis clavier associés à ces fonctions.
'*** setup: Ajouter 2 boutons de macro à la barre d'outils (1 pour la fonction Transparent et 1 pour la fonction Opaque) et Assigner des raccourcis clavier aux 2 boutons
Dim swApp, Doc As Object
Dim boolstatus As Boolean
'Dim longstatus, longwarnings As Long
Sub Transparent()
Set swApp = Application.SldWorks
Set Doc = swApp.ActiveDoc
If Doc Is Nothing Or Doc.GetType <> swDocASSEMBLY Then Exit Sub
boolstatus = Doc.SetComponentTransparent(True)
End Sub
Sub Opaque()
Set swApp = Application.SldWorks
Set Doc = swApp.ActiveDoc
If Doc Is Nothing Or Doc.GetType <> swDocASSEMBLY Then Exit Sub
boolstatus = Doc.SetComponentTransparent(False)
End Sub
Fortsetzung des Tutorials folgt...
Hallo
Tatsächlich sehe ich den Sinn nicht wirklich. Ein Rechtsklick ist keine sehr lange und teure Operation...
An dieser Stelle löschen wir dann alle Tastenkombinationen!
Spaß beiseite, ein Rechtsklick + eine Mausbewegung + ein weiterer Klick für Transparenz dauert immer länger als eine Tastenkombination. Gerade wenn man mit beiden Händen arbeitet, ist die Ökonomie der Mausklicks für mich ein echtes Optimierungsproblem 
Sub T01()
Dim swApp As SldWorks.SldWorks
Set swApp = Application.SldWorks
Dim REPONSE As Boolean
REPONSE = swApp.RunCommand(120, False)
End Sub
Sub T02()
Dim swApp As SldWorks.SldWorks
Set swApp = Application.SldWorks
Dim REPONSE As Boolean
REPONSE = swApp.RunCommand(swCommands_ChangeTransparency, False)
End Sub