.NC文件的G代码程序仿真软件

xc443218949

.NC文件的G代码程序仿真软件 求大佬帮忙看看程序哪里出问题了

  

窗口程序集名	保 留	保 留	备 注
口程序集_启动窗口
变量名	类 型	数组	备 注
当前X坐标	小数型
当前Y坐标	小数型
加工速度	小数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 创建画板
画板1.左边 ＝ 10
画板1.顶边 ＝ 10
画板1.宽度 ＝ 500
画板1.高度 ＝ 500
' 创建选择文件按钮
按钮1.标题 ＝ “选择.NC 文件”
按钮1.左边 ＝ 10
按钮1.顶边 ＝ 520
按钮1.宽度 ＝ 100
按钮1.高度 ＝ 30
按钮1.可视 ＝ 真
' 创建开始按钮
按钮2.标题 ＝ “开始”
按钮2.左边 ＝ 按钮1.左边 ＋ 按钮1.宽度 ＋ 10
按钮2.顶边 ＝ 520
按钮2.宽度 ＝ 100
按钮2.高度 ＝ 30
按钮2.可视 ＝ 真
当前X坐标 ＝ 0
当前Y坐标 ＝ 0
加工速度 ＝ 1

子程序名	返回值类型	公开	备 注
_按钮1_被单击

通用对话框1.过滤器 ＝ “NC 文件(*.nc)|*.nc”
如果真 (通用对话框1.打开 ())
编辑框1.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))

子程序名	返回值类型	公开	备 注
处理G指令	逻辑型
参数名	类 型	参考	可空	数组	备 注
指令关键字	文本型
参数部分	文本型

变量名	类 型	静态	数组	备 注
目标X	小数型
目标Y	小数型
步长X	小数型
步长Y	小数型
运动时间	小数型

如果真 (指令关键字 ＝ “G00”)
' 快速定位
当前X坐标 ＝ 取数值参数 (参数部分, “X”)
当前Y坐标 ＝ 取数值参数 (参数部分, “Y”)

如果真 (指令关键字 ＝ “G01”)
' 直线插补
目标X ＝ 取数值参数 (参数部分, “X”)
目标Y ＝ 取数值参数 (参数部分, “Y”)
运动时间 ＝ 距离 (当前X坐标, 当前Y坐标, 目标X, 目标Y) ÷ 加工速度
步长X ＝ (目标X － 当前X坐标) ÷ 运动时间
步长Y ＝ (目标Y － 当前Y坐标) ÷ 运动时间
判断循环首 (运动时间 ＞ 0)
当前X坐标 ＝ 当前X坐标 ＋ 步长X
当前Y坐标 ＝ 当前Y坐标 ＋ 步长Y
' 在画板上绘制当前位置
画板1.画点 (到整数 (当前X坐标), 到整数 (当前Y坐标), )
延迟 (100)  ' 模拟时间流逝
运动时间 ＝ 运动时间 － 0.1
判断循环尾 ()

' 可以根据需要添加对其他 G 指令的处理
返回 (真)

子程序名	返回值类型	公开	备 注
取数值参数	小数型
参数名	类 型	参考	可空	数组	备 注
参数文本	文本型
轴标识	文本型

变量名	类 型	静态	数组	备 注
参数位置	整数型
参数值文本	文本型

