1.连接Solidworks

’Dim swApp As Object
Set swApp = CreateObject (″SldWorks.Application″)‘

2.建立新的零件图、装配图

’Dim Part As Object
Set Part = swApp.newpart //建立新零件图‘

’Dim Assem As Object
Set Assem = swapp.NewAssembly //建立新装配图‘

3.插入草图

’ModelDoc.InsertSketch //在所选平面上插入草图‘

4.草图绘制指令

’ModleDoc.CreateLine2(xStart ,yStart ,zStart ,xEnd , yEnd , zEnd) //直线绘制指令‘

’ModelDoc.CreateCircle2(xc ,yc ,zc ,xp ,yp ,zp) //圆绘制指令‘
C点（xc ,yc ,zc）为圆心坐标
P点（xp,yp,zp）为圆上一点坐标