高手帮助

lixiaomin96

(defun c:two()
  (setvar "cmdecho" 0)
  (setq wei1_list '("白炽灯" "荧光灯(单管)" "荧光灯(双管)" "荧光灯(多管)" "高强气体放电灯" "卤钨灯"))
  (setq wei2_list '("清洁" "一般" "污染"))
  (setq li1_list '("0.5" "0.6" "0.7" "0.8" "0.9" "1.0" "1.1" "1.25" "1.5" "1.75" "2.0" "2.25" "2.5" "3.0" "3.5" "4.0" "5.0"))
  (setq li2_list '("30,10" "30,30" "50,10" "50,30" "50;50" "70,10" "70,30" "70,50" "70,70" "30,10,10" "30,30,10" "50,30,10" "50,30,30" "50,50,10" "50,50,30" "70,30,10" "70,30,30" "70,50,10" "70,50,30"))
  (dcl_1st)
  (prin1)
)
(defun dcl_1st()
   (setq dcl_id(load_dialog "two"))
   (new_dialog "two" dcl_id)
   (show_list "wei1" wei1_list)
   (show_list "wei2" wei2_list)
   (show_list "li1" li1_list)
   (show_list "li2" li2_list)
   (setq wei1 (get_tile "wei1")
         wei2 (get_tile "wei2")
         whxs (get_tile "whxs")
         li1 (get_tile "li1")
         li2 (get_tile "li2"))
   (action_tile "wei1" "(setq wei1 $value)(sub_wei)")
   (action_tile "wei2" "(setq wei2 $value)(sub_wei)")
   (action_tile "whxs" "(setq whxs $value)(sub_wei)")
   (action_tile "li1" "(setq li1 $value)(sub_wei)")
   (action_tile "li2" "(setq li2 $value)(sub_wei)")
   (action_tile "accept" "(ok_1st)(done_dialog)")
   (start_dialog)
)
(defun ok_1st()
  (setq lyxs(get_tile "lyxs"))
)
(defun show_list(key newlist)
       (start_list key)
       (mapcar 'add_list newlist)
       (end_list)
)
(defun sub_wei()
      (cond
      ((and (= wei1 "0") (= wei2 "0")) (set_tile "whxs" "0.75"))
      ((and (= wei1 "0") (= wei2 "1")) (set_tile "whxs" "0.70"))
      ((and (= wei1 "0") (= wei2 "2")) (set_tile "whxs" "0.65"))
      ((if(= wei1 "0") (setq  li1 '("0.6" "0.7" "0.8" "0.9" "1.0" "1.1" "1.25" "1.5" "1.75" "2.0" "2.25" "2.5" "3.0" "3.5" "4.0" "5.0")
                             li2 '("50,30,10" "50,30,30" "50,50,10" "50,50,30" "70,30,10" "70,30,30" "70,50,10" "70,50,30")))
                     ((and(= li1 "0") (= li2 "0")) (set_tile "lyxs" "0.13"))
                     ((and(= li1 "0") (= li2 "1")) (set_tile "lyxs" "0.14"))
                     ((and(= li1 "0") (= li2 "2")) (set_tile "lyxs" "0.16"))
                     ((and(= li1 "0") (= li2 "3")) (set_tile "lyxs" "0.17"))
                     ((and(= li1 "0") (= li2 "4")) (set_tile "lyxs" "0.14"))
                     ((and(= li1 "0") (= li2 "5")) (set_tile "lyxs" "0.15"))
                     ((and(= li1 "0") (= li2 "6")) (set_tile "lyxs" "0.18"))
                     ((and(= li1 "0") (= li2 "7")) (set_tile "lyxs" "0.19"))
                     ((and(= li1 "1") (= li2 "0")) (set_tile "lyxs" "0.16"))
                     ((and(= li1 "1") (= li2 "1")) (set_tile "lyxs" "0.17"))
                     ((and(= li1 "1") (= li2 "2")) (set_tile "lyxs" "0.20"))
                     ((and(= li1 "1") (= li2 "3")) (set_tile "lyxs" "0.20"))
                     ((and(= li1 "1") (= li2 "4")) (set_tile "lyxs" "0.18"))
                     ((and(= li1 "1") (= li2 "5")) (set_tile "lyxs" "0.19"))
                     ((and(= li1 "1") (= li2 "6")) (set_tile "lyxs" "0.22"))
                     ((and(= li1 "1") (= li2 "7")) (set_tile "lyxs" "0.23"))
                     ((and(= li1 "2") (= li2 "0")) (set_tile "lyxs" "0.18"))
                     ((and(= li1 "2") (= li2 "1")) (set_tile "lyxs" "0.19"))
                     ((and(= li1 "2") (= li2 "2")) (set_tile "lyxs" "0.22"))
                     ((and(= li1 "2") (= li2 "3")) (set_tile "lyxs" "0.22"))
                     ((and(= li1 "2") (= li2 "4")) (set_tile "lyxs" "0.21"))
                     ((and(= li1 "2") (= li2 "5")) (set_tile "lyxs" "0.22"))
                     ((and(= li1 "2") (= li2 "6")) (set_tile "lyxs" "0.24"))
                     ((and(= li1 "2") (= li2 "7")) (set_tile "lyxs" "0.25"))
                     ((and(= li1 "3") (= li2 "0")) (set_tile "lyxs" "0.20"))
                     ((and(= li1 "3") (= li2 "1")) (set_tile "lyxs" "0.21"))
                     ((and(= li1 "3") (= li2 "2")) (set_tile "lyxs" "0.24"))
                     ((and(= li1 "3") (= li2 "3")) (set_tile "lyxs" "0.24"))
                     ((and(= li1 "3") (= li2 "4")) (set_tile "lyxs" "0.22"))
                     ((and(= li1 "3") (= li2 "5")) (set_tile "lyxs" "0.23"))
                     ((and(= li1 "3") (= li2 "6")) (set_tile "lyxs" "0.26"))
                     ((and(= li1 "3") (= li2 "7")) (set_tile "lyxs" "0.28"))
               )
                        
      ((and (= wei1 "1") (= wei2 "0")) (set_tile "whxs" "0.75"))
      ((and (= wei1 "1") (= wei2 "1")) (set_tile "whxs" "0.70"))
      ((and (= wei1 "1") (= wei2 "2")) (set_tile "whxs" "0.65"))
      ((and (= wei1 "2") (= wei2 "0")) (set_tile "whxs" "0.75"))
      ((and (= wei1 "2") (= wei2 "1")) (set_tile "whxs" "0.70"))
      ((and (= wei1 "2") (= wei2 "2")) (set_tile "whxs" "0.65"))
      ((and (= wei1 "3") (= wei2 "0")) (set_tile "whxs" "0.75"))
      ((and (= wei1 "3") (= wei2 "1")) (set_tile "whxs" "0.70"))
      ((and (= wei1 "3") (= wei2 "2")) (set_tile "whxs" "0.65"))
      ((and (= wei1 "4") (= wei2 "0")) (set_tile "whxs" "0.75"))
      ((and (= wei1 "4") (= wei2 "1")) (set_tile "whxs" "0.70"))
      ((and (= wei1 "4") (= wei2 "2")) (set_tile "whxs" "0.65"))
      ((and (= wei1 "5") (= wei2 "0")) (set_tile "whxs" "0.85"))
      ((and (= wei1 "5") (= wei2 "1")) (set_tile "whxs" "0.75"))
      ((and (= wei1 "5") (= wei2 "2")) (set_tile "whxs" "0.70"))
    )
)

DCL程序

two:dialog{
            label="电气计算软件系列—照度计算";    
            :boxed_column{
                        label="维护系数:";
                        :row{
                        :popup_list{
                                 label="灯具类型:";
                 key="wei1";                
                                 width=24;
                                 height=10;
                         }
                        :popup_list{
                                 label="污染特性:";
                 key="wei2";
                                 width=24;
                                 height=10;
                         }
                        :edit_box{
                                 label="维护系数:";
                 key="whxs";
                                 width=24;
                         }
                    }
                 }      
                 :boxed_column{
                        label="利用系数:";
                        :row{
                        :popup_list{
                                 label="室内指数:";
                 key="li1";
                                 width=24;
                                 height=10;
                         }
                        :popup_list{
                                 label="反射系数:";
                 key="li2";
                                 width=24;
                                 height=10;
                         }
                        :edit_box{
                                 label="利用系数:";
                 key="lyxs";
                                 width=24;
                         }
                    }
                 }
               ok_cancel;
}

求高手帮忙看看LSP程序，主要是子函数sub_wei中的IF后面那段 怎么都实现不了 ，我想当wei1选择白炽灯时，li1显示除去0.5以外的所有li1_list，怎么去实现啊，貌似我写的那个实现不了。 求帮忙

龙龙仔

3. (defun C:TWO ()
4.   (setvar "cmdecho" 0)
5.   (setq WEI1_LIST '("白熾燈"        "熒光燈(單管)"
6.       "熒光燈(雙管)"     "熒光燈(多管)"
7.       "高強氣體放電燈"   "鹵鎢燈"
8.      )
9.   )
10.   (setq WEI2_LIST '("清潔" "一般" "污染"))
11.   (setq LI1_LIST '("0.6"    "0.7"    "0.8"    "0.9"    "1.0"
12.      "1.1"    "1.25"   "1.5"    "1.75"   "2.0"
13.      "2.25"   "2.5"    "3.0"    "3.5"    "4.0"
14.      "5.0"
15.     )
16. LI2_LIST '("50,30,10"    "50,30,30"    "50,50,10"
17.      "50,50,30"    "70,30,10"    "70,30,30"
18.      "70,50,10"    "70,50,30"
19.     )
20.   )
21.   (setq LI1_LIST1 '("0.5"    "0.6"    "0.7"    "0.8" "0.9"
22.       "1.0"    "1.1"    "1.25"   "1.5" "1.75"
23.       "2.0"    "2.25"   "2.5"    "3.0" "3.5"
24.       "4.0"    "5.0"
25.      )
26. LI2_LIST1 '("30,10"   "30,30" "50,10"
27.       "50,30"   "50;50" "70,10"
28.       "70,30"   "70,50" "70,70"
29.       "30,10,10"   "30,30,10" "50,30,10"
30.       "50,30,30"   "50,50,10" "50,50,30"
31.       "70,30,10"   "70,30,30" "70,50,10"
32.       "70,50,30"
33.      )
34.   )
35.   (DCL_1ST)
36.   (prin1)
37. )
38. (defun DCL_1ST ()
39.   (setq DCL_ID (load_dialog "two.dcl"))
40.   (new_dialog "two" DCL_ID)
41.   (SHOW_LIST "wei1" WEI1_LIST)
42.   (SHOW_LIST "wei2" WEI2_LIST)
43.   (setq WEI1 "0"
44. WEI2 "0"
45. WHXS "0"
46. LI1  "0"
47. LI2  "0"
48.   )
49.   (SUB_WEI)
50.   (action_tile "wei1" "(setq wei1 $value)(sub_wei)")
51.   (action_tile "wei2" "(setq wei2 $value)(sub_wei)")
52.   (action_tile "whxs" "(setq whxs $value)(sub_wei)")
53.   (action_tile "li1" "(setq li1 $value)(sub_wei)")
54.   (action_tile "li2" "(setq li2 $value)(sub_wei)")
55.   (action_tile "accept" "(ok_1st)(done_dialog)")
56.   (start_dialog)
57. )
58. (defun OK_1ST ()
59.   (setq LYXS (get_tile "lyxs"))
60. )
61. (defun SHOW_LIST (KEY NEWLIST)
62.   (start_list KEY)
63.   (mapcar 'add_list NEWLIST)
64.   (end_list)
65. )
66. (defun SUB_WEI ()
67.   (if (= WEI1 "0")
68.     (progn
69.       (SHOW_LIST "li1" LI1_LIST)
70.       (SHOW_LIST "li2" LI2_LIST)
71.     )
72.     (progn
73.       (SHOW_LIST "li1" LI1_LIST1)
74.       (SHOW_LIST "li2" LI2_LIST1)
75.     )
76.   )
77.   (cond
78.     ((and (= LI1 "0") (= LI2 "0")) (set_tile "lyxs" "0.13"))
79.     ((and (= LI1 "0") (= LI2 "1")) (set_tile "lyxs" "0.14"))
80.     ((and (= LI1 "0") (= LI2 "2")) (set_tile "lyxs" "0.16"))
81.     ((and (= LI1 "0") (= LI2 "3")) (set_tile "lyxs" "0.17"))
82.     ((and (= LI1 "0") (= LI2 "4")) (set_tile "lyxs" "0.14"))
83.     ((and (= LI1 "0") (= LI2 "5")) (set_tile "lyxs" "0.15"))
84.     ((and (= LI1 "0") (= LI2 "6")) (set_tile "lyxs" "0.18"))
85.     ((and (= LI1 "0") (= LI2 "7")) (set_tile "lyxs" "0.19"))
86.     ((and (= LI1 "1") (= LI2 "0")) (set_tile "lyxs" "0.16"))
87.     ((and (= LI1 "1") (= LI2 "1")) (set_tile "lyxs" "0.17"))
88.     ((and (= LI1 "1") (= LI2 "2")) (set_tile "lyxs" "0.20"))
89.     ((and (= LI1 "1") (= LI2 "3")) (set_tile "lyxs" "0.20"))
90.     ((and (= LI1 "1") (= LI2 "4")) (set_tile "lyxs" "0.18"))
91.     ((and (= LI1 "1") (= LI2 "5")) (set_tile "lyxs" "0.19"))
92.     ((and (= LI1 "1") (= LI2 "6")) (set_tile "lyxs" "0.22"))
93.     ((and (= LI1 "1") (= LI2 "7")) (set_tile "lyxs" "0.23"))
94.     ((and (= LI1 "2") (= LI2 "0")) (set_tile "lyxs" "0.18"))
95.     ((and (= LI1 "2") (= LI2 "1")) (set_tile "lyxs" "0.19"))
96.     ((and (= LI1 "2") (= LI2 "2")) (set_tile "lyxs" "0.22"))
97.     ((and (= LI1 "2") (= LI2 "3")) (set_tile "lyxs" "0.22"))
98.     ((and (= LI1 "2") (= LI2 "4")) (set_tile "lyxs" "0.21"))
99.     ((and (= LI1 "2") (= LI2 "5")) (set_tile "lyxs" "0.22"))
100.     ((and (= LI1 "2") (= LI2 "6")) (set_tile "lyxs" "0.24"))
101.     ((and (= LI1 "2") (= LI2 "7")) (set_tile "lyxs" "0.25"))
102.     ((and (= LI1 "3") (= LI2 "0")) (set_tile "lyxs" "0.20"))
103.     ((and (= LI1 "3") (= LI2 "1")) (set_tile "lyxs" "0.21"))
104.     ((and (= LI1 "3") (= LI2 "2")) (set_tile "lyxs" "0.24"))
105.     ((and (= LI1 "3") (= LI2 "3")) (set_tile "lyxs" "0.24"))
106.     ((and (= LI1 "3") (= LI2 "4")) (set_tile "lyxs" "0.22"))
107.     ((and (= LI1 "3") (= LI2 "5")) (set_tile "lyxs" "0.23"))
108.     ((and (= LI1 "3") (= LI2 "6")) (set_tile "lyxs" "0.26"))
109.     ((and (= LI1 "3") (= LI2 "7")) (set_tile "lyxs" "0.28"))
110.   )
111.   (cond
112.     ((and (= WEI1 "0") (= WEI2 "0")) (set_tile "whxs" "0.75"))
113.     ((and (= WEI1 "0") (= WEI2 "1")) (set_tile "whxs" "0.70"))
114.     ((and (= WEI1 "0") (= WEI2 "2")) (set_tile "whxs" "0.65"))
115.     ((and (= WEI1 "1") (= WEI2 "0")) (set_tile "whxs" "0.75"))
116.     ((and (= WEI1 "1") (= WEI2 "1")) (set_tile "whxs" "0.70"))
117.     ((and (= WEI1 "1") (= WEI2 "2")) (set_tile "whxs" "0.65"))
118.     ((and (= WEI1 "2") (= WEI2 "0")) (set_tile "whxs" "0.75"))
119.     ((and (= WEI1 "2") (= WEI2 "1")) (set_tile "whxs" "0.70"))
120.     ((and (= WEI1 "2") (= WEI2 "2")) (set_tile "whxs" "0.65"))
121.     ((and (= WEI1 "3") (= WEI2 "0")) (set_tile "whxs" "0.75"))
122.     ((and (= WEI1 "3") (= WEI2 "1")) (set_tile "whxs" "0.70"))
123.     ((and (= WEI1 "3") (= WEI2 "2")) (set_tile "whxs" "0.65"))
124.     ((and (= WEI1 "4") (= WEI2 "0")) (set_tile "whxs" "0.75"))
125.     ((and (= WEI1 "4") (= WEI2 "1")) (set_tile "whxs" "0.70"))
126.     ((and (= WEI1 "4") (= WEI2 "2")) (set_tile "whxs" "0.65"))
127.     ((and (= WEI1 "5") (= WEI2 "0")) (set_tile "whxs" "0.85"))
128.     ((and (= WEI1 "5") (= WEI2 "1")) (set_tile "whxs" "0.75"))
129.     ((and (= WEI1 "5") (= WEI2 "2")) (set_tile "whxs" "0.70"))
130.   )
131. )

(defun C:TWO ()   (setvar "cmdecho" 0)   (setq WEI1_LIST '("白熾燈"        "熒光燈(單管)"       "熒光燈(雙管)"     "熒光燈(多管)"       "高強氣體放電燈"   "鹵鎢燈"      )   )   (setq WEI2_LIST '("清潔" "一般" "污染"))   (setq LI1_LIST '("0.6"    "0.7"    "0.8"    "0.9"    "1.0"      "1.1"    "1.25"   "1.5"    "1.75"   "2.0"      "2.25"   "2.5"    "3.0"    "3.5"    "4.0"      "5.0"     ) LI2_LIST '("50,30,10"    "50,30,30"    "50,50,10"      "50,50,30"    "70,30,10"    "70,30,30"      "70,50,10"    "70,50,30"     )   )   (setq LI1_LIST1 '("0.5"    "0.6"    "0.7"    "0.8" "0.9"       "1.0"    "1.1"    "1.25"   "1.5" "1.75"       "2.0"    "2.25"   "2.5"    "3.0" "3.5"       "4.0"    "5.0"      ) LI2_LIST1 '("30,10"   "30,30" "50,10"       "50,30"   "50;50" "70,10"       "70,30"   "70,50" "70,70"       "30,10,10"   "30,30,10" "50,30,10"       "50,30,30"   "50,50,10" "50,50,30"       "70,30,10"   "70,30,30" "70,50,10"       "70,50,30"      )   )   (DCL_1ST)   (prin1) ) (defun DCL_1ST ()   (setq DCL_ID (load_dialog "two.dcl"))   (new_dialog "two" DCL_ID)   (SHOW_LIST "wei1" WEI1_LIST)   (SHOW_LIST "wei2" WEI2_LIST)   (setq WEI1 "0" WEI2 "0" WHXS "0" LI1  "0" LI2  "0"   )   (SUB_WEI)   (action_tile "wei1" "(setq wei1 $value)(sub_wei)")   (action_tile "wei2" "(setq wei2 $value)(sub_wei)")   (action_tile "whxs" "(setq whxs $value)(sub_wei)")   (action_tile "li1" "(setq li1 $value)(sub_wei)")   (action_tile "li2" "(setq li2 $value)(sub_wei)")   (action_tile "accept" "(ok_1st)(done_dialog)")   (start_dialog) ) (defun OK_1ST ()   (setq LYXS (get_tile "lyxs")) ) (defun SHOW_LIST (KEY NEWLIST)   (start_list KEY)   (mapcar 'add_list NEWLIST)   (end_list) ) (defun SUB_WEI ()   (if (= WEI1 "0")     (progn       (SHOW_LIST "li1" LI1_LIST)       (SHOW_LIST "li2" LI2_LIST)     )     (progn       (SHOW_LIST "li1" LI1_LIST1)       (SHOW_LIST "li2" LI2_LIST1)     )   )   (cond     ((and (= LI1 "0") (= LI2 "0")) (set_tile "lyxs" "0.13"))     ((and (= LI1 "0") (= LI2 "1")) (set_tile "lyxs" "0.14"))     ((and (= LI1 "0") (= LI2 "2")) (set_tile "lyxs" "0.16"))     ((and (= LI1 "0") (= LI2 "3")) (set_tile "lyxs" "0.17"))     ((and (= LI1 "0") (= LI2 "4")) (set_tile "lyxs" "0.14"))     ((and (= LI1 "0") (= LI2 "5")) (set_tile "lyxs" "0.15"))     ((and (= LI1 "0") (= LI2 "6")) (set_tile "lyxs" "0.18"))     ((and (= LI1 "0") (= LI2 "7")) (set_tile "lyxs" "0.19"))     ((and (= LI1 "1") (= LI2 "0")) (set_tile "lyxs" "0.16"))     ((and (= LI1 "1") (= LI2 "1")) (set_tile "lyxs" "0.17"))     ((and (= LI1 "1") (= LI2 "2")) (set_tile "lyxs" "0.20"))     ((and (= LI1 "1") (= LI2 "3")) (set_tile "lyxs" "0.20"))     ((and (= LI1 "1") (= LI2 "4")) (set_tile "lyxs" "0.18"))     ((and (= LI1 "1") (= LI2 "5")) (set_tile "lyxs" "0.19"))     ((and (= LI1 "1") (= LI2 "6")) (set_tile "lyxs" "0.22"))     ((and (= LI1 "1") (= LI2 "7")) (set_tile "lyxs" "0.23"))     ((and (= LI1 "2") (= LI2 "0")) (set_tile "lyxs" "0.18"))     ((and (= LI1 "2") (= LI2 "1")) (set_tile "lyxs" "0.19"))     ((and (= LI1 "2") (= LI2 "2")) (set_tile "lyxs" "0.22"))     ((and (= LI1 "2") (= LI2 "3")) (set_tile "lyxs" "0.22"))     ((and (= LI1 "2") (= LI2 "4")) (set_tile "lyxs" "0.21"))     ((and (= LI1 "2") (= LI2 "5")) (set_tile "lyxs" "0.22"))     ((and (= LI1 "2") (= LI2 "6")) (set_tile "lyxs" "0.24"))     ((and (= LI1 "2") (= LI2 "7")) (set_tile "lyxs" "0.25"))     ((and (= LI1 "3") (= LI2 "0")) (set_tile "lyxs" "0.20"))     ((and (= LI1 "3") (= LI2 "1")) (set_tile "lyxs" "0.21"))     ((and (= LI1 "3") (= LI2 "2")) (set_tile "lyxs" "0.24"))     ((and (= LI1 "3") (= LI2 "3")) (set_tile "lyxs" "0.24"))     ((and (= LI1 "3") (= LI2 "4")) (set_tile "lyxs" "0.22"))     ((and (= LI1 "3") (= LI2 "5")) (set_tile "lyxs" "0.23"))     ((and (= LI1 "3") (= LI2 "6")) (set_tile "lyxs" "0.26"))     ((and (= LI1 "3") (= LI2 "7")) (set_tile "lyxs" "0.28"))   )   (cond     ((and (= WEI1 "0") (= WEI2 "0")) (set_tile "whxs" "0.75"))     ((and (= WEI1 "0") (= WEI2 "1")) (set_tile "whxs" "0.70"))     ((and (= WEI1 "0") (= WEI2 "2")) (set_tile "whxs" "0.65"))     ((and (= WEI1 "1") (= WEI2 "0")) (set_tile "whxs" "0.75"))     ((and (= WEI1 "1") (= WEI2 "1")) (set_tile "whxs" "0.70"))     ((and (= WEI1 "1") (= WEI2 "2")) (set_tile "whxs" "0.65"))     ((and (= WEI1 "2") (= WEI2 "0")) (set_tile "whxs" "0.75"))     ((and (= WEI1 "2") (= WEI2 "1")) (set_tile "whxs" "0.70"))     ((and (= WEI1 "2") (= WEI2 "2")) (set_tile "whxs" "0.65"))     ((and (= WEI1 "3") (= WEI2 "0")) (set_tile "whxs" "0.75"))     ((and (= WEI1 "3") (= WEI2 "1")) (set_tile "whxs" "0.70"))     ((and (= WEI1 "3") (= WEI2 "2")) (set_tile "whxs" "0.65"))     ((and (= WEI1 "4") (= WEI2 "0")) (set_tile "whxs" "0.75"))     ((and (= WEI1 "4") (= WEI2 "1")) (set_tile "whxs" "0.70"))     ((and (= WEI1 "4") (= WEI2 "2")) (set_tile "whxs" "0.65"))     ((and (= WEI1 "5") (= WEI2 "0")) (set_tile "whxs" "0.85"))     ((and (= WEI1 "5") (= WEI2 "1")) (set_tile "whxs" "0.75"))     ((and (= WEI1 "5") (= WEI2 "2")) (set_tile "whxs" "0.70"))   ) )