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

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

圖1

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

圖2

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

圖3

二、對數(shù)控沖程序進行常規(guī)檢查  將程序編寫失誤降到最低

　　數(shù)控程序編寫完成后，其語法是否有誤，或是否存在一些常識性錯誤呢？如我公司使用的數(shù)控沖為意大利EUROTECNICA公司產(chǎn)品，其程序要求數(shù)值必須帶“.”，即數(shù)值為整數(shù)時必須以“.”結(jié)尾，比如將程序
　　…
　　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
　　…

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

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

　　類似以上的問題，能否不需要人工就能檢查出來呢。筆者同樣通過VB編寫了一款數(shù)控沖程序常規(guī)檢查的小軟件，圖4是小軟件的工作界面，其使用效果同樣不錯。

圖4

三、結(jié)束語

　　以上列舉了兩個例子，我們還可以用VB編寫自動生成對稱件或?qū)ν环N類型的零件輸入特征值后自動生成數(shù)控沖