请教sinderal 大哥，GPOST M70三凌后处理刚性攻牙修改

请教sinderal 大哥，我知道您是GPOST权威，我现在有个G84攻牙的问题
程序格式如下
。。。。。
。。。。。
前面不输出S。。M03，M29
G84 X。。Y。。Z。。R。。F。。S。。R1（此为刚性攻牙代号）
。。。。
。。。。
。。。
G80
。。。。。
这段程序在GPSOT里边如何修改
谢谢！！

今天,有人问我解决这个问题了没有,我已经解决了,贴上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

你好：请问你三菱M70后处理是三轴的还是四轴的？
其中G84中F转出为螺距如何改？能否分享下这个后处理，不胜感谢！wlm508@126.com

谢谢分享！

谢谢分享！