カレントビューの角度や生成スタイルの取得

「ビューの角度や生成スタイルの変更」について、御質問頂きました。

変更についてのサンプルコードは書きにくいため、カレントビュー情報を
幾つか表示するサンプルコードを作ってみました。

Sub CATMain()
    
    Dim msg As String
    Dim pi As Double: pi = 4 * Atn(1)
    
    'ﾄﾞｷｭﾒﾝﾄ
    Dim dwDoc As DrawingDocument
    Set dwDoc = CATIA.ActiveDocument
    
    'ｶﾚﾝﾄﾋﾞｭｰ : 名前の変更はnameﾌﾟﾛﾊﾟﾃｨに代入
    Dim actVi As DrawingView
    Set actVi = dwDoc.Sheets.ActiveSheet.views.ActiveView
    msg = "ﾋﾞｭｰ名 : " & actVi.Name
    
    '角度 : 変更はangleﾌﾟﾛﾊﾟﾃｨに代入(単位ﾗｼﾞｱﾝで!)
    msg = msg & vbCrLf & _
        "角度 : " & Round(actVi.angle * (180 / pi), 3) & "deg"
    
    'ｽｹｰﾙ : 変更はscaleﾌﾟﾛﾊﾟﾃｨに代入
    msg = msg & vbCrLf & _
        "ｽｹｰﾙ : " & actVi.Scale
    
    'ｽﾀｲﾙ : 変更は、恐らくSetGPSNameﾒｿｯﾄﾞ
    Dim behv As DrawingViewGenerativeBehavior
    Set behv = actVi.GenerativeBehavior
    msg = msg & vbCrLf & _
        "ｽﾀｲﾙ(のﾌｧｲﾙ名) : " & behv.GetGPSName
    
    '参照している3Dﾄﾞｷｭﾒﾝﾄ : 変更は、下記にｻﾝﾌﾟﾙｺｰﾄﾞ有り
    'http://kantoku.hatenablog.com/entry/2018/12/19/183339
    msg = msg & vbCrLf & _
        "参照ﾄﾞｷｭﾒﾝﾄ : " & behv.Document.Parent.FullName
    
    
    MsgBox msg, , "** ｶﾚﾝﾄﾋﾞｭｰ情報 **"
    
End Sub