求获得选择对象最外范围的lisp源码

jidian24

求获得选择对象最外范围的lisp源码，最左，最右，最上，最下

ZZXXQQ

本版有许多这样的贴子，找找看。

461045462

不知道楼主要求得到外围的是线条表示还是图形表示，图形表示的网上有

x_s_s_1

(vl-load-com)
;; ! ***************************************************************************
;; ! 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
    (reverse (cdr (reverse (vlax-safearray->list ll))))
    (reverse (cdr (reverse (vlax-safearray->list 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
       (append (xd_getObjectboundingbox (ssname ss (setq i (1+ i))))
               ptl
       )
    )
  )
)
;|
功能：对2d,3d点表排序.
用法：(sort-pt 点表 str)
如：(sort-pt plst "x")
说明:str可以 XYZxyz 6个字的任意组合.
大写为从大到小排列，小写为从小到大排列.
字符前后说明优先级别的大小，级别大的优先考虑。
|;
;; Form www.xdcad.net fsxm 2005.5.31

(defun sort-pt-1 (plts fun n)
  (vl-sort plts
           '(lambda (a b)
              (fun (nth n a) (nth n b))
            )
  )
)
(defun sort-pt (plst xyz / fun)
  (setq xyz (vl-string->list xyz))
  (foreach n-xyz (reverse xyz)
    (if        (< n-xyz 100)
      (setq fun          >
            n-xyz (- n-xyz 88)
            plst  (sort-pt-1 plst fun n-xyz)
      )
      (setq fun          <
            n-xyz (- n-xyz 120)
            plst  (sort-pt-1 plst fun n-xyz)
      )
    )
  )
)

jfxia

       楼上的把小东的程式也来了