请问用宏调用模板之后的名字怎么设置成1 2 3 4 5 6......求指点
请问用宏调用模板之后的名字怎么设置成1 2 3 4 5 6......求指点EXPLORER SELECT Tool "Tool\D8-B" NEW
ACTIVATE Tool "D8-B"
IMPORT TEMPLATE PROJECT FILEOPEN
"D:\HO\开粗\D8-H.ptf"
EXPLORER SELECT Toolpath "Toolpath\1-1\文件夹1\1" NEW
ACTIVATE Toolpath # //#号代替最新的元素
EXPLORER SELECT Toolpath "Toolpath\1-1\文件夹1\1" NEW
FORM TOOLPATH
FORM LEADLINK
EDIT TOOLPATH LEADS LINK STRAIGHT
EDIT TOOLPATH LEADS LONGLINK INCR
EDIT TOOLPATH LEADS SAFELINK SKIM
EDIT TOOLPATH LEADS PAGE ZHEIGHTS
EDIT TOOLPATH LEADS PAGE FIRSTLEADIN
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS MOVESTARTPOINTS Y
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS LEADIN RAMP
FORM PMLLEADINRAMP
EDIT TOOLPATH LEADS LEADIN RAMPOPT ZIGANGLE "0.7"
EDIT TOOLPATH LEADS LEADIN RAMPOPT HEIGHT_INCREMENT "0.4"
LEADINRAMP ACCEPT
EDIT TOOLPATH LEADS PAGE LEADSOUT
EDIT TOOLPATH LEADS LEADOUT NONE
EDIT TOOLPATH LEADS PAGE LINK
PROCESS TPLEADS
PROCESS TPLEADS
PROCESS TPLEADS
LEADS ACCEPT 设置变量，PM2017测试OK，宏程序修改如下：
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
STRING $str=input "请输入刀具路径名称"
RENAME Toolpath "1" "YSUGPM"
IMPORT TEMPLATE PROJECT FILEOPEN "D:\HO\开粗\D8-H.ptf"
RENAME Toolpath "1" $str
RENAME Toolpath "YSUGPM" "1"
EXPLORER SELECT Tool "Tool\D8-B" NEW
ACTIVATE Tool "D8-B"
ACTIVATE Toolpath $str
FORM TOOLPATH
FORM LEADLINK
EDIT TOOLPATH LEADS LINK STRAIGHT
EDIT TOOLPATH LEADS LONGLINK INCR
EDIT TOOLPATH LEADS SAFELINK SKIM
EDIT TOOLPATH LEADS PAGE ZHEIGHTS
EDIT TOOLPATH LEADS PAGE FIRSTLEADIN
EDIT TOOLPATH LEADS PAGE LEADIN
EDIT TOOLPATH LEADS MOVESTARTPOINTS Y
EDIT TOOLPATH LEADS LEADOUT COPY
EDIT TOOLPATH LEADS LEADIN RAMP
FORM PMLLEADINRAMP
EDIT TOOLPATH LEADS LEADIN RAMPOPT ZIGANGLE "0.7"
EDIT TOOLPATH LEADS LEADIN RAMPOPT HEIGHT_INCREMENT "0.4"
LEADINRAMP ACCEPT
EDIT TOOLPATH LEADS PAGE LEADSOUT
EDIT TOOLPATH LEADS LEADOUT NONE
EDIT TOOLPATH LEADS PAGE LINK
PROCESS TPLEADS
PROCESS TPLEADS
PROCESS TPLEADS
LEADS ACCEPT 优胜技术支持 发表于 2018-8-8 08:41
设置变量，PM2017测试OK，宏程序修改如下：
DIALOGS MESSAGE OFF
谢谢优胜 :loveliness:
页:
[1]