sw代碼(sw代碼目錄ps4)

sw代碼(sw代碼目錄ps4)

前沿拓展：

---

如何根據(jù)使用者的要求，自動(dòng)生成我們想要的模型或功能，例如：不同長(zhǎng)度，不同高度的圓柱體，這個(gè)時(shí)候就要借助添加用戶窗體的功能，讓用戶自行輸入圓直徑和高度，使用戶可以和宏進(jìn)行交互。

視頻操作部分：視頻講解

學(xué)習(xí)要求：

☆向宏中怎么添加窗體

☆編輯用戶窗體屬性（窗體名稱等）

☆向窗體中添加控件

☆為每個(gè)按鈕添加單擊事件

☆在用戶界面添加退出宏程序按鈕（這個(gè)視頻中沒做說明）

顯示給用戶的窗體

退出宏窗體按鈕單擊事件的程序

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&39;Connect to SOLIDWORKSSet swApp = Application.SldWorksSet Part = swApp.ActiveDoc&39;Create a cylinder on Front Planeboolstatus = Part.Extension.SelectByID2(&34;Front Plane&34;, _&34;PLANE&34;, 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.74532925199433E02, 1.74532925199433E02, False, _False, False, False, True, True, True, 0, 0, False)End Sub

拓展知識(shí)：