图像矩形动态裁剪

st788796 · 发表于 2014-11-23 18:52:09

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

(defun c:XDTB_ImageRectangClip (/ olderr myerr
_CornerToBoundBlock e
pts ln p1
p2 oBoundary cBoundary
bpl vec pvec
oBoundBlock lst
)
(defun myerr (msg)
(princ "\n*cancel*")
(xdrx_pointmonitor)
(if cBoundary
(xdrx_setpropertyvalue e "ClipBoundary" cBoundary)
)
(setq *error* olderr)
(princ)
)
(defun _CornerToBoundBlock (p1 p2 vx vy /)
(list p1
(inters p1 (mapcar '+ p1 vy) p2 (mapcar '+ p2 vx) nil)
p2
(inters p1 (mapcar '+ p1 vx) p2 (mapcar '+ p2 vy) nil)
)
)
(defun callback (dynpt / box ptl cBox)
(redraw)
(setq box (xd::pnts:ucs2wcs (XD::DOC:GetView4Pnt))
ptl (xdrx_curve_getinters pts (xd::pnts:close box) 1)
)
(apply 'xdrx_grdraw (cons 1 (cons 1 ptl)))
(apply 'xdrx_grdraw (cons 1 (cons 1 oBoundary)))
(setq cBox (_CornerToBoundBlock (car pts) dynpt vec pvec))
(if
(apply 'and
(mapcar '(lambda (x)
(> (apply 'xdrx_point_getRelationAtClosedCurve
(cons x oBoundary)
)
1
)
)
cbox
)
)
(xdrx_setpropertyvalue e "ClipBoundary" cBox)
)
)
(if (and (setq e (car (xdrx_entsel "\n选择图像: " '((0 . "IMAGE")))))
(if (xdrx_getpropertyvalue e "IsClipped")
(xdrx_setpropertyvalue e "removeClipBoundary" t)
t
)
(setq oBoundary (xdrx_image_boundary e))
(setq cBoundary (xdrx_getpropertyvalue e "ClipBoundary"))
(if (and (setq p1 (getpoint "\n基准点: "))
(setq p2 (getpoint p1 "\n方向: "))
)
(setq pts (list (trans p1 1 0) (trans p2 1 0)))
)
)
(progn
(if (< (apply 'xdrx_point_getRelationAtClosedCurve
(cons (car pts) oBoundary)
)
2
)
(progn
(setq lst (xdrx_curve_getinters pts oBoundary 1))
(if (< (distance (car pts) (car lst))
(distance (car pts) (cadr lst))
)
(setq pts (cons (car lst) (cdr pts)))
(setq pts (cons (cadr lst) (cdr pst)))
)
)
)
(setq olderr *error*
*error* myerr
vec (mapcar '- p2 p1)
pvec (xdrx_vector_perpvector vec)
)
(xdrx_pointmonitor "callback")
(setq p (getpoint "\n对角点: "))
(xdrx_pointmonitor)
(redraw)
(setq *error* olderr)
)
)
(princ)
)

(defun c:XDTB_ImageRectangClip (/           olderr     myerr 
                                _CornerToBoundBlock   e 
                                pts           ln              p1 
                                p2           oBoundary  cBoundary 
                                bpl           vec              pvec 
                                oBoundBlock              lst 
                               ) 
  (defun myerr (msg) 
    (princ "\n*cancel*") 
    (xdrx_pointmonitor) 
    (if        cBoundary 
      (xdrx_setpropertyvalue e "ClipBoundary" cBoundary) 
    ) 
    (setq *error* olderr) 
    (princ) 
  ) 
  (defun _CornerToBoundBlock (p1 p2 vx vy /) 
    (list p1 
          (inters p1 (mapcar '+ p1 vy) p2 (mapcar '+ p2 vx) nil) 
          p2 
          (inters p1 (mapcar '+ p1 vx) p2 (mapcar '+ p2 vy) nil) 
    ) 
  ) 
  (defun callback (dynpt / box ptl cBox) 
    (redraw) 
    (setq box (xd::pnts:ucs2wcs (XD::DOC:GetView4Pnt)) 
          ptl (xdrx_curve_getinters pts (xd::pnts:close box) 1) 
    ) 
    (apply 'xdrx_grdraw (cons 1 (cons 1 ptl))) 
    (apply 'xdrx_grdraw (cons 1 (cons 1 oBoundary))) 
    (setq cBox (_CornerToBoundBlock (car pts) dynpt vec pvec)) 
    (if 
      (apply 'and 
             (mapcar '(lambda (x) 
                        (> (apply 'xdrx_point_getRelationAtClosedCurve 
                                  (cons x oBoundary) 
                           ) 
                           1 
                        ) 
                      ) 
                     cbox 
             ) 
      ) 
       (xdrx_setpropertyvalue e "ClipBoundary" cBox) 
    ) 
  ) 
  (if (and (setq e (car (xdrx_entsel "\n选择图像: " '((0 . "IMAGE"))))) 
           (if (xdrx_getpropertyvalue e "IsClipped") 
             (xdrx_setpropertyvalue e "removeClipBoundary" t) 
             t 
           ) 
           (setq oBoundary (xdrx_image_boundary e)) 
           (setq cBoundary (xdrx_getpropertyvalue e "ClipBoundary")) 
           (if (and (setq p1 (getpoint "\n基准点: ")) 
                    (setq p2 (getpoint p1 "\n方向: ")) 
               ) 
             (setq pts (list (trans p1 1 0) (trans p2 1 0))) 
           ) 
      ) 
    (progn 
      (if (< (apply 'xdrx_point_getRelationAtClosedCurve 
                    (cons (car pts) oBoundary) 
             ) 
             2 
          ) 
        (progn 
          (setq lst (xdrx_curve_getinters pts oBoundary 1)) 
          (if (< (distance (car pts) (car lst)) 
                 (distance (car pts) (cadr lst)) 
              ) 
            (setq pts (cons (car lst) (cdr pts))) 
            (setq pts (cons (cadr lst) (cdr pst))) 
          ) 
        ) 
      ) 
      (setq olderr  *error* 
            *error* myerr 
            vec            (mapcar '- p2 p1) 
            pvec    (xdrx_vector_perpvector vec) 
      ) 
      (xdrx_pointmonitor "callback") 
      (setq p (getpoint "\n对角点: ")) 
      (xdrx_pointmonitor) 
      (redraw) 
      (setq *error* olderr) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2014-11-23 19:19:27

能不能多个选择，保持和原来图像的长宽比，找到最大的倾斜矩形，然后这个矩形就不变了，拖动这个矩形到合适位置裁剪？

st788796 · 发表于 2014-11-23 20:51:28

newer 发表于 2014-11-23 19:19
能不能多个选择，保持和原来图像的长宽比，找到最大的倾斜矩形，然后这个矩形就不变了，拖动这个矩形到合适 ...

不一定要最大矩形吧，不过可以写一个另外方式的，指定一个边，然后显示和原图像等比矩形，还可以用键盘控制缩放，拖动这个框找合适位置

newer · 发表于 2014-11-23 21:08:21

st788796 发表于 2014-11-23 20:51
不一定要最大矩形吧，不过可以写一个另外方式的，指定一个边，然后显示和原图像等比矩形，还可以用键盘控 ...

基于以下几点考虑：

1、原来图像的长宽比例肯定是用户已经满意的比例。
2、新裁剪的图像也要保持这个比例。
2、用户想按某个角度重新裁剪下图像，比如卫星地图的处理，裁剪后图像还是要水平的，这就要于原来的图像的底边对齐，这时候北方向就变了，裁剪后的图像应该加个指北针。
3、保持最大可用矩形，是希望图像尽可能的包括图像中的所有元素，对齐后的矩形，如果用户以后需要在裁剪，另外提供工具处理。

st788796 · 发表于 2014-11-23 21:31:18

newer 发表于 2014-11-23 21:08
基于以下几点考虑：

1、原来图像的长宽比例肯定是用户已经满意的比例。

指定角度后最大矩形就确定了，也就没有拖动可能

XDSoft · 发表于 2014-11-23 21:42:30

st788796 发表于 2014-11-23 21:31
指定角度后最大矩形就确定了，也就没有拖动可能

最大矩形不是唯一的，可以移动，右下角只要在大矩形框内，就还可以移动。

XDSoft · 发表于 2014-11-23 21:48:45

st788796 发表于 2014-11-23 21:31
指定角度后最大矩形就确定了，也就没有拖动可能

黄色的是极限，中间都是可移动位置。

QQ截图20141123214816.png

st788796 · 发表于 2014-11-23 21:51:09

XDSoft 发表于 2014-11-23 21:48
黄色的是极限，中间都是可移动位置。

指定一个角度，需要的矩形怎么确定？没有这方面应用经验

XDSoft · 发表于 2014-11-23 21:54:48

st788796 发表于 2014-11-23 21:51
指定一个角度，需要的矩形怎么确定？没有这方面应用经验

红色的可以往右边移。

XDSoft · 发表于 2014-11-23 21:56:34

st788796 发表于 2014-11-23 21:51
指定一个角度，需要的矩形怎么确定？没有这方面应用经验

应该有个约定，拉的那条线应该对应原图形的底边。因为结果要和底边对齐。

st788796 · 发表于 2014-11-23 21:58:14

XDSoft 发表于 2014-11-23 21:48
黄色的是极限，中间都是可移动位置。

这样需要先确定一个边的长度和角度，而且这个矩形不一定和原图像是一个比例

XDSoft · 发表于 2014-11-23 22:00:57

st788796 发表于 2014-11-23 21:58
这样需要先确定一个边的长度和角度，而且这个矩形不一定和原图像是一个比例

要保证一个比例，否则结果太多了。这个工具主要是旋转对齐图像（尽可能保证最大的范围）。用户有别的需要，另行处理。

st788796 · 发表于 2014-11-23 22:10:58

本帖最后由 st788796 于 2014-11-23 22:12 编辑

XDSoft 发表于 2014-11-23 22:00
要保证一个比例，否则结果太多了。这个工具主要是旋转对齐图像（尽可能保证最大的范围）。用户有别的需要 ...

还有个问题，按比例匹配这两个取哪个呢

XDSoft · 发表于 2014-11-23 22:14:41

st788796 发表于 2014-11-23 22:10
还有个问题，按比例匹配这两个取哪个呢

对齐底边，拉线的方向和原来矩形图像的底边对齐。另外一个方向按大矩形的比例定。应该是第一个。

st788796 · 发表于 2014-11-23 22:20:47

XDSoft 发表于 2014-11-23 22:14
对齐底边，拉线的方向和原来矩形图像的底边对齐。另外一个方向按大矩形的比例定。应该是第一个。

那规则就是按底边，对齐角度只能用白线示意的方向

帐号		自动登录	找回密码
密码			立即注册

[工具] 图像矩形动态裁剪

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评