一种提取目标图像最小外接矩形的快速算法

ruyi7952

因工作关系非常需要目标多边形的最小外界矩形图案、四个顶点坐标、中心坐标、旋转角度。
从网络中百度出一篇论文，对现有算法进行了一部分改良。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:一种提取目标图像最小外接矩形的快速算法.pdf 
下载次数:48  文件大小:1013.32 KB 
下载权限: 不限 以上  [免费赚D豆]

恳请编制为CAD插件。谢谢。

newer

CAD里面画个图形，截图贴上来说明下前后对比。

ruyi7952

newer 发表于 2017-9-17 16:42

这个和之前的旋转卡壳法是一个用途，就是求某个多边形的最小外接矩形。

sh_h

谢谢楼主分享！！！

newer

ruyi7952 发表于 2017-9-17 20:11

让你自己手工画一个，截图贴上来，是方便别人看到图帮你，你只弄个PDF，谁知道你说的是什么实体？ 多段线还是图像还是什么？
你自己画个你工作中的图形，然后手工画一个你想要的结果胜过你说几十句话。

yangjian001

求某个多边形的最小外接矩形

Lispboy

API有现成的函数求最大，最小面积的外接矩形。试试



下面代码，最小用红色画出，最大用黄色画出，多边形要求是凸多边形。

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq e (car (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "*POLYLINE")))))
   
4.         (XD::Pnts:IsConvex e)
   
5.       )
   
6.     (progn
   
7.       (xdrx_begin)
   
8.       (setq verts (xdrx_getpropertyvalue e "vertices")
   
9.             minrec (xdrx_points_minareabox verts)
   
10.             maxrec (xdrx_points_maxareabox verts)
    
11.       )
    
12.       (xdrx_polyline_make minrec t)
    
13.       (xdrx_setpropertyvalue (entlast) "color" 1 "constantwidth" 1.0)
    
14.       (xdrx_polyline_make maxrec t)
    
15.       (xdrx_setpropertyvalue (entlast) "color" 2 "constantwidth" 1.0)
    
16.       (xdrx_end)
    
17.     )
    
18.     (progn
    
19.       (xdrx_prompt "\n没有选中多段线或者多段线不是凸多边形.")
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    
24. 
    

(defun c:tt ()<br />   (if (and<br />         (setq e (car (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "*POLYLINE")))))<br />         (XD::Pnts:IsConvex e)<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (setq verts (xdrx_getpropertyvalue e "vertices")<br />             minrec (xdrx_points_minareabox verts)<br />             maxrec (xdrx_points_maxareabox verts)<br />       )<br />       (xdrx_polyline_make minrec t)<br />       (xdrx_setpropertyvalue (entlast) "color" 1 "constantwidth" 1.0)<br />       (xdrx_polyline_make maxrec t)<br />       (xdrx_setpropertyvalue (entlast) "color" 2 "constantwidth" 1.0)<br />       (xdrx_end)<br />     )<br />     (progn<br />       (xdrx_prompt "\n没有选中多段线或者多段线不是凸多边形.")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

aifengshenai

留名备用谢谢楼上分享

ruyi7952

Lispboy 发表于 2017-9-18 09:37

谢谢您的回复，目标图形不一定是不是凸多边形。

ruyi7952

newer 发表于 2017-9-18 01:23

所言极是

newer

ruyi7952 发表于 2017-9-18 13:48

不是凸多边形，你把他们分解成凸多边形。 搜索下论坛相关的帖子。

Lispboy

ruyi7952 发表于 2017-9-18 13:55

对非凸多边形，变通下方法，强制删除掉凹点，试试



删除凹点函数 XD::Pnts:RemovePits 见：http://bbs.xdcad.net/thread-712529-1-1.html

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq e (car (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "*POLYLINE")))))
   
4.         (setq pts (xdrx_getpropertyvalue e "vertices"))
   
5.         (setq verts (XD::Pnts:RemovePits pts))
   
6.       )
   
7.     (progn
   
8.       (xdrx_begin)
   
9.       (setq minrec (xdrx_points_minareabox verts)
   
10.             maxrec (xdrx_points_maxareabox verts)
    
11.       )
    
12.       (xdrx_polyline_make minrec t)
    
13.       (xdrx_setpropertyvalue (entlast) "color" 1 "constantwidth" 1.0)
    
14.       (xdrx_polyline_make maxrec t)
    
15.       (xdrx_setpropertyvalue (entlast) "color" 2 "constantwidth" 1.0)
    
16.       (xdrx_end)
    
17.     )
    
18.     (progn
    
19.       (xdrx_prompt "\n没有选中多段线或者多段线不是凸多边形.")
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    
24. 
    

(defun c:tt ()<br />   (if (and<br />         (setq e (car (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "*POLYLINE")))))<br />         (setq pts (xdrx_getpropertyvalue e "vertices"))<br />         (setq verts (XD::Pnts:RemovePits pts))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (setq minrec (xdrx_points_minareabox verts)<br />             maxrec (xdrx_points_maxareabox verts)<br />       )<br />       (xdrx_polyline_make minrec t)<br />       (xdrx_setpropertyvalue (entlast) "color" 1 "constantwidth" 1.0)<br />       (xdrx_polyline_make maxrec t)<br />       (xdrx_setpropertyvalue (entlast) "color" 2 "constantwidth" 1.0)<br />       (xdrx_end)<br />     )<br />     (progn<br />       (xdrx_prompt "\n没有选中多段线或者多段线不是凸多边形.")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

Lispboy

ruyi7952 发表于 2017-9-18 13:55

另外，先前的代码，去掉凸多边形的判断，也能生成，结果或许于上边的去掉凹点的不同，两个代码你对比用下吧。

下面代码，最小用红色画出，最大用黄色画出。

1. (defun c:tt ()
   
2.   (if (setq e (car (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "*POLYLINE")))))
   
3.     (progn
   
4.       (xdrx_begin)
   
5.       (setq verts (xdrx_getpropertyvalue e "vertices")
   
6.             minrec (xdrx_points_minareabox verts)
   
7.             maxrec (xdrx_points_maxareabox verts)
   
8.       )
   
9.       (xdrx_polyline_make minrec t)
   
10.       (xdrx_setpropertyvalue (entlast) "color" 1 "constantwidth" 1.0)
    
11.       (xdrx_polyline_make maxrec t)
    
12.       (xdrx_setpropertyvalue (entlast) "color" 2 "constantwidth" 1.0)
    
13.       (xdrx_end)
    
14.     )
    
15.     (progn
    
16.       (xdrx_prompt "\n没有选中多段线.")
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )
    

(defun c:tt ()<br />   (if (setq e (car (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "*POLYLINE")))))<br />     (progn<br />       (xdrx_begin)<br />       (setq verts (xdrx_getpropertyvalue e "vertices")<br />             minrec (xdrx_points_minareabox verts)<br />             maxrec (xdrx_points_maxareabox verts)<br />       )<br />       (xdrx_polyline_make minrec t)<br />       (xdrx_setpropertyvalue (entlast) "color" 1 "constantwidth" 1.0)<br />       (xdrx_polyline_make maxrec t)<br />       (xdrx_setpropertyvalue (entlast) "color" 2 "constantwidth" 1.0)<br />       (xdrx_end)<br />     )<br />     (progn<br />       (xdrx_prompt "\n没有选中多段线.")<br />     )<br />   )<br />   (princ)<br /> )<br />