发一个skill源码上来,好像有人想法跟我一样

gpxknk

1. axlCmdRegister("wxsf" 'wxSaveFileBT)
   
2. axlShell("alias sf wxsf")
   
3. ;axlShell("alias k wxsf")
   
4. ;axlShell("alias kk skill 'load(\"wxSaveFileBT.il\")'")
   
5. 
   
6. /*
   
7. ├─
   
8. │ ├─        程序名称：
   
9. │ ├─        程序功能：保存文件，并注上(覆盖)当前时间
   
10. │ ├─        创建时间：2012年08月22日
    
11. │ ├─        修改时间：
    
12. │ ├─        作    者：gpxknk
    
13. │ └─        备    注：本来想保持原先格式才用了s1-s5，但后来觉得统一好点，即XXX-1630.brd
    
14. ├─
    
15. 
    
16. */
    
17. procedure( wxSaveFileBT()
    
18. prog( (tm sTime sDName sDNameNew s1 s2 s3 s4 s5)
    
19.         tm= timeToTm(stringToTime(getCurrentTime()))
    
20.         ;tm->tm_year        ;tm->tm_mon
    
21.         sTime= sprintf(nil,"%2d%2d",tm->tm_hour,tm->tm_min)
    
22.         rexCompile(" ")
    
23.         sTime= rexReplace(sTime,"0",0)
    
24.         sDName= axlCurrentDesign()        ;axlGetDrawingName
    
25.         if(strlen(sDName)< 5 then
    
26.                 sDNameNew= strcat(sDName,"-",sTime)
    
27.         else
    
28.                 rexCompile( "^\\(.+\\)\\([-_]+\\)\\([0-2][0-9]\\)\\([\\._-]*\\)\\([0-5][0-9]\\)$" ) ;-18.30.brd        _18.30.brd        _1830.brd
    
29.                 if(rexExecute(sDName) then
    
30.                         s1= rexSubstitute( "\\1" )
    
31.                         s2= rexSubstitute( "\\2" )
    
32.                         s3= rexSubstitute( "\\3" )
    
33.                         s4= rexSubstitute( "\\4" )
    
34.                         s5= rexSubstitute( "\\5" )
    
35.                         sDNameNew= strcat(s1,"-",sTime)
    
36.                 else
    
37.                         sDNameNew= strcat(sDName,"-",sTime)
    
38.                 );if
    
39.         );if
    
40.         axlSaveDesign(?design sDNameNew)
    
41.         printf("Save:[%s]-->[%s]\n",sDName,sDNameNew)
    
42. );prog
    
43. );procedure

复制代码

以下为24日修改后的,增加了日期

1. axlCmdRegister("wxsf" 'wxSaveFileBT)
   
2. axlShell("alias sd wxsf date")
   
3. axlShell("alias sf wxsf time")
   
4. ;axlShell("alias k wxsf")
   
5. ;axlShell("alias kk skill 'load(\"wxSaveFileBT.il\")'")
   
6. 
   
7. /*
   
8. ├─
   
9. │ ├─        程序名称：
   
10. │ ├─        程序功能：保存文件，并注上(覆盖)当前时间（日期）
    
11. │ ├─        创建时间：2012年08月22日
    
12. │ ├─        修改时间：
    
13. │ ├─        作    者：gpxknk
    
14. │ └─        备    注：
    
15. ├─
    
16. 
    
17. 2012年08月22日 统一格式，即XXX-1630.brd
    
18. 2012年08月24日 添加日期，同时保持两种格式
    
19. 
    
20. 命令行指令：
    
21.         sd : 保存为 XXX_MMdd_hhmm.brd
    
22.         sf : 保存为 XXX_hhmm.brd,也可能是 XXX_MMdd_hhmm.brd（只修改时间）
    
23. 对于sD1 sD2 sT1 sT2:
    
24.         sD1;日期前缀 eg: _X0824_1200.brd
    
25.         sD2;日期后缀 eg: _0824X_1200.brd
    
26.         sT1;时间前缀 eg: _0824_X1200.brd
    
27.         sT2;时间后缀 eg: _0824_1200X.brd
    
28.         1.以上也是无奈之举，不同的公司规则不一样，但连接符还是统一用"_",而"-"说实在的不规范
    
29.         2.而日期（时间）中间不要插符号，如时间：_16.30.brd,"."用在基本文件名上说实在的也不规范
    
30.         3.不要出现'空格','.','\',':','?'等等等等字符
    
31. 
    
32. */
    
33. 
    
34. procedure( wxSaveFileBT(@optional (mode "date") )
    
35. prog( (tm sDate sTime sDName sDNameNew sPre sPost pt sD1 sD2 sT1 sT2)
    
36.         sD1= ""
    
37.         sD2= ""
    
38.         sT1= ""
    
39.         sT2= ""
    
40.         sDName= axlCurrentDesign()        ;axlGetDrawingName
    
41.         tm= timeToTm(stringToTime(getCurrentTime()))
    
42.         sTime= sprintf(nil,"_%s%2d%2d%s",sT1,tm->tm_hour,tm->tm_min,sT2)
    
43.         sDate= sprintf(nil,"_%s%2d%2d%s%s",sD1,tm->tm_mon + 1,tm->tm_mday,sD2,sTime)        ;;tm->tm_year
    
44.         rexCompile(" ")
    
45.         sTime= rexReplace(sTime,"0",0)
    
46.         sDate= rexReplace(sDate,"0",0)
    
47.         case(mode
    
48.                 ("time" pt= strcat("^\\(.+\\)[-_]+",sT1,"[0-2][0-9]\\.*[0-5][0-9]",sT2,"$"),sPost=sTime)
    
49.                 ("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)
    
50.                 (t printf("ERROR:wxSaveFileBT: 'wxsf' argument error,\n"),return(nil))
    
51.         );case
    
52.         rexCompile(pt)
    
53.         if(rexExecute(sDName) then
    
54.                 sPre= rexSubstitute( "\\1" )
    
55.                 sDNameNew= strcat(sPre,sPost)
    
56.         else
    
57.                 sDNameNew= strcat(sDName,sPost)
    
58.         );if
    
59.         axlSaveDesign(?design sDNameNew)
    
60.         printf("Save: [ %s ] --> [ %s ]\n",sDName,sDNameNew)
    
61. );prog
    
62. );procedure
    

复制代码

Ringo1005

請問各位大神 如果存檔日期時間要放在檔案名前方 小弟該如何修改此份skill

jekyllcao

我也正尝试些这样功能的skill。正在调试中，可以参考你的了。呵呵

gpxknk

jekyllcao 发表于 2012-8-22 16:59
我也正尝试些这样功能的skill。正在调试中，可以参考你的了。呵呵

I Know,看了你连问了几个问题,便知个大概,于是写了个出来,以前也有这想法,不过没去写过

betamelody

挺好的想法,可以整合到trigger的机制中,这样就不用每次保存文件还要调用其他的菜单了

jekyllcao

我的skill也差不多了，请高手帮我修改修改。
备注：我们公司的board file命名是有规范的，按照part number(5位数字）+revision（a01_date_time.brd   eg. 24238e01_0822_2022.brd

代码如下：
axlCmdRegister("savetime" 'savetime)
procedure( savetime()
         A=axlCurrentDesign()
         list=substring(A 1 8)
         B=getCurrentTime()
         list1=substring(B 1 3)
         list2=substring(B 5 2)
         list3=substring(B 8 2)
         list4=substring(B 11 2)
         sDNameNew= strcat(list,"_",list1,list2,"_",list3,list4)      
         axlSaveDesign(?design sDNameNew)      
         );end of procedure  

mike9016

和自动保存 有什么区别吗？

jekyllcao

现在有个问题困扰我，skill存的brd file的名字是：24238e01_Aug22_2027.brd
因为系统的时间格式是"Aug 22 20:31:59 2012"，我还不知道怎样把Aug变成08.
请高手指教！

gpxknk

jekyllcao 发表于 2012-8-22 20:32
现在有个问题困扰我，skill存的brd file的名字是：24238e01_Aug22_2027.brd
因为系统的时间格式是"Aug 22  ...

如果你要用这种方式,那么你就直接替换吧,很直接的方法,1-12月,执行12次替换,不过怕不同的系统设置不一样这个函数取得的字符串格式也不一样,太不保险了.

我建议你还是用我上面的那种方式吧,先将它转换为TM结构,然后用"->"取得年\月\日\时\分....再格式化成你要的格式,
不同的编程语言实现起来不太一样,skill-lisp里我觉得这种方式算可以了.只是我没有找到日期时间格式化函数,如果这个用得很多,自己去写一个格式函数也是可以的,

如果你转化为time类型,它是一个长整型,你自己用数学计算出年\月\日\时\分也可以,

gpxknk

请deargds 出来再修改一下,这个网页的文本转代码显示的程序怎么把$变成了
[        DISCUZ_CODE_0        ]quot;
我怕我去改会丢失你改的格式.{:soso_e100:}

jekyllcao

gpxknk 发表于 2012-8-22 21:42
如果你要用这种方式,那么你就直接替换吧,很直接的方法,1-12月,执行12次替换,不过怕不同的系统设置不一样这 ...

你说的非常有道理，你不介意的话我拿你的代码为基础修改成我想要的样式，谢谢指教~~~

jekyllcao

mako88 发表于 2012-8-22 20:32
和自动保存 有什么区别吗？

自动保存只是把将文件以原来的文件名再存一遍，文件名没有改变，只是新保存的文件取代旧的文件。我们写的程式是在保存文件时时时跟系统的时间同步，每次保存的文件名都不一样。

mike9016

jekyllcao 发表于 2012-8-22 23:11
自动保存只是把将文件以原来的文件名再存一遍，文件名没有改变，只是新保存的文件取代旧的文件。我们写的 ...

噢~  look look{:soso_e113:}

mike9016

请问：怎么用啊？我怎么总是出现
Command > wxsf
E- *Error* toplevel: undefined variable - wxSaveFileBT
是什么原因啊？

gpxknk

mako88 发表于 2012-8-23 09:22
请问：怎么用啊？我怎么总是出现
Command > wxsf
E- *Error* toplevel: undefined variable - wxSaveFile ...

1. rexCompile( "^\\(.+\\)\\([-_]+\\)\\([0-2][0-9]\\)\\([\\._-]*\\)\\([0-5][0-9]\\)$" ) ;-18.30.brd        _18.30.brd        _1830.brd

复制代码

这一行应该是这样的

mike9016

gpxknk 发表于 2012-8-23 10:20
这一行应该是这样的

只能保存当前的时间，年份和月份不能改；还有，就是在一分钟内保存，不能自动覆盖。