Assume the active window is a
SpecsAndGeomWindow object. This example retrieves the
Viewpoint2D of the
SpecsViewer and creates
from it a Camera2D you handle using the MyCamera variable.
Then the camera zoom is set to 2, and the
camera's viewpoint is assigned to the
SpecsViewer.
Dim MyCamera As Camera
Set MyCamera = CATIA.ActiveWindow.SpecsViewer.NewCamera()
MyCamera.Viewpoint2D.Zoom = 2
CATIA.ActiveWindow.SpecsViewer.Viewpoint2D = MyCamera.Viewpoint2D