图像裁剪（支持各种曲线做边界）

newer · 发表于 2018-4-19 13:07:59

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

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

×

本帖最后由 newer 于 2018-5-16 11:42 编辑

图像裁剪女神.gif

(defun c:XDTB_ImageClip (/ e1 e2 e3 e4 e5 box box1)
(if (and (setq e1 (car (xdrx_entsel "\n选取图像实体<退出>:" '((0 . "IMAGE")))))
(setq e2 (car (xdrx_entsel
"\n拾取裁剪边界<退出>:"
'((0 . "*polyline,ellipse,circle,spline,arc"))
)
)
)
(setq box (xd::pnts:close
(xdrx_getpropertyvalue e1 "imageboundingbox")
)
box1 (xd::pnts:close (xdrx_getsamplept e2))
e3 (xdrx_polyline_make box t)
e4 (xdrx_polyline_make box1 t)
)
)
(progn (xdrx_begin)
(setq e5 (xdrx_curve_intersect e3 e4))
(if e5
(setq box (xdrx_getpropertyvalue e5 "vertices"))
(setq box (xdrx_getpropertyvalue e2 "vertices"))
)
(xdrx_setpropertyvalue e1 "ClipBoundary" box)
(xdrx_entity_delete e2)
(xdrx_end)
)
)
(xdrx_entity_delete e3 e4 e5)
(princ)
)

(defun c:XDTB_ImageClip (/ e1 e2 e3 e4 e5 box box1) 
  (if (and (setq e1 (car (xdrx_entsel "\n选取图像实体<退出>:" '((0 . "IMAGE"))))) 
           (setq e2 (car (xdrx_entsel 
                           "\n拾取裁剪边界<退出>:" 
                           '((0 . "*polyline,ellipse,circle,spline,arc")) 
                         ) 
                    ) 
           ) 
           (setq box  (xd::pnts:close 
                        (xdrx_getpropertyvalue e1 "imageboundingbox") 
                      ) 
                 box1 (xd::pnts:close (xdrx_getsamplept e2)) 
                 e3   (xdrx_polyline_make box t) 
                 e4   (xdrx_polyline_make box1 t) 
           ) 
      ) 
    (progn (xdrx_begin) 
           (setq e5 (xdrx_curve_intersect e3 e4)) 
           (if e5 
             (setq box (xdrx_getpropertyvalue e5 "vertices")) 
             (setq box (xdrx_getpropertyvalue e2 "vertices")) 
           ) 
           (xdrx_setpropertyvalue e1 "ClipBoundary" box) 
           (xdrx_entity_delete e2) 
           (xdrx_end) 
    ) 
  ) 
  (xdrx_entity_delete e3 e4 e5) 
  (princ) 
)

sh_h · 发表于 2018-4-19 13:43:54

XDRX API 晓东工具箱真是太厉害了，向大师学习啊！

君是我的泪 · 发表于 2018-5-16 11:09:20

请点击此处下载

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

您的用户组是：游客

文件名称:裁剪不成功.zip
下载次数:15 文件大小:24.81 KB
下载权限: 不限以上 [免费赚D豆]

裁剪不成功，原因不知道，图是最普通的JPG，线条是spline转pline,封闭的

newer · 发表于 2018-5-16 11:44:48

君是我的泪发表于 2018-5-16 11:09
裁剪不成功，原因不知道，图是最普通的JPG，线条是spline转pline,封闭的

重新拷贝代码回去，试试

登录/注册后可看大图

2767836360 · 发表于 2018-12-8 21:50:58

非常好谢谢分享

coverne · 发表于 2018-12-8 21:57:11

非常好谢谢分享

hphkjz · 发表于 2019-10-11 19:44:27

老大，一个光栅图像能不能裁剪一个矩形出来呢？矩形有四个夹点，裁剪后的图形拉动其中的一个夹点，图形也跟着向这个夹点方向进行伸缩。

jian2dan · 发表于 2022-3-25 17:13:48

感谢楼主！！

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

[图像] 图像裁剪（支持各种曲线做边界）

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

评分

点评