《菜鸟提问》 怎么得到所选多个物体的最小左下角点

HGHG011

得到所有物体的左下角点，求高手
吐槽一下，最近的搜索功能怎么变次了？以前论坛的搜索功能杠杠的，现在什么都搜索不到，还是我设置的问题？
《菜鸟提问》 怎么得到所选多个物体的最小左下角点

Gu_xl

加载XLRX_API
(car (xlrx-pickset-getbox (ssget)))

菜卷鱼

1. (defun sscornerp ( s / a b i m n o )
   
2.     (repeat (setq i (sslength s))
   
3.         (if
   
4.             (and
   
5.                 (setq o (vlax-ename->vla-object (ssname s (setq i (1- i)))))
   
6.                 (vlax-method-applicable-p o 'getboundingbox)
   
7.                 (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list o 'a 'b))))
   
8.             )
   
9.             (setq m (cons (vlax-safearray->list a) m)
   
10.                   n (cons (vlax-safearray->list b) n)
    
11.             )
    
12.         )
    
13.     )
    
14.     (if (and m n)
    
15.         (mapcar '(lambda ( a b ) (apply 'mapcar (cons a b))) '(min max) (list m n))
    
16.     )
    
17. )

(defun sscornerp ( s / a b i m n o )<br />     (repeat (setq i (sslength s))<br />         (if<br />             (and<br />                 (setq o (vlax-ename->vla-object (ssname s (setq i (1- i)))))<br />                 (vlax-method-applicable-p o 'getboundingbox)<br />                 (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list o 'a 'b))))<br />             )<br />             (setq m (cons (vlax-safearray->list a) m)<br />                   n (cons (vlax-safearray->list b) n)<br />             )<br />         )<br />     )<br />     (if (and m n)<br />         (mapcar '(lambda ( a b ) (apply 'mapcar (cons a b))) '(min max) (list m n))<br />     )<br /> )

结果( 左下角的点 ，右上角的点)

1. (defun c:tt ( )
   
2. (setq ss(ssget ))
   
3. (setq pp (sscornerp ss))
   
4. (setq zuoxiajiao (car pp))
   
5. (prin1)
   
6. )

(defun c:tt ( )<br /> (setq ss(ssget ))<br /> (setq pp (sscornerp ss))<br /> (setq zuoxiajiao (car pp))<br /> (prin1)<br /> )

HGHG011

Gu_xl 发表于 2015-4-14 20:09
加载XLRX_API
(car (xlrx-pickset-getbox (ssget)))

版主果然杠杠的

HGHG011

菜卷鱼 发表于 2015-4-15 09:33
结果( 左下角的点 ，右上角的点)

程序使用成功，不过没有版主的程序运行速度快，还是谢谢您的答案