求多段线最大最小的X和Y的数值。

赵钱孙李

例如一条多段线有100个点组成，需要知道四个数值：最大的X坐标，最小的X坐标，最大的Y坐标，最小的Y坐标。新手发帖，不胜感激。

Lisphk

你截取个图片贴上来

marting

（XD::Pnts:Extremum）求点表的极值点

0 个回复 - 101 次查看

2018-3-27 01:08 - newer - 开源函数库

赵钱孙李

谢谢2楼3楼。我只要最大X,Y和最小X,Y.这四个数值就可以

newer

赵钱孙李 发表于 2019-1-11 21:14
谢谢2楼3楼。我只要最大X,Y和最小X,Y.这四个数值就可以

三楼的函数，就是帮你求你想要的

赵钱孙李

基础太差，不知道如何使用。

marting

赵钱孙李 发表于 2019-1-11 21:18
基础太差，不知道如何使用。

那建议先你先搜索下论坛， 用 多段线 做关键字， 找找怎么获得你那100个顶点的方法。

Underway

(acet-ent-geomextents (car (entsel)))

===>((x1 y1) (x9 y9))

marting

Underway 发表于 2019-1-11 21:47
(acet-ent-geomextents (car (entsel)))

===>((x1 y1) (x9 y9))

他不是想求包围盒，要不没必要强调有多少顶点。
他应该是想在100个顶点里面，找4个点。

Lisphk

1. (defun getXMinYmin (pts)
   
2.   (setq        xlst        (mapcar 'car pts)
   
3.         ylst        (mapcar 'cadr pts)
   
4.         xminlst        (vl-sort xlst '(lambda (x y) (< x y)))
   
5.         yminlst        (vl-sort ylst '(lambda (x y) (< x y)))
   
6.         xmaxlst        (vl-sort xlst '(lambda (x y) (> x y)))
   
7.         ymaxlst        (vl-sort ylst '(lambda (x y) (> x y)))
   
8.         ys        (vl-remove nil
   
9.                            (mapcar '(lambda (x)
   
10.                                       (if (equal (cadr x) (car yminlst) 1e-3)
    
11.                                         x
    
12.                                       )
    
13.                                     )
    
14.                                    pts
    
15.                            )
    
16.                 )
    
17.         p1        (car (vl-sort ys '(lambda (x y) (< (car x) (car y)))))
    
18.        
    
19.   )
    
20. )
    

(defun getXMinYmin (pts)<br />   (setq        xlst        (mapcar 'car pts)<br />         ylst        (mapcar 'cadr pts)<br />         xminlst        (vl-sort xlst '(lambda (x y) (< x y)))<br />         yminlst        (vl-sort ylst '(lambda (x y) (< x y)))<br />         xmaxlst        (vl-sort xlst '(lambda (x y) (> x y)))<br />         ymaxlst        (vl-sort ylst '(lambda (x y) (> x y)))<br />         ys        (vl-remove nil<br />                            (mapcar '(lambda (x)<br />                                       (if (equal (cadr x) (car yminlst) 1e-3)<br />                                         x<br />                                       )<br />                                     )<br />                                    pts<br />                            )<br />                 )<br />         p1        (car (vl-sort ys '(lambda (x y) (< (car x) (car y)))))<br />         <br />   )<br /> )<br />

上面代码获得所有多段线顶点里面，Y最小X最大的顶点。

1. (defun getXMinYmin (pts)
   
2.   (setq        xlst        (mapcar 'car pts)
   
3.         ylst        (mapcar 'cadr pts)
   
4.         xminlst        (vl-sort xlst '(lambda (x y) (< x y)))
   
5.         yminlst        (vl-sort ylst '(lambda (x y) (< x y)))
   
6.         xmaxlst        (vl-sort xlst '(lambda (x y) (> x y)))
   
7.         ymaxlst        (vl-sort ylst '(lambda (x y) (> x y)))
   
8.         xmin (car xminlst)
   
9.         xmax (car xmaxlst)
   
10.         ymin (car yminlst)
    
11.         ymax (car ymaxlst)       
    
12.   )
    
13.   (list xmin xmax ymin ymax)
    
14. )
    

(defun getXMinYmin (pts)<br />   (setq        xlst        (mapcar 'car pts)<br />         ylst        (mapcar 'cadr pts)<br />         xminlst        (vl-sort xlst '(lambda (x y) (< x y)))<br />         yminlst        (vl-sort ylst '(lambda (x y) (< x y)))<br />         xmaxlst        (vl-sort xlst '(lambda (x y) (> x y)))<br />         ymaxlst        (vl-sort ylst '(lambda (x y) (> x y)))<br />         xmin (car xminlst)<br />         xmax (car xmaxlst)<br />         ymin (car yminlst)<br />         ymax (car ymaxlst)        <br />   )<br />   (list xmin xmax ymin ymax)<br /> )<br />

上面代码求最小的X，最大的X，最小的Y，最大的x

1. (defun getXMinYmin (pts)
   
2.   (setq        xlst        (mapcar 'car pts)
   
3.         ylst        (mapcar 'cadr pts)
   
4.         xminlst        (vl-sort xlst '(lambda (x y) (< x y)))
   
5.         yminlst        (vl-sort ylst '(lambda (x y) (< x y)))
   
6.         xmaxlst        (vl-sort xlst '(lambda (x y) (> x y)))
   
7.         ymaxlst        (vl-sort ylst '(lambda (x y) (> x y)))
   
8.         xmin        (car xminlst)
   
9.         xmax        (car xmaxlst)
   
10.         ymin        (car yminlst)
    
11.         ymax        (car ymaxlst)
    
12.   )
    
13.   (list        (list xmin ymin)
    
14.         (list xmax ymin)
    
15.         (list xmax ymax)
    
16.         (list xmin ymax)
    
17.   )
    
18. )
    

(defun getXMinYmin (pts)<br />   (setq        xlst        (mapcar 'car pts)<br />         ylst        (mapcar 'cadr pts)<br />         xminlst        (vl-sort xlst '(lambda (x y) (< x y)))<br />         yminlst        (vl-sort ylst '(lambda (x y) (< x y)))<br />         xmaxlst        (vl-sort xlst '(lambda (x y) (> x y)))<br />         ymaxlst        (vl-sort ylst '(lambda (x y) (> x y)))<br />         xmin        (car xminlst)<br />         xmax        (car xmaxlst)<br />         ymin        (car yminlst)<br />         ymax        (car ymaxlst)<br />   )<br />   (list        (list xmin ymin)<br />         (list xmax ymin)<br />         (list xmax ymax)<br />         (list xmin ymax)<br />   )<br /> )<br />

上面代码求所有顶点围成的矩形框的四个角点

赵钱孙李

非常谢谢各位，先试试。