在CATIA工程图中制作标题栏、明细表时均需进入CATIA工程图的背景模式中（Sheet Background）。以下代码为在CATIA中使用VBA（VBS）二次开发在工程图背景图中创建草图文字的方法。

Sub catmain()Dim lBView,lFact,lTexts,Ln,lViewDim LH,LW,TxSet lView = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.ActiveViewSet lBView = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.Item("Background View")Set lTexts = lBView.TextsSet lFact = lBView.Factory2D'获取图纸的尺寸LH = CATIA.ActiveDocument.Sheets.ActiveSheet.GetPaperHeightLW = CATIA.ActiveDocument.Sheets.ActiveSheet.GetPaperWidth'激活背景视图lBView.ActivateTx=LW-100'绘制直线Set Ln = lFact.CreateLine(Tx, 0, Tx, 30) Set Ln = lFact.CreateLine(Tx, 30, LW, 30)'绘制文字lFont = "FAWFONT"Set Lt = lTexts.Add("www.leanwind.com", Tx, 30)'设置文字位置Lt.AnchorPosition = catTopLeft'设置字体Lt.SetFontName 0, 0, lFont'设置文字大小Lt.SetFontSize 0,0,10'取消背景图激活，返回普通视图lView.ActivateEnd Sub

以上代码所创建的效果如下所示：

使用以上方法即可通过二次开发来创建CATIA工程图的标题栏、BOM标、图框等。关于草图元素的绘制及属性设置方法详细介绍可参考《CATIA使用VBA（VBS）二次开发在工程图激活的视图中绘制草图》。