eachy 发表于 2005-9-11 10:13:49

[VLISP函数]：返回实体或选择集包围盒的对角点

选择集包围盒不包括属性块的属性

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

小菜 发表于 2006-3-22 11:08:00

xd_GetObjectBoundingBox当实体是“MTEXT”的TTF字时，返回点不正确，如果块内包含些此类实体，也出错

kohi 发表于 2006-5-14 17:28:16

(acet-geom-ss-extents ss t)

netbee 发表于 2006-5-30 18:20:15

函数定义在哪个文件中？

经测试对MTEXT对象也搞不定呀!!!!!

snsj 发表于 2006-8-3 20:53:13

解决不了这个问题其实用处就不大了

brainstorm 发表于 2007-1-12 19:16:52

xd-points_box在那里可以找到，谢谢

jx2008 发表于 2007-1-15 19:45:49

怎么还这么多问题，看来还是用处不算大阿，有待解决

taner 发表于 2007-7-14 13:44:47



1.先依http://www.xdcad.net/forum/showthread.php?s=&threadid=612737 求MTEXT的4角点
2.再依http://www.xdcad.net/forum/showthread.php?s=&threadid=451890求点集的最小包盒

每人皆师 发表于 2021-3-18 21:08:09

xd-points_box在那里{:1_12:} 没有看到
页: [1]
查看完整版本: [VLISP函数]：返回实体或选择集包围盒的对角点