块参照选择集中最大最小坐标问题

yxh1202

选择集中全部是CASS展点中生成的 块。想找出这个选择集中块的最大最小X Y值，但提示语法错误，请指点：


;选择n个块，求块的插入点坐标中的  最大  最小 x y值
(defun C:maxin ()
  (IF (SETQ S1 (SSGET))
    (setq xx 0
   yx 0
   xd 0
   yd 0
    )
    (setq I 0)
    (repeat (sslength S1)
     ;取得对象属性列表
      (setq s1_data (entget (ssname s1 i)))
      (setq s1pt (assoc 10 s1_data))
      (setq pts (cdr s1pt))
      (setq x (car pts))
      (setq y (cadr pts))
      (cond
((> xx x) (setq xx x))
((> yx y) (setq yx y))
((< xd x) (setq xd x))
((< yd y) (setq yd y))
      )
      (setq I (1+ I))
    )
  )
  (princ "\n" xx)
)

zyhandw

这能行吗？看不出是两个块的插入点的坐标比较啊

yxh1202

zyhandw 发表于 2013-5-28 17:00
这能行吗？看不出是两个块的插入点的坐标比较啊

是很多个块，请指点一下

zyhandw

yxh1202 发表于 2013-5-28 17:21
是很多个块，请指点一下

我知道是很多个块！
可是你的程序，怎么是拿块的插入点的坐标与0，0比较呢？

x_s_s_1

试试，这个是最大，最小的您自己将MAX改为MIN,测试图结果(461027.0 3.63835e+006)

2. (defun c:ttt(/ ss lst x y n)
   
3. (setq ss (ssget'((0 . "INSERT"))) n 0)
   
4.   (repeat(sslength ss)(setq lst(cons (ssname ss n)lst) n (1+ n)))
   
5.   (setq x(mapcar '(lambda(x)(car(cdr(assoc 10 (entget x)))))lst))
   
6.   (setq y(mapcar '(lambda(x)(cadr(cdr(assoc 10 (entget x)))))lst))
   
7.   (list(eval (cons 'max x))(eval (cons 'max y)))
   
8.   )

(defun c:ttt(/ ss lst x y n)<br /> (setq ss (ssget'((0 . "INSERT"))) n 0)<br />   (repeat(sslength ss)(setq lst(cons (ssname ss n)lst) n (1+ n)))<br />   (setq x(mapcar '(lambda(x)(car(cdr(assoc 10 (entget x)))))lst))<br />   (setq y(mapcar '(lambda(x)(cadr(cdr(assoc 10 (entget x)))))lst))<br />   (list(eval (cons 'max x))(eval (cons 'max y)))<br />   )

yxh1202

x_s_s_1 发表于 2013-5-28 17:41
试试，这个是最大，最小的您自己将MAX改为MIN,测试图结果(461027.0 3.63835e+006)

你好，通过测试仿佛最小值X对，最大值X不对. 最大X应当为  460941

gzxl

取得插入点点集lst后
就(apply 'max (mapcar '(lambda (x) (cadr x)) lst))

yxh1202

gzxl 发表于 2013-5-29 12:28
取得插入点点集lst后
就(apply 'max (mapcar '(lambda (x) (cadr x)) lst))

你好，按照楼上的代码，最大最小值不符，求指点

Gu_xl

1. ;; gxl-GetssBox 取得选择集的实体外矩形框/
   
2. (defun gxl-GetssBox (ss / i l1 l2 ll ur e)
   
3.   (repeat (setq i (sslength ss))
   
4.     (if        (setq e (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
   
5.       (progn
   
6.         (setq r
   
7.                (VL-CATCH-ALL-APPLY
   
8.                  'vla-getboundingbox
   
9.                  (list
   
10.                    e
    
11.                    'll
    
12.                    'ur
    
13.                  )
    
14.                )
    
15.         )
    
16.         (if (not (VL-CATCH-ALL-ERROR-P r))
    
17.           (setq        l1 (cons (vlax-safearray->list ll) l1)
    
18.                 l2 (cons (vlax-safearray->list ur) l2)
    
19.           )
    
20.         )
    
21.       )
    
22.     )
    
23.   )
    
24.   (mapcar '(lambda (a b) (apply 'mapcar (cons a b)))
    
25.           '(min max)
    
26.           (list l1 l2)
    
27.   )
    
28. )

;; gxl-GetssBox 取得选择集的实体外矩形框/<br /> (defun gxl-GetssBox (ss / i l1 l2 ll ur e)<br />   (repeat (setq i (sslength ss))<br />     (if        (setq e (vlax-ename->vla-object (ssname ss (setq i (1- i)))))<br />       (progn<br />         (setq r<br />                (VL-CATCH-ALL-APPLY<br />                  'vla-getboundingbox<br />                  (list<br />                    e<br />                    'll<br />                    'ur<br />                  )<br />                )<br />         )<br />         (if (not (VL-CATCH-ALL-ERROR-P r))<br />           (setq        l1 (cons (vlax-safearray->list ll) l1)<br />                 l2 (cons (vlax-safearray->list ur) l2)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (mapcar '(lambda (a b) (apply 'mapcar (cons a b)))<br />           '(min max)<br />           (list l1 l2)<br />   )<br /> )

lilq_78

有没有办法获取实体上最靠右或最左的点？