Per eseguire una macro con l'attività di Transizione 3DEXPERIENCE:
- Nell'attività di Transizione 3DEXPERIENCE, selezionare i file su cui eseguire la macro. Vedere Creazione di un'attività di Transizione 3DEXPERIENCE.
- Fare clic su Avanti.
- Nella finestra di dialogo Opzioni, in Azioni personalizzate,selezionare Esecuzione macro:.
- Cercare la macro SOLIDWORKS (.swp).
- Fare clic su Fine.
La macro viene visualizzata in Task Scheduler con il titolo impostato per l'attività.
Esempio di macro SOLIDWORKS
Per testare questa funzionalità, è possibile incollare il testo seguente in una macro SOLIDWORKS (.swp).
Questa macro di esempio aggiunge una proprietà denominata "Hello" con un valore "Hello World" a qualsiasi parte, assieme o disegno nell'elenco dei file di attività.
- Per le parti e gli assiemi, aggiunge una proprietà specifica di configurazione alle configurazioni attive.
- Per i disegni, aggiunge una proprietà personalizzata, perché i disegni non contengono configurazioni.
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim config As SldWorks.Configuration
Dim cusPropMgr As SldWorks.CustomPropertyManager
Dim lRetVal As Long
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
' If no model is currently loaded, then exit
Exit Sub
End If
If (swModel.GetType <> swDocDRAWING) Then
' Add a Configuration Property named "Hello" to the active configuration for a Part or Assembly
Set config = swModel.GetActiveConfiguration
Set cusPropMgr = config.CustomPropertyManager
lRetVal = cusPropMgr.Add3("Hello",
swCustomInfoType_e.swCustomInfoText, "Hello World",
swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
Else
' Add a Property named "Hello" for a Drawing
Set cusPropMgr = swModel.Extension.CustomPropertyManager("")
lRetVal = cusPropMgr.Add3("Hello",
swCustomInfoType_e.swCustomInfoText, "Hello World",
swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
End If
End Sub