图形切割

Lispboy · 发表于 2016-5-11 21:38:11

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

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

×

登录/注册后可看大图

1、边界上填充的实体，裁剪后还是填充
2、边界上图块实体，裁剪后还是图块
3、速度飞快

[sell]

(defun c:XDTB_DWGCUT (/ dynpt e lastpnt myerr olderr pts ss ss1 tf)
(defun _callback (dynpt)
(xdrx_entity_move ss lastpnt dynpt)
(setq lastpnt dynpt)
)
(defun _move (ss)
(setq lastpnt (xd::geom:get9pt ss 5))
(xdrx_pointmonitor "_callback" ss)
(initget 1)
(getpoint "\n插入点:")
(xdrx_pointmonitor)
)
(defun myerr (msg)
(princ "\n**cancel")
(xdrx_end)
(vl-cmdf ".undo" 1)
(setq *error* olderr)
(princ)
)
(xdrx_begin)
(setq olderr *error*)
(setq *error* myerr)
(setq pts nil)
(if (setq e (car (xdrx_entsel "\n请拾取裁剪边界<退出>:" '((0 . "lwpolyline,circle,ellipse,spline")))))
(progn
(setq tf (XD::DOC:SafeZoom e))
(setq pts (xdrx_getsamplept e)
ss (ssget "cp" pts)
)
(if (setq ss1 (xdrx_geom_clipboundary ss e t t))
(progn
(if tf
(xdrx_document_zoomprevious)
)
(ssadd e ss1)
(_move ss1)
)
)
)
)
(setq *error* olderr)
(xdrx_end)
(princ)
)

(defun c:XDTB_DWGCUT (/ dynpt e lastpnt myerr olderr pts ss ss1 tf) 
  (defun _callback (dynpt) 
    (xdrx_entity_move ss lastpnt dynpt) 
    (setq lastpnt dynpt) 
  ) 
  (defun _move (ss) 
    (setq lastpnt (xd::geom:get9pt ss 5)) 
    (xdrx_pointmonitor "_callback" ss) 
    (initget 1) 
    (getpoint "\n插入点:") 
    (xdrx_pointmonitor) 
  ) 
  (defun myerr (msg) 
    (princ "\n**cancel") 
    (xdrx_end) 
    (vl-cmdf ".undo" 1) 
    (setq *error* olderr) 
    (princ) 
  ) 
  (xdrx_begin) 
  (setq olderr *error*) 
  (setq *error* myerr) 
  (setq pts nil) 
  (if (setq e (car (xdrx_entsel "\n请拾取裁剪边界<退出>:" '((0 . "lwpolyline,circle,ellipse,spline"))))) 
    (progn 
      (setq tf (XD::DOC:SafeZoom e)) 
      (setq pts (xdrx_getsamplept e) 
            ss (ssget "cp" pts) 
      ) 
      (if (setq ss1 (xdrx_geom_clipboundary ss e t t)) 
        (progn 
          (if tf 
            (xdrx_document_zoomprevious) 
          ) 
          (ssadd e ss1) 
          (_move ss1) 
        ) 
      ) 
    ) 
  ) 
  (setq *error* olderr) 
  (xdrx_end) 
  (princ) 
)

[/sell]

display18 · 发表于 2016-5-11 21:54:48

楼主出品，必是精品！

超级玛丽菜鸟版 · 发表于 2016-5-13 10:46:40

真的是精品典藏

xinyeyu · 发表于 2016-5-13 12:46:12

看看如何，感谢分享

yzdzz · 发表于 2016-5-13 15:00:07

下来收藏了

ko-end · 发表于 2016-5-23 04:56:32

真太牛了，

xiaodefan · 发表于 2016-6-5 13:30:19

精品、精品

luyishisi · 发表于 2016-7-18 01:34:22

楼主很有互联网精神。确定是切割而不是裁剪隐藏，

longer1000 · 发表于 2016-8-13 11:36:05

精品、精品

junjun549241284 · 发表于 2016-8-15 09:39:48

楼主出品，必是精品！

qq1254582201 · 发表于 2016-8-19 16:22:48

收藏了先
不论好坏，先马了。。。。

xcxjxh@sohu.com · 发表于 2016-8-20 22:16:33

楼主出品，必是精品！

adc · 发表于 2016-8-26 17:21:26

谢谢分享~~~~

XDSoft · 发表于 2016-8-31 16:51:00

一楼代码2016.0831更新，下载过的朋友重新下载。

qqqincccken · 发表于 2016-9-17 09:02:13

谢谢提供,看看钙史不免~~

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

[工具] 图形切割

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

评分

相关帖子