COMIZOA/COMI-LX系列运动控制卡在激光切割中的应用
一、功能和工艺要求
1．接受常见的平面矢量图形文件，如PLT，DXF。
2．处理图形加工的先后顺序，及加工方向。
3．能简单处理图形，如选择，旋转，平移，镜像，复制，排列等。
4．可手动调试设备，及检测输入输出。
5．加工控制能调节速度，需要暂停，继续，中断等控制。
6．加工需要显示时度，时间，位置等部分用户信息
7．可设定加工工作原点，激光开关控制（此处不关心激光能量调节）
二、系统流程
三、使用函数
手动调试需要完成的功能：输入输出测试，手动驱动脉冲，检测运行状态，停止动作，找机械原点：
对应的函数调为：
d1000_out_bit 数字输出函数，可控制激光的开启或关闭
d1000_get_in_bit 读输入口状态
d1000_start_tr_move 手动发脉冲，可使用单轴点位运行
d1000_check_done 检测运动状态函数
d1000_decel_stop 停止脉冲输出（减速停较好）
d1000_home_move 单轴找原点函数
d1000_home_move_all 多轴找原点函数
d1000_board_init 控制卡初始化
d1000_board_close 控制卡释放
位置显示及清除需要的函数：
d1000_get_abs_position 取得绝对位置
d1000_set_position 设定位置函数，当值为0时位置清除
加工控制需要的函数：
d1000_start_ta_line2 两轴插补函数
d1000_set_vector_profile 设定矢量插补速度
d1000_change_speed 速度改变速度
[DividePage:NextPage]
四、核心部分的编程
在实际编程当中，有较多细节需要解决：
1．需要考虑响应加工暂停，继续，中断的操作，位置显示等
2．暂停后XY位置需要记录，有可能XY被手动移开
3．加工完整个图形，需要回到一停止位置，以便取料
4．开激光关激光，需要考虑激光的反应时间
5．在实际应用当中，当激光未开启时，为提高速度，可直接采用点位运动
6．需要需要速度的调节处理
注意：以下代码只体现只实用的编程思想，不会能通过编译器的编译
const UINT NORUN =0x0000; //空闲，或中断状态
const UINT RUNNING =0x0001; //运行状态标识
const UINT CONTINUE =0x0002; //继续标识
const UINT PAUSE =0X0003 //暂停标识
UINT m_nWorkStatus = NORUN; //记录加工状态，初始化为NORUN
void OnButtonStart（）
｛//开始按钮（可当暂停，继续，开始用，在某些情况下，继续与暂停隔开较好一些）
if（ runData.GetSize（） < 1 ）
｛
messageBox（“无加工数据或未生成加工路径”,”提示”）;
return;,
｝
switch（ m_nWorkStatus ）｛
case NORUN://若空闲，直接加工
m_nWorkStatus = RUNNING; //运行
RunData（）; //调用加工核心函数
Break;
Case RUNNING://若在运行，则中断
M_nWorkStatus = PAUSE;
StopMove（ X,Y ）; //停止XY驱动
Break;
Case PAUSE://若为暂停
M_nWorkStatus = CONTINUE;//继续处理
Break;
｝
｝
void OnButtonStop（）
｛//中断加工处理
m_nWorkStatus = NORUN;
StopMove（X,Y）;
｝
double fRunSpeed（10.0）; //加工速度
void RunData（）
｛
//数据runData的定义为： CarrayrunData
//CDPoint的定义，可参见[编程技术]的资料
const int nSize = runData.GetSize（）;
//处理进度度
progress.SetRang（0, nSize）;
CDPoint pntBreak; //暂停时记录的断点
BOOL bPause=false;
for（ int I（0）; I
｛
::DoEvent（）; //一个系统消息处理函数
switch（ m_nWorkStatus ）｛
case PAUSE://若为暂停，只管循检系统消息
continue;
case CONTINUE:
m_nWorkStatus = RUNNING;
case RUNNING:
｛
if（ IsMove（X,Y） ） break;//如果XY在运行，则继续检测系统消息
const CDPoint &pt = runData[I];
if（ I == 0 || bPause ）
｛
bPause = false;
//快速到达第一点或断点
[DividePage:NextPage]
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 ）
｛//正常完成一个数据点
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）;//达到停止位置
//其它计数处理
｝
else｛
//提示加工中断
｝
｝
void OnVscrollSpeed（ ）
｛//响应的速度事件调节
fRunSpeed += 1;
或者
fRunSpeed -=1;
d1000_change_speed（ fRunSpeed ）;//速度值更改
｝
注意：
::DoEvent 函数在[编程技术]中或《编程高手》书中可找到
OpenLasert和CloseLasert函数只完成一个d1000_out_bit操作
Fast_moveto 内含XY两轴点位或插补驱动函数
Con_line_move 内含XY两轴的插补驱动函数（一般为常速）
GetX（） 和GetY（）函数内含d1000_get_abs_position位置读取函数
IsMove函数内含检测XY两轴运动状态检测函数
五、注意事项
1．本程序未考虑脉冲当量的关系，需要用户自行处理，在此只提供一种编程思路
2．部分参数需要用户通过设定，在此只为简单介绍
3．使用的部分结构需要参考其它资料，或来电咨询。
4．控制操作在实际应用当中，需要改变按钮的文字显示，用户需要留意
5．完好的系统，需要限定速度和限定XY范围
6．在某些激光切割系统中，激光的控制较为复杂，其编程思想基本一致
声明：本网站所收集的部分公开资料来源于互联网，转载的目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。本站部分作品是由网友自主投稿和发布、编辑整理上传，对此类作品本站仅提供交流平台，不为其版权负责。如果您发现网站上所用视频、图片、文字如涉及作品版权问题，请第一时间告知，我们将根据您提供的证明材料确认版权并按国家标准支付稿酬或立即删除内容，以保证您的权益！联系电话：010-58612588 或 Email:editor@mmsonline.com.cn。
- 暂无反馈
