|
第二步:更改宏
1、新建零件
这是从别人那里学来的方法,比自动生成的用起来更方便。
'建立新零件
Set swApp = Application.SldWorks
Set Part = swApp.NewPart
Set Part = swApp.ActiveDoc
2、声明部分
添加所需要的参数t及其范围和精度,计数器n,函数变量x,y,z的声明,注意数据类型的使用
'程序需要的变量声明
Dim n As Long 'SW曲线点的计数器
Dim x As Currency
Dim y As Currency
Dim z As Currency
Dim t As Currency '简化计算所用的参数变量
Dim tMax As Currency
Dim tMin As Currency
Dim tStep As Currency
3、运算和绘图部分
绘图部分只有一个函数,就是曲线的创建函数,通过运算得到各个点数值,并进行运算和绘图。整体采用最简单的循环语句,参数从小到大按照精度依次变化。
For t = tMin To tMax Step tStep
'给定公式
x = t
y = t ^ 3 + 5 + t ^ 2 - 1
z = 0
'绘图
Part.SketchSpline n, x, y, z
'循环计数
n = n - 1
Next t
第三步:调试
如果有报错,看看是否在运算过程中出现了分母为0的情况,也就是出现了函数的分段情况,适当更改函数的范围就可以了。 |
|