雷尼绍程序.doc

下载文档 降价啦

288
0
约42.94万字
约 10页
2017-06-14 发布于河南
举报
版权申诉
保障服务

雷尼绍程序.doc

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

雷尼绍程序

%_N_UGUD_DEF（定义全局变量） ;$PATH=/_N_DEF_DIR def nck real renc[50] def nck real rene[20] def nck real renp[66] def nck axis axv[5] DEF NCK STRING[32] RENTL m17 %_N_L9700_SPF ;$PATH=/_N_SPF_DIR ; RENISHAW ERROR MESSAGE ;0A STOPRE CASE(RENP[4]) OF 1 GOTOF LN1 2 GOTOF LN2 3 GOTOF LN3 4 GOTOF LN4 STOPRE LN1: L9701; ENGLISH GOTOF END LN2: L9702; GERMAN GOTOF END LN3: L9703; FRENCH LN4: END: RET %_N_L9701_SPF ;$PATH=/_N_SPF_DIR ; RENISHAW ERROR MESSAGE IN ENGLISH STOPRE CASE(RENC[15]) OF 500 GOTOF LN500 510 GOTOF LN510 520 GOTOF LN520 CASE(RENC[15]) OF 530 GOTOF LN530 540 GOTOF LN540 550 GOTOF LN550 CASE(RENC[15]) OF 560 GOTOF LN560 DEFAULT GOTOF LN1000 LN500: MSG("1 OUT OF TOL") STOPRE M00 GOTOF END LN510: MSG("1 OUT OF POSITION") STOPRE M00 GOTOF END LN520: MSG("1 ANGLE OUT OF TOL") STOPRE M00 GOTOF END LN530: MSG("1 DIA OFFSET TOO LARGE") STOPRE M00 GOTOF END LN540: MSG("1 UPPER TOL EXCEEDED") STOPRE M00 GOTOF END LN550: MSG("1 EXCESS STOCK") STOPRE M00 GOTOF END LN560: MSG("1 PROBE SWITCH OFF FAILURE") STOPRE M00 GOTOF END ; LN1000: L9800; CLEAR INPUTS CASE(RENC[15]) OF 40 GOTOF LN40 50 GOTOF LN50 60 GOTOF LN60 CASE(RENC[15]) OF 70 GOTOF LN70 80 GOTOF LN80 90 GOTOF LN90 CASE(RENC[15]) OF 100 GOTOF LN100 110 GOTOF LN110 120 GOTOF LN120 CASE(RENC[15]) OF 130 GOTOF LN130 140 GOTOF LN140 150 GOTOF LN150 CASE(RENC[15]) OF 160 GOTOF LN160 170 GOTOF LN170 180 GOTOF LN180 CASE(RENC[15]) OF 190 GOTOF LN190 200 GOTOF LN200 210 GOTOF LN210 CASE(RENC[15]) OF 220 GOTOF LN220 230 GOTOF LN230 240 GOTOF LN240 CASE(RENC[15]) OF 250 GOTOF LN250 260 GOTOF LN260 270 GOTOF LN270 CASE(RENC[15]) OF 280 GOTOF LN280 290 GOTOF LN290 300 GOTOF LN300 CASE(RENC[15]) OF 310 GOTOF LN310 320 GOTOF LN320 330 GOTOF LN330 CASE(RENC[15]) OF 340 GOTOF LN340 350 GOTOF LN350 360 GOTOF LN360 CASE(RENC[15]) OF 365 GOTOF LN365 370 GOTOF LN370 380 GOTOF LN380 CASE(RENC[15]) OF 390 GOTOF LN390 400 GOTOF LN400 LN5: STOPRE M00 GOTOB LN5 LN40: MSG("75 RENC[18]-BMCF DIST AND RENC[19]-FAST FEED") STOPRE M00 GO