Sub main
'***Deklarationen***
    Dim oPart As Document
    Dim oPara As Parameters
    Dim CamPoints(2)
    Dim DestPoints(2)
    Dim Origin(2)
    Dim oCams As Cameras
    Dim myCam As Camera
    Dim myViewPoint As Object
    Dim MeinPunkt
    Dim oViewer As Viewer
    Dim Koord (2) As CATSafeVariant
  
'***oViewer für View update holen***
    Set oViewer = CATIA.ActiveWindow.ActiveViewer
    
'***Parameter holen (Orgin Point Cams)***
    Set oPart = CATIA.ActiveDocument
    Set oPara = oPart.Part.Parameters
    Set MeinPunkt = oPara.HybridShape.Point
    CamPoints(0) = oPara.GetItem("Koordinaten der Kameras\X-Koordinate der Kamera 1").Value
    CamPoints(1) = oPara.GetItem("Koordinaten der Kameras\Y-Koordinate der Kamera 1").Value
    CamPoints(2) = oPara.GetItem("Koordinaten der Kameras\Z-Koordinate der Kamera 1").Value
    
    DestPoints(0) = oPara.GetItem("Koordinaten der Kameras\Viewpoints\Kamera 1\SightDirectionX").Value
    DestPoints(1) = oPara.GetItem("Koordinaten der Kameras\Viewpoints\Kamera 1\SightDirectionY").Value
    DestPoints(2) = oPara.GetItem("Koordinaten der Kameras\Viewpoints\Kamera 1\SightDirectionZ").Value

    Koord = MeinPunkt.GetCoordinates("Kamera 1\Punkt.10")


'***Kameras holen (In Schleife falls mehrere Kameras vorhanden sind)***
    Set oCams = oPart.Cameras
    Set myCam = oCams.Item("Camera   1")
    Set myViewPoint = myCam.Viewpoint3D

'***Werte uebergeben***
    myViewPoint.PutOrigin CamPoints
    myViewPoint.PutSightDirection DestPoints
    myViewPoint.PutUpDirection Koord

    'myViewPoint.ProjectionMode = catProjectionConic
    'myViewPoint.FieldOfView = 10

'***View aktualisieren***
    oViewer.Viewpoint3D = myViewPoint
    oViewer.Reframe

End sub