中文转码的skill，输入中文直接转码

woods

1. ;zhongwen.il
   
2. 
   
3. axlCmdRegister( "zwen" `ZhongWen_to_Skill_Form )
   
4. 
   
5. (defun ZhongWen_to_Skill_Form ()
   
6.                         time = getCurrentTime()
   
7.                         time = parseString(time)
   
8.                         day = nth(1 time)
   
9.                         month = car(time)
   
10.                         month = upperCase(month)
    
11.                         year = nth(3 time)
    
12.                         date = strcat(" Date: " day " " month " " year)
    
13.                          Create_ZhongWen_to_Skill_Form()
    
14.                         zhongwenform=axlFormCreate( (gensym) zhongwen_form_file nil 'ZhongWen_to_Skill_Form_Action t)
    
15.                         axlFormDisplay(zhongwenform)
    
16.                         axlUIWPrint(zhongwenform date)
    
17.                         deleteFile(zhongwen_form_file)
    
18.                 )
    
19. 
    
20. 
    
21. (defun Create_ZhongWen_to_Skill_Form ()
    
22. drain()
    
23. zhongwen_form_file = "zhongwen_form.form"
    
24. zhongwenform = outfile(zhongwen_form_file "w")
    
25. fprintf(zhongwenform "FILE_TYPE=FORM_DEFN VERSION=2\n")
    
26. fprintf(zhongwenform "FORM AUTOGREYTEXT\n")
    
27. fprintf(zhongwenform "FIXED\n")
    
28. fprintf(zhongwenform "PORT 91 25\n")
    
29. fprintf(zhongwenform "HEADER "\326\320\316\304\311\372\263\311Skill\264\372\302\353"\n\n")
    
30. fprintf(zhongwenform "POPUP <ENUM>"ITEM1""0","ITEM2""1","ITEM3""2","LAST ONE""3".\n\n")
    
31. fprintf(zhongwenform "TILE\n\n")
    
32. 
    
33. fprintf(zhongwenform "TEXT "\241\357 \307\353\312\344\310\353\326\320\316\304 \241\357"\n")
    
34. fprintf(zhongwenform "FLOC 2 2\n")
    
35. fprintf(zhongwenform "ENDTEXT\n\n")
    
36. 
    
37. fprintf(zhongwenform "FIELD ZhongWen\n")
    
38. fprintf(zhongwenform "FLOC 2 5\n")
    
39. fprintf(zhongwenform "FSIZE 86 2\n")
    
40. fprintf(zhongwenform "STRFILLIN 86 1000\n")
    
41. fprintf(zhongwenform "ENDFIELD \n\n\n")
    
42. 
    
43. fprintf(zhongwenform "TEXT "\241\356 \266\324\323\246Skill\264\372\302\353 \241\356"\n")
    
44. fprintf(zhongwenform "FLOC 2 9\n")
    
45. fprintf(zhongwenform "ENDTEXT\n\n")
    
46. 
    
47. fprintf(zhongwenform "FIELD DaiMa\n")
    
48. fprintf(zhongwenform "FLOC 2 12\n")
    
49. fprintf(zhongwenform "FSIZE 86 2\n")
    
50. fprintf(zhongwenform "STRFILLIN 86 1000\n")
    
51. fprintf(zhongwenform "ENDFIELD \n\n\n")
    
52. 
    
53. fprintf(zhongwenform "FIELD CreateDaiMa\n")
    
54. fprintf(zhongwenform "FLOC 40 17\n")
    
55. fprintf(zhongwenform "MENUBUTTON "\307\345\277\325" 10 4\n")
    
56. fprintf(zhongwenform "ENDFIELD \n\n")
    
57. 
    
58. fprintf(zhongwenform "ENDTILE\n\n")
    
59. fprintf(zhongwenform "ENDFORM\n\n")
    
60. 
    
61. close(zhongwenform)
    
62. )
    
63. 
    
64. (defun ZhongWen_to_Skill_Form_Action (zhongwenform)
    
65. 
    
66. case(zhongwenform->curField
    
67.                 ("ZhongWen"
    
68.                 values=axlFormGetField(zhongwenform "ZhongWen")
    
69.                 axlFormSetField(zhongwenform "DaiMa" sprintf(nil "%L" values))               
    
70.                 )
    
71.                 ("CreateDaiMa"
    
72.                 axlFormSetField(zhongwenform "DaiMa" nil)
    
73.                 axlFormSetField(zhongwenform "ZhongWen" nil)
    
74.                 )
    
75.                 ("DaiMa")
    
76.         )
    
77. )

复制代码

13rwmp13

axlUIPrompt("Code:",sprintf(nil,"%L",axlUIPrompt("Please Input Chinese:")))
这一行代码，就能完成你的功能吧。

woods

13rwmp13 发表于 2013-5-23 15:21
axlUIPrompt("Code:",sprintf(nil,"%L",axlUIPrompt("Please Input Chinese:")))
这一行代码，就能完成你的 ...

呵呵，是啊，没错，这个更简单

13rwmp13

woods 发表于 2013-5-23 23:29
呵呵，是啊，没错，这个更简单

好的话，版主就给加分啊。
刚来本群，缺分。。。
都支持我一下啊。
我很多宝贝的，以后慢慢共享给你们。。。

vivienluo

子木 发表于 2013-6-2 15:54
请问楼主这个中文转码有啥用呢

可在SKILL中 输出一些中文字符。。。

vivienluo

子木 发表于 2013-6-2 15:54
请问楼主这个中文转码有啥用呢

可在SKILL中 输出一些中文字符。。。

inscribe

群主 演示一下  不明白

mygod22

我试了下这个SKill，用转码生成的文字代码生成丝印，在pcb中显示不正确，但是用show element打开在属性中显示的却正确，请问，在pcb界面显示不正确是我操作不对还是程序本身就只能如此，谢谢？

墨客的秋天

不太明白。来个图例演示哈

mswordl

study,thanks for share!!!!!!!!!!!!!