Dim f As Double                    f为进给量，单位m
    Dim π As Double
π = 3.1415926535
在代码起始部分需要对使用到得变量进行定义和赋予初始值。而且需要注意的是在对话窗口中，输入的各数值单位是毫米和角度，在代码中，标准的单位是米和弧度，所以需要编写计算式后，才能直接使用，而且VB程序中没有对圆周率π进行定义，未进行赋初值的常量系统均赋予其初值0，所以此处要对π定义并赋值。
        a = Val(TextBox1.Text) / 1000
        b = Val(TextBox2.Text) * π / 180
        c = Val(TextBox3.Text) / 1000
        d = Val(TextBox4.Text) / 1000 + c
e = 2 * π * Val(TextBox7.Text) / (Val(TextBox6.Text) * Val(TextBox8.Text))
        f = -Val(TextBox5.Text) * Val(TextBox7.Text) / (1000 * Val(TextBox6.Text) * Val(TextBox8.Text))        定义主要变量并赋值
Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Set SelMgr = Part.SelectionManager
        boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    Part.SketchManager.InsertSketch True
    Part.ClearSelection2 True
    Dim SkCircle As Object
Set SkCircle = Part.SketchManager.CreateCircle(0, 0, 0, 0, a, 0)
画出圆点为（0，0，0），半径为a的圆，如图4.1所示
 
图4.1  画出圆点为（0，0，0），半径为a的圆
    Part.ClearSelection2 True
    Part.SketchManager.InsertSketch True
    Part.ShowNamedView2 "*上下二等角轴测", 8
    Part.ClearSelection2 True
        boolstatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.FeatureManager.FeatureExtrusion2 True, False, False, 0, 0, 0.1, 0, False, False, False, False, 0, 0, False, False, False, False, 1, 1, 1, 0, 0, False                如图4.2所示，进行拉伸，形成长度100mm的圆柱体
 
图4.2  拉伸圆柱体
    Part.SelectionManager.EnableContourSelection = 0
        boolstatus = Part.Extension.SelectByID2("", "FACE", 0, a, 0, True, 0, Nothing, 0)
    Part.InsertAxis2 True
        boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    Part.SketchManager.InsertSketch True
    Part.ClearSelection2 True
    Dim SkLine As Object
Set SkLine = Part.SketchManager.CreateLine(-0.04, 0.03, 0, -0.04, -0.03, 0)
如图4.3所示，画建立基准面1的辅助线，（-0.04,0.03,0）和（-0.04,0.03,0）为线段两端点 SolidWorks螺纹滚道旋风铣削多刀具渐进成形模拟仿真与分析(7):http://www.751com.cn/jixie/lunwen_8056.html