筆者在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編寫了一款數控沖程序常規檢查的小軟件，圖4是小軟件的工作界面，其使用效果同樣不錯。

圖4

三、結束語

　　以上列舉了兩個例子，我們還可以用VB編寫自動生成對稱件或對同一種類型的零件輸入特征值后自動生成數控沖