请问如何在if语句中并列多个判断值

peraperson

比如我想在选择集中找到处于图层 a b c d 的图元
尝试了(if (= (cdr (assoc 8 endata)) "a,b,c,d")这种写法，结果不可行
请问应该怎么写
另外如何通过框选建立图层集代替 a b c..

自贡黄明儒

(if (wcmatch (cdr (assoc 8 endata)) "a,b,c,d")行吗？

peraperson

自贡黄明儒 发表于 2013-12-13 09:53
(if (wcmatch (cdr (assoc 8 endata)) "a,b,c,d")行吗？

非常谢谢黄兄
可以了 但是如果是要判断不等于呢？
还有 如果我不想通过写a b c d到lisp里（因为 a b c d等未定），希望通过框选图中多个元素得到相应的图层储存起来（即图层集）作为判断值 请问有什么方法呢
谢谢

llsheng_73

(if (member (cdr (assoc 8 endata)) '("a" "b" "c" "d")))

ll_j

(setq lan(cdr (assoc 8 endata)))
(if (or (= lan "a")
         (= lan "b")
....

或者：
(if (member lan '("a" "b" "c" "d"))
  ...

peraperson

llsheng_73 发表于 2013-12-13 10:02
(if (member (cdr (assoc 8 endata)) '("a" "b" "c" "d")))

谢谢 试了一下可行  
如果我不想通过写a b c d到lisp里（因为 a b c d等未定），希望通过框选图中多个元素得到相应的图层储存起来（即图层集）作为判断值 请问有什么方法呢

peraperson

ll_j 发表于 2013-12-13 10:05
(setq lan(cdr (assoc 8 endata)))
(if (or (= lan "a")
         (= lan "b")

谢谢 请问如何通过框选建立图层集代替 a b c...

llsheng_73

peraperson 发表于 2013-12-13 10:08
谢谢 请问如何通过框选建立图层集代替 a b c...

;;'("a" "b" "c" "d")这一部分你可以自己定义一个图层名表
;;比如你选了一堆东东得到一个选择集S,通过SSLENGTH S得到它的长度n
(setq n(sslength s)m 0  ls nil)
(while (< m n)(setq ly(cdr(assoc 8(entget(ssname s m))))
                    m(1+ m)
                    ls(if(member ly ls)ls(cons ly ls))))

(if (member (cdr (assoc 8 endata)) ls)
    (progn  真 )
    (progn  假)
)

ll_j

peraperson 发表于 2013-12-13 10:08
谢谢 请问如何通过框选建立图层集代替 a b c...

框选的时候需要用ssget的逻辑判断组码-4了，
(ssget (list '(-4 .  "<or") '(8 . "a") ... '(-4 . "or>)))

Andyhon

试试 (ssget '((8 . "[a-d]")))
详情 得究 WcMatch 的帮助