Solidworks 二次开发第8课:向宏中添加用户窗体

如何根据使用者的要求，自动生成我们想要的模型或功能，例如：不同长度，不同高度的圆柱体，这个时候就要借助添加用户窗体的功能，让用户自行输入圆直径和高度，使用户可以和宏进行交互。

视频操作部分：视频讲解

学习要求：

☆向宏中怎么添加窗体

☆编辑用户窗体属性（窗体名称等）

☆向窗体中添加控件

☆为每个按钮添加单击事件

☆在用户界面添加退出宏程序按钮（这个视频中没做说明）

显示给用户的窗体

退出宏窗体按钮单击事件的程序

Private Sub cmdExit_Click()
End
End Sub

☆在宏中添加程序入口的代码

Sub main()
frmMacro1b.Show
End Sub

窗体的主程序代码：

Private Sub cmdBuild_Click()
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim diameter As Double
Dim depth As Double

diameter = CDbl(txtDiameter.Text) / 1000
depth = CDbl(txtDepth.Text) / 1000

'Connect to SOLIDWORKS
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

'Create a cylinder on Front Plane
boolstatus = Part.Extension.SelectByID2("Front Plane", _
"PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircleByRadius _
(0, 0, 0, diameter / 2)
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, _
False, False, 0, 0, depth, 0.01, False, False, False, _
False, 1.74532925199433E-02, 1.74532925199433E-02, False, _
False, False, False, True, True, True, 0, 0, False)
End Sub