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

图形切割


static/image/hrline/line2.png



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


(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)
)

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

谢谢提供,看看钙史不免~~
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 图形切割