（XD::Pnts:Extents）点表的范围

XDSoft

1. (defun XD::Pnts:Extents (vlist / tmp)
   
2.   (setq tmp (mapcar '(lambda (x) (vl-remove-if 'null x))
   
3.                     (mapcar '(lambda (x) (mapcar '(lambda (y) (nth x y)) vlist))
   
4.                             '(0 1 2)
   
5.                     )
   
6.             )
   
7.   )
   
8.   (list (mapcar '(lambda (x) (apply 'min x)) tmp)
   
9.         (mapcar '(lambda (x) (apply 'max x)) tmp)
   
10.   )
    
11. )
    
12. 
    

(defun XD::Pnts:Extents (vlist / tmp)<br />   (setq tmp (mapcar '(lambda (x) (vl-remove-if 'null x))<br />                     (mapcar '(lambda (x) (mapcar '(lambda (y) (nth x y)) vlist))<br />                             '(0 1 2)<br />                     )<br />             )<br />   )<br />   (list (mapcar '(lambda (x) (apply 'min x)) tmp)<br />         (mapcar '(lambda (x) (apply 'max x)) tmp)<br />   )<br /> )<br /> <br />

sh_h

收藏了，谢谢大师分享！！！

dyjwyqz5221

学习学习再学习

炫翔

2. ;另一个版本
   
3. (defun XD::Pnts:Extents(pts)
   
4. (list
   
5.          (apply 'mapcar (cons 'min pts))
   
6.          (apply 'mapcar (cons 'max pts))
   
7. )
   
8. )

;另一个版本<br /> (defun XD::Pnts:Extents(pts)<br /> (list<br />          (apply 'mapcar (cons 'min pts)) <br />          (apply 'mapcar (cons 'max pts))<br /> )<br /> )