Modification de plan en automatique
2 participants
Page 1 sur 1
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
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
Dernière édition par dragonaar le Ven 12 Avr 2013 - 13:58, édité 1 fois
dragonaar- timide
- Messages : 3
Date d'inscription : 29/03/2013
Localisation : ORMOY VILLERS
Re: Modification de plan en automatique
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)
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)
Guss_- Admin
- Messages : 530
Date d'inscription : 08/01/2010
Re: Modification de plan en automatique
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
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
dragonaar- timide
- Messages : 3
Date d'inscription : 29/03/2013
Localisation : ORMOY VILLERS
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|