一、功能和工藝要求
1.接受常見的平面矢量圖形文件,如PLT,DXF。
2.處理圖形加工的先后順序,及加工方向。
3.能簡單處理圖形,如選擇,旋轉,平移,鏡像,復制,排列等。
4.可手動調試設備,及檢測輸入輸出。
5.加工控制能調節(jié)速度,需要暫停,繼續(xù),中斷等控制。
6.加工需要顯示時度,時間,位置等部分用戶信息
7.可設定加工工作原點,激光開關控制(此處不關心激光能量調節(jié))
二、系統(tǒng)流程
三、使用函數(shù)
手動調試需要完成的功能:輸入輸出測試,手動驅動脈沖,檢測運行狀態(tài),停止動作,找機械原點:
對應的函數(shù)調為:
d1000_out_bit 數(shù)字輸出函數(shù),可控制激光的開啟或關閉
d1000_get_in_bit 讀輸入口狀態(tài)
d1000_start_tr_move 手動發(fā)脈沖,可使用單軸點位運行
d1000_check_done 檢測運動狀態(tài)函數(shù)
d1000_decel_stop 停止脈沖輸出(減速停較好)
d1000_home_move 單軸找原點函數(shù)
d1000_home_move_all 多軸找原點函數(shù)
d1000_board_init 控制卡初始化
d1000_board_close 控制卡釋放
位置顯示及清除需要的函數(shù):
d1000_get_abs_position 取得絕對位置
d1000_set_position 設定位置函數(shù),當值為0時位置清除
加工控制需要的函數(shù):
d1000_start_ta_line2 兩軸插補函數(shù)
d1000_set_vector_profile 設定矢量插補速度
d1000_change_speed 速度改變速度
四、核心部分的編程
在實際編程當中,有較多細節(jié)需要解決:
1.需要考慮響應加工暫停,繼續(xù),中斷的操作,位置顯示等
2.暫停后XY位置需要記錄,有可能XY被手動移開
3.加工完整個圖形,需要回到一停止位置,以便取料
4.開激光關激光,需要考慮激光的反應時間
5.在實際應用當中,當激光未開啟時,為提高速度,可直接采用點位運動
6.需要需要速度的調節(jié)處理
注意:以下代碼只體現(xiàn)只實用的編程思想,不會能通過編譯器的編譯
const UINT NORUN =0x0000; //空閑,或中斷狀態(tài)
const UINT RUNNING =0x0001; //運行狀態(tài)標識
const UINT CONTINUE =0x0002; //繼續(xù)標識
const UINT PAUSE =0X0003 //暫停標識
UINT m_nWorkStatus = NORUN; //記錄加工狀態(tài),初始化為NORUN
void OnButtonStart()
{//開始按鈕(可當暫停,繼續(xù),開始用,在某些情況下,繼續(xù)與暫停隔開較好一些)
if( runData.GetSize() < 1 )
{
messageBox(“無加工數(shù)據(jù)或未生成加工路徑”,”提示”);
return;,
}
switch( m_nWorkStatus ){
case NORUN://若空閑,直接加工
m_nWorkStatus = RUNNING; //運行
RunData(); //調用加工核心函數(shù)
Break;
Case RUNNING://若在運行,則中斷
M_nWorkStatus = PAUSE;
StopMove( X,Y ); //停止XY驅動
Break;
Case PAUSE://若為暫停
M_nWorkStatus = CONTINUE;//繼續(xù)處理
Break;
}
}
void OnButtonStop()
{//中斷加工處理
m_nWorkStatus = NORUN;
StopMove(X,Y);
}
double fRunSpeed(10.0); //加工速度
void RunData()
{
//數(shù)據(jù)runData的定義為: CarrayrunData
//CDPoint的定義,可參見[編程技術]的資料
const int nSize = runData.GetSize();
//處理進度度
progress.SetRang(0, nSize);
CDPoint pntBreak; //暫停時記錄的斷點
BOOL bPause="false";
for( int I(0); I
{
::DoEvent(); //一個系統(tǒng)消息處理函數(shù)
switch( m_nWorkStatus ){
case PAUSE://若為暫停,只管循檢系統(tǒng)消息
continue;
case CONTINUE:
m_nWorkStatus = RUNNING;
case RUNNING:
{
if( IsMove(X,Y) ) break;//如果XY在運行,則繼續(xù)檢測系統(tǒng)消息
const CDPoint &pt = runData[I];
if( I == 0 || bPause )
{
bPause = false;
//快速到達第一點或斷點
I == 0?
fast_moveto( pt.x, pt.y )://達到第一點
fast_moveto( pntBreak.x, pntBreak.y);//達到斷點
while( IsMove(X,Y) ) :: DoEvent();//等待達到位置
if( m_nWorkStatus == RUNNING )
{
OpenLasert( Nio ); //開啟激光
Sleep( ti_open ); //開啟延時
}
continue;
}
Con_Line_move( pt.x, pt.y, fRunSpeed );
//此處用勻速,因為激光切割速度不快
while( IsMove(X,Y) ) ::DoEvent();
if( m_nWorkStatus == PAUSE )
{
CloseLasert( nIO );//關閉激光
Sleep( ti_close );//關閉延時
bPause = true;//有暫停
pntBreak.x = GetX(); pntBreak.y = GetY();//記錄斷點位置
}
else
if( m_nWorkStatus == RUNNING )
{//正常完成一個數(shù)據(jù)點
I ++;
Progress.PostMessage( PM_POS, I, 0 ); //更新進度條
}
}// end case running
}// end switch workstatus
}// end for i
CloseLasert( nIO );//關閉激光
Sleep( ti_close );//關閉延時
if( m_nWorkStatus != NORUN )
{//順序加工完
Fast_moveto (stopX,stopY);//達到停止位置
//其它計數(shù)處理
}
else{
//提示加工中斷
}
}
void OnVscrollSpeed( )
{//響應的速度事件調節(jié)
fRunSpeed += 1;
或者
fRunSpeed -=1;
d1000_change_speed( fRunSpeed );//速度值更改
}
注意:
::DoEvent 函數(shù)在[編程技術]中或《編程高手》書中可找到
OpenLasert和CloseLasert函數(shù)只完成一個d1000_out_bit操作
Fast_moveto 內含XY兩軸點位或插補驅動函數(shù)
Con_line_move 內含XY兩軸的插補驅動函數(shù)(一般為常速)
GetX() 和GetY()函數(shù)內含d1000_get_abs_position位置讀取函數(shù)
IsMove函數(shù)內含檢測XY兩軸運動狀態(tài)檢測函數(shù)
五、注意事項
1.本程序未考慮脈沖當量的關系,需要用戶自行處理,在此只提供一種編程思路
2.部分參數(shù)需要用戶通過設定,在此只為簡單介紹
3.使用的部分結構需要參考其它資料,或來電咨詢。
4.控制操作在實際應用當中,需要改變按鈕的文字顯示,用戶需要留意
5.完好的系統(tǒng),需要限定速度和限定XY范圍
6.在某些激光切割系統(tǒng)中,激光的控制較為復雜,其編程思想基本一致