sw代码(sw代码目录ps4)

sw代码(sw代码目录ps4)

前沿拓展：

---

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

视频操作部分：视频讲解

学习要求：

☆向宏中怎么添加窗体

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

☆向窗体中添加控件

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

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

显示给用户的窗体

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

Private Sub cmdExit_Click()EndEnd Sub

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

Sub main()frmMacro1b.ShowEnd Sub

窗体的主程序代码：

Private Sub cmdBuild_Click()Dim swApp As ObjectDim Part As ObjectDim boolstatus As BooleanDim diameter As DoubleDim depth As Doublediameter = CDbl(txtDiameter.Text) / 1000depth = CDbl(txtDepth.Text) / 1000'Connect to SOLIDWORKSSet swApp = Application.SldWorksSet Part = swApp.ActiveDoc'Create a cylinder on Front Planeboolstatus = Part.Extension.SelectByID2("Front Plane", _"PLANE", 0, 0, 0, False, 0, Nothing, 0)Part.SketchManager.InsertSketch TrueDim skSegment As ObjectSet skSegment = Part.SketchManager.CreateCircleByRadius _(0, 0, 0, diameter / 2)Dim myFeature As ObjectSet 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

拓展知识：