[编程申请]：请问怎样读出一曲线的最东，南，西，北坐标？

温柔女神

请问怎样读出一曲线的最东，最南，最西，最北的X,Y坐标？
我的目的是想确定它的范围，然后打开此范围1：500的CAD图形，
各位朋友帮一下，或有类似程序也上传一个？
先谢谢了

animal212

(xyp-get-MinMaxPoint E-NAME 1)去看下这个函数的用法你就知道怎么做了

gysjy

最初由 温柔女神 发布
[B]请问怎样读出一曲线的最东，最南，最西，最北的X,Y坐标？
我的目的是想确定它的范围，然后打开此范围1：500的CAD图形，
各位朋友帮一下，或有类似程序也上传一个？
先谢谢了 [/B]

下面提供的程序限于闭合且正交的矩形LWPOLYLINE或LINE，可以求得左下角和右上角，其坐标分别是p1和p2：

2. 
   
3.   [FONT=courier new]
   
4. (defun to(n)
   
5.   (cdr (assoc n (entget sn)))
   
6. )
   
7. (defun c:pp()
   
8.   (setq ss (entsel "\n点取范围线:")
   
9.         sn (car ss) ename (to 0) p1 (to 10)
   
10.   )                                          ;获取范围线数据
    
11.   (if (eq ename "LWPOLYLINE")
    
12.       (command "explode" ss)
    
13.   )
    
14.   (setq p2 (polar p1 0.8 1) p3 (polar p1 4 1))
    
15.   (setq ss (ssget "c" p2 p3))
    
16.   (setq ssl (sslength ss) n 0 xlist '() ylist '())
    
17.   (repeat ssl
    
18.     (setq sn (ssname ss n) en (entget sn) p2 (to 10) p3 (to 11) ename (to 0))
    
19.     (if (= "LINE" ename)
    
20.        (setq xlist (cons (car p2) xlist) xlist (cons (car p3) xlist)
    
21.              ylist (cons (cadr p2) ylist) ylist (cons (cadr p3) ylist))
    
22.     );if
    
23.     (setq n (1+ n))
    
24.   )
    
25.   (setq xmax (apply 'max xlist) ymax (apply 'max ylist)
    
26.         xmin (apply 'min xlist) ymin (apply 'min ylist)
    
27.         p1 (list xmin ymin) p2 (list xmax ymax)
    
28.   );获得了范围线左下角和右上角
    
29.   (print)
    
30. )         
    
31.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun to(n)<br />   (cdr (assoc n (entget sn)))<br /> )<br /> (defun c:pp()<br />   (setq ss (entsel "\n点取范围线:") <br />         sn (car ss) ename (to 0) p1 (to 10)<br />   )                                          ;获取范围线数据<br />   (if (eq ename "LWPOLYLINE")<br />       (command "explode" ss)<br />   )<br />   (setq p2 (polar p1 0.8 1) p3 (polar p1 4 1))<br />   (setq ss (ssget "c" p2 p3))<br />   (setq ssl (sslength ss) n 0 xlist '() ylist '())<br />   (repeat ssl<br />     (setq sn (ssname ss n) en (entget sn) p2 (to 10) p3 (to 11) ename (to 0)) <br />     (if (= "LINE" ename)<br />        (setq xlist (cons (car p2) xlist) xlist (cons (car p3) xlist)<br />              ylist (cons (cadr p2) ylist) ylist (cons (cadr p3) ylist))<br />     );if<br />     (setq n (1+ n))<br />   )<br />   (setq xmax (apply 'max xlist) ymax (apply 'max ylist) <br />         xmin (apply 'min xlist) ymin (apply 'min ylist)<br />         p1 (list xmin ymin) p2 (list xmax ymax)<br />   );获得了范围线左下角和右上角<br />   (print)<br /> )          <br />   [/FONT]<br />

zxq0220

楼上程序对SPLINE线误差太大，没法用。

gysjy

最初由 zxq0220 发布
[B]楼上程序对SPLINE线误差太大，没法用。 [/B]

此程序仅限于水平或竖直方向的矩形，若矩形是倾斜方向，则不适用。不过我想通常水平方向的矩形是最经常出现的，应该具有一定意义。

温柔女神

最初由 gysjy 发布
[B]
此程序仅限于水平或竖直方向的矩形，若矩形是倾斜方向，则不适用。不过我想通常水平方向的矩形是最经常出现的，应该具?.. [/B]

如能改成任意方向的折线就好了

Underway

(acet-ent-geomextents ent)  ; ==>LL&UR

Underway

(acet-ent-geomextents ent)  ; ==>LL&UR