shang_123 发表于 2011-10-5 12:15:17

谁能帮忙弄个 选择对象的最小包围框呀？

大家帮帮忙啦！！！工作中经常用到！ 谢谢啦！！

Nico 发表于 2011-10-5 12:19:24

在论坛上找的   不知道是谁做的了
(defun C:wx()
(vl-load-com)
(command "undo" "be")
(setvar "cmdecho" 0)
(command "ucs" "w")
(princ "\n请选择物体:")
(while(null(setq en (ssget))))
(setq minx0 1e6 miny0 1e6 maxx0 -1e6 maxy0 -1e6)
(setq i 0)
(repeat (sslength en)
(setq end (ssname en i))
(setq end_data (entget end))
(Min_Max)
(setq i(1+ i))
)
(setq pmin (list minx0 miny0)
       pmax (list maxx0 maxy0))
(command ".rectang" "non" pmin "non" pmax)
(command "undo" "e")
(princ)
)
;;;子程序，求选集是大外形坐标
(defun Min_Max()
(vla-getboundingbox(vlax-ename->vla-object end) 'minp 'maxp)
(setq minp (vlax-safearray->list minp)
       maxp (vlax-safearray->list maxp))
(setq minx (car minp)
       maxx (car maxp)
       miny (cadr minp)
       maxy (cadr maxp))
(if (> minx0 minx) (setq minx0 minx))
(if (> miny0 miny) (setq miny0 miny))
(if (< maxx0 maxx) (setq maxx0 maxx))
(if (< maxy0 maxy) (setq maxy0 maxy))
)

wharan 发表于 2019-11-6 21:03:13

二楼的程序，不适合样条曲线

395969 发表于 2019-6-19 10:55:02

谢谢分享ddd

yoyoho 发表于 2011-10-5 16:58:35

感谢 Nico 分享程序,谢谢!

齐天大圣3386 发表于 2011-10-5 18:06:30

真有好人啊

shang_123 发表于 2011-10-5 20:37:59

可不可以实现 这种

shang_123 发表于 2011-10-6 10:58:37

在此感谢 院长大大！ 问题已解决！！！

xiaxiang 发表于 2011-10-6 12:00:03

shang_123 发表于 2011-10-6 10:58 static/image/common/back.gif
在此感谢 院长大大！ 问题已解决！！！

如何解决的？搞到院长的代码了？

shang_123 发表于 2011-10-6 15:46:04

xiaxiang 发表于 2011-10-6 12:00 static/image/common/back.gif
如何解决的？搞到院长的代码了？

没有院长工具箱里面就有那个命令

yanshengjiang 发表于 2011-10-6 15:51:04

很优秀的程序啊

hhh454 发表于 2011-10-7 19:47:16

楼主，应该是做建筑模型的吧！同行
页: [1] 2 3
查看完整版本: 谁能帮忙弄个 选择对象的最小包围框呀？