第三步：整理代碼
　　首先存盤，防止調(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的安裝位置有關(guān)聯(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幫助主題。
 

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

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

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