图形裁剪

Lispboy · 发表于 2016-5-10 20:28:22

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

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

×

试了下0509API里面的xdrx_clipboundary , 有惊喜，写了这个插件，可以说是目前看到的图形裁剪插件中比较有特色的。演示点击放大观看。插件正常运行要加载2016.0508以后的API和晓东LISP函数库或者在晓东工具箱下面运行。

1、外部裁剪可以定义操作范围，不至于全图全裁剪没
2、边界上填充的实体，裁剪后还是填充
3、边界上图块实体，裁剪后还是图块
4、速度飞快
5、用了API新的一键回车

收10个D豆，不多吧。

[sell]

(defun c:XDTB_DWGCLIP (/ b e p p1 p2 p3 p4 pts ss ss1 ss2)
(xdrx_begin)
(setq pts nil)
(if (setq e (car (xdrx_entsel "\n请拾取裁剪边界<退出>:" '((0 . "lwpolyline,circle,ellipse,spline")))))
(progn
(XD::DOC:SafeZoom e)
(initget "I")
(xdrx_initget "I")
(setq p (getkword "\n请确定裁剪方向[内部(I)]<外部>:"))
(if (and
(/= "I" p)
(setq p1 (getpoint "\n处理范围左下点<全图>:"))
(progn
(initget 1)
(setq p3 (xd::doc:getcorner p1 "\n处理范围右上点:"))
)
)
(progn
(setq p2 (list (car p3) (cadr p1))
p4 (list (car p1) (cadr p3))
pts (list p1 p2 p3 p4 p1)
)
(xdrx_grdraw 1 2 (trans p1 1 0) (trans p2 1 0))
(xdrx_grdraw 1 2 (trans p2 1 0) (trans p3 1 0))
(xdrx_grdraw 1 2 (trans p3 1 0) (trans p4 1 0))
(xdrx_grdraw 1 2 (trans p4 1 0) (trans p1 1 0))
)
)
(if pts
(setq ss (ssget "wp" pts))
(setq ss (ssget "x"))
)
(setq b (xdrx_getsamplept e))
(if (= "I" p)
(progn
(setq ss1 (ssget "cp" (xd::pnts:wcs2ucs b)))
(setq ss1 (xdrx_geom_clipboundary ss1 e nil nil))
)
(progn
(setq ss1 (ssget "cp" (xd::pnts:wcs2ucs b)))
(setq ss1 (xdrx_geom_clipboundary ss1 e nil t))
(ssdel e ss)
(xdrx_entity_delete (xdrx_pickset_subtract ss ss1))
)
)
)
)
(xdrx_end)
(princ)
)

(defun c:XDTB_DWGCLIP (/ b e p p1 p2 p3 p4 pts ss ss1 ss2) 
  (xdrx_begin) 
  (setq pts nil) 
  (if (setq e (car (xdrx_entsel "\n请拾取裁剪边界<退出>:" '((0 . "lwpolyline,circle,ellipse,spline"))))) 
    (progn 
      (XD::DOC:SafeZoom e) 
      (initget "I") 
      (xdrx_initget "I") 
      (setq p (getkword "\n请确定裁剪方向[内部(I)]<外部>:")) 
      (if (and 
            (/= "I" p) 
            (setq p1 (getpoint "\n处理范围左下点<全图>:")) 
            (progn 
              (initget 1) 
              (setq p3 (xd::doc:getcorner p1 "\n处理范围右上点:")) 
            ) 
          ) 
        (progn 
          (setq p2 (list (car p3) (cadr p1)) 
                p4 (list (car p1) (cadr p3)) 
                pts (list p1 p2 p3 p4 p1) 
          ) 
          (xdrx_grdraw 1 2 (trans p1 1 0) (trans p2 1 0)) 
          (xdrx_grdraw 1 2 (trans p2 1 0) (trans p3 1 0)) 
          (xdrx_grdraw 1 2 (trans p3 1 0) (trans p4 1 0)) 
          (xdrx_grdraw 1 2 (trans p4 1 0) (trans p1 1 0)) 
        ) 
      ) 
      (if pts 
        (setq ss (ssget "wp" pts)) 
        (setq ss (ssget "x")) 
      ) 
      (setq b (xdrx_getsamplept e)) 
      (if (= "I" p) 
        (progn 
          (setq ss1 (ssget "cp" (xd::pnts:wcs2ucs b))) 
          (setq ss1 (xdrx_geom_clipboundary ss1 e nil nil)) 
        ) 
        (progn 
          (setq ss1 (ssget "cp" (xd::pnts:wcs2ucs b))) 
          (setq ss1 (xdrx_geom_clipboundary ss1 e nil t)) 
          (ssdel e ss) 
          (xdrx_entity_delete (xdrx_pickset_subtract ss ss1)) 
        ) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

[/sell]

anwil · 发表于 2016-6-4 16:16:40

演示中功能还是很强的，支持。

display18 · 发表于 2016-5-11 12:17:34

等你等了好久

8714454 · 发表于 2016-5-11 14:14:05

谢谢楼主:lol

junjun549241284 · 发表于 2016-5-11 20:24:52

等你等了好久谢谢楼主:)

xinyeyu · 发表于 2016-5-13 14:59:37

看起来很不错，看看好不好用

xinyeyu · 发表于 2016-5-23 17:15:29

为什么现在加载新的API后不能用？？？？？？？？？？？

wangxf888 · 发表于 2016-5-24 12:11:57

看演示功能挺强大的实用下

墙角哥 · 发表于 2016-5-27 10:44:11

谢谢楼主分享！赞一个！

xzxw2015001 · 发表于 2016-6-2 17:51:06

强大的工具，，不错

xzxw2015001 · 发表于 2016-6-3 10:23:49

确实好用不错支持~！！！！

newer · 发表于 2016-6-3 12:16:13

xinyeyu 发表于 2016-5-23 17:15
为什么现在加载新的API后不能用？？？？？？？？？？？

里面一个函数改名了，重新拷贝下代码。

longer1000 · 发表于 2016-8-8 08:50:44

功能很强的，支持。

tmwall · 发表于 2016-8-12 20:10:23

好程序，牛。。。。。。。。。。

qq1254582201 · 发表于 2016-8-20 08:48:43

有时间了下载试用一哈哈，艾玛看见太晚了

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

[工具] 图形裁剪

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

点评