Modification de plan en automatique

Bonjour,

J'ai fais une petite macro pour le boulot qui sert à ouvrir une boite de dialogue te donnant le choix entre plusieurs mise en plan avec cartouche (stocké sur le réseau) pour CATIA V5.
ça donne ça pour chaque format :

Private Sub A4_vertical_r18_Click()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = documents1.Open("I:\[...]\**.CATDrawing")

Unload Me

End Sub

Maintenant, j'essai d'intégrer une fonction modification de plan, pour que l'utilisateur, s'apercevant que sont plan est trop petit (ou trop grand), puisse le modifier sans perdre ce qu'il a fait.

N'arrivant pas à trouver ce que je veux sur le net je m'adresse à vous.

Merci d'avance de votre lecture et votre aide.
Drgonaar

Salut

J'ai regardé vite fait, car ça pourrait m'interesser aussi d'automatiser cette opération de changement de cartouche suivant la taille.


Déjà j'ai trouvé comment changer facilement la taille du plan.
drawingDocument1.Sheets.Item(1).PaperSize = catPaperA1


Par contre je te conseil d'utiliser "NewFrom" au lieu de "Open", ça va éviter que l'utilisateur écrase ton cartouche source en faisant enregistrer

Maintenant il faut toruver comment changer le cartouche et charger le nouveau à la place de l'ancien (et en même temps garder les infos du cartouche ça peut être bien utile au lieu de tout retaper, mais c'est pas le plus dur)

Merci Guss_ du coup j'ai commencé une userbox pour faire la modification

et avec
drawingDocument1.Sheets.Item(1).Orientation = catPaperLandscape ou portrait je peux contrôler l'orientation

Et merci aussi pour "NewFolder" ça m'a évité une prise de tête. ^^

On ce tient au jus de l'évolution