第三步：整理代碼
　　首先存盤，防止調試過程中死機帶來的損失。
　　然后雙基左上角"工程"窗口中的"模塊"下我們剛剛建立的那個宏，來顯示代碼。在"Sub main()"下面一行添加"Sub main()"，讓程序運行后首先顯示剛剛創建的窗口。然后選中"Sub main()"到最后一個"end"之間的所有屬于宏的代碼，并剪切。這樣宏代碼就剩下下面的三句。(分隔線上面的聲明代碼不要動)
 

　　工程窗口雙擊"UserForm1"，顯示創建的窗口，再雙擊按鈕，VB會自動建立按鈕點擊事件的代碼：
　　Private Sub CommandButton1_Click()
　　End Sub
　　我們把剛才宏的所有代碼先粘貼過來。通過命令的單詞意思我們可以判斷，前七句是用來創建新零件的，我們觀察第6句，發現這種創建方法與SW的安裝位置有關聯，所以我們使用下面三句通用的創建零件方法來替代這些代碼(忘了是哪位大俠教給笨笨的了，抱歉)。
　　Set swApp = Application.SldWorks
　　Set Part = swApp.NewPart
　　Set Part = swApp.ActiveDoc
　　繼續往下讀，目的是找到創建圓柱體的命令代碼。判斷的依據是命令的英文詞意，再建模的時候我們做了兩件事情：創建草圖和拉伸。在下面的代碼中有兩個命令：Part.CreateCircle和Part.FeatureManager.FeatureExtrusion，然后打開SW幫助菜單中的API幫助主題。
 

　　搜索這兩個命令的用法，這樣我們就在宏編輯功能的幫助下了結了我們需要的指令代碼的用法。
 

　　第四步：編寫程序
　　下面的事情就是編程的事了，笨笨的程序里面利用我們上面找到的圓柱體的建模命令來創建一個圓柱陣列，圓柱的高度按照正弦變化，圓柱的位置處在一個圓圈上。編程的思路就是利用循環語句，進行變量運算，然后將變量值付給建模的參數，讓建立的圓柱模型的位置(草圖圓的位置)和高度(拉伸特征的長度和方向)發生變化。別忘了保存，然后執行這個宏。宏代碼和執行結果代碼如下：
 

投稿或有疑問請聯系：MSN：kangta868@hotmail.com  QQ：1090219530