[ADD IN] - Suppresion rapide de feuilles

[Guillaume MASSART]

Bonjour

Ma première mini application pour m'aider à supprimer des feuilles d'un dessin à la volée.

 

Ce n'est pas un ADD IN à proprement parlé, mais plutôt une macro directement dans le système VBA d'INVENTOR.

Télécharger le fichier zip suivant:

http://www.piou2fois.info/cadxp/sheets_delete.zip

 

Dézipper le tout sur votre bureau (2fichiers)

Ensuite dans INVENTOR (sans document ouvert), Editeur VBA, importer dans le projet default.ivb (le seul actif si rien n'est ouvert), puis sélectionner le FORM dézippé.

 

Vous aurez ensuite une FORM appelée sheets_delete_form.

 

Dans module1 copier coller ceci:

 

Public Sub sheets_delete_open()
Sheets_delete_form.Show
End Sub

 

Il vous reste à ouvrir un fichier dessin (dwg ou idw) puis de démarrer la macro sheets_delete_open

 

Le principe de fonctionnement:

-une liste des feuilles du document actif, un bouton delete.

-quand vous cliquez sur une feuille, elle s'active

-quand vous cliquez sur delete, la feuille est supprimée (attention par de retour en arrière possible)

-la liste est raffraichie automatiquement

-inventor est bien, fait il ne supprimera jamais une feuille unique

 

Voilà, feedback apprécié :)

 

-MAJ : A la demande de GögøT, ajout de la sélection multiple de feuille

-MAJ 17/06/2010 : Merci à NOMUTT pour les corrections concernant la gestion des erreurs. J'ai rajouté aussi le contrôle du type de document ouvert pour s'assurer que c'est bien un dessin. En passant, ça fonctionne aussi avec des plans Autocad (l'espace objet est bien sur intouchable)[Edité le 17/6/2010 par gmassart]

 

[Edité le 10/9/2010 par gmassart]

[GögøT]

Merci pour cette petite macro qui fonctionne sans problème.

 

Par contre, il serait interessant de pouvoir sélectionner plusieurs feuilles à la fois.

 

On pourrait aussi passer par un bouton qui se trouverait dans le panneau

(avec ses p'tit copains).

 

Ce ne sont que des suggestions. ;)

 

Merci encore.

 

GöT

[Guillaume MASSART]

Alors

Plusieurs feuilles en même c'est bon j'ai fait la modification, par contre on ne voit pas le changement de page en direct live.

Je vais donc faire une option type "bouton radio" qui permet de dire si l'on souhaite supprimer une par une ou par lot.

En une par une, on pourra voir la feuille sélectionnée, en choix multiple non.

Je fais la modification et je rediffuse.

 

Pour le bouton, le soucis c'est que c'est interne à Inventor, ce n'est pas un add-in donc pas moyen de forcer la création d'un bouton quelque part, mais c'est jouable avec inventor (faudrait créer un icône...)

 

C'est à jour

 

[Edité le 16/6/2010 par gmassart]

[GögøT]

Formidable !!! Merci :D

[Guillaume MASSART]

MAJ (voir premier post)