Pour exécuter une macro avec la tâche 3DEXPERIENCE Transition :
- Dans la tâche 3DEXPERIENCE Transition, sélectionnez les fichiers sur lesquels vous souhaitez exécuter la macro. Voir Création d'une tâche 3DEXPERIENCE Transition.
- Cliquez sur Suivant.
- Dans la boîte de dialogue Options, sous Actions personnalisées, sélectionnez Exécuter une macro :.
- Recherchez une macro SOLIDWORKS (.swp).
- Cliquez sur Terminer.
La macro apparaît dans le Planificateur de tâches avec le titre que vous avez défini pour la tâche.
Exemple de macro SOLIDWORKS
Pour tester cette fonctionnalité, vous pouvez coller le texte suivant dans une macro SOLIDWORKS (.swp).
Cet exemple de macro ajoute une propriété nommée « Hello » avec la valeur « Hello World » aux pièces, assemblages ou mises en plan figurant dans la liste des fichiers de tâches.
- Pour les pièces et les assemblages, il ajoute une propriété spécifique à la configuration aux configurations actives.
- Pour les mises en plan, il ajoute une propriété personnalisée, car les mises en plan ne contiennent pas de configurations.
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