Sneltoetsen voor transparante component

3D Design
1

Hoi allemaal

Een kleine praktische vraag, op Solidworks is er de sneltoets " tab " naar " een onderdeel verbergen ". Is er, of is het mogelijk om een sneltoets in te stellen op " maak een onderdeel transparant "

Bedankt

2

Hallo

Geen mogelijkheid om een toets aan deze functie toe te wijzen (gecontroleerd op SW2023 en 2024).

1 like
3

Hallo

Naar aanleiding van dit bericht (Het toewijzen van een sneltoets aan een cmdbutton in een UF - # 3 door Sylk) kwam het simpele idee bij me op om deze methode te gebruiken om misschien je probleem op te lossen, en uiteindelijk ons allemaal te dienen:

Hier is de macro in 2 in 1 versie:
CompTransparent-Opaque_(macroSW).zip (19.2 KB)

Het pakket bevat de pictogrammen voor de 2 macroknoppen, gericht op beide functies (methode).

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

Vervolg van de tutorial om te volgen...

2 likes
4

Hallo
Sterker nog, ik zie het nut er niet echt van in. Een rechtermuisklik is geen erg lange en dure operatie...

1 like
5

Op dit punt verwijderen we dan alle sneltoetsen!

Alle gekheid op een stokje, een klik met de rechtermuisknop + een muisbeweging + nog een klik voor transparantie duurt altijd langer dan een sneltoets. Vooral als je met beide handen werkt, is de zuinigheid van muisklikken voor mij een echt optimalisatieprobleem :slight_smile:

1 like
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

Hallo

het beantwoordt de vraag niet direct, maar aan mijn kant heb ik sneltoetsen " F " voor bedraad en " O " voor gearceerd ingevoerd, ik gebruik het de hele tijd :wink: