首页 › 代码展示 › 中文转码的skill，输入中文直接转码

woods 发表于 2013-4-19 23:38:51

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

;zhongwen.il

axlCmdRegister( "zwen" `ZhongWen_to_Skill_Form )

(defun ZhongWen_to_Skill_Form ()
                        time = getCurrentTime()
                        time = parseString(time)
                        day = nth(1 time)
                        month = car(time)
                        month = upperCase(month)
                        year = nth(3 time)
                        date = strcat(" Date: " day " " month " " year)
                         Create_ZhongWen_to_Skill_Form()
                        zhongwenform=axlFormCreate( (gensym) zhongwen_form_file nil 'ZhongWen_to_Skill_Form_Action t)
                        axlFormDisplay(zhongwenform)
                        axlUIWPrint(zhongwenform date)
                        deleteFile(zhongwen_form_file)
                )


(defun Create_ZhongWen_to_Skill_Form ()
drain()
zhongwen_form_file = "zhongwen_form.form"
zhongwenform = outfile(zhongwen_form_file "w")
fprintf(zhongwenform "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(zhongwenform "FORM AUTOGREYTEXT\n")
fprintf(zhongwenform "FIXED\n")
fprintf(zhongwenform "PORT 91 25\n")
fprintf(zhongwenform "HEADER \"\326\320\316\304\311\372\263\311Skill\264\372\302\353\"\n\n")
fprintf(zhongwenform "POPUP <ENUM>\"ITEM1\"\"0\",\"ITEM2\"\"1\",\"ITEM3\"\"2\",\"LAST ONE\"\"3\".\n\n")
fprintf(zhongwenform "TILE\n\n")

fprintf(zhongwenform "TEXT \"\241\357 \307\353\312\344\310\353\326\320\316\304 \241\357\"\n")
fprintf(zhongwenform "FLOC 2 2\n")
fprintf(zhongwenform "ENDTEXT\n\n")

fprintf(zhongwenform "FIELD ZhongWen\n")
fprintf(zhongwenform "FLOC 2 5\n")
fprintf(zhongwenform "FSIZE 86 2\n")
fprintf(zhongwenform "STRFILLIN 86 1000\n")
fprintf(zhongwenform "ENDFIELD \n\n\n")

fprintf(zhongwenform "TEXT \"\241\356 \266\324\323\246Skill\264\372\302\353 \241\356\"\n")
fprintf(zhongwenform "FLOC 2 9\n")
fprintf(zhongwenform "ENDTEXT\n\n")

fprintf(zhongwenform "FIELD DaiMa\n")
fprintf(zhongwenform "FLOC 2 12\n")
fprintf(zhongwenform "FSIZE 86 2\n")
fprintf(zhongwenform "STRFILLIN 86 1000\n")
fprintf(zhongwenform "ENDFIELD \n\n\n")

fprintf(zhongwenform "FIELD CreateDaiMa\n")
fprintf(zhongwenform "FLOC 40 17\n")
fprintf(zhongwenform "MENUBUTTON \"\307\345\277\325\" 10 4\n")
fprintf(zhongwenform "ENDFIELD \n\n")

fprintf(zhongwenform "ENDTILE\n\n")
fprintf(zhongwenform "ENDFORM\n\n")

close(zhongwenform)
)

(defun ZhongWen_to_Skill_Form_Action (zhongwenform)

case(zhongwenform->curField
                ("ZhongWen"
                values=axlFormGetField(zhongwenform "ZhongWen")
                axlFormSetField(zhongwenform "DaiMa" sprintf(nil "%L" values))               
                )
                ("CreateDaiMa"
                axlFormSetField(zhongwenform "DaiMa" nil)
                axlFormSetField(zhongwenform "ZhongWen" nil)
                )
                ("DaiMa")
      )
)

13rwmp13 发表于 2013-5-23 15:21:01

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

woods 发表于 2013-5-23 23:29:17

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

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

13rwmp13 发表于 2013-5-24 08:52:57

woods 发表于 2013-5-23 23:29 static/image/common/back.gif
呵呵，是啊，没错，这个更简单

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

vivienluo 发表于 2013-6-2 17:08:49

子木 发表于 2013-6-2 15:54 static/image/common/back.gif
请问楼主这个中文转码有啥用呢

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

vivienluo 发表于 2013-6-2 17:08:54

子木 发表于 2013-6-2 15:54 static/image/common/back.gif
请问楼主这个中文转码有啥用呢

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

inscribe 发表于 2014-5-1 23:28:19

群主 演示一下不明白

mygod22 发表于 2014-6-3 17:44:05

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

墨客的秋天 发表于 2014-11-28 08:24:02

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

mswordl 发表于 2015-3-28 16:46:38

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

查看完整版本: 中文转码的skill，输入中文直接转码