CATIA V5 | 3DEXPERIENCE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
-29%
Le deal à ne pas rater :
Pack Smartphone Google Pixel 8a 5G 128 Go + Ecouteurs Google Pixel
469 € 659 €
Voir le deal

Modification de plan en automatique

2 participants

Aller en bas

EnCours Modification de plan en automatique

Message par dragonaar Ven 29 Mar 2013 - 9:06

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. Smile
Drgonaar


Dernière édition par dragonaar le Ven 12 Avr 2013 - 13:58, édité 1 fois

dragonaar
timide
timide

Messages : 3
Date d'inscription : 29/03/2013
Localisation : ORMOY VILLERS

Revenir en haut Aller en bas

EnCours Re: Modification de plan en automatique

Message par Guss_ Ven 12 Avr 2013 - 13:43

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)

Guss_
Admin
Admin

Messages : 530
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

EnCours Re: Modification de plan en automatique

Message par dragonaar Ven 12 Avr 2013 - 15:10

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 Wink

dragonaar
timide
timide

Messages : 3
Date d'inscription : 29/03/2013
Localisation : ORMOY VILLERS

Revenir en haut Aller en bas

EnCours Re: Modification de plan en automatique

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum