Bonjour,
J'ai une macro solidworks qui fonctionne bien lorsque je lance la macro de solidworks.
J'aimerais que cette macro sous câblée dans notre flux EPDM via Solidworkstask add-in .
Voici ma macro, elle sert a descendre la barre de blocage sur un fichier pièce.
Dim swdoc As SldWorks.ModelDoc2
Dim swAllDocs As EnumDocuments2
Dim FirstDoc As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim NumDocsReturned As Long
Dim DocCount As Long
Dim swapp As SldWorks.SldWorks
Dim longstatus As Long
Dim part As Object
Sub FREEZE_ONE()
Set swapp = _
Application.SldWorks
Set part = swapp.ActiveDoc
If (UCase(Right(part.GetPathName, 6)) = UCase("sldprt")) Then
boolstatus = part.FeatureManager.EditFreeze(swMoveFreezeBarTo_e.swMoveFreezeBarToEnd, "", True)
part.SaveAs (part.GetPathName)
End If
End Sub
Je l'ai coller dans l'onglet script de la tache
La macro ne s'execute pas .
D'ou cela peut provenir?
Savez vous comment procéder?
Merci d'avance pour vos retour
Yannick
2020_03_04_22_10_03_nouvelle_tache_proprietes.png