|
pcan
pbld, n$, *t$, sm06, e$
pbld, n$,*next_tool$, e$ 这是我加的备用刀代码,
pindex
if mi1$ > one, absinc$ = zero
if use_rot_lock & (cuttype <> zero | (index = zero & prv_cabs <> fmtrnd(cabs))), prot_unlock
if convert_rpd$, pconvert_rpd
pcan1, pbld, n$, [if gcode$, *sgfeed], *sgcode, *sgabsinc, pwcs, pfxout, pfyout, pfcout,
[if nextdc$ <> 7, *speed, *spindle], pgear, [if gcode$, *feed], strcantext, e$
if use_rot_lock & (cuttype = zero | drilling) & cutpos$ <> six, prot_lock
result = force(feed) # Force output of feed next time it's called for output
pbld, n$, sg43, *tlngno$, pfzout, pscool, pstagetool,e$
absinc$ = sav_absinc
pbld, n$, sgabsinc, e$
pcom_movea
toolchng = zero
|
|