笨笨教新手之十——35行代码解决公式曲线输入.docxVIP

教程来源

从见到SW2001到学习2003一直到现在的2007，骚窝好像对公式曲线的输入一直不屑一顾。自己甚至为SW2005编写过一个小的插件——笨笨曲线，来进行这个工作。但是编写过程中发现90％的工作量都来自对用户输入的判读和安全运算，因此中途停止了开发工作。而且到了SW2006中发现API并不是全部兼容的，这样的工作量实在不是笨笨这个业余爱好者所能承受的。这次又见到这个问题，干脆把程序中最精华的代码写成宏，由有使用者自行直接更改代码来运行，一个三百多行代码的插件转眼间变成了一个只有35行代码的宏文件。虽然没有人机交互界面，但是功能却比原来强大了许多。

本教程下载：/discuz/thread-102121-1-1.html

教程目的：

使用最简单的方法解决Solidworks的公式曲线绘制问题，包括二维曲线、三维曲线，支持加减乘除、乘方、级数、对数、三角函数……所有数学运算。但是对于分段函数，由用户自己解决。

笨教程分为两个部分，前面讲述这个宏的使用方法，后面讲述宏的编写过程。

阅读需求：

简单的Solidworks2007应用基础，会用宏的基本操作，简单的VB6应用基础。这些都在笨笨的另一篇教程《笨笨教新手之八——最简单二次开发步骤》里面有所提到。

废话少说，先来实惠的。这是宏文件下载。笨笨写的宏文件，已经写了很详细的注释，大家下载后可以编辑成自己喜欢的公式然后运行得到曲线。

！！注意不适合分段函数，比如Y=1/X，这样的函数请分段分别求解！！

用法：

在图中两处代码中，＝后面输入相应的代码或方程式。凡是VB中支持的函数运算的表达方法都可以使用，包括加减乘除，乘方，三角函数，对数，甚至逻辑运算……使用方法用VB帮助来搜索就行了。需要高中的代数方程知识：

＿lili

＿

—工具m苍助卸

—

Dra沁om因「e...

女

女妃Worksxpbrer...

割

割

仑

仑新建凶

．II

．II

录制[BJ

耦辑（即袚图

如 严 勹 （芦叨）DintAsCur

如 严 勹 （芦叨）

DintAsCurency简化计算所用的参数变吕

（y_)

插入

||..,

~

I

I

灶）格式（Q)调试位）运行（＆）工且（I)外接程序（a)可口（心帮助（即

II■廷宅|怼台古穴I田1行17,列32

Di

DintltaxAsCurrencyDintltinAsCurrency

户运行(!.1).

停止占）．

lE:\young＼作品讶宅沮坻趴笨笨曲线宏伈r5W2007p2E:\young＼作品讶诏诏甘线＼Macrolp

E:\young＼作品臼芍氓B线＼test.S\VP

E:\young\Maero臣;wp

Submain()

,in

,intS

SetswAppApplication.SldYorksSetPart=SYApp.Ne,Part

SetPart=SYApp.ActlveDoc

，给定计算范围和精疫

霜言?2 《 在这里给从i曲弩嘉让礼这里匐入

tStep=0.1

n=Int((tnax-tllin)/tStep)

，开始运算并画图

SetSe丑lgr=Fart.SelectionllanagerPart.Insert3DSketch

Fart,SetPick日ode

ForttMinTotMaxSteptStcp

，给定公式

;:｝＾3+5+t仁－—－在这；沮址L沁叁找公式

z=0

Part.SketchSpline,n

n=nN

n=n

Nextt

4-

－

百 寸 1

百

x,y,z

凹

举例：二次变距的八字截面螺旋函数曲线

解：设XY为横截面，Z方向为螺距，使用曲线XY截面投影点与X轴夹角为参数t，x=10*Sin(2*t)

y=16*Cos(t)

z=0.1*t^2+1

将参数方程写入宏，参数t的范围取0－10，精度0.3。

下面来讲编写过程

第一步：取得应用函数及用法

打开Solidworks2007，首先打开宏的录制，对新建零件、插入3D草图、画三维样条曲线、退出草图的动作进行录制。完成后关闭宏的录制，打开编辑这个宏。这些请参考《笨笨教新手之八——最简单二次开发步骤》，使用编辑宏，打开刚刚录制的宏，找到画曲线的