|
|
EDA365欢迎您！
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 gpxknk 于 2012-8-27 19:01 编辑
- axlCmdRegister("wxsf" 'wxSaveFileBT)
- axlShell("alias sf wxsf")
- ;axlShell("alias k wxsf")
- ;axlShell("alias kk skill 'load(\"wxSaveFileBT.il\")'")
- /*
- ├─
- │ ├─ 程序名称：
- │ ├─ 程序功能：保存文件，并注上(覆盖)当前时间
- │ ├─ 创建时间：2012年08月22日
- │ ├─ 修改时间：
- │ ├─ 作 者：gpxknk
- │ └─ 备 注：本来想保持原先格式才用了s1-s5，但后来觉得统一好点，即XXX-1630.brd
- ├─
- */
- procedure( wxSaveFileBT()
- prog( (tm sTime sDName sDNameNew s1 s2 s3 s4 s5)
- tm= timeToTm(stringToTime(getCurrentTime()))
- ;tm->tm_year ;tm->tm_mon
- sTime= sprintf(nil,"%2d%2d",tm->tm_hour,tm->tm_min)
- rexCompile(" ")
- sTime= rexReplace(sTime,"0",0)
- sDName= axlCurrentDesign() ;axlGetDrawingName
- if(strlen(sDName)< 5 then
- sDNameNew= strcat(sDName,"-",sTime)
- else
- rexCompile( "^\\(.+\\)\\([-_]+\\)\\([0-2][0-9]\\)\\([\\._-]*\\)\\([0-5][0-9]\\)$" ) ;-18.30.brd _18.30.brd _1830.brd
- if(rexExecute(sDName) then
- s1= rexSubstitute( "\\1" )
- s2= rexSubstitute( "\\2" )
- s3= rexSubstitute( "\\3" )
- s4= rexSubstitute( "\\4" )
- s5= rexSubstitute( "\\5" )
- sDNameNew= strcat(s1,"-",sTime)
- else
- sDNameNew= strcat(sDName,"-",sTime)
- );if
- );if
- axlSaveDesign(?design sDNameNew)
- printf("Save:[%s]-->[%s]\n",sDName,sDNameNew)
- );prog
- );procedure
- axlCmdRegister("wxsf" 'wxSaveFileBT)
- axlShell("alias sd wxsf date")
- axlShell("alias sf wxsf time")
- ;axlShell("alias k wxsf")
- ;axlShell("alias kk skill 'load(\"wxSaveFileBT.il\")'")
- /*
- ├─
- │ ├─ 程序名称：
- │ ├─ 程序功能：保存文件，并注上(覆盖)当前时间（日期）
- │ ├─ 创建时间：2012年08月22日
- │ ├─ 修改时间：
- │ ├─ 作 者：gpxknk
- │ └─ 备 注：
- ├─
- 2012年08月22日 统一格式，即XXX-1630.brd
- 2012年08月24日 添加日期，同时保持两种格式
- 命令行指令：
- sd : 保存为 XXX_MMdd_hhmm.brd
- sf : 保存为 XXX_hhmm.brd,也可能是 XXX_MMdd_hhmm.brd（只修改时间）
- 对于sD1 sD2 sT1 sT2:
- sD1;日期前缀 eg: _X0824_1200.brd
- sD2;日期后缀 eg: _0824X_1200.brd
- sT1;时间前缀 eg: _0824_X1200.brd
- sT2;时间后缀 eg: _0824_1200X.brd
- 1.以上也是无奈之举，不同的公司规则不一样，但连接符还是统一用"_",而"-"说实在的不规范
- 2.而日期（时间）中间不要插符号，如时间：_16.30.brd,"."用在基本文件名上说实在的也不规范
- 3.不要出现'空格','.','\',':','?'等等等等字符
- */
- procedure( wxSaveFileBT(@optional (mode "date") )
- prog( (tm sDate sTime sDName sDNameNew sPre sPost pt sD1 sD2 sT1 sT2)
- sD1= ""
- sD2= ""
- sT1= ""
- sT2= ""
- sDName= axlCurrentDesign() ;axlGetDrawingName
- tm= timeToTm(stringToTime(getCurrentTime()))
- sTime= sprintf(nil,"_%s%2d%2d%s",sT1,tm->tm_hour,tm->tm_min,sT2)
- sDate= sprintf(nil,"_%s%2d%2d%s%s",sD1,tm->tm_mon + 1,tm->tm_mday,sD2,sTime) ;;tm->tm_year
- rexCompile(" ")
- sTime= rexReplace(sTime,"0",0)
- sDate= rexReplace(sDate,"0",0)
- case(mode
- ("time" pt= strcat("^\\(.+\\)[-_]+",sT1,"[0-2][0-9]\\.*[0-5][0-9]",sT2,"$"),sPost=sTime)
- ("date" pt= strcat("^\\(.+\\)[-_]+",sD1,"[0-1][0-9][0-3][0-9]",sD2,"[-_]+",sT1,"[0-2][0-9]\\.*[0-5][0-9]",sT2,"$"),sPost=sDate)
- (t printf("ERROR:wxSaveFileBT: 'wxsf' argument error,\n"),return(nil))
- );case
- rexCompile(pt)
- if(rexExecute(sDName) then
- sPre= rexSubstitute( "\\1" )
- sDNameNew= strcat(sPre,sPost)
- else
- sDNameNew= strcat(sDName,sPost)
- );if
- axlSaveDesign(?design sDNameNew)
- printf("Save: [ %s ] --> [ %s ]\n",sDName,sDNameNew)
- );prog
- );procedure
|
评分
-
查看全部评分
|
/1 
发表于 2012-8-22 15:28
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
微信
收藏
支持！
反对！
楼主
