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

褚申成

1. /****************************************************/
   
2. /*               Title :  mil2mm                    */
   
3. /*     Execute Command :  mil2mm                    */
   
4. /*              Author :  Vivien Luo                */
   
5. /*       Creation Date :  2013-05-01                */
   
6. /*              Update :                            */
   
7. /****************************************************/
   
8. 
   
9. axlCmdRegister( "mil2mm" 'mil2mm)
   
10. procedure(mil2mm()
    
11.         M2MVersion()                                ;显示版本等信息
    
12.         M2MCreatFormFile()                        ;创建FORM文件
    
13.         M2MFormFile = "./M2MFormFile.form"        ;指定FORM文件
    
14.         M2MForm = axlFormCreate( (gensym) M2MFormFile nil 'M2MFormAction t)        ;创建FORM
    
15.         ;axlFormTest(M2MForm)
    
16.         axlFormDisplay(M2MForm)                ;显示FORM
    
17.         axlUIWPrint(M2MForm "Written By Vivien Luo - www.allegro-skill.com");状态栏显示的信息
    
18.         if(isFile(M2MFormFile) then        ;删除FORM文件
    
19.                 deleteFile(M2MFormFile)
    
20.         )
    
21. );end procedure
    
22. 
    
23. procedure(M2MFormAction(M2MForm)
    
24.         case(M2MForm->curField        ;获取FORM当前的字段
    
25.                 ("MM"        ;对输入的MM数据进行转换
    
26.                         mm = M2MForm->curValue        ;获取MM的值
    
27.                         mils = axlMKSConvert(mm "mm" "mil")        ;将MM转换为MIL，使用的是axlMKSConvert函数
    
28.                         axlFormSetField(M2MForm "MIL" mils)        ;将转换的值传递给FORM的MIL
    
29.                         axlUIWPrint(M2MForm "MM Convert to MILS Successful !");状态栏显示的信息
    
30.                 )
    
31.                 ("MIL"        ;这部分与上面基本类似，就不做注释了
    
32.                         mils = M2MForm->curValue
    
33.                         mm = axlMKSConvert(mils "mil" "mm")
    
34.                         axlFormSetField(M2MForm "MM" mm)
    
35.                         axlUIWPrint(M2MForm "MILS Convert to MM Successful !")
    
36.                 )
    
37.         );end case
    
38. );end procedure
    
39. 
    
40. procedure(M2MCreatFormFile()
    
41.         M2MFilePort = outfile("./M2MFormFile.form");指定FORM文件
    
42.         fprintf(M2MFilePort "FILE_TYPE=FORM_DEFN VERSION=2\n");FORM文件头，FORM文件里面第一句必须为这个
    
43.         fprintf(M2MFilePort "FORM\n");FORM开始
    
44.         fprintf(M2MFilePort "FIXED\n")
    
45.         fprintf(M2MFilePort "PORT 35 6\n");FORM大小
    
46.         fprintf(M2MFilePort "HEADER "MIL MM Interconversion"\n");FORM标题栏显示的内容
    
47.         fprintf(M2MFilePort "\n")
    
48.         
    
49.         fprintf(M2MFilePort "TILE\n");TILE开始
    
50.         
    
51.         fprintf(M2MFilePort "TEXT "MM"\n");创建文本
    
52.         fprintf(M2MFilePort "TLOC 2 1\n");指定坐标
    
53.         fprintf(M2MFilePort "ENDTEXT\n");结束文本
    
54.         fprintf(M2MFilePort "\n")
    
55.         
    
56.         fprintf(M2MFilePort "FIELD MM\n");创建MM输入文本框
    
57.         fprintf(M2MFilePort "FLOC 6 1\n");指定坐标
    
58.         fprintf(M2MFilePort "REALFILLIN 8 12\n");文本框类型为REALFILLIN，注意区分INTFILLIN STRFILLIN
    
59.         fprintf(M2MFilePort "REALMIN -9999999.9999\n");最小值
    
60.         fprintf(M2MFilePort "REALMAX 9999999.9999\n");最大值
    
61.         fprintf(M2MFilePort "DECIMAL 4\n")        ;设置精度
    
62.         fprintf(M2MFilePort "ENDFIELD\n");结束MM文本框
    
63.         fprintf(M2MFilePort "\n")
    
64.         
    
65.         fprintf(M2MFilePort "TEXT "<-->"\n");创建文本
    
66.         fprintf(M2MFilePort "TLOC 16 1\n");指定坐标
    
67.         fprintf(M2MFilePort "OPTIONS BOLD\n");结束文本
    
68.         fprintf(M2MFilePort "ENDTEXT\n")
    
69.         
    
70.         fprintf(M2MFilePort "FIELD MIL\n");创建MIL输入文本框
    
71.         fprintf(M2MFilePort "FLOC 20 1\n");指定坐标
    
72.         fprintf(M2MFilePort "REALFILLIN 8 12\n");文本框类型为REALFILLIN，注意区分INTFILLIN STRFILLIN
    
73.         fprintf(M2MFilePort "REALMIN -99999999.99\n");最小值
    
74.         fprintf(M2MFilePort "REALMAX 99999999.99\n");最大值
    
75.         fprintf(M2MFilePort "DECIMAL 2\n");设置精度
    
76.         fprintf(M2MFilePort "ENDFIELD\n");结束MIL文本框
    
77.         
    
78.         fprintf(M2MFilePort "TEXT "MIL"\n");创建文本
    
79.         fprintf(M2MFilePort "TLOC 31 1\n");指定坐标
    
80.         fprintf(M2MFilePort "ENDTEXT\n");结束文本
    
81.         fprintf(M2MFilePort "\n")
    
82.         
    
83.         fprintf(M2MFilePort "\n")
    
84.         fprintf(M2MFilePort "ENDTILE\n");结束TILE
    
85.         fprintf(M2MFilePort "\n")
    
86.         fprintf(M2MFilePort "ENDFORM\n");结束FORM
    
87.         close( M2MFilePort)
    
88.         ;Debuge Message
    
89.         ;axlUIWPrint(nil "Form Created!")
    
90. );end procedure
    
91. 
    
92. procedure(M2MVersion()
    
93.         axlUIWPrint(nil "------ mil2mm V1.1 ---- Written By Vivien Luo  ------");在命令栏输出版本及作者
    
94.         axlUIWPrint(nil "------ E-mail : vivienluo@allegro-skill.com ------ May 1, 2013 ------");在命令栏输出日期
    
95. );end procedure

复制代码

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