|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
(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
|