怎么用lisp画出选择集的外围线

成仔

占个位置，以后要用就好找了

hhh454

论坛里有相关的代码，找找应该有

dybsy

非常有用啊 谢谢！！！版主 谢谢网站！

阿然

给个lee大的函数
参数是图元表(vla-object)
返回包围框的左下角和右上角点坐标

1. 
   
2. ;;------------------=={ List BoundingBox }==------------------;;
   
3. ;;                                                            ;;
   
4. ;;  Returns the coordinates of a rectangle framing all        ;;
   
5. ;;  objects in a supplied list                                ;;
   
6. ;;------------------------------------------------------------;;
   
7. ;;  Author: Lee Mac, Copyright ?2010 - www.lee-mac.com       ;;
   
8. ;;------------------------------------------------------------;;
   
9. ;;  Arguments:                                                ;;
   
10. ;;  lst - list of VLA-Objects to process                      ;;
    
11. ;;------------------------------------------------------------;;
    
12. ;;  Returns:  coordinates of rectangle framing objects        ;;
    
13. ;;------------------------------------------------------------;;
    
14. (defun LM:ListBoundingBox ( lst / ll ur bb )
    
15.   ;; ?Lee Mac 2010
    
16.   (foreach obj lst (vla-getBoundingBox obj 'll 'ur)
    
17.     (setq bb (cons (vlax-safearray->list ur)
    
18.                    (cons (vlax-safearray->list ll) bb))
    
19.     )
    
20.   )
    
21.   (mapcar
    
22.     (function
    
23.       (lambda ( operation )
    
24.         (apply (function mapcar) (cons operation bb))
    
25.       )
    
26.     )
    
27.    '(min max)
    
28.   )
    
29. )
    
30. ;;----------------=={ BoundingBox -> List }==-----------------;;
    
31. ;;                                                            ;;
    
32. ;;  Returns the coordinates of a rectangle from the           ;;
    
33. ;;  coordinates of the lower-left and upper-right corners     ;;
    
34. ;;------------------------------------------------------------;;
    
35. ;;  Author: Lee Mac, Copyright ?2010 - www.lee-mac.com       ;;
    
36. ;;------------------------------------------------------------;;
    
37. ;;  Arguments:                                                ;;
    
38. ;;  bbox - list of lower-left and upper-right coordinates     ;;
    
39. ;;------------------------------------------------------------;;
    
40. ;;  Returns:  coordinates of rectangle                        ;;
    
41. ;;------------------------------------------------------------;;
    
42. (defun LM:BBox->List ( bbox )
    
43.   (mapcar
    
44.     (function
    
45.       (lambda ( funcs )
    
46.         (mapcar
    
47.           (function
    
48.             (lambda ( func ) ((eval func) bbox))
    
49.           )
    
50.           funcs
    
51.         )
    
52.       )
    
53.     )
    
54.     '((caar  cadar)  (caadr cadar) (caadr cadadr) (caar  cadadr))
    
55.   )
    
56. )
    

<br /> ;;------------------=={ List BoundingBox }==------------------;;<br /> ;;                                                            ;;<br /> ;;  Returns the coordinates of a rectangle framing all        ;;<br /> ;;  objects in a supplied list                                ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Author: Lee Mac, Copyright ?2010 - <a href="http://www.lee-mac.com/" target="_blank">www.lee-mac.com</a>       ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Arguments:                                                ;;<br /> ;;  lst - list of VLA-Objects to process                      ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Returns:  coordinates of rectangle framing objects        ;;<br /> ;;------------------------------------------------------------;;<br /> (defun LM:ListBoundingBox ( lst / ll ur bb )<br />   ;; ?Lee Mac 2010<br />   (foreach obj lst (vla-getBoundingBox obj 'll 'ur)<br />     (setq bb (cons (vlax-safearray->list ur)<br />                    (cons (vlax-safearray->list ll) bb))<br />     )<br />   )<br />   (mapcar<br />     (function<br />       (lambda ( operation )<br />         (apply (function mapcar) (cons operation bb))<br />       )<br />     )<br />    '(min max)<br />   )<br /> )<br /> ;;----------------=={ BoundingBox -> List }==-----------------;;<br /> ;;                                                            ;;<br /> ;;  Returns the coordinates of a rectangle from the           ;;<br /> ;;  coordinates of the lower-left and upper-right corners     ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Author: Lee Mac, Copyright ?2010 - <a href="http://www.lee-mac.com/" target="_blank">www.lee-mac.com</a>       ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Arguments:                                                ;;<br /> ;;  bbox - list of lower-left and upper-right coordinates     ;;<br /> ;;------------------------------------------------------------;;<br /> ;;  Returns:  coordinates of rectangle                        ;;<br /> ;;------------------------------------------------------------;;<br /> (defun LM:BBox->List ( bbox )<br />   (mapcar<br />     (function<br />       (lambda ( funcs )<br />         (mapcar<br />           (function<br />             (lambda ( func ) ((eval func) bbox))<br />           )<br />           funcs<br />         )<br />       )<br />     )<br />     '((caar  cadar)  (caadr cadar) (caadr cadadr) (caar  cadadr))<br />   )<br /> )<br />

yxh1202

阿然 发表于 2013-1-7 18:55
给个lee大的函数
参数是图元表(vla-object)
返回包围框的左下角和右上角点坐标

能不能改个思路，就是选择集中图元的交点形成的不规则包围圈用多线段标记出来呢，这个很有用。希望高人指点

阿然

yxh1202 发表于 2013-1-7 19:18
能不能改个思路，就是选择集中图元的交点形成的不规则包围圈用多线段标记出来呢，这个很有用。希望高人指 ...

参考高飞大的凸包计算方法，
所有交点论坛上也有程序，见链接
http://bbs.mjtd.com/thread-85947-1-1.html

start4444

学习了

diditoy

占个位，回头研究研究。