[RESOLU] Lancer une fonction Catia à partir d'une macro
2 participants
Page 1 sur 1
[RESOLU] Lancer une fonction Catia à partir d'une macro
Bonjour,
Catia V5R19
J'ai crée une macro de remplissage de cartouches, qui va chercher les champs texte le remplis dans des textbox de mon form et les renvoie dans les champs textes dès que modifiés.
J'ai 4 catdrawing de trame : cartouche A0 / cartouche A1 / cartouche A2 / cartouche A3
Voila mon problème :
Lorsque je suis dans un cartouche format A0 par exemple je veux passer en A1, il existe une fonction dans catia : Fichier => Mise en page (page setup)
J'aimerais pouvoir l'appeler à partir de ma macro.
Comment dois-je faire?
Merci pour vos réponses
Catia V5R19
J'ai crée une macro de remplissage de cartouches, qui va chercher les champs texte le remplis dans des textbox de mon form et les renvoie dans les champs textes dès que modifiés.
J'ai 4 catdrawing de trame : cartouche A0 / cartouche A1 / cartouche A2 / cartouche A3
Voila mon problème :
Lorsque je suis dans un cartouche format A0 par exemple je veux passer en A1, il existe une fonction dans catia : Fichier => Mise en page (page setup)
J'aimerais pouvoir l'appeler à partir de ma macro.
Comment dois-je faire?
Merci pour vos réponses
Dernière édition par Ulrick le Ven 25 Sep 2015 - 10:34, édité 2 fois
Ulrick- timide
- Messages : 9
Date d'inscription : 18/09/2015
Localisation : 91
Re: [RESOLU] Lancer une fonction Catia à partir d'une macro
ci joint un bout de code qui va t'aider
- Code:
Public displayFormat As String 'Format de feuille selon le standard
Public sheetFormat As catPaperSize 'Format de feuille au format integer
'********************************************************************************
' Calcul des valeurs standards
'********************************************************************************
Hauteur = DrwSheet.GetPaperHeight
Largeur = DrwSheet.GetPaperWidth
sheetFormat = DrwSheet.PaperSize
displayFormat = "A" + CStr(sheetFormat - 2)
MargeG = 9 ' Valeur de la Marge Gauche par defaut
MargeD = 9 ' Valeur de la Marge Droite par defaut
MargeH = 9 ' Valeur de la Marge Haute par defaut
MargeB = 9 ' Valeur de la Marge Basse par defaut
If (sheetFormat = catPaperA0 Or sheetFormat = catPaperA1 Or sheetFormat = catPaperUser And _
(DrwSheet.GetPaperWidth > 594 Or DrwSheet.GetPaperHeight > 594)) Then
MargeG = 12
MargeD = 12
MargeH = 12
MargeB = 12
End If
'**************************************************************************************
'Détection de l'orientation du format
'**************************************************************************************
OrientationDrawing = DrwSheet.Orientation
Select Case OrientationDrawing
Case 1
Orientation = "H" ' cas 1 = orientation horizontale
Case 0
Orientation = "V" ' cas 2 = orientation verticale
End Select
Re: [RESOLU] Lancer une fonction Catia à partir d'une macro
Merci pour la réponse,
En fait je cherche plus à lancer la fonction de Catia qui permet d'aller chercher tout le fond de calque d'un fichier extérieur et remettre en forme le calque au format choisis.
En fait je cherche plus à lancer la fonction de Catia qui permet d'aller chercher tout le fond de calque d'un fichier extérieur et remettre en forme le calque au format choisis.
Ulrick- timide
- Messages : 9
Date d'inscription : 18/09/2015
Localisation : 91
Re: [RESOLU] Lancer une fonction Catia à partir d'une macro
J'ai trouvé la réponse,
La fonction est :
La fonction est :
- Code:
CATIA.StartCommand ("Mise en page...")
Ulrick- timide
- Messages : 9
Date d'inscription : 18/09/2015
Localisation : 91
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|