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

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

(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
在此感谢院长大大！问题已解决！！！

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

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

xiaxiang 发表于 2011-10-6 12:00
如何解决的？搞到院长的代码了？

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

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

很优秀的程序啊

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

楼主，应该是做建筑模型的吧！同行

账号		自动登录	找回密码
密码			注册

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

相关帖子

评分

本帖子中包含更多资源

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

相关帖子

评分

本帖子中包含更多资源

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