- 1、本文档共20页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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)