[RESOLU] Lancer une fonction Catia à partir d'une macro

Voir le sujet précédent Voir le sujet suivant Aller en bas

R?solu [RESOLU] Lancer une fonction Catia à partir d'une macro

Message par Ulrick le Ven 18 Sep 2015 - 20:07

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 Smile


Dernière édition par Ulrick le Ven 25 Sep 2015 - 20:34, édité 2 fois

Ulrick
timide
timide

Messages : 9
Date d'inscription : 18/09/2015
Localisation : 91

Revenir en haut Aller en bas

R?solu Re: [RESOLU] Lancer une fonction Catia à partir d'une macro

Message par xorman le Mar 22 Sep 2015 - 1:00

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
avatar
xorman
actif
actif

Messages : 95
Date d'inscription : 06/09/2008
Age : 40
Localisation : Cherbourg

http://www.myimpression3d.com

Revenir en haut Aller en bas

R?solu Re: [RESOLU] Lancer une fonction Catia à partir d'une macro

Message par Ulrick le Mer 23 Sep 2015 - 2:51

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.


Ulrick
timide
timide

Messages : 9
Date d'inscription : 18/09/2015
Localisation : 91

Revenir en haut Aller en bas

R?solu Re: [RESOLU] Lancer une fonction Catia à partir d'une macro

Message par Ulrick le Ven 25 Sep 2015 - 20:28

J'ai trouvé la réponse,

La fonction est  :
Code:
CATIA.StartCommand ("Mise en page...")

Ulrick
timide
timide

Messages : 9
Date d'inscription : 18/09/2015
Localisation : 91

Revenir en haut Aller en bas

R?solu Re: [RESOLU] Lancer une fonction Catia à partir d'une macro

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

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