Para executar uma macro com a Tarefa de transição do 3DEXPERIENCE:
- Na Tarefa de transição do 3DEXPERIENCE, selecione os arquivos nos quais deseja executar a macro. Consulte Criar uma tarefa de transição do 3DEXPERIENCE.
- Clique em Avançar.
- Na caixa de diálogo Opções, em Ações personalizadas, selecione Executar macro:.
- Procure uma macro do SOLIDWORKS (.swp).
- Clique em Concluir.
A macro é exibida no Agendador de Tarefas com o título definido para a tarefa.
Amostra de Macro do SOLIDWORKS
Para testar essa funcionalidade, você pode colar o seguinte texto em uma macro do SOLIDWORKS (.swp).
Esta macro de exemplo adiciona uma propriedade chamada "Olá" com um valor de "Olá, mundo" a qualquer peça, montagem ou desenho na lista de arquivos de tarefa.
- Para peças e montagens, ele adiciona uma propriedade específica da configuração às configurações ativas.
- Para desenhos, ele adiciona uma propriedade personalizada, pois os desenhos não contêm configurações.
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