标题: 请教sinderal 大哥，GPOST M70三凌后处理刚性攻牙修改 [打印本页] 作者: Q_zero 时间: 2012-4-16 15:55 标题: 请教sinderal 大哥，GPOST M70三凌后处理刚性攻牙修改 请教sinderal 大哥，我知道您是GPOST权威，我现在有个G84攻牙的问题
程序格式如下
。。。。。
。。。。。
前面不输出S。。M03，M29
G84 X。。Y。。Z。。R。。F。。S。。R1（此为刚性攻牙代号）
。。。。
。。。。
。。。
G80
。。。。。
这段程序在GPSOT里边如何修改
谢谢！！ 作者: Q_zero 时间: 2012-12-24 21:47
今天,有人问我解决这个问题了没有,我已经解决了,贴上GPSOT源代码
CIMFIL/ON, CYCLE
WRD4=POSTF(7,4)
IF (WRD4 .EQ. (ICODEF(TAP))) THEN
DMY=POSTF(20) $$ SAVE CURRENT CL RECORD
INSERT/'M05 M19','( *TAP START SPINDLE OFF*)',';'
DMY=POSTF(21) $$ RESTORE SAVED RECORD
$$REPLAC/(TEXT/'P?000'),(TEXT/'R1'),(TEXT/'?')
T1 = TEXT/'P?000'
T2 = TEXT/'R1'
T3 = TEXT/'?'
REPLAC/T1,T2,T3,1,1 $$ ReplaceP with R1 for this block only
XX = POSTF(13) $$ Process the CL record
SVAL=POSTF(1,2,10) $$ Spindle speed
MDIR=POSTF(1,1,1513) $$ Direction
RVAL=POSTF(7,10)
QVAL=RVAL/2
REPEAT/OFF
REPEAT/Z,S,SVAL,ALL
REPEAT/Z,Q,QVAL,ALL
ELSE IF (WRD4 .EQ. (ICODEF(BORE))) THEN
DMY=POSTF(20) $$ SAVE CURRENT CL RECORD
INSERT/'( *BORE START*)',';'
DMY=POSTF(21) $$ RESTORE SAVED RECORD
$$REPLAC/(TEXT/'P?000'),(TEXT/'Q0.02'),(TEXT/'?')
$$ T1 = TEXT/'P?000'
$$T2 = TEXT/'Q0.02'
$$T3 = TEXT/'?'
$$REPLAC/T1,T2,T3,1,1 $$ ReplaceP with Q0.02 for this block only
XX = POSTF(13) $$ Process the CL record
ELSE
XX = POSTF(13) $$ Process the CL record
ENDIF
ENDIF
CIMFIL/OFF作者: wlm508 时间: 2015-3-23 16:29
你好：请问你三菱M70后处理是三轴的还是四轴的？
其中G84中F转出为螺距如何改？能否分享下这个后处理，不胜感谢！wlm508@126.com 作者: margar2016 时间: 2017-9-7 15:27
谢谢分享！作者: dhwdxy 时间: 2019-2-2 19:32