[LISP]高手请指点一下！

zjyangxyz

在CAD中的多义线怎样记录它的各点坐标，然后，把所有的X，Y进行排序，找出最上，最左，最右，最下的多义线点坐标值并把四个点的X，Y记录下来！

zjyangxyz

如上图所示，找出此聚合线的最上，最左，最右，最下的点坐标值并把四个点的X，Y记录下来！

zjyangxyz

不好意思，图没传上，重来

如上图所示，找出此聚合线的最上，最左，最右，最下的点坐标值并把四个点的X，Y记录下来！

Andyhon

;;; A2004
(setq pts (acet-geom-extents ee)     ; ee = your obj , say a lwpolyline
          ;(acet-ent-geomextents ee) ; this line is for A2000 only
      a1y (cadadr  pts)
      a2x (caadr pts)
      a3y (cadar pts)
      a4x (caar pts)
)

       

xyp1964

zjyangxyz发表于2005-11-26 15:36:00回复：（zjyangxyz）高手请指点一下！ 在CAD中的多义线怎样记录它的各点坐标，然后，把所有的X，Y进行排序，找出最上，最左，最右，最下的多义线点坐标值并把四个点的X，Y记录下来！

定义不准确，无法确定哪个是“最上，最左，最右……”的点。
只能形成一个外包范围。

2. [FONT=courier new](load "xyp_lib.vlx")   ;版本 V.20051126
3. ;|加载通用函数(可在签名栏直接下载)
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
6. ★1·在acad.lsp中增加(load"xyp_lib")
7. ■2·在每个程序内增加(load"xyp_lib")
8. ■3·在command下，输入(load"xyp_lib")
9. ■4·在菜单.mnl中增加(load"xyp_lib")
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
13. |;
14. (defun c:test ()
15.   (CMDLA0)
16.   (mkla"TMP"1)
17.   (setq s1  (car (entsel "\n选择实体 : "))
18. pt0 (xyp-get-MinMaxPoint s1 0)
19. pt1 (xyp-get-MinMaxPoint s1 1)
20.   )
21.   (command "rectang" pt0 pt1)
22.   (CMDLA1)
23. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")   ;版本 V.20051126 ;|加载通用函数(可在签名栏直接下载) 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] |; (defun c:test ()   (CMDLA0)   (mkla"TMP"1)   (setq s1  (car (entsel "\n选择实体 : ")) pt0 (xyp-get-MinMaxPoint s1 0) pt1 (xyp-get-MinMaxPoint s1 1)   )   (command "rectang" pt0 pt1)   (CMDLA1) )[/FONT]

zjyangxyz

多谢版主！

小弟所说的最上，最左，最右，最下的多义线点就是此图的四个外围点