如何修改CATIA CatScript宏以捕获零件自定义视角截图？

原代码依赖CATIA中已有的相机视角，要实现自定义视角，我们可以直接创建新的相机对象并设置其三维视点参数，无需依赖现有相机。以下是修改后的代码，你可以根据需求调整视角参数：

Sub CATMain()
    Dim productDocument1 As Document
    Set productDocument1 = CATIA.ActiveDocument
    
    Dim specsAndGeomWindow1 As Window
    Set specsAndGeomWindow1 = CATIA.ActiveWindow
    Dim viewer3D1 As Viewer
    Set viewer3D1 = specsAndGeomWindow1.ActiveViewer
    
    ' 定义截图保存路径和格式
    Dim filelocation As String
    filelocation = "c:\Temporary\"
    Dim extension As String
    extension = ".jpg"
    
    ' --------------------------
    ' 自定义视角1：示例为右前方视角
    ' --------------------------
    Dim customCamera1 As Camera
    Set customCamera1 = productDocument1.Cameras.Add() ' 创建新相机
    Dim customViewpoint1 As Viewpoint3D
    Set customViewpoint1 = customCamera1.Viewpoint3D
    
    ' 设置相机位置（Eye）、目标点（Target）、向上向量（UpVector）
    ' 可根据需求修改这三个坐标值来调整视角
    customViewpoint1.Eye = CATIA.Measurable.CreatePoint(100, -100, 50)
    customViewpoint1.Target = CATIA.Measurable.CreatePoint(0, 0, 0) ' 零件中心
    customViewpoint1.UpVector = CATIA.Measurable.CreatePoint(0, 0, 1) ' Z轴向上
    
    ' 切换到自定义视角并截图
    viewer3D1.Viewpoint3D = customViewpoint1
    CATIA.ActiveDocument.Selection.Clear()
    viewer3D1.CaptureToFile 5, filelocation & "custom_right_front" & extension
    
    ' 删除临时相机（可选，避免CATIA中积累无用相机）
    productDocument1.Cameras.Remove(customCamera1)
    
    ' --------------------------
    ' 自定义视角2：示例为左后方视角
    ' --------------------------
    Dim customCamera2 As Camera
    Set customCamera2 = productDocument1.Cameras.Add()
    Dim customViewpoint2 As Viewpoint3D
    Set customViewpoint2 = customCamera2.Viewpoint3D
    
    customViewpoint2.Eye = CATIA.Measurable.CreatePoint(-100, 100, 50)
    customViewpoint2.Target = CATIA.Measurable.CreatePoint(0, 0, 0)
    customViewpoint2.UpVector = CATIA.Measurable.CreatePoint(0, 0, 1)
    
    viewer3D1.Viewpoint3D = customViewpoint2
    CATIA.ActiveDocument.Selection.Clear()
    viewer3D1.CaptureToFile 5, filelocation & "custom_left_back" & extension
    
    productDocument1.Cameras.Remove(customCamera2)
End Sub

关键参数说明 #

• Eye：相机的空间位置坐标，决定从哪个位置观察零件。
• Target：相机对准的目标点，通常设为零件的中心（0,0,0），也可根据需要调整到特定特征。
• UpVector：相机的向上方向，一般保持Z轴向上（0,0,1），如果需要倾斜视角可修改此值。

使用提示 #

1. 修改filelocation为你实际需要的保存路径，确保路径存在（CATIA不会自动创建文件夹）。
2. 调整Eye、Target、UpVector的坐标值来获得你想要的视角，可先在CATIA中手动调整视角，通过测量工具获取对应坐标后填入代码。
3. 重复代码块可添加更多自定义视角的截图逻辑。

内容的提问来源于stack exchange，提问作者Wan Syafiq