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

shang_123

恩  呵呵！！！！ ！！很高兴在这个里面见到你！

jackynine

有了包围框，可判断物体是否“相似” 但是不相连的多个物体 如何一次判断每个物体是否相似
不知道有没有方法解决

longer1000

谁是院长啊？

shang_123

longer1000 发表于 2011-10-8 14:59
谁是院长啊？

   在明经里面多看看帖吧！！！

longer1000

shang_123 发表于 2011-10-8 17:32
在明经里面多看看帖吧！！！

就是E派编程坊？

highflybird

请参考如下帖子：
http://bbs.mjtd.com/forum.php?mo ... st%3D1%26digest%3D1

lijiao

2. (defun cw (ss / I OUT OUTX OUTY P1 P2 X)
   
3.   (setq i -1 out '())
   
4.   (repeat (sslength ss)
   
5.     (setq out (cons (ssname ss (setq i (1+ i))) out))
   
6.     )
   
7.   (setq out (mapcar '(lambda(x)
   
8.                        (vla-GetBoundingBox (vlax-ename->vla-object x) 'p1 'p2)
   
9.                        (setq x (mapcar 'vlax-safearray->list (list p1 p2)))
   
10.                        (list (mapcar 'car x) (mapcar 'cadr x))
    
11.                        )
    
12.                     out)
    
13.         )
    
14.   (setq outx (apply 'append (mapcar 'car out)))
    
15.   (setq outy (apply 'append (mapcar 'cadr out)))
    
16.   (list (list (apply 'min outx)
    
17.               (apply 'min outy))
    
18.         (list (apply 'max outx)
    
19.               (apply 'max outy))
    
20.         )
    
21.   )

(defun cw (ss / I OUT OUTX OUTY P1 P2 X)<br />   (setq i -1 out '())<br />   (repeat (sslength ss)<br />     (setq out (cons (ssname ss (setq i (1+ i))) out))<br />     )<br />   (setq out (mapcar '(lambda(x)<br />                        (vla-GetBoundingBox (vlax-ename->vla-object x) 'p1 'p2)<br />                        (setq x (mapcar 'vlax-safearray->list (list p1 p2)))<br />                        (list (mapcar 'car x) (mapcar 'cadr x))<br />                        )<br />                     out)<br />         )<br />   (setq outx (apply 'append (mapcar 'car out)))<br />   (setq outy (apply 'append (mapcar 'cadr out)))<br />   (list (list (apply 'min outx)<br />               (apply 'min outy))<br />         (list (apply 'max outx)<br />               (apply 'max outy))<br />         )<br />   )

434939575

好东西[em0]

shang_123

highflybird 发表于 2011-10-9 09:24
请参考如下帖子：
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=81308&extra=page%3D2%26filter%3Dd ...

大哥 是选择对象的最小包围框 ！！比如 是这种的！！！

xiaxiang

shang_123 发表于 2012-2-1 19:01
大哥 是选择对象的最小包围框 ！！比如 是这种的！！！

看看此贴呢？
http://bbs.mjtd.com/thread-85502-1-1.html