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

newer

1. (defun c:XDTB_ImageClip (/ e1 e2 e3 e4 e5 box box1)
   
2.   (if (and (setq e1 (car (xdrx_entsel "\n选取图像实体<退出>:" '((0 . "IMAGE")))))
   
3.            (setq e2 (car (xdrx_entsel
   
4.                            "\n拾取裁剪边界<退出>:"
   
5.                            '((0 . "*polyline,ellipse,circle,spline,arc"))
   
6.                          )
   
7.                     )
   
8.            )
   
9.            (setq box  (xd::pnts:close
   
10.                         (xdrx_getpropertyvalue e1 "imageboundingbox")
    
11.                       )
    
12.                  box1 (xd::pnts:close (xdrx_getsamplept e2))
    
13.                  e3   (xdrx_polyline_make box t)
    
14.                  e4   (xdrx_polyline_make box1 t)
    
15.            )
    
16.       )
    
17.     (progn (xdrx_begin)
    
18.            (setq e5 (xdrx_curve_intersect e3 e4))
    
19.            (if e5
    
20.              (setq box (xdrx_getpropertyvalue e5 "vertices"))
    
21.              (setq box (xdrx_getpropertyvalue e2 "vertices"))
    
22.            )
    
23.            (xdrx_setpropertyvalue e1 "ClipBoundary" box)
    
24.            (xdrx_entity_delete e2)
    
25.            (xdrx_end)
    
26.     )
    
27.   )
    
28.   (xdrx_entity_delete e3 e4 e5)
    
29.   (princ)
    
30. )
    

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

sh_h

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

君是我的泪

请点击此处下载

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

您的用户组是：游客

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

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

newer

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

重新拷贝代码回去，试试

                               
登录/注册后可看大图

2767836360

非常好谢谢分享

coverne

非常好谢谢分享

hphkjz

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

jian2dan

感谢楼主！！