作者：skxx   日期：2008年10月1日    來源：中國數控信息網  

筆者在Visual Basic應用方面做了一些有益的探索，并且在實踐中收到了實效，現將幾個實例介紹如下，希望能夠起到拋磚引玉之作用。

一、自動生成零件旋轉后的程序 提高零件排版套裁靈活性

                               圖1

在實際加工過程中，經常遇到同一個零件需要按不同的方位排版，以提高材料的利用率情況。例如，圖1所示的排版方式肯定比圖2所示的排版節省材料，而在編程序時，如果按圖2的方式排版，只需要編一個數控沖程序即可完成圖2的排版方式，而如果按圖1的方式排版，則要編A、B兩個數控沖程序才能完成圖1的排版方式。

                                       圖2

編A、B兩個數控沖程序顯然比較費時，在實際加工中要遠比此復雜，有沒有可能只編一個程序而通過某種方式得到另一個程序呢？筆者通過VB編寫了一款數控沖程序旋轉件自動生成的小軟件，圖3是小軟件的工作界面。通過輸入旋轉角度后，可以自動生成將零件旋轉任意角度后的數控沖程序，并且生成的程序可以直接拷入設備使用，極大地提高了工作效率。

                             圖3

二、對數控沖程序進行常規檢查  將程序編寫失誤降到最低

數控程序編寫完成后，其語法是否有誤，或是否存在一些常識性錯誤呢？如我公司使用的數控沖為意大利EUROTECNICA公司產品，其程序要求數值必須帶“.”，即數值為整數時必須以“.”結尾，比如將程序

　　…

　　N50  G72  X50.  Y50.  C60.  T8  （其中T8為模具號）

　　N60  G86  I20.  J60.  G41     （其中I值為模具加工的輪廓長度）  

　　…

　　誤寫成

　　…

　　N50  G72  X50  Y50.  C60.  T8   （注意：此段中X值中沒有“.”）

　　N60  G86  I20.  J60.  G41

　　…

則設備在執行過程中將把X值作為0處理，而不是作為50處理。

仍以上述程序為例，如果模具為30mm×30mm的正方形模具，顯然不能加工長度為20的輪廓。

以上列舉了兩個例子，我們還可以用VB編寫自動生成對稱件或對同一種類型的零件輸入特征值后自動生成數控沖程序……實際上，現在的數控加工設備越來越普遍，VB不僅僅在數控沖的程序編寫中可以發揮作用，在其他的數控設備的程序編寫中同樣可以發揮重要的作用。筆者也有此經驗（如我公司引進德國ELUMATEC公司的型材加工中心等），我們不能僅僅只滿足于掌握設備制造商提供的軟件使用上，因為制造商提供的軟件具有普遍性，如果能夠將VB與數控設備的編程有機結合起來，無異于如虎添翼。本文談的是VB在數控沖程序編寫中的應用，實際上VC或其他的語言同樣也可以達到此目的，并且在其他的數控設備中同樣可以發揮重要作用，希望此文對使用數控設備的同行能夠有借鑒意義。