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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

;; ! ***************************************************************************
;; ! xd_GetObjectBoundingBox
;; ! ***************************************************************************
;; ! 功能 : 返回实体包围盒的对角点.
;; ! 参数 : 'ename' - Any Drawing Object
;; ! 返回值 : 'Lst' - is a list of LL and UR
;; ! 说明 : 适用 AutoCAD 2000+
;; ! e-mail : [email]eachy@xdcad.net[/email]
;; ! Web : [url]www.xdcad.net[/url]
;; ! ****************************************************************************
(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 : [email]eachy@xdcad.net[/email]
;; ! Web : [url]www.xdcad.net[/url]
;; ! ****************************************************************************
(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))
)

;; ! *************************************************************************** 
;; ! xd_GetObjectBoundingBox 
;; ! *************************************************************************** 
;; ! 功  能  : 返回实体包围盒的对角点. 
;; ! 参  数  : 'ename' - Any Drawing Object 
;; ! 返回值  : 'Lst' - is a list of LL and UR 
;; ! 说  明  : 适用 AutoCAD 2000+ 
;; ! e-mail  : [email]eachy@xdcad.net[/email] 
;; ! Web     : [url]www.xdcad.net[/url] 
;; ! **************************************************************************** 
(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  : [email]eachy@xdcad.net[/email] 
;; ! Web     : [url]www.xdcad.net[/url] 
;; ! **************************************************************************** 
(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

[acet-geom-ss-extents]函数定义在哪个文件中？

经测试对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

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

复制代码

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

xd-points_box在那里

没有看到

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子