EDA365电子论坛网

标题: 谁知道这个SKILL是什么功能 [打印本页]

作者: jekyllcao    时间: 2012-8-19 23:32
标题: 谁知道这个SKILL是什么功能
(defun cal ()
aa=nil
bb=nil
cc=nil
dd=nil
ee=nil
ff=nil

createmyform()
myconvertform()

)

(defun myconvertform ()

myform=axlFormCreate( (gensym) mymainformfile nil 'myConv_Action t)
axlFormDisplay(myform)
t
)

(defun createmyform ()

drain()
mymainformfile = "myconv.form"
myform = outfile(mymainformfile "w")
fprintf(myform "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(myform "FORM\n")
fprintf(myform "FIXED\n")
fprintf(myform "PORT 45 45\n")
fprintf(myform "HEADER \"Quick Cal V1.0\"\n")
fprintf(myform "TILE\n")

fprintf(myform "FIELD aa\n")
fprintf(myform "FLOC 3 1\n")
fprintf(myform "STRFILLIN 10 10 \n")
fprintf(myform "ENDFIELD\n")
fprintf(myform "\n")

fprintf(myform "TEXT \"+ \"\n")
fprintf(myform "TLOC 15 1\n")
fprintf(myform "ENDTEXT\n")

fprintf(myform "FIELD bb\n")
fprintf(myform "FLOC 16 1\n")
fprintf(myform "STRFILLIN 10 10 \n")
fprintf(myform "ENDFIELD\n")
fprintf(myform "\n")

fprintf(myform "FIELD add\n")
fprintf(myform "FLOC 28 1\n")
fprintf(myform "MENUBUTTON \"=\" 3 3\n")
fprintf(myform "ENDFIELD\n")

fprintf(myform "FIELD cc\n")
fprintf(myform "FLOC 32 1\n")
fprintf(myform "STRFILLIN 10 10 \n")
fprintf(myform "ENDFIELD\n")
fprintf(myform "\n")

fprintf(myform "FIELD dd\n")
fprintf(myform "FLOC 3 3\n")
fprintf(myform "STRFILLIN 10 10 \n")
fprintf(myform "ENDFIELD\n")
fprintf(myform "\n")

fprintf(myform "TEXT \"- \"\n")
fprintf(myform "TLOC 15 3\n")
fprintf(myform "ENDTEXT\n")

fprintf(myform "FIELD ee\n")
fprintf(myform "FLOC 16 3\n")
fprintf(myform "STRFILLIN 10 10 \n")
fprintf(myform "ENDFIELD\n")
fprintf(myform "\n")

fprintf(myform "FIELD red\n")
fprintf(myform "FLOC 28 3\n")
fprintf(myform "MENUBUTTON \"=\" 3 3\n")
fprintf(myform "ENDFIELD\n")

fprintf(myform "FIELD ff\n")
fprintf(myform "FLOC 32 3\n")
fprintf(myform "STRFILLIN 10 10 \n")
fprintf(myform "ENDFIELD\n")
fprintf(myform "\n")

fprintf(myform "FIELD reset\n")
fprintf(myform "FLOC 9 6\n")
fprintf(myform "MENUBUTTON \"Clear\" 8 3\n")
fprintf(myform "ENDFIELD\n")

fprintf(myform "FIELD exit\n")
fprintf(myform "FLOC 30 6\n")
fprintf(myform "MENUBUTTON \"Exit\" 8 3\n")
fprintf(myform "ENDFIELD\n")


fprintf(myform "\n")
fprintf(myform "ENDTILE\n")
fprintf(myform "\n")
fprintf(myform "ENDFORM\n")
close( myform)

)

(defun myConv_Action (myform)
        aa=evalstring(axlFormGetField(myform "aa"))
        bb=evalstring(axlFormGetField(myform "bb"))
        dd=evalstring(axlFormGetField(myform "dd"))
        ee=evalstring(axlFormGetField(myform "ee"))
(case myform->curField

cal.rar

809 Bytes, 下载次数: 2, 下载积分: 贡献 -30 , 威望 -10

skill code


作者: chouqiu    时间: 2012-10-13 11:03
楼主高手啊  小弟只会用 不会写  不会读
  希望高手解答

作者: 雪窖冰天    时间: 2012-10-13 22:36
楼主是要开课讲如何编写skill?运行效果如下
功能就是实现两个数加和减

QQ截图20121013223628.jpg (4.73 KB, 下载次数: 3)

QQ截图20121013223628.jpg

作者: 雪窖冰天    时间: 2012-10-13 22:41
十分怀疑楼主为赚分而来,我把楼主放在附件中没有直接贴出来的部分贴出来,积分不够的自己慢慢抄下来学习。
(defun myConv_Action (myform)
        aa=evalstring(axlFormGetField(myform "aa"))
        bb=evalstring(axlFormGetField(myform "bb"))
        dd=evalstring(axlFormGetField(myform "dd"))
        ee=evalstring(axlFormGetField(myform "ee"))
(case myform->curField

        ("add"
        cc=aa+bb
        axlFormSetField(myform "cc" cc)
         );
   
        ("red"
        ff=dd-ee
        axlFormSetField(myform "ff" ff)
        );
       
         ("reset"
        aa=nil
        bb=nil
        cc=nil
        dd=nil
        ee=nil
        ff=nil
        axlFormSetField(myform "aa" nil)
        axlFormSetField(myform "bb" nil)
        axlFormSetField(myform "cc" nil)
        axlFormSetField(myform "dd" nil)
        axlFormSetField(myform "ee" nil)
        axlFormSetField(myform "ff" nil)
        );
       
         ("exit"
        axlFormClose(myform)
        shell("rm -f myconv.form")
                nil
        );
)
)

axlCmdRegister( "cal" `cal)

作者: wolf343105    时间: 2012-10-14 17:28
十分怀疑楼主.
作者: jekyllcao    时间: 2012-10-14 19:54
当时确实为了赚分,现在不用了。呵呵!
作者: kandy_zhou    时间: 2013-3-23 22:12
提示: 作者被禁止或删除 内容自动屏蔽
作者: hyper311    时间: 2017-8-29 12:48
这样也行
作者: LJ1697369196    时间: 2018-7-30 20:14
看着论坛我突然笑了





欢迎光临 EDA365电子论坛网 (https://bbs.eda365.com/) Powered by Discuz! X3.2