求genesis SET拼板脚本

SET拼板脚本

我也期待中……

我有自动拼版和加孔的脚本，唯一没有的就是自动加尾孔，其他都有，我用 的9.02b的版本，，，
需要的me我 114777698  QQ     希望那加尾孔的脚本给我换，，

#source c:/genesis/sys/scripts/include_me
COM read_form,job=$JOB,form=dmb,elem=xsize
set  xsize = "$COMANS"
echo $xsize
COM read_form,job=$JOB,form=dmb,elem=ysize
set  ysize = "$COMANS"
echo $ysize
COM read_form,job=$JOB,form=dmb,elem=xnum
set  xnum = "$COMANS"
echo $xnum
COM read_form,job=$JOB,form=dmb,elem=ynum
set  ynum = "$COMANS"
echo $ynum
COM read_form,job=$JOB,form=dmb,elem=xjianju
set  xjianju = "$COMANS"
echo $xjianju
COM read_form,job=$JOB,form=dmb,elem=yjianju
set  yjianju = "$COMANS"
echo $yjianju
COM read_form,job=$JOB,form=dmb,elem=zgyb
set  zgyb = "$COMANS"
echo $zgyb
COM read_form,job=$JOB,form=dmb,elem=zgybjj
set  zgybjj = 0
echo $zgybjj
COM read_form,job=$JOB,form=dmb,elem=ygyb
set  ygyb = "$COMANS"
echo $ygyb
COM read_form,job=$JOB,form=dmb,elem=ygybjj
set  ygybjj = 0
echo $ygybjj
COM read_form,job=$JOB,form=dmb,elem=sgyb
set  sgyb = "$COMANS"
echo $sgyb
COM read_form,job=$JOB,form=dmb,elem=sgybjj
set  sgybjj = 0
echo $sgybjj
COM read_form,job=$JOB,form=dmb,elem=xgyb
set  xgyb = "$COMANS"
echo $xgyb
COM read_form,job=$JOB,form=dmb,elem=xgybjj
set  xgybjj = 0
echo $xgybjj

COM read_form,job=$JOB,form=dmb,elem=e2xnum
set  e2xnum = "$COMANS"
echo $e2xnum

COM read_form,job=$JOB,form=dmb,elem=e2ynum
set  e2ynum = "$COMANS"
echo $e2ynum

COM read_form,job=$JOB,form=dmb,elem=e2xjj
set  e2xjj = "$COMANS"
echo $e2xjj

COM read_form,job=$JOB,form=dmb,elem=e2yjj
set  e2yjj = "$COMANS"
echo $e2yjj

COM read_form,job=$JOB,form=dmb,elem=pnlxnum
set  pnlxnum = "$COMANS"
echo $pnlxnum
COM read_form,job=$JOB,form=dmb,elem=pnlynum
set  pnlynum = "$COMANS"
echo $pnlynum

COM read_form,job=$JOB,form=dmb,elem=pnlxjj
set  pnlxjj = "$COMANS"
echo $pnlxjj

COM read_form,job=$JOB,form=dmb,elem=pnlyjj
set  pnlyjj = "$COMANS"
echo $pnlyjj
COM read_form,job=$JOB,form=dmb,elem=zycc
set  zycc = "$COMANS"
echo $zycc
COM read_form,job=$JOB,form=dmb,elem=sxcc
set  sxcc = "$COMANS"
echo $sxcc

COM read_form,job=$JOB,form=dmb,elem=e29
set  mjxsize = "$COMANS"
echo $mjxsize
COM read_form,job=$JOB,form=dmb,elem=e30
set  mjysize = "$COMANS"
echo $mjysize

#########################edit bian jiao#############
COM units,type=mm
COM display_layer,name=gbl,display=yes,number=1
COM work_layer,name=gbl
COM display_layer,name=gbl,display=no,number=1
COM profile_rect,x1=0,y1=0,x2=$xsize,y2=$ysize
################################ROFILE size#############3
DO_INFO -t step -e $JOB/edit,units=mm
echo $gPROF_LIMITSxmax
echo $gPROF_LIMITSymax
set genesisx1 = `echo "scale = 0;($gPROF_LIMITSxmax + 0.1) * 10 / 1"|bc`
set genesisx2 = `echo "scale = 0;($gPROF_LIMITSxmax - 0.1) * 10 / 1"|bc`
set genesisy1 = `echo "scale = 0;($gPROF_LIMITSymax + 0.1) * 10 / 1"|bc`
set genesisy2 = `echo "scale = 0;($gPROF_LIMITSymax - 0.1) * 10 / 1"|bc`
set genesisx3 = `echo "scale = 0;$gPROF_LIMITSxmax *10 / 1"|bc`
set genesisy3 = `echo "scale = 0;$gPROF_LIMITSymax *10 / 1"|bc`
set mjxsize = `echo "scale=10;0+$mjxsize"|bc`
set mjysize = `echo "scale=10;0+$mjysize"|bc`
#####################pan du profile size##################
set inputx1 = `echo "scale = 0;$xsize * 10  / 1"|bc`
set inputy1 = `echo "scale = 0;$ysize * 10  / 1"|bc`
if ($inputx1 ！= $genesisx3) then
if ($inputx1 ！= $genesisx2) then
if ($inputx1 ！= $genesisx1) then
set gui_out = /tmp/gui_out.$$
set gui_in = /tmp/gui_in.$$
echo "WIN 200 200" > $gui_in
echo "FG 000000" >> $gui_in
echo "BG 328068" >> $gui_in
echo "FONT tbr18" >> $gui_in
echo "LABEL YOUR input XSIZE is error: " >> $gui_in
echo "LABEL YOUR input XSIZE is $xsize : " >> $gui_in
echo "LABEL YOUR profile XSIZE is $gPROF_LIMITSxmax : " >> $gui_in
echo "CLABEL OK" >> $gui_in
/genesis/e92/all/gui $gui_in > $gui_out
source $gui_out
PAUSE Step edit does not exist in the current job...Please rename or create it.
endif
endif
endif
if ($inputy1 ！= $genesisy3) then
if ($inputy1 ！= $genesisy2) then
if ($inputy1 ！= $genesisy1) then
set gui_out = /tmp/gui_out.$$
set gui_in = /tmp/gui_in.$$
echo "WIN 200 200" > $gui_in
echo "FG 000000" >> $gui_in
echo "BG 328068" >> $gui_in
echo "FONT tbr18" >> $gui_in
echo "LABEL YOUR input YSIZE is error: " >> $gui_in
echo "LABEL YOUR input YSIZE is $ysize : " >> $gui_in
echo "LABEL YOUR profile YSIZE is $gPROF_LIMITSymax : " >> $gui_in
echo "CLABEL OK" >> $gui_in
/genesis/e92/all/gui $gui_in > $gui_out
source $gui_out
PAUSE Step edit does not exist in the current job...Please rename or create it.
endif
endif
endif
##########################edit can shu jisuan################
##############################
COM units,type=mm
set qx = `echo "scale=10;$xsize+$xjianju"|bc`
set qy = `echo "scale=10;$ysize+$yjianju"|bc`
set qqz = `echo "scale=10;$zgyb+$zgybjj"|bc`
set qqy = `echo "scale=10;$ygyb+$ygybjj"|bc`
set qqs = `echo "scale=10;$sgyb+$sgybjj"|bc`
set qqx = `echo "scale=10;$xgyb+$xgybjj"|bc`
set qqyy = `echo "scale=10;$qqz+$xsize*$xnum+$xjianju*$xnum-$xjianju+$qqy"|bc`
set qqss = `echo "scale=10;$qqx+$ysize*$ynum+$yjianju*$ynum-$yjianju+$qqs"|bc`

########################
COM open_entity,job=$job,type=matrix,name=matrix,iconic=no
COM matrix_insert_col,job=$job,matrix=matrix,col=2
COM matrix_refresh,job=$job,matrix=matrix
COM open_entity,job=$job,type=matrix,name=matrix,iconic=no
COM matrix_add_step,job=$job,matrix=matrix,step=edit1,col=2
COM open_entity,job=$job,type=step,name=edit1,iconic=no
########################
COM sr_tab_add,line=1,step=edit,x=0,y=0,nx=1,ny=1,dx=0,dy=0,angle=0,flip=no,mirror=no
COM units,type=mm
COM sr_tab_change,line=1,step=edit,x=$qqz,y=$qqx,nx=1,ny=1,dx=0,dy=0,angle=0,flip=no,mirror=no
COM sr_tab_change,line=1,step=edit,x=$qqz,y=$qqx,nx=$xnum,ny=1,dx=0,dy=0,angle=0,flip=no,mirror=no
COM sr_tab_change,line=1,step=edit,x=$qqz,y=$qqx,nx=$xnum,ny=$ynum,dx=0,dy=0,angle=0,flip=no,mirror=no
COM sr_tab_change,line=1,step=edit,x=$qqz,y=$qqx,nx=$xnum,ny=$ynum,dx=$qx,dy=0,angle=0,flip=no,mirror=no
COM sr_tab_change,line=1,step=edit,x=$qqz,y=$qqx,nx=$xnum,ny=$ynum,dx=$qx,dy=$qy,angle=0,flip=no,mirror=no

###########################################################################################################
COM display_layer,name=gko,display=yes,number=1
COM work_layer,name=gko
COM add_polyline_strt
COM add_polyline_xy,x=0,y=0
COM add_polyline_xy,x=$qqyy,y=0
COM add_polyline_xy,x=$qqyy,y=$qqss
COM add_polyline_xy,x=0,y=$qqss
COM add_polyline_xy,x=0,y=0
COM add_polyline_end,attributes=no,symbol=r200,polarity=positive
COM display_layer,name=gbl,display=yes,number=1
COM work_layer,name=gbl
COM display_layer,name=gbl,display=no,number=1
COM profile_rect,x1=0,y1=0,x2=$qqyy,y2=$qqss

这个是自动拼版加东西的程序见上图是效果图

好人呐！ 赶快试试呀！

4102246655364364534534534

真正好的SET拼版程序，见图！如有需要请联系313900104！事先声明要收费，不是免费送！非诚勿扰！

扬帆工作室最近很活跃啊

帆工作室最近很活跃

  帆工作室最近很活跃
           帆工作室最近很活跃

又没有免费的给我我有什么用呢