Supprimer Famille CAO dans les pièces SolidWorks

[Samy3D]

Bonjour, avant d'importer mes dessins SolidWorks dans 3DX, je dois supprimer la famille CAO créer par défaut lors de l'implantation de 3DX. j'aimerais avoir un macro pour le faire par assemblage ouvert ou en batch dans un dossier serait encore mieux.

j'ai cela mais ne fonctionne pas. j'ai toujours le message (rien à supprimer):

Sub SupprimerFamilleCAO() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swSelMgr As SldWorks.SelectionMgr Dim swModelDocExt As SldWorks.ModelDocExtension Dim DeleteOption As Long Dim status As Boolean

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swModelDocExt = swModel.Extension

' Pour supprimer les composants absorbés, utilisez l'énumération swDeleteSelectionOptions_e.swDelete_Absorbed
' Pour supprimer les composants enfants, utilisez l'énumération swDeleteSelectionOptions_e.swDelete_Children
' Pour conserver les composants absorbés et les composants enfants, définissez DeleteOption = 0
DeleteOption = swDeleteSelectionOptions_e.swDelete_Absorbed

' Commentez la ligne précédente et décommentez l'une des lignes suivantes pour modifier la façon de supprimer le composant sélectionné
' DeleteOption = swDeleteSelectionOptions_e.swDelete_Children
' DeleteOption = 0
' DeleteOption = swDeleteSelectionOptions_e.swDelete_Absorbed + swDeleteSelectionOptions_e.swDelete_Children

status = swModelDocExt.DeleteSelection2(DeleteOption)

Debug.Print "Composant supprimé ? " & status

End Sub

merci d'avance.

Samy3D