qinleilei 发表于 2014-5-16 19:31:48

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

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

(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))


自贡黄明儒 发表于 2014-5-16 19:58:21

见高飞鸟的最小包闱盒

Andyhon 发表于 2014-5-16 20:23:39

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

qinleilei 发表于 2014-5-16 20:32:50

Andyhon 发表于 2014-5-16 20:23 static/image/common/back.gif
Try(acet-geom-ss-extents (ssget) nil)

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

lsjj 发表于 2014-5-16 21:30:23

如果zoom->o能用更省事

Andyhon 发表于 2014-5-16 21:40:26

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

自贡黄明儒 发表于 2014-5-16 22:15:22

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

qinleilei 发表于 2014-5-16 22:50:06

自贡黄明儒 发表于 2014-5-16 22:15 static/image/common/back.gif
(command. "zoom"(ssget)"")

(command "zoom" pt1 pt2))   这样做其实只是一个示范，其实我最想知道的是如何框选多个对象，来提取它的左下角和右上角的坐标而已，在论坛搜索的包围盒子写的都看不懂，至于在不在UCS下都无所谓，只是想知道在绝对坐标系下面是怎么提取的。
页: [1]
查看完整版本: 请高手帮忙改进一下这个函数、