求高手指点下代码是否可以精减一下！！

ghfghyb

以下是我喜欢精减的代码！
附件是整个skill的原码！主要想通过软件入的方式做出一个阻抗表！！
这是我早期做的表，现在想精减一下，或者请高手们指一点别的指令也能实现这个功能！！

谢谢！！

1.         case(myform->cuRField
   
2.                                                
   
3.                         ("SW0"
   
4.                                 zzSW[0] = myform->curValue
   
5. 
   
6.                         )
   
7.                        
   
8.                         ("SW1"
   
9.                                 zzSW[1] = myform->curValue
   
10.                                
    
11.                         )
    
12.                        
    
13.                         ("SW2"
    
14.                                 zzSW[2] = myform->curValue
    
15.                                
    
16.                         )
    
17.                        
    
18.                         ("SW3"
    
19.                                 zzSW[3] = myform->curValue
    
20.                                
    
21.                         )
    
22.                        
    
23.                         ("SW4"
    
24.                                 zzSW[4] = myform->curValue
    
25.                                
    
26.                         )
    
27.                        
    
28.                         ("SW5"
    
29.                                 zzSW[5] = myform->curValue
    
30.                        
    
31.                         )
    
32.                        
    
33.                         ("SW6"
    
34.                                 zzSW[6] = myform->curValue
    
35.                                
    
36.                         )
    
37.                        
    
38.                         ("SW7"
    
39.                                 zzSW[7] = myform->curValue
    
40. 
    
41.                                
    
42.                         )
    
43.                        
    
44.                         ("SW8"
    
45.                                 zzSW[8] = myform->curValue
    
46.                                
    
47.                         )
    
48.                        
    
49.                         ("SW9"
    
50.                                 zzSW[9] = myform->curValue
    
51.                         )
    
52.                        
    
53.                         ("SW10"
    
54.                                 zzSW[10] = myform->curValue
    
55. 
    
56.                                
    
57.                         )
    
58.                        
    
59.                         ("SW11"
    
60.                                 zzSW[11] = myform->curValue
    
61.                                
    
62.                         )
    
63.                        
    
64.                         ("SW12"
    
65.                                 zzSW[12] = myform->curValue
    
66.                                
    
67.                         )
    
68.                        
    
69.                         ("SW13"
    
70.                                 zzSW[13] = myform->curValue
    
71.                                
    
72.                         )
    
73.                        
    
74.                         ("SW14"
    
75.                                 zzSW[14] = myform->curValue
    
76.                                
    
77.                         )
    
78.                                
    
79.                         ("SW15"
    
80.                                 zzSW[15] = myform->curValue
    
81.                                
    
82.                         )
    
83.                        
    
84.                         ("SW16"
    
85.                                 zzSW[16] = myform->curValue
    
86.                                
    
87.                         )
    
88.                        
    
89.                         ("SW17"
    
90.                                 zzSW[17] = myform->curValue
    
91.                                
    
92.                         )
    
93.                        
    
94.                         ("SW18"
    
95.                                 zzSW[18] = myform->curValue
    
96.                                
    
97.                         )
    
98.                        
    
99.                         ("SW19"
    
100.                                 zzSW[19] = myform->curValue
     
101.                                
     
102.                         )
     
103. )

复制代码

deargds

1.         when(myform->curField && atoi(myform->curField)
   
2.                 zSW[atoi(myform->curField)] = myform->curValue
   
3.         )

复制代码

betamelody

LZ去语法文档中看下makeTable的用法
还有你的所有变量都是全局变量,这样会有很多问题的
既然都用到全局变量了,不妨在创建filed的时候就将动态创建的filed全部记录下来,以供回调函数使用,如果不用全局变量,可以用form传值

定义时

1. myform = axlFormCreate(gensym() CreateWidthFormfile '("NE" "msglines" 0) 'CreateWidthFormfileAction t nil)
   
2. myform->myvalue = "54321"

复制代码

回调函数中使用

1. v = myform->myvalue
   
2. 
   
3. v=>"54321"

复制代码

ghfghyb

deargds
发表于 2013-6-14 09:30 |只看该作者
        when(myform->curField && atoi(myform->curField)
                zSW[atoi(myform->curField)] = myform->curValue
        )
复制代码

非常感觉，，已经可以使用在代码中，一直以胶case是操作指令，没想到是可以做成判断的运行方式！！