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

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

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

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

投稿或有疑問請聯(lián)系：MSN：kangta868@hotmail.com  QQ：1090219530