SKILL源程序共享_MM转MIL，且附带计算器功能

sumi

SKILL源程序共享_MM转MIL，且附带计算器功能
有交流skill的可以联系哦

1. ;
2. ;
3. ;
6. (defun _cale_Form ()
7.         FORMFILE = outfile( "./cale.form")
8.         fprintf( FORMFILE "FILE_TYPE=FORM_DEFN VERSION=2\n")
9.         fprintf( FORMFILE "FORM\n")
10.         fprintf( FORMFILE "FIXED\n")
11.         fprintf( FORMFILE "PORT 40 13\n")
12.         fprintf( FORMFILE "HEADER \"Cale V1.0\"\n")
13.         fprintf( FORMFILE "\n")
14.         fprintf( FORMFILE "TILE\n")
15.    
16.         fprintf( FORMFILE "FIELD value_show\n")
17.         fprintf( FORMFILE "FLOC 2 1\n")
18.         fprintf( FORMFILE "STRFILLIN 20 100\n")
19.         fprintf( FORMFILE "ENDFIELD\n")
20.         fprintf( FORMFILE "\n")
21.         
22.         fprintf( FORMFILE "TEXT \"=\"\n")
23.         fprintf( FORMFILE "TLOC  25 1\n")
24.         fprintf( FORMFILE "ENDTEXT\n\n")
25.         
26.         fprintf( FORMFILE "FIELD jieguo\n")
27.         fprintf( FORMFILE "FLOC 27 1\n")
28.         fprintf( FORMFILE "REALFILLIN 10 100\n")
29.         fprintf( FORMFILE "ENDFIELD\n")
30.         fprintf( FORMFILE "\n")
31.         
32.         fprintf( FORMFILE "FIELD mils\n")
33.         fprintf( FORMFILE "FLOC 2 4\n")
34.         fprintf( FORMFILE "REALFILLIN 10 100\n")
35.         fprintf( FORMFILE "ENDFIELD\n")
36.         fprintf( FORMFILE "\n")
37.         
38.         fprintf( FORMFILE "TEXT \"mils\"\n")
39.         fprintf( FORMFILE "TLOC  15 4\n")
40.         fprintf( FORMFILE "ENDTEXT\n\n")
41.         
42.         fprintf( FORMFILE "FIELD mm\n")
43.         fprintf( FORMFILE "FLOC 22 4\n")
44.         fprintf( FORMFILE "REALFILLIN 10 100\n")
45.         fprintf( FORMFILE "ENDFIELD\n")
46.         fprintf( FORMFILE "\n")
47.         
48.         fprintf( FORMFILE "TEXT \"mm\"\n")
49.         fprintf( FORMFILE "TLOC  35 4\n")
50.         fprintf( FORMFILE "ENDTEXT\n\n")
51.         
52.     fprintf( FORMFILE "FIELD clear\n")
53.     fprintf( FORMFILE "FLOC 10 7\n")
54.     fprintf( FORMFILE "MENUBUTTON \"Clear\" 5 3\n")
55.         fprintf( FORMFILE "ENDFIELD\n")
56.        fprintf( FORMFILE "\n")
59.     fprintf( FORMFILE "FIELD exit\n")
60.     fprintf( FORMFILE "FLOC 25 7\n")
61.     fprintf( FORMFILE "MENUBUTTON \"EXIT\" 5 3\n")
62.         fprintf( FORMFILE "ENDFIELD\n")
63.            fprintf( FORMFILE "\n")
64.                
65.         fprintf( FORMFILE "ENDTILE\n")
66.         fprintf( FORMFILE "\n")
67.         fprintf( FORMFILE "ENDFORM\n")
68.         close( FORMFILE)
69.         form = (axlFormCreate (gensym) "cale.form" `("E" "OUTER") `cale_Callback t)
70.         axlFormDisplay( form)
71.         axlFormSetDecimal(form "jieguo" 4)
72.         axlFormSetDecimal(form "mils" 3)
73.         axlFormSetDecimal(form "mm" 4)
74.         deleteFile( "cale.form")
75.         s = ""
76.         m1 = 0.0
77.         m2 = 0.0
78.         m3 = 0.0
79.         a = ""
80. )
82. (defun cale_Callback (form)
83. (prog ()
84.     case( form->curField
85.           ("value_show"
86.               t1=1
87.               i=1
88.               s = form->curValue
89.               while(t1==1
90.                     a=symbolToString(getchar(s i))
91.                     i++
92.                     case(a
93.                          ("+"
94.                            t1=0
95.                            m1_c= car(parseString(s "+"))
96.                            m2_c= nthelem(2 parseString(s "+"))
97.                            sscanf(m1_c "%f" m1 )
98.                            sscanf(m2_c "%f" m2 )
99.                            m3=m1+m2
100.                           )
101.                          ("-"
102.                            t1=0
103.                            m1_c= car(parseString(s "-"))
104.                            m2_c= nthelem(2 parseString(s "-"))
105.                            sscanf(m1_c "%f" m1 )
106.                            sscanf(m2_c "%f" m2 )
107.                            m3=m1-m2
108.                           )
109.                          ("*"
110.                            t1=0
111.                            m1_c= car(parseString(s "*"))
112.                            m2_c= nthelem(2 parseString(s "*"))
113.                            sscanf(m1_c "%f" m1 )
114.                            sscanf(m2_c "%f" m2 )
115.                            m3=m1*m2
116.                           )
117.                          ("/"
118.                            t1=0
119.                            m1_c= car(parseString(s "/"))
120.                            m2_c= nthelem(2 parseString(s "/"))
121.                            sscanf(m1_c "%f" m1 )
122.                            sscanf(m2_c "%f" m2 )
123.                            m3=m1/m2
124.                           )
125.                         )
126.                      axlFormSetField( form "jieguo" m3)
127.                    );end while
128.            t)
129.            
130.            ("mils"
131.               mils = form->curValue
132.               mm = axlMKSConvert( mils "MILS" "MM")
133.               axlFormSetField( form "mm" mm)
134.            t)
135.            
136.            ("mm"
137.               mm = form->curValue
138.               mils = axlMKSConvert( mm "MM" "MILS")
139.               axlFormSetField( form "mils" mils)
140.            t)
141.            
142.            ("clear"
143.              axlFormSetField( form "value_show" nil)
144.              axlFormSetField( form "jieguo" nil)
145.              axlFormSetField( form "mils" nil)
146.              axlFormSetField( form "mm" nil)
147.            t)
148.            ("exit"
149.              axlFormClose(form)
150.            t)
152.       )
153. ))
154.    
155. axlCmdRegister( "cale" `_cale_Form)

复制代码

SKILL源程序共享_MM转MIL，且附带计算器功能.7z (2 KB, 下载次数: 0)

2020-11-14 15:17 上传

点击文件名下载附件
MM转MIL，且附带计算器功能

SKILL源程序共享_MM转MIL，且附带计算器功能

xjz632

    

the_lagacy_

非常好用