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

vivienluo

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

复制代码

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

junshi1000

这个不错，带注解，顶

vivienluo

自己顶

冷青瓷

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

eagle31

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

cdw19860212

好东西啊小东西没看到

chinaganzhou01

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

chinaganzhou01

感谢版主一直的贡献

sisic

謝謝  版主的 分享說明  

pierschiang

goodinformation