参数位置 ＝ 寻找文本 (参数文本, 轴标识 ＋ “”, , 假)
如果真 (参数位置 ＞ 0)
参数值文本 ＝ 取文本中间 (参数文本, 参数位置 ＋ 1, )
返回 (到数值 (参数值文本))
' 如果没有找到轴标识，可以返回一个特殊值或者触发一个错误提示等
信息框 (“未找到指定轴标识对应的参数”, #错误图标, , )
返回 (0)

子程序名	返回值类型	公开	备 注
距离
参数名	类 型	参考	可空	数组	备 注
x1	小数型
y1	小数型
x2	小数型
y2	小数型

变量名	类 型	静态	数组	备 注
差值X	小数型
差值Y	小数型
距离	小数型

差值X ＝ x2 － x1
差值Y ＝ y2 － y1
距离 ＝ 求平方根 (差值X × 差值X ＋ 差值Y × 差值Y)
返回 (距离)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
指令行数组	文本型		0
指令关键字	文本型
参数部分	文本型
i	整数型
起始位置	小数型
剩余长度	小数型

指令行数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
' 遍历每一行指令进行解析和处理
计次循环首 (取数组成员数 (指令行数组), i)
指令关键字 ＝ 取文本左边 (指令行数组 [i], 寻找文本 (指令行数组 [i], “ ”, , 假))
起始位置 ＝ 寻找文本 (指令行数组 [i], “ ”, , 假) ＋ 1
如果真 (起始位置 ＞ 0)
剩余长度 ＝ 取文本长度 (指令行数组 [i]) － 起始位置 ＋ 1
如果真 (剩余长度 ＞ 0)
参数部分 ＝ 取文本中间 (指令行数组 [i], 起始位置, 剩余长度)
' 处理剩余长度为 0 或负数的情况，比如设置一个默认值或标记错误
参数部分 ＝ “默认参数值”  ' 这里设置一个默认值


' 根据指令关键字进行相应处理
处理G指令 (指令关键字, 参数部分)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 口程序集_启动窗口<br /> .程序集变量 当前X坐标, 小数型<br /> .程序集变量 当前Y坐标, 小数型<br /> .程序集变量 加工速度, 小数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 创建画板<br /> 画板1.左边 ＝ 10<br /> 画板1.顶边 ＝ 10<br /> 画板1.宽度 ＝ 500<br /> 画板1.高度 ＝ 500<br /> <br /> ' 创建选择文件按钮<br /> 按钮1.标题 ＝ “选择.NC 文件”<br /> 按钮1.左边 ＝ 10<br /> 按钮1.顶边 ＝ 520<br /> 按钮1.宽度 ＝ 100<br /> 按钮1.高度 ＝ 30<br /> 按钮1.可视 ＝ 真<br /> <br /> ' 创建开始按钮<br /> 按钮2.标题 ＝ “开始”<br /> 按钮2.左边 ＝ 按钮1.左边 ＋ 按钮1.宽度 ＋ 10<br /> 按钮2.顶边 ＝ 520<br /> 按钮2.宽度 ＝ 100<br /> 按钮2.高度 ＝ 30<br /> 按钮2.可视 ＝ 真<br /> <br /> 当前X坐标 ＝ 0<br /> 当前Y坐标 ＝ 0<br /> 加工速度 ＝ 1<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 通用对话框1.过滤器 ＝ “NC 文件(*.nc)|*.nc”<br /> .如果真 (通用对话框1.打开 ())<br />     编辑框1.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))<br /> .如果真结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 处理G指令, 逻辑型<br /> .参数 指令关键字, 文本型<br /> .参数 参数部分, 文本型<br /> .局部变量 目标X, 小数型<br /> .局部变量 目标Y, 小数型<br /> .局部变量 步长X, 小数型<br /> .局部变量 步长Y, 小数型<br /> .局部变量 运动时间, 小数型<br /> <br /> .如果真 (指令关键字 ＝ “G00”)<br />     ' 快速定位<br />     当前X坐标 ＝ 取数值参数 (参数部分, “X”)<br />     当前Y坐标 ＝ 取数值参数 (参数部分, “Y”)<br /> .如果真结束<br /> <br /> .如果真 (指令关键字 ＝ “G01”)<br />     ' 直线插补<br />     目标X ＝ 取数值参数 (参数部分, “X”)<br />     目标Y ＝ 取数值参数 (参数部分, “Y”)<br />     运动时间 ＝ 距离 (当前X坐标, 当前Y坐标, 目标X, 目标Y) ÷ 加工速度<br /> <br />     步长X ＝ (目标X － 当前X坐标) ÷ 运动时间<br />     步长Y ＝ (目标Y － 当前Y坐标) ÷ 运动时间<br /> <br />     .判断循环首 (运动时间 ＞ 0)<br />         当前X坐标 ＝ 当前X坐标 ＋ 步长X<br />         当前Y坐标 ＝ 当前Y坐标 ＋ 步长Y<br /> <br />         ' 在画板上绘制当前位置<br />         画板1.画点 (到整数 (当前X坐标), 到整数 (当前Y坐标), )<br />         延迟 (100)  ' 模拟时间流逝<br />         运动时间 ＝ 运动时间 － 0.1<br />     .判断循环尾 ()<br /> .如果真结束<br /> <br /> ' 可以根据需要添加对其他 G 指令的处理<br /> 返回 (真)<br /> <br /> <br /> <br /> .子程序 取数值参数, 小数型<br /> .参数 参数文本, 文本型<br /> .参数 轴标识, 文本型<br /> .局部变量 参数位置, 整数型<br /> .局部变量 参数值文本, 文本型<br /> <br /> 参数位置 ＝ 寻找文本 (参数文本, 轴标识 ＋ “”, , 假)<br /> .如果真 (参数位置 ＞ 0)<br />     参数值文本 ＝ 取文本中间 (参数文本, 参数位置 ＋ 1, )<br />     返回 (到数值 (参数值文本))<br /> .如果真结束<br /> ' 如果没有找到轴标识，可以返回一个特殊值或者触发一个错误提示等<br /> 信息框 (“未找到指定轴标识对应的参数”, #错误图标, , )<br /> 返回 (0)<br /> <br /> <br /> <br /> .子程序 距离<br /> .参数 x1, 小数型<br /> .参数 y1, 小数型<br /> .参数 x2, 小数型<br /> .参数 y2, 小数型<br /> .局部变量 差值X, 小数型<br /> .局部变量 差值Y, 小数型<br /> .局部变量 距离, 小数型<br /> <br /> 差值X ＝ x2 － x1<br /> 差值Y ＝ y2 － y1<br /> 距离 ＝ 求平方根 (差值X × 差值X ＋ 差值Y × 差值Y)<br /> 返回 (距离)<br /> <br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 指令行数组, 文本型, , "0"<br /> .局部变量 指令关键字, 文本型<br /> .局部变量 参数部分, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 起始位置, 小数型<br /> .局部变量 剩余长度, 小数型<br /> <br /> 指令行数组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> <br /> ' 遍历每一行指令进行解析和处理<br /> .计次循环首 (取数组成员数 (指令行数组), i)<br />     指令关键字 ＝ 取文本左边 (指令行数组 <i>, 寻找文本 (指令行数组 <i>, “ ”, , 假))<br />     起始位置 ＝ 寻找文本 (指令行数组 <i>, “ ”, , 假) ＋ 1<br /> <br />     .如果真 (起始位置 ＞ 0)<br />         剩余长度 ＝ 取文本长度 (指令行数组 <i>) － 起始位置 ＋ 1<br /> <br />         .如果真 (剩余长度 ＞ 0)<br />             参数部分 ＝ 取文本中间 (指令行数组 <i>, 起始位置, 剩余长度)<br />             ' 处理剩余长度为 0 或负数的情况，比如设置一个默认值或标记错误<br />             参数部分 ＝ “默认参数值”  ' 这里设置一个默认值<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     ' 根据指令关键字进行相应处理<br />     处理G指令 (指令关键字, 参数部分)<br /> .计次循环尾 ()

企鹅号525150138

测试.e (8.98 KB, 下载次数: 7)

2024-9-5 12:10 上传

点击文件名下载附件

xc443218949

测试.rar (2.89 KB, 下载次数: 2)

2024-9-5 11:38 上传

点击文件名下载附件

xc443218949

指定的常量或资源名称“”未找到。