Vba vue iso 3d

[XGX4]

Bonjour,

 

je cherche comment, dans ma fenetre 3d, je peux orienter mon modele 3d en vue iso.

 

si quelqu'un a une petite idée, elle serait la bien venue.

 

par avance merci

[XGX4]

Bonjour le forum!

 

J'ai la solution à mon problème, donc our ce que ça interesse:

Dim ActDoc As Document
Set ActDoc = CATIA.ActiveDocument
   
Dim camIsoView As Camera3D
   Set camIsoView = ActDoc.Cameras.Item("* iso")
   
   Dim objIsoViewPoint As Viewpoint3D
   Set objIsoViewPoint = camIsoView.Viewpoint3D
   
   Dim ActWin As Window
   Set ActWin = CATIA.ActiveWindow
   
   Dim ActViewer As Viewer3D
   Set ActViewer = ActWin.ActiveViewer
   
   ActViewer.Viewpoint3D = objIsoViewPoint