Gestire icone macro - barra aggiuntiva

meccanicamg ha detto:

Ciao a tutti.
Nelle versioni vecchissime di SOLIDWORKS c'era la possibilità di creare delle barre personalizzate e metterci tutte le icone delle macro che si facevano.
Da diverse release non si può più aggiungere una barra personalizzata, almeno con le impostazioni di default.
Se ho una ventina di macro, dove metto i pulsanti, visto che lassù in alto nella barra principale non ci stanno molte icone in più?
Ho letto anche qui ma non ho trovato quello che mi serve.

Non mi dite che se trascino nel nulla mi crea una nuova barra che posso personalizzare?!?! Mi è venuto questo flash che non posso verificare per qualche settimana.

Avete qualche suggerimento da darmi cortesemente? Grazie in anticipo.

Clicca per espandere...

LaboratorioDieci ha detto:

Visualizza allegato 73036
Strumenti... ok
Personalizza... ok
Barre degli strumenti... ok
Nuova... non la vedo

Clicca per espandere...

dsw ha detto:

Io preferisco usare il designer interno di VBE (Visual Basic Editor) per costruire l'interfaccia e assegnare le macro ai "tastini", usarla è semplice nel giro di un paio d'ore(anche meno) si impara ad usare i comandi e ad assegnare le macro ai controlli(tastini). L'editor VBE è lo stesso per tutte le applicazioni che includono il VBA.

VBA Userforms - Browse SOLIDWORKS file(s)

Introduction

thecadcoder.com

Clicca per espandere...

meccanicamg ha detto:

Copilot mi consiglia questa macro per fare una finestra 100x80 con 10 pulsanti con le relative macro.
È da provare se gira o se si pianta questo codice.... Leggendo un ritocco va fatto perché sono segnate solo la macro 1 2 e 10…quindi va almeno completato per le altre.

Codice:

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

    ' Inizializza l'applicazione SOLIDWORKS
    Set swApp = Application.SldWorks

    ' Crea il form
    CreateForm

End Sub

Sub CreateForm()
    Dim UserForm1 As Object

    ' Aggiungi un nuovo form
    Set UserForm1 = VBA.UserForms.Add("UserForm1")

    With UserForm1
        ' Imposta la larghezza e altezza del form
        .Width = 100
        .Height = 80

        Dim i As Integer
        For i = 1 To 10
            ' Aggiungi un pulsante per ogni macro
            Dim btn As Object
            Set btn = .Controls.Add("Forms.CommandButton.1", "Button" & i)
            With btn
                ' Imposta l'etichetta del pulsante
                .Caption = "Macro " & i
                ' Imposta la posizione verticale del pulsante
                .Top = 10 + (i - 1) * 25
                ' Imposta la posizione orizzontale del pulsante
                .Left = 10
                ' Imposta la larghezza del pulsante
                .Width = 80
                ' Assegna la macro da eseguire quando il pulsante viene premuto
                .OnAction = "RunMacro" & i
            End With
        Next i
    End With

    ' Mostra il form
    UserForm1.Show

End Sub

' Subroutine per eseguire la macro 1
Sub RunMacro1()
    MsgBox "Esegui Macro 1"
End Sub

' Subroutine per eseguire la macro 2
Sub RunMacro2()
    MsgBox "Esegui Macro 2"
End Sub

' Aggiungi altre Subroutine per le macro fino a RunMacro10

' Subroutine per eseguire la macro 10
Sub RunMacro10()
    MsgBox "Esegui Macro 10"
End Sub

Se funzionasse sarebbe una buona idea perché terrei la finestra sul secondo schermo e avrei la mia barra con quello che voglio.

Clicca per espandere...

jenuary ha detto:

Si potrebbe pensare piuttosto, visto che mi sembra di capire che potrebbe essere una esigenza comune, di creare una addin (.dll) con 5 barre degli strumenti, vuote, senza bottoni, poi sarà l'utente a mettere dentro i bottoni delle macro, come si fa per le barre degli strumenti normali. Così ognuno si personalizza le sue. magari le chiamiamo Cad3D_1, Cad3D_2 ecc.
Potrebbe essere un'idea? Così è una cosa integrata e la si porta avanti anche nelle versioni successive.
Il problema principale delle macro, indifferentemente da cosa faccia, sono i riferimenti, se hai più di una versione installata di Sw prende i riferimenti al Sw più recente e spesso da errore.

Clicca per espandere...

cacciatorino ha detto:

Prova a guardare qui:

E' un video di 4 anni fa, magari e' ancora attuale.

Clicca per espandere...