[求助]如何获得选择集的最大，最小x和y坐标

luyu9635

各位，如果选择一堆图元后，怎么取得它的最大，最小x和y坐标值，谢谢

ZZXXQQ

3. (defun C:wx()
4. (vl-load-com)
5. (command "undo" "be")
6. (setvar "cmdecho" 0)
7. (command "ucs" "w")
8. (princ "\n请选择物体:")
9. (while(null(setq en (ssget))))
10. (setq minx0 1e6 miny0 1e6 maxx0 -1e6 maxy0 -1e6)
11. (setq i 0)
12. (repeat (sslength en)
13.   (setq end (ssname en i))
14.   (setq end_data (entget end))
15.   (Min_Max)
16.   (setq i(1+ i))
17. )
18. (setq pmin (list minx0 miny0)
19.        pmax (list maxx0 maxy0))
20. (command ".rectang" "non" pmin "non" pmax)
21. (command "undo" "e")
22. (princ)
23. )
24. ;;;子程序，求选集是大外形坐标
25. (defun Min_Max()
26. (vla-getboundingbox(vlax-ename->vla-object end) 'minp 'maxp)
27. (setq minp (vlax-safearray->list minp)
28.        maxp (vlax-safearray->list maxp))
29. (setq minx (car minp)
30.        maxx (car maxp)
31.        miny (cadr minp)
32.        maxy (cadr maxp))
33. (if (> minx0 minx) (setq minx0 minx))
34. (if (> miny0 miny) (setq miny0 miny))
35. (if (< maxx0 maxx) (setq maxx0 maxx))
36. (if (< maxy0 maxy) (setq maxy0 maxy))
37. )

(defun C:wx() (vl-load-com) (command "undo" "be") (setvar "cmdecho" 0) (command "ucs" "w") (princ "\n请选择物体:") (while(null(setq en (ssget)))) (setq minx0 1e6 miny0 1e6 maxx0 -1e6 maxy0 -1e6) (setq i 0) (repeat (sslength en)   (setq end (ssname en i))   (setq end_data (entget end))   (Min_Max)   (setq i(1+ i)) ) (setq pmin (list minx0 miny0)        pmax (list maxx0 maxy0)) (command ".rectang" "non" pmin "non" pmax) (command "undo" "e") (princ) ) ;;;子程序，求选集是大外形坐标 (defun Min_Max() (vla-getboundingbox(vlax-ename->vla-object end) 'minp 'maxp) (setq minp (vlax-safearray->list minp)        maxp (vlax-safearray->list maxp)) (setq minx (car minp)        maxx (car maxp)        miny (cadr minp)        maxy (cadr maxp)) (if (> minx0 minx) (setq minx0 minx)) (if (> miny0 miny) (setq miny0 miny)) (if (< maxx0 maxx) (setq maxx0 maxx)) (if (< maxy0 maxy) (setq maxy0 maxy)) )

程序对SPLINE线有误差。

xxyyzzlg

ZZXXQQ 发表于 2008-3-2 23:02
程序对SPLINE线有误差。

感谢分享，用这个子程序成功解决了快速建块默认捕捉点问题。

mccad

求每个图元的最大最小坐标，通过比较得到整个选择集的最大最小坐标。需要用到AX方法。

wwwliuyu

我也很想知道,楼上的能不能说得明白点!多义线的最大最小坐标如何求得?当有圆弧的时候!42组码的凸度始终不明白是如何算的?还望指教.

luyu9635

管理员，你大慈大悲帮帮俺吧，俺还是菜鸟，你说的ax得太深奥了，俺不明白，请多多指教呀

Andyhon

试试这个 ET 内的acet函数
(acet-geom-ss-extents 一堆图元集 T)

luyu9635

谢谢zzxxqq斑竹，我先调试下，不懂再来问您

luyu9635

我的本意是要做一个简单的阵列程序，因为工作中经常用到，所以想简化，直接选择对象（可以选择单个图元，也可多选），再输入物体间的间距，（比如说输入2，则行和列都为2），这样的话对排版方便多了

jdhszh

这个函数似乎也行

(vl-sort '((1 3) (2 2) (3 1))
             (function (lambda (e1 e2)
                         (< (cadr e1) (cadr e2)) ) ) )