请高手帮忙改进一下这个函数、

qinleilei

源码如下：
只能点选单个对象，如何做到框选对象的方式，望高手帮忙改进一下，谢谢了！

(defun c:dds()
(vla-getboundingbox (vlax-ename->vla-object (car (entsel "选取对象:"))) 'll 'ur)
(setq pt1 (vlax-safearray->list ll))
(setq pt2 (vlax-safearray->list ur))
(command "zoom" pt1 pt2))

自贡黄明儒

见高飞鸟的最小包闱盒

Andyhon

Try  (acet-geom-ss-extents (ssget) nil)

qinleilei

Andyhon 发表于 2014-5-16 20:23
Try  (acet-geom-ss-extents (ssget) nil)

没有看懂，可不可以详细介绍下？

lsjj

如果zoom->o能用更省事

Andyhon

这样试
(apply 'command (cons "Zoom" (acet-geom-ss-extents (ssget) nil)))

自贡黄明儒

(command. "zoom"  (ssget)  "")

qinleilei

自贡黄明儒 发表于 2014-5-16 22:15
(command. "zoom"  (ssget)  "")

(command "zoom" pt1 pt2))   这样做其实只是一个示范，其实我最想知道的是如何框选多个对象，来提取它的左下角和右上角的坐标而已，在论坛搜索的包围盒子写的都看不懂，至于在不在UCS下都无所谓，只是想知道在绝对坐标系下面是怎么提取的。[em0]