Macro pour supprimer toutes les propriétés personnalisées

Bonjour à tous,

 

Sauriez-vous comment supprimer toutes les propriétés personnalisées d'un document SolidWorks à l'aide d'une macro?

Le but étant de l'intégrer dans un smartproperties?

 

Merci d'avance pour vos réponses

Bonjour,

 

Connais-tu déjà les macros SolidWorks en VBA ?

 

L'instruction est "deleteCustomInfo2" et il faut faire une boucle sur toutes les propriétés du 3D.

 

For I = LBound(AllProps) To UBound(AllProps)
    If AllProps(I).pSelected Then
        BuBye = Target.DeleteCustomInfo2(AllProps(I).pConfig, AllProps(I).pName)
    End If
Next

 

Un lien en parle ici :

https://login.solidworks.com/nidp/saml2/sso

 

Ou il y a deux macros à télécharger ici (pas testé) :

http://www.dab-lab.co.uk/how-to-delete-solidworks-custom-properties.html

http://www.esoxrepublic.com/freeware/DeleteCustInfoDownload.php

 

Attention lorsqu'on lance des macros extérieures, il vaut mieux regarder un peu le code avant de la lancer !

 

Mais je ne comprends pas bien "le but étant de l'intégrer dans SmartProperties" : au lancement de SmartProperties il faudrait supprimer toutes les propriétés déjà existantes ?

Si c'est cela, il faudrait que la macro ne se lance qu'une seule fois !

Une solution serait de créer une propriétés supplémentaire, comme Fichier_nettoye à mettre à 1 avec cette macro pour être sûr de ne pas supprimer les nouvelles propriétés !

Dans le menu smarproperties, tu as un bouton qui supprime toutes les propriétés (voir schéma)


smarproperties_supprimer.jpg
3 « J'aime »

Bonjour,

 

Vous avez toute la suite d'outils MyCadTools ou juste SmartProperties?

Si vous avez tout avec l'utilitaire Intégration vous pourrez faire ce que vous souhaitez en automatique sur x fichiers.

 

@+

 


integration.jpg
3 « J'aime »

Merci flegendre, pile ce que je souhaitais faire, mais je ne l'avais pas vu.

 

Pourquoi ducros se décarcasse?

 

Merci encore