- 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
您可能关注的文档
- 气象电码讲座研究.ppt
- 五下科学复习题1素材.doc
- 投机力量怎样主导市场情绪素材.doc
- 五下数学北师大版第二单元作业纸素材.doc
- 投融资知识简单介绍素材.doc
- 五险一金专题讲解素材.ppt
- 投诉纠纷处理应对方案素材.pptx
- 新形势下的学前教育专业资源建设201605贵阳素材.pptx
- 投资的逻辑:企业家财富管理素材.pptx
- 投资经济学素材.docx
- 2025年网络文学平台版权运营模式创新与版权保护体系构建.docx
- 数字藏品市场运营策略洞察:2025年市场风险与应对策略分析.docx
- 全球新能源汽车产业政策法规与市场前景白皮书.docx
- 工业互联网平台安全标准制定:安全防护与合规性监管策略.docx
- 剧本杀剧本创作审核标准2025年优化与行业自律.docx
- 2025年新能源电动巡逻车在城市安防中的应用对城市环境的影响分析.docx
- 全渠道零售案例精选:2025年行业创新实践报告.docx
- 2025年网约车司乘纠纷处理机制优化与行业可持续发展报告.docx
- 2025年宠物烘焙食品市场法规政策解读:合规经营与风险规避.docx
- 2025年宠物行业数据安全监管政策影响分析报告.docx
文档评论(0)