请教关于选择集的问题

wmz

(setq Mlayer "原断面线")
(setq p1 (list 0 0) p2 (list 10 0) p3 (list 10 5) p4 (list 0 5))
(setq s1 (ssget "wp" (list p1 p2 p3 p4 p1) (list (cons 8 Mlayer) (cons 0 "LWPOLYLINE") (cons 8 "注记")(cons 0 "TEXT"))))

以上这样的“wp”选择为什么不行，请教大侠们要怎样才行？（注意，我的层名需要用变量）

xyp1964

2. (setq Mlayer "原断面线"
   
3.       p1     '(0 10)
   
4.       p2     '(10 0)
   
5.       p3     '(10 5)
   
6.       p4     '(0 5)
   
7.       ss     (ssget "wp"
   
8.                     (list p1 p2 p3 p4)
   
9.                     (list '(-4 . "<OR")
   
10.                           '(-4 . "<AND")
    
11.                           (cons 8 Mlayer)
    
12.                           '(0 . "LWPOLYLINE")
    
13.                           '(-4 . "AND>")
    
14.                           '(-4 . "<AND")
    
15.                           '(8 . "注记")
    
16.                           '(0 . "TEXT")
    
17.                           '(-4 . "AND>")
    
18.                           '(-4 . "OR>")
    
19.                     )
    
20.              )
    
21. )

(setq Mlayer "原断面线"<br />       p1     '(0 10)<br />       p2     '(10 0)<br />       p3     '(10 5)<br />       p4     '(0 5)<br />       ss     (ssget "wp"<br />                     (list p1 p2 p3 p4)<br />                     (list '(-4 . "<OR")<br />                           '(-4 . "<AND")<br />                           (cons 8 Mlayer)<br />                           '(0 . "LWPOLYLINE")<br />                           '(-4 . "AND>")<br />                           '(-4 . "<AND")<br />                           '(8 . "注记")<br />                           '(0 . "TEXT")<br />                           '(-4 . "AND>")<br />                           '(-4 . "OR>")<br />                     )<br />              )<br /> )

wmz

测试成功，谢谢XYP1964大侠！！！祝新春愉快，阖家欢乐！

wmz

测试成功，谢谢XYP1964大侠！！！祝新春愉快，阖家欢乐！

xyp1964

2. (setq p1 '(0 10)
   
3.       p2 '(10 0)
   
4.       p3 '(10 5)
   
5.       p4 '(0 5)
   
6.       ss (ssget        "wp"
   
7.                 (list p1 p2 p3 p4)
   
8.                 (FilterM '(((8 . "原断面线") (0 . "LWPOLYLINE"))
   
9.                            ((8 . "注记") (0 . "TEXT"))
   
10.                           )
    
11.                          nil
    
12.                 )
    
13.          )
    
14. )
    
15. 
    
16. ;; FilterM AndOr过滤器表 (FilterM Flst And-TNil)
    
17. ;; (FilterM '(((8 . "原断面线")(0 . "LWPOLYLINE"))((8 . "注记")(0 . "TEXT"))) nil)
    
18. (defun FilterM (Flst And-TNil / x lst1)
    
19.   (foreach x Flst
    
20.     (setq x    (cons '(-4 . "<AND") (append x '((-4 . "AND>"))))
    
21.           lst1 (append x lst1)
    
22.     )
    
23.   )
    
24.   (if And-TNil
    
25.     (cons '(-4 . "<AND") (append lst1 '((-4 . "AND>"))))
    
26.     (cons '(-4 . "<OR") (append lst1 '((-4 . "OR>"))))
    
27.   )
    
28. )

(setq p1 '(0 10)<br />       p2 '(10 0)<br />       p3 '(10 5)<br />       p4 '(0 5)<br />       ss (ssget        "wp"<br />                 (list p1 p2 p3 p4)<br />                 (FilterM '(((8 . "原断面线") (0 . "LWPOLYLINE"))<br />                            ((8 . "注记") (0 . "TEXT"))<br />                           )<br />                          nil<br />                 )<br />          )<br /> )<br /> <br /> ;; FilterM AndOr过滤器表 (FilterM Flst And-TNil)<br /> ;; (FilterM '(((8 . "原断面线")(0 . "LWPOLYLINE"))((8 . "注记")(0 . "TEXT"))) nil)<br /> (defun FilterM (Flst And-TNil / x lst1)<br />   (foreach x Flst<br />     (setq x    (cons '(-4 . "<AND") (append x '((-4 . "AND>"))))<br />           lst1 (append x lst1)<br />     )<br />   )<br />   (if And-TNil<br />     (cons '(-4 . "<AND") (append lst1 '((-4 . "AND>"))))<br />     (cons '(-4 . "<OR") (append lst1 '((-4 . "OR>"))))<br />   )<br /> )