[求助]：请教选择集问题？

zhangrz

AutoLisp 参考中有这样的一段内容。
用户也可以创建使用下表中的逻辑分组运算符的嵌套布尔表达式，以此来对组进行测试：

选择集过滤器表中的分组运算符

起始运算符    包含的内容        结束运算符
"<AND"        一个或多个操作数         "AND>"
"<OR"        一个或多个操作数         "OR>"
"<XOR"        两个操作数         "XOR>"
"<NOT"        一个操作数         "NOT>"
与关系运算符类似，分组运算符也由 -4 组指定。它们是成对出现的，必须在过滤器表中适当均衡，否则 ssget 调用将失败。下面是一个在过滤器表中进行分组运算的例子：


此代码选择所有半径为 1.0 的圆和所有位于图层“ABC”上的线。分组运算符不区分大小写，例如，可以用“and>”、“<or”代替“AND>”、“<OR”。

(ssget "X"

'(
    (-4 . "<OR")
      (-4 . "<AND")
        (0 . "CIRCLE")
        (40 . 1.0)
      (-4 . "AND>")
      (-4 . "<AND")
        (0 . "LINE")
        (8 . "ABC")
      (-4 . "AND>")
    (-4 . "OR>")
  )

)

        
[B]这个功能很好用，可我将(0 . "CIRCLE")(40 . 1.0)设为变量时却不能执行出正确结果[/B]
如

2. 
   
3. (setq li1 (0 . "CIRCLE")
   
4.          li2 (40 . 1.0)
   
5.          li3 (0 . "LINE")
   
6.          li4 (8 . "ABC")
   
7.       )
   
8. (ssget "X"
   
9. '(
   
10.     (-4 . "<OR")
    
11.       (-4 . "<AND")
    
12.         li1
    
13.         li2
    
14.       (-4 . "AND>")
    
15.       (-4 . "<AND")
    
16.         li3
    
17.         li4
    
18.       (-4 . "AND>")
    
19.     (-4 . "OR>")
    
20.   )
    
21. )
    

<br /> (setq li1 (0 . "CIRCLE")<br />          li2 (40 . 1.0)<br />          li3 (0 . "LINE")<br />          li4 (8 . "ABC")<br />       )<br /> (ssget "X" <br /> '(<br />     (-4 . "<OR")<br />       (-4 . "<AND")<br />         li1<br />         li2<br />       (-4 . "AND>")<br />       (-4 . "<AND")<br />         li3<br />         li4<br />       (-4 . "AND>")<br />     (-4 . "OR>")<br />   )<br /> )<br />

请各位大侠指导

陌生人

简直昏到，前后不匹配，变量乱用

ll_j

最初由 zhangrz 发布
[B]AutoLisp 参考中有这样的一段内容。
用户也可以创建使用下表中的逻辑分组运算符的嵌套布尔表达式，以此来对组进行测试：

选择集过滤器表中的分组运算符

起始运算符    包含的内容        结束运算符
"<AND"        一个或... [/B]

暂且撇开关系判断，关于表有以下几点需要说明：
1.“'”（quote）作为前导，跟随的是没有运算的表或原子，所以

2. 
   
3. (setq aa '(0 . "LINE"))
   
4.          bb '(aa (8 . "0"))   ;aa在“'”表中，没有进行运算
   
5. )
   
6. ;;与
   
7. (setq bb '((0 . "LINE") (8 . "0")))
   
8. ;;是不同的，构成这样的表可以用
   
9. (setq bb (list aa '(8 . "0")))   ;另外可参见函数cons
   

<br /> (setq aa '(0 . "LINE"))<br />          bb '(aa (8 . "0"))   ;aa在“'”表中，没有进行运算<br /> )<br /> ;;与<br /> (setq bb '((0 . "LINE") (8 . "0")))<br /> ;;是不同的，构成这样的表可以用<br /> (setq bb (list aa '(8 . "0")))   ;另外可参见函数cons<br />

2.作为一个点对表（或其他表），除非有“'”前缀，否则应视为运行以第一个原子为函数名的过程（其实“'”前缀是运行quote函数），这样，如“(setq aa (0 . "LINE"))”就不成立，应该写为“(setq aa '(0 . "LINE"))”。