遇到一个难题（表范图内对比选择）已经三天三夜没有解决了，忘大神能排忧解难，谢谢！

`中微子

;;;把gws单个与wse对比，只选择gws在wse范围内的数组
(defun c:tt (/ waco1 waco)
  (setq wse '((0 8) (3 5) (7 9)))
  (setq gws '((1 1) (3 5) (6 10) (8 10) (8 8) (2 7)))
  
  (foreach en wse
    (foreach en1 gws
      (if (and
            (>= (car en1) (car en))
            (<= (cadr en1) (cadr en))
          )
        (setq waco1 (cons en1 waco1))
      )
    )
    (setq waco (cons waco1 waco))
    (setq wac1 nil)
  )
  (print waco)
;;;输出结果应该是((1 1)(2 7)(3 5)(8 8))

  (princ)
)
新手，不知道出错在哪里？请指教！

原理请移步13楼。有示意图。

lijiao

如果模板没有重叠,可以这样
(vl-remove nil (mapcar '(lambda(x)
                          (if (setq owse (vl-remove-if-not '(lambda(y)
                                                              (<= (car y) (car x) (cadr x) (cadr y))
                                                              )
                                           wse)
                                    )
                            (append x (if (caddr y) (caddr y) '(256)))
                                       )
                          )
                       gws)
  )

lijiao

(setq wse '((0 8 1) (3 5 2) (7 9)))
  (setq gws '((1 1) (3 5) (6 10) (8 10) (8 8) (2 7)))

(vl-remove nil (mapcar '(lambda(x)
                          (if (setq owse (vl-remove-if-not '(lambda(y)
                                                              (<= (car y) (car x) (cadr x) (cadr y))
                                                              )
                                           wse)
                                    )
                            (mapcar '(lambda(y)
                                       (append x (if (cddr y) (cddr y) '(256)))
                                       )
                                    owse)
                            )
                          )
                       gws)
  )

结果((1 1 1)) ((3 5 1) (3 5 2)) ((8 8 1) (8 8 256)) ((2 7 1)))

jun353835273

2. (defun c:tt (/ waco1 waco)
   
3.   (setq wse '((0 8) (3 5) (7 9)))
   
4.   (setq gws '((1 1) (3 5) (6 10) (8 10) (8 8) (2 7)))
   
5.   (foreach en wse
   
6.    (foreach en1 gws
   
7.       (if (and
   
8.             (>= (car en1) (car en))
   
9.             (<= (cadr en1) (cadr en))
   
10.           )
    
11.   (progn
    
12.           (if (not (member en1 waco1))
    
13.               (setq waco1 (cons en1 waco1))
    
14.       )
    
15.    )
    
16.       )
    
17.     )
    
18.   )
    
19. (setq waco1 (reverse waco1))
    
20. (print waco1)
    
21. (princ)
    
22. )

(defun c:tt (/ waco1 waco)<br />   (setq wse '((0 8) (3 5) (7 9)))<br />   (setq gws '((1 1) (3 5) (6 10) (8 10) (8 8) (2 7)))<br />   (foreach en wse<br />    (foreach en1 gws<br />       (if (and<br />             (>= (car en1) (car en))<br />             (<= (cadr en1) (cadr en))<br />           )<br />   (progn<br />           (if (not (member en1 waco1))<br />               (setq waco1 (cons en1 waco1))<br />       )<br />    )<br />       )<br />     )<br />   )<br /> (setq waco1 (reverse waco1))<br /> (print waco1)<br /> (princ)<br /> )

去下重复就行了，也可以过滤的时候搞

`中微子

jun353835273 发表于 2023-8-7 09:03
去下重复就行了，也可以过滤的时候搞

谢谢！抱歉我没有描述完整wse里还有一个颜色识别码。
;;;把gws单个与wse对比，只选择gws在wse范围内的数组，wse里第三位是颜色识别码，没有就是随层256.
(defun c:tt (/ waco1 waco)
  (setq wse '((0 8 1) (3 5 2) (7 9)))
  (setq gws '((1 1) (3 5) (6 10) (8 10) (8 8) (2 7)))
  (foreach en wse
    (if (= (caddr en) nil)
      (setq b 256)
      (setq b (caddr en))
      )
    (setq waco1 (list b))
  (foreach en1 gws
      (if (and
            (>= (car en1) (car en))
            (<= (cadr en1) (cadr en))
          )
        (setq waco1 (cons en1 waco1))
      )
    )
    (setq waco (cons waco1 waco))
    (setq wac1 nil)
  )
  (print waco)
;;;输出结果应该是((1 1 1)(2 7 1)(3 5 2)(8 8 256))

  (princ)
)

liuhe

变动太大  不玩了

lijiao

(1 1)既在(0 8 1)中,又在 (3 5 2) 中,还在(7 9)中,颜色是该取1呢,还是该取2呢,或者是该取256呢?



****************************************************************
一时疏忽,写错了,应该是(3 5)既在(0 8 1)中,又在(3 5 2) 中

                                  (8 8)既在(0 8 1)中,又在(7 9) 中

liuhe

lijiao 发表于 2023-8-7 09:57
(1 1)既在(0 8 1)中,又在 (3 5 2) 中,还在(7 9)中,颜色是该取1呢,还是该取2呢,或者是该取256呢?

哈哈   

`中微子

lijiao 发表于 2023-8-7 09:57
(1 1)既在(0 8 1)中,又在 (3 5 2) 中,还在(7 9)中,颜色是该取1呢,还是该取2呢,或者是该取256呢?

没有啊！（1 1）不在（3 5）内，第一个数1比3大和第二个数1比5小才成立。

liuhe

`中微子 发表于 2023-8-7 10:04
没有啊！（1 1）不在（3 5）内，第一个数1比3大和第二个数1比5小才成立。

（3 4）是不是同时在（3 5）（0 8）之间

`中微子

liuhe 发表于 2023-8-7 10:21
（3 4）是不是同时在（3 5）（0 8）之间

没有（3 4）吧！别搞笑

vormittag

首先要先证明这个问题的解存在，接着再证明这个解唯一，最后再考虑怎么解。
你先把满足解存在、且唯一的条件补充全再考虑怎么做吧。