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

拓展知識：