Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set cameras1 = partDocument1.Cameras

Set camera3D1 = cameras1.Item("Camera   2")

Set viewpoint3D1 = camera3D1.Viewpoint3D

Set specsAndGeomWindow1 = CATIA.ActiveWindow

Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

viewer3D1.Viewpoint3D = viewpoint3D1

End Sub