如何用宏关闭CATIA工程图中的Display View Frame

CATIA宏录制确实会漏掉部分视图属性操作，直接用VBA调用API就能解决这个问题，以下是可行的代码：

Sub DisableViewFrame()
    Dim drawingDoc As DrawingDocument
    Dim sheet As DrawingSheet
    Dim view As DrawingView
    
    ' 获取当前打开的工程图文档
    Set drawingDoc = CATIA.ActiveDocument
    ' 获取当前激活的图纸页
    Set sheet = drawingDoc.ActiveSheet
    
    ' 遍历图纸页上的所有视图，找到轴测视图
    For Each view In sheet.Views
        ' 判断是否为轴测视图（通过ProjectionType区分，2对应轴测）
        If view.ProjectionType = catProjectionAxonometric Then
            ' 取消Display View Frame激活状态
            view.DisplayFrame = False
            Exit For ' 找到目标视图后退出循环，若有多个轴测视图可删除此行
        End If
    Next view
    
    ' 刷新文档
    drawingDoc.Update
End Sub

代码说明： #

• 先获取当前激活的工程图和图纸页
• 通过遍历视图，利用ProjectionType属性识别轴测视图（catProjectionAxonometric对应值为2）
• 直接设置view.DisplayFrame = False来关闭视图框显示
• 如果你的工程图里有多个轴测视图，删除Exit For就能批量关闭所有轴测视图的视图框

使用方法： #

1. 打开CATIA并加载目标工程图
2. 按Alt + F8打开宏管理器，点击新建
3. 将上述代码粘贴到宏编辑器中，保存并运行

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