练习1-3 在VBA窗体中添加用户输入域

1.训练目标

使用用户给出的参数自动创建特征。在运行宏前，将从用户获得两个参数：Radius和Depth。在代码中，变量被声明为string型，需要将其转换为double型才能传递给调用的方法。当用户单击按钮时，程序应该自动创建用户定义的圆柱体，如图1-23所示。

图1-23 添加用户输入域

2.使用的功能

● 在窗体上添加文本框控件。

● 声明变量，转换文本框内的值。

● 调试代码。

3.用到的API

● SldWorks.ActiveDoc

● ModelDocExtension.SelectByID2

● SketchManager.InsertSketch

● SketchManager.CreateCircleByRadius

● FeatureManager.FeatureExtrusion2

4.操作步骤

1）在SOLIDWORKS软件中打开新的零件文件。

2）编辑上一练习中创建的宏。

3）插入第2个用户窗体。

4）拖放3个标签、2个文本框和2个命令按钮到窗体上。

5）从第1个窗体上的1个按钮中剪切宏代码，并将其粘贴到第2个窗体中

扫码看视频

Build按钮的单击事件程序中。

6）修改入口点程序以显示第2个窗体。

7）添加代码转换从文本框中获得的值，传递给API调用，创建1个圆及拉伸凸台。

8）删除宏代码中多余的行。

9）在Build按钮的单击事件程序入口添加断点。

10）单步调试宏。测试第2个窗体加载是否正常及各个控件工作是否正常。

5.程序解答