螺旋铣削最优化版本

tstec*

再发螺旋铣削最优化版本

（先要在参数6050~6059设置G代码调用宏程序的数字，6050~6059分别对应程序号O9010~O9019。
我这里在参数6054里面输的是133（0~255之间的数字），也就是O9014程序。
还可以设置参数3202的NE9为1，隐藏并保护O9000~O9999，防止误删    --该段文字摘录他处）

调用示例：
G54G90G0X0Y0
M3S3000F2000
G43G0Z100H1
G133X100Y100Z-20R3C20D50Q3.7K02
G133X0
M5
M30

优化说明：
1，        Z和R不区分上下；即既可以从下向上亦可以自上向下铣。

2，        该螺旋严格遵守Q值指定的螺距，无论是否整数螺距均为
        该指定螺距铣完回归中心。

        3，        K值有四种状态可选，K_ _ K值个位可以选择2,3，意即
        顺逆时针螺旋，十位可以选择输入0,1，表示是否螺旋底部
        带清理刀路。特别注意：0表示底部清根，1表示不清根。
        例如；K02表示顺时针螺旋底部清根。

4， XYZRCDQK均可模态指定。特别注意：首次调用时，若不指定Q，K，
        则默认Q为0，即自R至Z一刀螺旋。K值则默认逆时针螺旋含清理刀路
       
5， 所有模态位置临时存储于#500-#506变量内。程序自动判断超过
        60分钟则清空该段变量。防止下次首次调用例如G133X0Y0Z-20R3，
        漏指定其他参数时发生未知铣削的情况。
        特别注意；因此造成的副作用是，单个螺旋必须控制一个小时内，
        否则需补全输入所有模态代码。
       
不足说明：
1， 仍不能像G81等固定循环一般调用自如，譬如需要每行输入G133.

2， 欢迎各路朋友不吝下载测试指正。虽然本人已上机测试各种情况
        仍不免有漏掉的特殊情况。

%
O9014( G133 XYZRCDQK )
#100=60*FIX[#3012/10000]+FIX[#3012/100]-100*FIX[FIX[#3012/100]/100]
IF[[ABS[#999-#100]]GE60]THEN#500=#0
IF[[ABS[#999-#100]]GE60]THEN#501=#0
IF[[ABS[#999-#100]]GE60]THEN#502=#0
IF[[ABS[#999-#100]]GE60]THEN#503=#0
IF[[ABS[#999-#100]]GE60]THEN#504=#0
IF[[ABS[#999-#100]]GE60]THEN#505=#0
IF[[ABS[#999-#100]]GE60]THEN#506=#0 ( TEMP CLEAN )
#999=#100 ( SET CLEAN LABEL )

#500=#5003 (START POIT Z )
IF[#24EQ#0]THEN#24=#5001 ( GET X )
IF[#25EQ#0]THEN#25=#5002 ( GET Y )


IF[[#26OR#505]EQ0]THEN#26=#5003 ( GET Z )
IF[#26NE#0]THEN#505=#26 ( SET TEMP Z )
IF[#26EQ#0]THEN#26=#505

IF[[#18OR#506]EQ0]THEN#18=#5003 ( GET R )
IF[#18NE#0]THEN#506=#18 ( SET TEMP R )
IF[#18EQ#0]THEN#18=#506

IF[[#3OR#501]EQ0]THEN#3000=133( NEED SET C! )
IF[#3NE#0]THEN#501=#3
IF[#3EQ#0]THEN#3=#501

IF[[#7OR#502]EQ0]THEN#3000=133( NEED SET D! )
IF[#7NE#0]THEN#502=#7
IF[#7EQ#0]THEN#7=#502

IF[[#6OR#503]EQ0]THEN#3000=133( NEED SET K! )
IF[#6NE#0]THEN#503=#6
IF[#6EQ#0]THEN#6=#503


IF[#17NE#0]THEN#504=#17
IF[#17EQ#0]THEN#17=#504( CHECK Q! )
IF[[#17OR#504]NE0]GOTO1

#33=[#7-#3]/2
IF[#33LT0.1]THEN#3000=133( ROTATE LE 0.1! )
G90G00X#24Y#25
G00Z#18
G01Y[#25+#33]F#9
G03Z#26I0.J-#33
G01X#24Y#25
GOTO99

N1
IF[#18LT#26]THEN#17=-#17
#31=ABS[FIX[[#18-#26]/#17]]
#32=ABS[#18-#26]-#31*#17
#33=[#7-#3]/2

#27=360*ABS[#32/#17]
IF[#31EQ0]THEN#27=360*ABS[[#18-#26]/#17]
IF[#6EQ#0]GOTO11

IF[[#6-10*FIX[#6/10]]EQ3]THEN#28=#24-#33*SIN[#27]
IF[[#6-10*FIX[#6/10]]EQ2]THEN#28=#24+#33*SIN[#27]
GOTO12

N11
#28=#24-#33*SIN[#27]
#6=13
N12
#29=#25+#33*COS[#27]

IF[#33LT0.1]THEN#3000=133( ROTATE LE 0.1! )
IF[[FIX[#6/10]]NE0]GOTO2

#6=#6-10*FIX[#6/10]
G90G00X#24Y#25
G00Z#18
G01Y[#25+#33]F#9
#30=1
WHILE[#30LE#31]DO1
G#6Z[#18-#17*#30]I0.J-#33
#30=#30+1
END1
G#6X#28Y#29Z#26I0.J-#33
G#6X#28Y#29Z#26I[#24-#28]J[#25-#29]
G01X#24Y#25
GOTO99

N2
#6=#6-10*FIX[#6/10]
G90G00X#24Y#25
G00Z#18
G01Y[#25+#33]F#9
#30=1
WHILE[#30LE#31]DO1
G#6Z[#18-#17*#30]I0.J-#33
#30=#30+1
END1
G#6X#28Y#29Z#26I0.J-#33
G01X#24Y#25
GOTO99

N99
G90G00Z#500
M99
%



补充内容 (2017-4-19 11:32):
毫不夸张的讲，这个宏足以完美替代UG的螺旋铣削功能了。

补充内容 (2017-4-20 10:49):
IF[#17EQ#0]THEN#17=#504( CHECK Q! )
IF[[#17OR#504]NE0]GOTO1
需要更改为
IF[#17EQ#0]THEN#17=#504( CHECK Q! )
IF[[[1000*#17]OR[1000*#504]]NE0]GOTO1

补充内容 (2017-4-23 22:44):
一定要注意看补充内容啊！！！

补充内容 (2018-2-9 14:14):
本帖已完结，各位请下载最终版本。
http://www.ugsnx.com/thread-190807-1-1.html

ZheMen

感謝大大分享

dshl881

宏程序很难吗

午夜清风*

ZCZCZCzczc正常操作

lxk123565

66666666666

LEO8764

6666555

putao124

支持，感谢楼主分享~！

yuwanbao

下来看看。

战士*

谢谢分享好好学习

zmsjss

因为通过颜色为企业是