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

gdslqs

如题，实现以下功能：框选一大堆图元（比如：直线、多段线、圆、文字、标注等），找到该选择集的中心，在选择集的外围画一个矩形把它框起来，这个矩形的位置和尺寸怎么定。
请指教！

diditoy

占个位，回头研究研究。

caoyin

vla-getboundingbox得到单个对象的范围，选择集的范围也就容易得到了

ljttjl

接楼上，得到每个对象的框角点后，将其组成点表，然后查找X坐标值的最小值和最大值，Y坐标值的最小值和最大值。然后可以组成两个点表（x最小值，y值最小值）（x值最大值，y值最大值），以这两个点画矩形即可。

gdslqs

问下(vla-getboundingbox aaa)中aaa是什么类型的参数；我尝试获取第一个对象的外框，调试发现下面的代码在运行到(vla-getboundingbox vlaob)时提示参数类型错误
(defun test()
  (setq ss(ssget))
  (setq en (ssname ss 0))
  (setq valob (vlax-ename->vla-object en))
  (setq e1(vla-getboundingbox vlaob))
  (princ)
)

x_s_s_1

gdslqs 发表于 2011-11-16 16:04
问下(vla-getboundingbox aaa)中aaa是什么类型的参数；我尝试获取第一个对象的外框，调试发现下面的代码在运 ...

希望对您有用

2. ;; ! ***************************************************************************
   
3. ;; ! xd_GetObjectBoundingBox
   
4. ;; ! ***************************************************************************
   
5. ;; ! 功  能  : 返回实体包围盒的对角点.
   
6. ;; ! 参  数  : 'ename' - Any Drawing Object
   
7. ;; ! 返回值  : 'Lst' - is a list of LL and UR
   
8. ;; ! 说  明  : 适用 AutoCAD 2000+
   
9. ;; ! e-mail  : eachy@xdcad.net
   
10. ;; ! Web     : www.xdcad.net
    
11. ;; ! ****************************************************************************
    
12. (defun xd_GetObjectBoundingBox (ename / ll ur)
    
13.   (vla-GetBoundingBox (vlax-ename->vla-object ename) 'll 'ur)
    
14.   (list
    
15.     (vlax-safearray->list ll)
    
16.     (vlax-safearray->list ur)
    
17.   )
    
18. )
    
19. ;; ! ***************************************************************************
    
20. ;; ! xd_GetSSBoundingBox
    
21. ;; ! ***************************************************************************
    
22. ;; ! 功  能  : 返回选择集实体包围盒的对角点.
    
23. ;; ! 参  数  : 'ss' - Any Drawing Object Selection
    
24. ;; ! 返回值  : 'Lst' - is a list of LL and UR
    
25. ;; ! 说  明  : 适用 AutoCAD 2000+
    
26. ;; ! e-mail  : eachy@xdcad.net
    
27. ;; ! Web     : www.xdcad.net
    
28. ;; ! ****************************************************************************
    
29. (defun xd_getSSBoundingbox (ss / ssl i ptl)
    
30.   (setq        ssl (sslength ss)
    
31.         i   -1
    
32.   )
    
33.   (repeat ssl
    
34.     (setq
    
35.       ptl (cons        (xd_getObjectboundingbox (ssname ss (setq i (1+ i))))
    
36.                 ptl
    
37.           )
    
38.     )
    
39.   )
    
40. ;;;  (xd-points_box (apply 'append ptl))
    
41. )

;; ! ***************************************************************************<br /> ;; ! xd_GetObjectBoundingBox<br /> ;; ! ***************************************************************************<br /> ;; ! 功  能  : 返回实体包围盒的对角点.<br /> ;; ! 参  数  : 'ename' - Any Drawing Object<br /> ;; ! 返回值  : 'Lst' - is a list of LL and UR<br /> ;; ! 说  明  : 适用 AutoCAD 2000+<br /> ;; ! e-mail  : eachy@xdcad.net<br /> ;; ! Web     : www.xdcad.net<br /> ;; ! ****************************************************************************<br /> (defun xd_GetObjectBoundingBox (ename / ll ur)<br />   (vla-GetBoundingBox (vlax-ename->vla-object ename) 'll 'ur)<br />   (list<br />     (vlax-safearray->list ll)<br />     (vlax-safearray->list ur)<br />   )<br /> )<br /> ;; ! ***************************************************************************<br /> ;; ! xd_GetSSBoundingBox<br /> ;; ! ***************************************************************************<br /> ;; ! 功  能  : 返回选择集实体包围盒的对角点.<br /> ;; ! 参  数  : 'ss' - Any Drawing Object Selection<br /> ;; ! 返回值  : 'Lst' - is a list of LL and UR<br /> ;; ! 说  明  : 适用 AutoCAD 2000+<br /> ;; ! e-mail  : eachy@xdcad.net<br /> ;; ! Web     : www.xdcad.net<br /> ;; ! ****************************************************************************<br /> (defun xd_getSSBoundingbox (ss / ssl i ptl)<br />   (setq        ssl (sslength ss)<br />         i   -1<br />   )<br />   (repeat ssl<br />     (setq<br />       ptl (cons        (xd_getObjectboundingbox (ssname ss (setq i (1+ i))))<br />                 ptl<br />           )<br />     )<br />   )<br /> ;;;  (xd-points_box (apply 'append ptl))<br /> )

gdslqs

x_s_s_1 发表于 2011-11-16 16:08
希望对您有用

谢谢，看了你发的这个我就明白了
可不可以把你收集的这些常用函数分享一下啊，呵呵

x_s_s_1

我都是临时用临时找的，散乱在林林总总的冗长代码中，没整理过，不好意思哈。不过您需要什么可以在本版内搜索，一定有您所需要的

AMTONNY

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

xiaolong1487

学习一下，

fansmax

不错，不错，正需要这个，有时候写程序写得烦了，有现成的函数实在太幸福了。