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

Sub catmain()

Dim lView,lFact,Cl,C2,lSlct, lVisprp,lBView

'获取激活视图

Set lView =CATIA.ActiveDocument.Sheets.ActiveSheet.Views.ActiveView

'创建二维画笔

Set lFact = lView.Factory2D

'创建直线、圆、样条曲线等图元

Set Ln = lFact.CreateLine(0, 0, 200, 200)

set Cl =lFact.CreateClosedCircle(200,200,50)

'设置颜色、线宽、线型等属性

Set lSlct = CATIA.ActiveDocument.Selection

Set lVisprp = lSlct.VisProperties

set C2 =lFact.CreateClosedCircle(200,200,25)

lSlct.Add C2

lVisprp.SetRealColor 255,0,0, 1

lVisprp.SetRealWidth 5,1

lVisprp.SetRealLineType 3,1

lSlct.Clear

End Sub

以上代码所绘制的草图如下所示：