VBA plan projection vue catdrawing

[qumale07]

Bonjour,

pour mon boulot j'ai une macro qui me permet de faire une mise en plan automatique.

Celle ci permet également de faire une vue dépliée (pièce faite avec sheetmetal) de ma pièce.

Jusqu'à aujourd’hui cette vue dépliée utilisée un des trois plans XY, YZ, ZX.

Je voudrais remplacer ce choix par la sélection d'une face ou d'un plan pour créer ma vue.

Dans la macro ci-dessous je parviens à les sélectionner mais dans ce cas la face choisie est toujours projetée suivant la face qui a servie à l'esquisse (du moins il me semble).

C'est à dire que je n'arrive pas à projeter suivant la face de dessous par exemple.

Contrairement à l'icône Catia dans la mise en plan qui va créer la vue suivant la face sélectionnée dans le 3D.

Quelqu'un peut-il me dire ce qu'il manque à mon programme pour obtenir la même chose.

Merci par avance.

 

Public mydraw As DrawingDocument, mysheet, myview, myplandoc As Document
Public Document As PartDocument

Sub CATMain()
'macro qui demande de sélectionner une face ou un plan
'recupération des coordonnées des 2 axes
'creation de la vue dans draw

Dim Status
Dim BiDimFeature
Dim selection1 'As Selection

   Set mydraw = CATIA.ActiveDocument
   Set mysheet = mydraw.Sheets.Item(1)
   Set myview = mysheet.Views.Item(3)
   Set myplandoc = myview.GenerativeBehavior.Document.Parent
   
   Plan_projection.Show
   Unload Plan_projection
   
       myplandoc.Activate

   Set selection1 = myplandoc.Selection
   
Dim InputObjectType(1)
InputObjectType(0) = "Plane"
InputObjectType(1) = "PlanarFace"

selection1.Clear

Status = selection1.SelectElement2(InputObjectType, "Selectionner le plan de projection", True)
If (Status = "Cancel") Then Exit Sub

Set BiDimFeature = selection1.Item(1).Value
' Dim AutomationType

Dim v1(2), v2(2)
BiDimFeature.GetFirstAxis v1
BiDimFeature.GetSecondAxis v2


MsgBox v1(0) & ";" & v1(1) & ";" & v1(2) & "+" & v2(0) & ";" & v2(1) & ";" & v2(2)

mydraw.Activate

Dim DrawingFrontView, DrawingViewGenerativeBehavior As DrawingViewGenerativeBehavior

Set DrawingFrontView = mysheet.Views.Add("Front View")
Set DrawingViewGenerativeBehavior = DrawingFrontView.GenerativeBehavior
    DrawingViewGenerativeBehavior.Document = myplandoc.Product
    DrawingViewGenerativeBehavior.DefineFrontView v1(0), v1(1), v1(2), v2(0), v2(1), v2(2)
    DrawingFrontView.X = 300
    DrawingFrontView.Y = 150
   DrawingViewGenerativeBehavior.Update

selection1.Clear


End Sub