MM与MIL互转源码，带详细注释

vivienluo · 发表于 2013-5-1 22:18:26

/****************************************************/
/* Title : mil2mm */
/* Execute Command : mil2mm */
/* Author : Vivien Luo */
/* Creation Date : 2013-05-01 */
/* Update : */
/* Web site : www.allegro-skill.com */
/****************************************************/
axlCmdRegister( "mil2mm" 'mil2mm)
procedure(mil2mm()
M2MVersion() ;显示版本等信息
M2MCreatFormFile() ;创建FORM文件
M2MFormFile = "./M2MFormFile.form" ;指定FORM文件
M2MForm = axlFormCreate( (gensym) M2MFormFile nil 'M2MFormAction t) ;创建FORM
;axlFormTest(M2MForm)
axlFormDisplay(M2MForm) ;显示FORM
axlUIWPrint(M2MForm "Written By Vivien Luo - www.allegro-skill.com");状态栏显示的信息
if(isFile(M2MFormFile) then ;删除FORM文件
deleteFile(M2MFormFile)
)
);end procedure
procedure(M2MFormAction(M2MForm)
case(M2MForm->curField ;获取FORM当前的字段
("MM" ;对输入的MM数据进行转换
mm = M2MForm->curValue ;获取MM的值
mils = axlMKSConvert(mm "mm" "mil") ;将MM转换为MIL，使用的是axlMKSConvert函数
axlFormSetField(M2MForm "MIL" mils) ;将转换的值传递给FORM的MIL
axlUIWPrint(M2MForm "MM Convert to MILS Successful !");状态栏显示的信息
)
("MIL" ;这部分与上面基本类似，就不做注释了
mils = M2MForm->curValue
mm = axlMKSConvert(mils "mil" "mm")
axlFormSetField(M2MForm "MM" mm)
axlUIWPrint(M2MForm "MILS Convert to MM Successful !")
)
);end case
);end procedure
procedure(M2MCreatFormFile()
M2MFilePort = outfile("./M2MFormFile.form");指定FORM文件
fprintf(M2MFilePort "FILE_TYPE=FORM_DEFN VERSION=2\n");FORM文件头，FORM文件里面第一句必须为这个
fprintf(M2MFilePort "FORM\n");FORM开始
fprintf(M2MFilePort "FIXED\n")
fprintf(M2MFilePort "PORT 35 6\n");FORM大小
fprintf(M2MFilePort "HEADER "MIL MM Interconversion"\n");FORM标题栏显示的内容
fprintf(M2MFilePort "\n")
fprintf(M2MFilePort "TILE\n");TILE开始
fprintf(M2MFilePort "TEXT "MM"\n");创建文本
fprintf(M2MFilePort "TLOC 2 1\n");指定坐标
fprintf(M2MFilePort "ENDTEXT\n");结束文本
fprintf(M2MFilePort "\n")
fprintf(M2MFilePort "FIELD MM\n");创建MM输入文本框
fprintf(M2MFilePort "FLOC 6 1\n");指定坐标
fprintf(M2MFilePort "REALFILLIN 8 12\n");文本框类型为REALFILLIN，注意区分INTFILLIN STRFILLIN
fprintf(M2MFilePort "REALMIN -9999999.9999\n");最小值
fprintf(M2MFilePort "REALMAX 9999999.9999\n");最大值
fprintf(M2MFilePort "DECIMAL 4\n") ;设置精度
fprintf(M2MFilePort "ENDFIELD\n");结束MM文本框
fprintf(M2MFilePort "\n")
fprintf(M2MFilePort "TEXT "<-->"\n");创建文本
fprintf(M2MFilePort "TLOC 16 1\n");指定坐标
fprintf(M2MFilePort "OPTIONS BOLD\n");结束文本
fprintf(M2MFilePort "ENDTEXT\n")
fprintf(M2MFilePort "FIELD MIL\n");创建MIL输入文本框
fprintf(M2MFilePort "FLOC 20 1\n");指定坐标
fprintf(M2MFilePort "REALFILLIN 8 12\n");文本框类型为REALFILLIN，注意区分INTFILLIN STRFILLIN
fprintf(M2MFilePort "REALMIN -99999999.99\n");最小值
fprintf(M2MFilePort "REALMAX 99999999.99\n");最大值
fprintf(M2MFilePort "DECIMAL 2\n");设置精度
fprintf(M2MFilePort "ENDFIELD\n");结束MIL文本框
fprintf(M2MFilePort "TEXT "MIL"\n");创建文本
fprintf(M2MFilePort "TLOC 31 1\n");指定坐标
fprintf(M2MFilePort "ENDTEXT\n");结束文本
fprintf(M2MFilePort "\n")
fprintf(M2MFilePort "\n")
fprintf(M2MFilePort "ENDTILE\n");结束TILE
fprintf(M2MFilePort "\n")
fprintf(M2MFilePort "ENDFORM\n");结束FORM
close( M2MFilePort)
;Debuge Message
;axlUIWPrint(nil "Form Created!")
);end procedure
procedure(M2MVersion()
axlUIWPrint(nil "------ mil2mm V1.1 ---- Written By Vivien Luo ------");在命令栏输出版本及作者
axlUIWPrint(nil "------ E-mail : vivienluo@allegro-skill.com ------ May 1, 2013 ------");在命令栏输出日期
);end procedure

复制代码

注意：MIL的精度设置为2就可以了，mm精度设置为4才能与mil精度对应

junshi1000 · 发表于 2014-7-5 00:19:38

这个不错，带注解，顶

vivienluo · 发表于 2013-5-17 21:44:29

自己顶

冷青瓷 · 发表于 2013-7-12 09:10:55

太好了，我现在就有用这个SKILL，现在能看懂了

eagle31 · 发表于 2013-10-4 15:18:17

我也有這個skill 感謝詳細的說明

cdw19860212 · 发表于 2013-12-22 18:34:17

好东西啊小东西没看到

chinaganzhou01 · 发表于 2013-12-23 00:29:55

感谢版主一直以来的贡献，我坚决拥护本站！

chinaganzhou01 · 发表于 2013-12-23 00:30:33

感谢版主一直的贡献

sisic · 发表于 2014-1-2 21:10:34

謝謝版主的分享說明

pierschiang · 发表于 2014-1-4 05:43:19

goodinformation

帐号		自动登录	找回密码
密码			立即注册

MM与MIL互转源码，带详细注释

评分

相关帖子