[求助]请教(ssget "x")的应用

夏生生

关于（ssget "x"）的应用一直很苦恼，如下列代码，注释掉的就可以使用，未注释的应该和注释掉的是相等的，不知为何不能执行

       (setq ssg(ssget "x"
         (list (cons -4 "<and")
        (cons 0 "LWPOLYLINE")
        (cons -4 "<or")
        (list 10 (cadr 10_li) (caddr 10_li))
        (cons -4 "or>")
        (cons -4 "<or")
        (list 10 (cadr 11_li) (caddr 11_li))
        (cons -4 "or>")
        (cons -4 "and>")
        )))
       (command "erase" ssg "")
;;;       (setq ssg(ssget "x" (list '(0 . "LWPOLYLINE") (list 10 (cadr 10_li) (caddr 10_li)))))
;;;       (command "erase" ssg "")
;;;       (setq ssg(ssget "x" (list '(0 . "LWPOLYLINE") (list 10 (cadr 11_li) (caddr 11_li)))))
;;;       (command "erase" ssg "")

Andyhon

10_li的含值为何?

caddr ? 指 Z 值吗?

LWPOLYLINE 点值格式 ==> (10 0.0 0.0)  /  (10 1.0 1.0)

夏生生

10li指的是直线起点，11li指的是直线终点，我的LWPOLYLINE 是以直线起点或终点为起点画的，源代码过长，不好贴上来，我新学的，赘码太多

Andyhon

如附图所作的调试 正常

Command: (setq dat (entget (car (entsel))))
....

Command: (setq 10_li (assoc 10  dat) 11_Li (assoc 11 dat))
(11 1.0 0.0 0.0)

Command: (setq ssg(ssget "x" (list '(0 . "LWPOLYLINE") (list 10 (cadr 10_li) (caddr 10_li)))))
<Selection set: 10>

Command: (command "erase" ssg "")
erase
Select objects:   1 found
Select objects:
Command: nil

Command: (setq ssg(ssget "x" (list '(0 . "LWPOLYLINE") (list 10 (cadr 11_li) (caddr 11_li)))))
<Selection set: 12>

Command: (command "erase" ssg "")
erase
Select objects:   1 found
Select objects:
Command: nil

夏生生

谢谢Andyhon的解答，不过我说的是注释掉的代码可以执行，未注释掉的代码和注释掉的代码应该是等同的，但是未注释掉的代码不可执行

Andyhon

Try this
(setq ssg
   (ssget "x"
     (list
        (cons 0 "LWPOLYLINE")
        (cons -4 "<or")
          (list 10 (cadr 10_li) (caddr 10_li))
          (list 10 (cadr 11_li) (caddr 11_li))
        (cons -4 "or>")
 ) ) )

夏生生

谢谢Andyhon，谢谢我就是不明白两个or为何不行，呵呵，只好知其然不知其所以然了，再次感谢

NetBee

关系符只管内，不管外。默认为and

夏生生

收到，受教了，谢谢NETBEE