PCB论坛网

 找回密码
 注册
查看: 1069|回复: 0

梅州genesis2000脚本

[复制链接]
发表于 2008-11-8 20:47:00 | 显示全部楼层 |阅读模式

顺成电脑培训学校

梅州最大型的电脑培训连锁--欢迎想学CAM genesis2000工程培训人士

专业培训:CAM工程师
学校地址:梅州市梅江二路百花洲影剧院侧(阿古体育城二楼)电话:2266188      13823882188

总店: 江南三横街进士楼(市政府对面)

分店: 华侨城宪梓在道丽群小学斜对面

genesis脚本

#!/bin/csh -f script
source $GENESIS_DIR/sys/scripts/chren/common.def
  
guiout WIN 200 200
guiout FORM


guiout LABEL @$GENESIS_DIR/sys/scripts/chren/xie
guiout ENDFORM
gui_out BW 3
guiout RADIO layer "@$GENESIS_DIR/sys/scripts/chren/chong5" v 1 990000
guiout @$GENESIS_DIR/sys/scripts/chren/chong2
guiout @$GENESIS_DIR/sys/scripts/chren/chong3
guiout @$GENESIS_DIR/sys/scripts/chren/chong4

guiout END
guiou  FORM
gui_out BW 1 
gui_out FONT hbl20
guiout RADIO bm "@$GENESIS_DIR/sys/scripts/chren/biaomian" h 1 990000
guiout  @$GENESIS_DIR/sys/scripts/chren/xi
guiout  @$GENESIS_DIR/sys/scripts/chren/jin
guiout  end
guiout  RADIO next "@$GENESIS_DIR/sys/scripts/chren/ji" H 1 990000
guiout  yes
guiout  no
guiout  end
guiout LABEL @$GENESIS_DIR/sys/scripts/chren/dian
guiout ENDFORM
guiout CLABEL CLOSE AND CONTINUE
dogui
######################
if ($next == 2) then
exit 0
endif

if ($layer == 1 ||$layer == 2 ||$layer == 3) then

set jobname = $JOB
   set jobpath = `dbutil path jobs $JOB`
   touch ${GENESIS_TMP}/step_list.$$
   DO_INFO -t job  -e $jobname
   foreach st_es ($gSTEPS_LIST)  
        echo $st_es >> ${GENESIS_TMP}/step_list.$$ 
    end
   guiout WIN 200 200
   gui_out FONT hbr17
   gui_out BG  $BLUED
   gui_out FG  $BLACK

        guiout   LABEL "select Panpel step name" 
  guiout   LIST pcb_name 6 S 1 
        gui_list  ${GENESIS_TMP}/step_list.$$
        guiout   END      
  guiout   CLABEL  Continue   
  dogui
    rm ${GENESIS_TMP}/step_list.$$

   guiout WIN 200 200
   gui_out FONT hbr17
   gui_out BG  $BLUED
   gui_out FG  $BLACK
   gui_out FORM
   guiout LABEL Please enter panel name:
   guiout ENDFORM
   guiout FORM
   guiout LABEL Enter new name:
   guiout TEXT panel_name 8
   guiout DTEXT panel_name panel
   guiout ENDFORM
   guiout LABEL panel size
   guiout TEXT pnlx 10 'x_size:'
guiout TEXT pnly 10 'y_size:'
guiout ENDFORM
 
   guiout CLABEL next
   dogui
 set panel_name = `echo $panel_name | tr "[A-Z]" "[a-z"]`
  
    DO_INFO -t step -e $JOB/$panel_name -d exists

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|小黑屋|手机版|PCB设计论坛|EDA论坛|PCB论坛网 ( 沪ICP备05006956号-1 )

GMT+8, 2024-9-27 23:30 , Processed in 0.206780 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表