控制卡的应用技巧概要.ppt

  1. 1、本文档共20页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
控制卡的应用技巧概要

关于控制卡封装后的对象成员 控制卡的应用技巧 一、控制卡硬件安装 二、控制卡的编程入门 三、控制卡与G代码的接囗编程 四、控制卡与CAD的接囗编程 一、控制卡的安装 1、硬件安装 2、设备驱动的安装 一、控制卡的安装 1、硬件安装 2、设备驱动的安装 二、控制卡的编程入门 下面是以DMC5400卡在VB编译环境下的编程为例,介绍控制卡的入门编程 二、控制卡的编程入门 下面是以DMC5400卡在VB编译环境下的编程为例,介绍控制卡的入门编程 1、首先,运行VB,并建立一个新的“标准 EXE”工程 2、添加dmc5400卡的函数定义模块 关于dmc5400控制卡的函数定义 dmc5400.bas文件是VB编译环境的函数定义 dmc5400.h文件是VC编译环境的函数定义 与dmc5400控制卡相关的所有函数,都定义在这两个文件中 2、添加dmc5400卡的函数定义模块 3、在工程中添加一个新的类 a、添加一个新的类,并命名为CardCls 2、添加dmc5400卡的函数定义模块 3、在工程中添加一个新的类 a、添加一个新的类,并命名为CardCls b、加入CardCls控制卡相关的代码,实现对控制卡功能函数的二次封装。 封装的好处: 1)对控制卡自动初始化和自动关闭的实现 2)用对象编程的方式,对运动控制卡进行编程,将复杂的编程简易化 2、添加dmc5400卡的函数定义模块 3、在工程中添加一个新的类 4、(控制卡)对象的使用 a) 在窗体代码中定义对象,例如: Private pCard As New CardCls b)调用对象中的成员,实现相关的功能,例如:显示当前的位置 Label1(0).Caption = X: + Format(pCard.Position(0), 0.000) 其中:pcard.position(0)成员函数实现读取第0轴的当前位置,并显示 到标签label(0)。 三、控制卡与G代码的编程入门 1、G代码指令 三、控制卡与G代码的编程入门 1、G代码指令 2、G代码的常用格式 G00X10.600Y100.000 G01X100.000Y100.000 3、通过控制卡执行G代码的方法 方法1、直接调用运动函数执行G代码 a、快速定位 G00X10.600Y100.000Z10 例如:pCard.MoveTo AxisZ,0 pCard.WaitDone pCard.FastMoveTo x,y,0 pCard.WaitDone pCard.MoveTo AxisZ,z pCard.WaitDone 3、通过控制卡执行G代码的方法 方法1、直接调用运动函数执行G代码 a、快速定位 b、直线插补 G01X10.600Y100.000 例如:pCard.LineTo x,y,z pCard.WaitDone 四、控制卡与CAD的接囗编程 关于DXF文件格式中的线、圆弧及连续线的关键字段 1、圆(AcDbCircle) 2、圆弧(AcDbCircle) 3、线段(AcDbLine) 4、连续线段(AcDbPolyline) 线段:起点XYZ(10,20,30)终点XYZ(11,21,31) 圆弧:圆心XYZ(10,20,30) 半径40 起始角50 终止角51 圆:圆心XYZ(10,20,30)半径40 连续线段:段线端点数90 封闭/不封闭70 点坐标XYZ(10,20,30) 下面是读入Dxf文件中线段,并调用运动函数的实例代码: jj = Vb_TextTotalLine For ii = 1 To jj If VB_GetTextLine(ii, m_str) = True Then If m_str = AcDbLine Then If VB_GetTextLine(ii + 2, m_str) = True Then x1 = Val(m_str) If VB_GetTextLine(ii + 4, m_str) = True Then y1 = Val(m_str) If VB_GetTextLine(ii + 8, m_str) = True Then x2 = Val(m_str) If VB_GetTextLin

文档评论(0)

shuwkb + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档