|
|
发表于 2023-3-27 18:23:21
|
显示全部楼层
pcom_moveb
c_mmlt #Multiple tool subprogram call
ptoolcomment
comment
pcan
if stagetool >= zero,e
pbld, n, *t,
"G91", *sg28ref, "Z0.", e
*sg28ref, "X0.","Y0." ,e
"M6", e
pindex
if mi1 > one, absinc = zero
pcan1, pbld, n, *sgcode, *sgabsinc, pwcs, pfxout, pfyout,
pfcout, *speed, *spindle, pgear, strcantext, e
pbld, n, "G43", *tlngno, pfzout, scoolant, next_tool, e
absinc = sav_absinc
pcom_movea
toolchng = zero
c_msng #Single tool subprogram call
ptlchg0 #Call from NCI null tool change (tool number repeats)
pcuttype
pcom_moveb
c_mmlt #Multiple tool subprogram call
comment
pcan
result = newfs(15, feed) #Reset the output format for 'feed'
pbld, n, sgplane, e
pspindchng
pbld, n, scoolant, e
if mi1 > one & workofs <> prv_workofs,
[
sav_absinc = absinc
absinc = zero
pbld, n, sgabsinc, pwcs, pfxout, pfyout, pfzout, pfcout, e
pe_inc_calc
ps_inc_calc
absinc = sav_absinc
]
if cuttype = zero, ppos_cax_lin
if gcode = one, plinout
else, prapidout
pcom_movea
c_msng #Single tool subprogram call
ptlchg #Tool change
pcuttype
toolchng = one
if mi1 = one, #Work coordinate system
[
pfbld, n, *sg28ref, "X0.", "Y0.", e
pfbld, n, "G92", *xh, *yh, *zh, e
]
pbld, n, "M01", e
pcom_moveb
c_mmlt #Multiple tool subprogram call
ptoolcomment
comment
pcan
result = newfs(15, feed) #Reset the output format for 'feed'
pbld, n, *t,
"G91", *sg28ref, "Z0.", e
*sg28ref, "X0.","Y0." ,e
"M6", e
pindex
sav_absinc = absinc
找到这里 把 "G91", *sg28ref, "Z0.", e
*sg28ref, "X0.","Y0." ,e
"M6", e
插在*t后分行
T3G91G28Z0.
G28X0.Y0.
M6
G0G90G54X0.Y0.S1500M3
G43H3Z100.M8T6
G98G81Z-3.R1.F30.
X12.5
X-12.5
X12.5
G80
M5
G91G28Z0.M9
M01 |
|
:}