Raccourcis clavier pour composant transparent

icome · Janvier 3, 2025, 7:25

Bonjour à tous,

Petite question pratique, sur Solidworks il existe le raccourcis clavier « tab » pour « cacher un composant ». Existe t il, ou est il possible de définir un raccourcis clavier pour « rendre un composant transparent »

Merci

Cyril_f · Janvier 6, 2025, 6:02

Bonjour,

Pas de possibilité d’affecter une touche à cette fonction (vérifié sur SW2023 et 2024).

Sylk · Janvier 7, 2025, 5:21

Bonjour,

Suite à ce post (Affecter un raccourci clavier à un cmdbutton dans un UF - #3 par Sylk) l’idée toute simple m’est venue d’utiliser cette méthode pour peut-être résoudre ton problème, et finalement nous servir à tous :

Une macro qui rend transparent le composant sélectionné puis se ferme.
Un bouton de lancement de cette macro dans une barre d’outils, auquel on assigne un raccourci-clavier par ce biais : Affectation d'une macro à un raccourci clavier ou un mouvement de souris - 2025 - Aide de SOLIDWORKS

Voilà les 2 macros, une pour rendre transparent, l’autre pour rendre opaque :
Macros_CompTransparent-Opaque.zip (15,2 Ko)

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

Suite du tuto à suivre…