MasterCAM中如何在在换刀程序段前插入顺序行号

技术小编 10217 0



strgoto_N   : 10    #参数初始化,N10开始                              

fmt  "N" 4  strgoto_n  #定义数据类型

ptlchg_com      #Toolchange common blocks

*strgoto_N,e$ # 插入行号

pcom_moveb

c_mmlt$ #Multiple tool subprogram call

#ptoolcomment   #taoshx

comment$

pmisccheck

pcan

if plane$ < 0, plane$ = 0

"(",*tldia$,"-",*tcr$,")",e$

if stagetool>= zero, pbld,n$, *t$, "M06","(",popnote,")",ptoolcomm,e$

#pbld,n$, "/", *scoolant, e$

pbld,n$, "/", "M08", e$

spaces$=0

if output_z = yes$,

[preadbuf5

if (opcode$ > 0 &opcode$ < 16) | opcode$ = 19,

[n$,pspc, "(", "MAX=", *max_depth, ")",e$n$,pspc, "(", "MIN=", *min_depth, ")",e$]]

spaces$=sav_spc

ppengxiangxu

pindex

sav_absinc = absinc$

if wcstype> one, absinc$ = zero

 if lock_codes = 1 &not(index) &rot_on_x, pbld,n$, *sunlock, "(UNLOCK)", e$

pcan1, pbld,n$, *sgcode, *sgabsinc, [if not(index), pwcs], pfxout, pfyout,

pfcout, *speed, *spindle,pgear, strcantext, e$

if lock_codes = 1 &not(index) &rot_on_x&cuttype = 0, pbld,n$, *slock, "(LOCK)", e$

pbld, n$, "G43", *tlngno$,pfzout, next_tool$, e$

# pbld, n,"G5P10000",e

sav_coolant = coolant$

if coolant$ = 1, sm09 = sm09_0

if coolant$ = 2, sm09 = sm09_1

if coolant$ = 3, sm09 = sm09_2

absinc$ = sav_absinc

pcom_movea

toolchng = zero

c_msng$ #Single tool subprogram call

last_op_id = op_id$

last_cuttype = cuttype

strgoto_N = strgoto_N + 10 # 行号加10赋值

END


标签: mastercam教程

抱歉,评论功能暂时关闭!