Orienter une vue 3D en isométrique via VBA dans Catia V5

Mécanique et Industriel Catia
,
1

Comment orienter programmatiquement une vue 3D en mode isométrique (vue ISO) dans Catia V5 en utilisant du code VBA ?

2

Pour orienter une vue 3D de votre modèle Catia en mode isométrique via une macro VBA, vous devez manipuler les objets Camera3D et Viewpoint3D de la fenêtre active. Catia dispose de caméras prédéfinies, dont une pour la vue isométrique, accessible par son nom.

Voici la procédure détaillée et le code VBA à utiliser :

  1. Accéder au document actif et à la fenêtre 3D :
    Le script commence par récupérer le document Catia actuellement ouvert (CATIA.ActiveDocument) et la fenêtre active (CATIA.ActiveWindow).

  2. Identifier la caméra isométrique :
    Catia maintient une collection de caméras. La vue isométrique standard est généralement accessible via l’élément "* iso" de la collection Cameras du document. Cette caméra contient les propriétés de position et d’orientation nécessaires pour une vue isométrique.

  3. Appliquer le point de vue à l’afficheur 3D :
    Une fois le Viewpoint3D de la caméra isométrique récupéré, il suffit de l’assigner à la propriété Viewpoint3D de l’afficheur 3D (ActiveViewer) de la fenêtre active. Cela mettra à jour l’orientation de la vue dans la fenêtre.

Dim ActDoc As Document
Set ActDoc = CATIA.ActiveDocument

Dim camIsoView As Camera3D
' Récupère la caméra prédéfinie pour la vue isométrique
Set camIsoView = ActDoc.Cameras.Item("* iso")

Dim objIsoViewPoint As Viewpoint3D
' Récupère le point de vue (position et orientation) de cette caméra
Set objIsoViewPoint = camIsoView.Viewpoint3D

Dim ActWin As Window
Set ActWin = CATIA.ActiveWindow

Dim ActViewer As Viewer3D
' Récupère l'afficheur 3D de la fenêtre active
Set ActViewer = ActWin.ActiveViewer

' Applique le point de vue isométrique à l'afficheur 3D
ActViewer.Viewpoint3D = objIsoViewPoint

Bonnes pratiques :

  • Assurez-vous qu’un document 3D (Part, Product, etc.) est bien ouvert et actif avant d’exécuter ce code, sinon CATIA.ActiveDocument pourrait retourner une erreur.
  • Le nom "* iso" est un standard Catia pour la vue isométrique. Si votre environnement est fortement personnalisé, vérifiez que cette caméra existe toujours ou adaptez le nom si nécessaire.
  • Ce code est générique pour Catia V5 et devrait fonctionner sur la plupart des révisions (R19, R20, R21, etc.) tant que l’API VBA reste cohérente pour ces objets.