Skróty klawiaturowe dla przezroczystego komponentu

3D Design
1

Cze wszystkim

Małe pytanie praktyczne, w Solidworks znajduje się skrót klawiaturowy " tab " do " ukryj komponent ". Czy istnieje lub czy można ustawić skrót klawiaturowy, aby " uczynić komponent przezroczystym "

Dziękuję

2

Witam

Brak możliwości przypisania do tej funkcji (sprawdzone w SW2023 i 2024).

1 polubienie
3

Witam

Po tym poście (Przypisywanie skrótu klawiaturowego do przycisku cmd w UF - #3 autorstwa Sylk) przyszedł mi do głowy prosty pomysł, aby użyć tej metody, aby być może rozwiązać Twój problem i ostatecznie służyć nam wszystkim:

Oto makro w wersji 2 w 1:
CompTransparent-Opaque_(macroSW).zip (19,2 KB)

Pakiet zawiera ikony 2 przycisków makr, przeznaczone dla obu funkcji (metody).

' *****************
' 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

Ciąg dalszy samouczka do naśladowania...

2 polubienia
4

Witam
Właściwie to nie bardzo widzę w tym sens. Kliknięcie prawym przyciskiem myszy nie jest bardzo długą i kosztowną operacją...

1 polubienie
5

W tym momencie usuwamy wszystkie skróty klawiaturowe!

Żarty na bok, kliknięcie prawym przyciskiem myszy + ruch myszą + kolejne kliknięcie w celu uzyskania przezroczystości zawsze zajmie więcej czasu niż skrótu. Zwłaszcza, gdy pracuje się obiema rękami, ekonomia kliknięć myszką jest dla mnie prawdziwym problemem optymalizacyjnym :slight_smile:

1 polubienie
6 
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

https://help.solidworks.com/2024/English/api/swcommands/solidworks.interop.swcommands~solidworks.interop.swcommands.swcommands_e.html?verRedirect=1

7

Witam

nie odpowiada bezpośrednio na pytanie, ale ze swojej strony wstawiłem skróty klawiaturowe " F " dla przewodowych i " O " dla zacienionych, używam ich cały czas :wink: