输出代码

#write BY qsb
# 2012 05 05

source $GENESIS_DIR/sys/scripts/program/set/common.def

DO_INFO -t step -e $JOB/$STEP -d SR_LIMITS
DO_INFO -t step -e $JOB/$STEP -d PROF_LIMITS
DO_INFO -t matrix -e $JOB/matrix -d ROW
if ( ! -d e:/1/$JOB ) then
mkdir h:/$JOB
endif

DO_INFO -t matrix -e $JOB/matrix -d ROW
source $GENESIS_DIR/sys/scripts/program/set/gui_set2
gui_out FG $RED
gui_out FONT hbi17

gui_out FORM
guiout LABEL LONG TENG Make Output Film system
guiout ENDFORM
gui_out FONT hbi14
gui_out BG $BLUED
gui_out FG $RED
gui_out FORM

guiout LABEL Script Design by YunPeng
guiout ENDFORM
gui_out FONT hbr17
gui_out BG $BLUED
gui_out FG $WHITE

gui_out FORM
guiout LABEL please choose layer
guiout ENDFORM

DO_INFO -t job -e $JOB
gui_out BW 1
gui_out LIST layer 15 M 1
set i = 1
while ( $i < $#gROWcontext )
if ( $gROWpolarity[$i] == "positive" || $gROWpolarity[$i] == "negative" ) then
gui_out $gROWname[$i]
endif
@ i ++
end
gui_out END
gui_out LABEL
gui_out "RADIO confirm1 Confirm? H 1 $RED"
gui_out Yes.Go
gui_out No.Exit
gui_out END
gui_out CLABEL Finish
gui_out END
dogui

if ( $confirm1 == 2 ) exit

set echo
echo "$layer" > $GENESIS_DIR/sys/scripts/layer
set layer_tol = (` cat $GENESIS_DIR/sys/scripts/layer `)

set a = 1
set layer_num = $#layer_tol
while ( $a <= $layer_num )
set layer = `echo $layer_tol[$a]`
@ a++
end

set i = 1
set layer_num = $#layer_tol
while ( $i <= $layer_num )
set layer = `echo $layer_tol[$i]`
COM output_layer_reset
COM output_layer_set,layer=$layer,angle=0,mirror=no,x_scale=1,y_scale=1,\
comp=0,polarity=positive,setupfile=,setupfiletmp=,line_units=inch,\
gscl_file=
COM output,job=$JOB,step=pnl,format=Gerber274x,dir_path=h:/$JOB,\
prefix=$JOB.,suffix=,break_sr=yes,break_symbols=no,break_arc=no,\
scale_mode=all,surface_mode=fill,min_brush=1,units=inch,coordinates=absolute,\
zeroes=none,nf1=3,nf2=5,x_anchor=0,y_anchor=0,wheel=,x_offset=0,\
y_offset=0,line_units=inch,override_online=yes,film_size_cross_scan=0,\
film_size_along_scan=0,ds_model=RG6500
COM disp_on
COM origin_on
@ i++
end
##################################

COM save_job,job=$JOB,override=no


PAUSE Thank you