Para ejecutar una macro con la tarea de transición de 3DEXPERIENCE:
- Desde la tarea de transición de 3DEXPERIENCE, seleccione los archivos en los que desea ejecutar la macro. Consulte Creación de una tarea de transición de 3DEXPERIENCE.
- Haga clic en Siguiente.
- En el cuadro de diálogo Opciones, en Acciones personalizadas, seleccione Ejecutar macro:.
- Busque una macro de SOLIDWORKS (.swp).
- Haga clic en Finalizar.
La macro aparecerá en el Programador de tareas con el título que haya definido para la tarea.
Ejemplo de marco de SOLIDWORKS
Para probar esta funcionalidad, pegue el siguiente texto en una macro de SOLIDWORKS (.swp).
Esta macro de ejemplo agrega una propiedad denominada "Hello" con el valor "Hello World" a cualquier pieza, ensamblaje o dibujo de la lista de archivos de tarea.
- En el caso de las piezas y los ensamblajes, agrega una propiedad específica de la configuración a las configuraciones activas.
- En el caso de los dibujos, agrega una propiedad personalizada, ya que los dibujos no contienen configuraciones.
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