[LISP程序]：求点集中 x 最小 y 最小

eachy

2. 
   
3. ;; Form [url]www.xdcad.net[/url] eachy 2005.9.21
   
4. ;;求点集中 x 最小 y 最小
   
5. (defun xd-Points_Minx_MinY (pts)
   
6.   (car (vl-sort        pts
   
7.                 '(lambda (e1 e2)
   
8.                    (if (equal (car e1) (car e2) 1e-10)
   
9.                      (< (cadr e1) (cadr e2))
   
10.                      (< (car e1) (car e2))
    
11.                    )
    
12.                  )
    
13.        )
    
14.   )
    
15. )

<br /> ;; Form [url]www.xdcad.net[/url] eachy 2005.9.21<br /> ;;求点集中 x 最小 y 最小<br /> (defun xd-Points_Minx_MinY (pts)<br />   (car (vl-sort        pts<br />                 '(lambda (e1 e2)<br />                    (if (equal (car e1) (car e2) 1e-10)<br />                      (< (cadr e1) (cadr e2))<br />                      (< (car e1) (car e2))<br />                    )<br />                  )<br />        )<br />   )<br /> )

狂刀

2. 
   
3. ;; 求点集中x，y，z最小-----狂刀。借花献佛 。2005.9
   
4. (defun xd-minxyz (pts)
   
5.   (apply 'mapcar (cons 'min pts))
   
6. )
   

<br /> ;; 求点集中x，y，z最小-----狂刀。借花献佛 。2005.9<br /> (defun xd-minxyz (pts)<br />   (apply 'mapcar (cons 'min pts))<br /> )<br />

eachy

2 楼函数返回值可能是一个新元素，非点集内元素

taner

最初由 eachy 发布
[B][CODE]
;; Form www.xdcad.net eachy 2005.9.21
;;求点集中 x 最小 y 最小
(defun xd-Points_Minx_MinY (pts)
  (car (vl-sort        pts
                '(lambda (e1 e2)
                   (if (equal (car e1) (car e2) 1e-10)
... [/B]

测试:
命令: !a ((905.476 69.521) (901.521 53.8912) (886.278 45.4492) (872.366 51.1843))
命令: (xd-Points_Minx_MinY a)
(872.366 51.1843)
命令: !a ((1 -1) (1 0) (905.476 69.521) (901.521 53.8912) (886.278 45.4492) (872.366 51.1843))
命令: (xd-Points_Minx_MinY a)
(1 -1)

从结果上看,只能说是求x最小(x优先).其次是y最小

依葫芦画瓢,
[PHP]
(defun xd-Points_Maxx_MaxY (pts)
  (car (vl-sort        pts
                '(lambda (e1 e2)
                   (if (equal (car e1) (car e2) 1e-10)
                     (> (cadr e1) (cadr e2))
                     (> (car e1) (car e2))
                   )
                 )
       )
  )
)

[/PHP]
同样是Xmax优先,其次是Ymax
测试:

!a((10000 200) (10000 200) (1 -1) (1 0) (905.476 69.521) (901.521 53.8912) (886.278 45.4492) (872.366 51.1843))
命令: (xd-Points_Maxx_MaxY a)
(10000 200)

命令: !a ((10000 10000) (10000 200) (10000 200) (1 -1) (1 0) (905.476 69.521) (901.521 53.8912) (886.278 45.4492) (872.366 51.1843))
命令: (xd-Points_Maxx_MaxY a)
(10000 10000)

[PHP](defun xd-Points_MinY_Minx (pts);y優先於x
  (car (vl-sort        pts
                '(lambda (e1 e2)
                   (if (equal (cadr e1) (cadr e2) 1e-10)
                     (< (car e1) (car e2))
                     (< (cadr e1) (cadr e2))
                   )
                 )
       )
  )
)

(defun xd-Points_MaxY_Maxx (pts);y優先於x
  (car (vl-sort        pts
                '(lambda (e1 e2)
                   (if (equal (cadr e1) (cadr e2) 1e-10)
                     (> (car e1) (car e2))
                     (> (cadr e1) (cadr e2))
                   )
                 )
       )
  )
)[/PHP]

fsxm

我再来发一个!看看效果如何啊！
可为xyz的任意组合.试下！
[php]
(defun Plst_id_> (pts n)
  (vl-sort pts
           '(lambda (a b)
              (> (nth n a) (nth n b))
            )
  )
)
(defun sort-pt-id (plst xyz)
  (setq        xyz (mapcar '(lambda (a) (- a 120))
                    (vl-string->list (strcase xyz T))
            )
  )
  (foreach n-xyz (reverse xyz)
    (setq Plst (plst_id_> plst n-xyz))
  )
)
[/php]
以下相当于各位写的程式:
[php]
;;优先级别:x
(car (sort-pt-id plst "x"))
;;优先级别:x>y
(car (sort-pt-id plst "xy"))
;;优先级别:y>x
(car (sort-pt-id plst "yx"))
;;优先级别x>y>z
(car (sort-pt-id plst "xyz"))
;;优先级别z>y>x
(car (sort-pt-id plst "zyx"))
[/php]
写了这么多了有了灵感这个功能本可以更强大的哦
不如发个新贴算了啦！见:功能全面的通用点表排序函数！