如何用vb程序在CATIA二维图中生成新的视图

我想在这个视图中加入一些文字（文字也是在程序中生成的），当我移动视图是其中的所有文字都一起跟着移动

已经找到方法了，通过录制宏可以得到其生成代码，修改一下代码就可以得到了

Set drwDocument = CATIA.ActiveDocument

Set DrwSheets   = DrwDocument.Sheets

Set drwSheet = drwSheets.ActiveSheet

Set drwViews = drwSheet.Views

Set drwView = drwViews.Add("附注")

Set drwViewGenerativeBehavior = drwView.GenerativeBehavior

drwViewGenerativeBehavior.DefineFrontView 1.000000, 0.000000, 0.000000, 0.000000, 1.000000, 0.000000

drwView.x = 340.

drwView.y = 424.
text_100="注：1                                  "

Dim double1
double1 = drwSheet.Scale

drwView.Scale = 1.000000

drwView.Activate

Set drwView = drwSheet.Views.ActiveView

Set Text = drwView.Texts.Add(text_100, 0., 0.)
                  
  CATFormatTBText "TitleBlock_Text_Techer"      ,catBottomLeft  ,   4
这是生成新视图的代码，并在视图中加入了“注”