在CATIA中使用VBA（VBS）进行二次开发，可通过如下代码在工程图激活的视图中创建文字：

Sub catmain()Dim lView,lTexts,lFont,LtSet lView = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.ActiveViewSet lTexts = lView.TextslFont = "FAWFONT"Set Lt = lTexts.Add("www.leanwind.com", 10, 20)'设置文字位置Lt.AnchorPosition = catTopLeft'设置字体Lt.SetFontName 0, 0, lFont'设置文字大小Lt.SetFontSize 0,0,10End Sub

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