如何求选择集中图形的坐标角点

用户5694667304

如何求选择集中图形的坐标角点，图形是任意图形，并且选择集中图元数量比较多，不低于1000个。麻烦高手能给个思路，要是有代码就更完美了。多谢！！


该贴已经同步到 用户5694667304的微博

masterlong

选择集的实体外矩形框 by gxl
(defun MJ:GetssBox (ss / i l1 l2 ll ur)
  (repeat (setq i (sslength ss))
    (vla-getboundingbox
      (vlax-ename->vla-object (ssname ss (setq i (1- i))))
      'll
      'ur
    )
    (setq l1 (cons (vlax-safearray->list ll) l1)
          l2 (cons (vlax-safearray->list ur) l2)
    )
  )
  (mapcar '(lambda (a b) (apply 'mapcar (cons a b)))
          '(min max)
          (list l1 l2)
  )
)