请教 if 简约写法

张大锤

(if (= ctrA "1")(if (= ctrB "2")(if (= ctrC "2")
(progn
(command "-insert" "s90" sxx_10 "" "" "")
(command "-insert" "kt7" ktx_10 "" "" "")
)
)))
(if (= ctrA "2")(if (= ctrB "1")(if (= ctrC "2")
(progn
(command "-insert" "s90" sxx_10 "" "" "")
(command "-insert" "kt7" ktx_10 "" "" "")
)
)))
(if (= ctrA "2")(if (= ctrB "2")(if (= ctrC "1")
(progn
(command "-insert" "s90" sxx_10 "" "" "")
(command "-insert" "kt7" ktx_10 "" "" "")
)
)))





请问红色字 因为ABC的循序原因 我要这么写3遍
虽然可以达到我要的效果 但我想请问一下 有比较简约的写法吗？

lijiao

2. (if (member (strcat strA atrB strC) '("122" "212" "221"))
   
3.    (progn
   
4.       (command "-insert" "s90" sxx_10 "" "" "")
   
5. (command "-insert" "kt7" ktx_10 "" "" "")
   
6. )
   
7. )

(if (member (strcat strA atrB strC) '("122" "212" "221"))<br />    (progn<br />       (command "-insert" "s90" sxx_10 "" "" "")<br /> (command "-insert" "kt7" ktx_10 "" "" "")<br /> )<br /> )

vectra

1. (if (or        (and (= ctrA "1")
   
2.              (= ctrB "2")
   
3.              (= ctrC "2")
   
4.         )
   
5.         (and (= ctrA "2")
   
6.              (= ctrB "1")
   
7.              (= ctrC "2")
   
8.         )
   
9.         (and (= ctrA "2")
   
10.              (= ctrB "2")
    
11.              (= ctrC "1")
    
12.         )
    
13.     )
    
14.   (progn
    
15.     (command "-insert" "s90" sxx_10 "" "" "")
    
16.     (command "-insert" "kt7" ktx_10 "" "" "")
    
17.   )
    
18. )

(if (or        (and (= ctrA "1")<br />              (= ctrB "2")<br />              (= ctrC "2")<br />         )<br />         (and (= ctrA "2")<br />              (= ctrB "1")<br />              (= ctrC "2")<br />         )<br />         (and (= ctrA "2")<br />              (= ctrB "2")<br />              (= ctrC "1")<br />         )<br />     )<br />   (progn<br />     (command "-insert" "s90" sxx_10 "" "" "")<br />     (command "-insert" "kt7" ktx_10 "" "" "")<br />   )<br /> )

是这个意思吗？

张大锤

vectra 发表于 2018-6-13 10:55
是这个意思吗？

嗯是这么个意思 就是简洁的写法

Andyhon

若非字串而是数值或可
但得考量变量是 1 2 之外时???
(or
   (= ctrA (1- ctrB) (1- ctrC) 1)
   (= (+ CtrB CtrC ctrA) 5)
)

张大锤

Andyhon 发表于 2018-6-13 14:08
若非字串而是数值或可
但得考量变量是 1 2 之外时???
(or

哦 第一次没看懂 手写了一遍懂了    这么写是挺简洁的 就是好绕脑
a=1
b=2
c=2
A =1 (1-B=1)(1-C=1)   A B C 都等于1 成立
+ A B c =5   5=5 成立


其实A B C就是 3中管属性  并非数值  
但是2位的答复的确是我想要的 在if里 还是有很多写法的

szmaicy

(equal (list "2" "2") (vl-remove "1" (list ctrA ctrB ctrC)))

前生

cond

张大锤

前生 发表于 2018-6-14 00:03
cond

谢谢朋友 我想学习IF的写法

张大锤

lijiao 发表于 2018-6-14 08:52

感谢老铁666