ビューを新規に作成するだけ

え～、Drawのアクティブなシートにビューを新規に作成するだけのマクロです。
たったそれだけです・・・。

'vba addMemoView_ver0.0.1  using-'KCL0.1.0'  by Kantoku

Option Explicit

Private Const VIEWNAME = "Memo"

Sub CATMain()

    ' ﾄﾞｷｭﾒﾝﾄのﾁｪｯｸ
    If Not CanExecute("DrawingDocument") Then Exit Sub
    
    ' viewチェック
    If isExistView(VIEWNAME) Then Exit Sub
    
    ' view作成
    Call initView(VIEWNAME)
    
End Sub

Private Sub initView( _
    ByVal name As String)
    
    Dim sheet As DrawingSheet
    Set sheet = CATIA.ActiveDocument.Sheets.ActiveSheet
    
    Dim vis As DrawingViews
    Set vis = sheet.views
    
    Dim vi As DrawingView
    Set vi = vis.Add(name)
    
    With vi
        .x = 0
        .y = 0
        .[Scale] = sheet.Scale
        .Activate
    End With
    
End Sub

Private Function isExistView( _
    ByVal name As String) _
    As Boolean

    isExistView = True
    
    Dim vis As DrawingViews
    Set vis = CATIA.ActiveDocument.Sheets.ActiveSheet.views
    
    Dim vi As DrawingView
    For Each vi In vis
        If vi.name = name Then
            MsgBox "view [" & name & "] は存在しています!"
            Exit Function
        End If
    Next
        
    isExistView = False
    
End Function