判断点集围合区域是否全部包含在另一点集围合区域内（API组合）

eachy

1. (defun XD::Pnts:IsInPnts (p1 p2)
   
2.   (not
   
3.     (vl-some
   
4.       'null
   
5.       (mapcar '(lambda (x) (apply 'xdrx_isinside (cons x p2))) p1)
   
6.     )
   
7.   )
   
8. )

(defun XD::Pnts:IsInPnts (p1 p2)<br />   (not<br />     (vl-some<br />       'null<br />       (mapcar '(lambda (x) (apply 'xdrx_isinside (cons x p2))) p1)<br />     )<br />   )<br /> )

fsxm

用while出现nil就停止应当快些

eachy

fsxm 发表于 2013-6-24 02:33
用while出现nil就停止应当快些

那就改改,这样

1. (defun XD::Pnts:IsInside (p1 p2 / tf)
   
2.   (setq tf t)
   
3.   (while (and tf p1)
   
4.     (setq tf (apply 'xdrx_isinside (cons (car p1) p2))
   
5.    p1 (cdr p1)
   
6.     )
   
7.   )
   
8.   tf
   
9. )

(defun XD::Pnts:IsInside (p1 p2 / tf)<br />   (setq tf t)<br />   (while (and tf p1)<br />     (setq tf (apply 'xdrx_isinside (cons (car p1) p2))<br />    p1 (cdr p1)<br />     )<br />   )<br />   tf<br /> )

newer

我提供个VL-SOME的，大家谁测试下，看看这个行不

1. (defun XD::Pnts:IsInPnts (pts1 pts2)
   
2.   (not (vl-some '(lambda (x)
   
3.                    (not (apply
   
4.                           'xdrx_isinside
   
5.                           (cons x pts2)
   
6.                         )
   
7.                    )
   
8.                  ) pts1
   
9.        )
   
10.   )
    
11. )
    

(defun XD::Pnts:IsInPnts (pts1 pts2)<br />   (not (vl-some '(lambda (x)<br />                    (not (apply<br />                           'xdrx_isinside<br />                           (cons x pts2)<br />                         )<br />                    )<br />                  ) pts1<br />        )<br />   )<br /> )<br />

newer

使用论坛上的通用函数库里面的

1. (defun XD::Pnts:IsInPnts (pts1 pts2)
   
2.   (not (vl-some '(lambda (x)
   
3.                    (not (XD::Pnt:IsInside x pts2))
   
4.                  ) pts1
   
5.        )
   
6.   )
   
7. )
   

(defun XD::Pnts:IsInPnts (pts1 pts2)<br />   (not (vl-some '(lambda (x)<br />                    (not (XD::Pnt:IsInside x pts2))<br />                  ) pts1<br />        )<br />   )<br /> )<br />

newer

fsxm 发表于 2013-6-24 02:33
用while出现nil就停止应当快些

VL-SOME函数就是出现一个非NIL值，就结束。

梦断江南

参数不明确啊，点集？点表？ 最好用lsp的描述，如：返回LIST,点表
凑热闹：
(defun ptssome (pts1 pts2)
  (vl-some '(lambda(x)(member x pts2)) pts1)
)

XDSoft

梦断江南 发表于 2013-6-25 02:30
参数不明确啊，点集？点表？ 最好用lsp的描述，如：返回LIST,点表
凑热闹：
(defun ptssome (pts1 pts2)
...

这个函数是判断一个点表的所有点是否在另外一个点表组成的多边形内。

eachy

newer 发表于 2013-6-24 03:18
VL-SOME函数就是出现一个非NIL值，就结束。

测试中 Vl-some 总是出现非期望效果，样图是两个方框，通过先后选择Pline 判断点保含关系，下面是测试程序，为了简短，Pline 取点用了 api

1. (defun c:tt (/ e1 e2 plst1 plst2 tf)
   
2.   (if (and (setq e1 (car (entsel)))
   
3.     (setq e2 (car (entsel)))
   
4.       )
   
5.     (progn
   
6.       (setq plst1 (xdrx_entity_getstretchpoint e1)
   
7.      plst2 (xdrx_entity_getstretchpoint e2)
   
8.       )
   
9.       (setq tf (XD::Pnts:IsInPnts plst1 plst2))
   
10.     )
    
11.   )
    
12.   tf
    
13. )

(defun c:tt (/ e1 e2 plst1 plst2 tf)<br />   (if (and (setq e1 (car (entsel)))<br />     (setq e2 (car (entsel)))<br />       )<br />     (progn<br />       (setq plst1 (xdrx_entity_getstretchpoint e1)<br />      plst2 (xdrx_entity_getstretchpoint e2)<br />       )<br />       (setq tf (XD::Pnts:IsInPnts plst1 plst2))<br />     )<br />   )<br />   tf<br /> )

牢固

题意不明确，看9楼回复应该是判断点集是否全部包含在另一点表围成的多边形内吧！最好修改下函数标题！

eachy

牢固 发表于 2013-6-25 08:36
题意不明确，看9楼回复应该是判断点集是否全部包含在另一点表围成的多边形内吧！最好修改下函数标题！

已修改，这个可以用来把 Region 其他实体的 相交、包含 简化为用点集判断

梦断江南

测试了一下，发现本函数，当P1在p2内，P1和P2有重复点时候判别是T，但是P1中的点在P2联线上的时候判别是nil，请复查

wzjck01

学习，学习了