SolidWorks螺纹滚道旋风铣削多刀具渐进成形模拟仿真与分析(7)
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）为线段两端点
上一篇：接触式平动换卷薄膜收卷机设计