sinderal wrote:
Pro-NC GPost裡帶的搪孔FIL好像有問題...出不了G76精镗孔退刀避让距离的Q值...孤峰那邊有人問...
自己做一個搪孔的試試...我改寫了FIL
原來的:
CIMFIL/ON,CYCLE$$ Trap CYCLE statement
IW4=POSTF(7,4)
CASE/IW4
WHEN/ICODEF(BORE)
DMY=POSTF(20)$$ Save as current CL record
DMY=POSTF(21)$$ Reload saved CL record as current
QVALUE= POSTF(7, 11)$$ Get Q Value
DMY=POSTF(12,10)$$ Decrease number of word as 10
DMY=POSTF(20)$$ Save as current CL record
DMY=POSTF(21)$$ Reload saved CL record as current
DMY=POSTF(9,11,Q)$$ Add Minor Word Q
DMY=POSTF(10,12,QVALUE)$$ Put a Scalar
DMY=POSTF(12,12)$$ Increase number of word as 12
DMY=POSTF(13)$$ Process record
WHEN/OTHERS
DMY=POSTF(20)$$ Save as current CL record
DMY=POSTF(21)$$ Reload saved CL record as current
DMY=POSTF(13)$$ Process record
ENDCAS
CIMFIL/OFF
改成
CIMFIL/ON,CYCLE $$ Trap CYCLE statement
IW4=POSTF(7,4)
CASE/IW4
WHEN/ICODEF(BORE)
DMY=POSTF(20)$$ Save as current CL record
DMY=POSTF(21)$$ Reload saved CL record as current
QVALUE= POSTF(7,18)$$ Get Q Value
DMY=POSTF(13)$$ Process record
REPEAT/X,Y,Q,QVALUE,ALL
WHEN/OTHERS
DMY=POSTF(20)$$ Save as current CL record
DMY=POSTF(21)$$ Reload saved CL record as current
DMY=POSTF(13)$$ Process record
ENDCAS
CIMFIL/OFF
還有
Cycle/Bore要改成G76 ---參照貼圖
好东西,有空得研究下,谢谢! |