图形切割（第二版）

newer · 发表于 2018-11-5 21:15:28

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

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

×

支持UCS坐标系

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

renyonghua2014 · 发表于 2018-11-5 23:40:26

版主强大，谢谢

echizenace · 发表于 2018-11-6 07:30:45

版主强大@版主强大@版主强大@

evayleung · 发表于 2018-11-6 08:37:34

谢谢分享........

tzfcn · 发表于 2018-11-6 08:51:33

这是一个好插件！

hejiho · 发表于 2018-11-6 09:00:43

好东东不容错过

fyqr · 发表于 2018-11-6 09:25:43

很棒

Captrz · 发表于 2018-11-6 09:29:39

蛮有味道~~~

zhangfaren · 发表于 2018-11-6 10:12:04

感谢分享！

coverne · 发表于 2018-11-6 10:19:09

这是一个好插件！

死神去了 · 发表于 2018-11-7 08:40:29

看着很不错，试一试

xiaodongcadvins · 发表于 2018-11-7 10:18:58

刚好需要这个，爱你

alnhny · 发表于 2018-11-14 16:54:22

反应超快，很不错的插件。

caogis · 发表于 2018-11-23 11:05:09

大地形图用得着

xudi1234 · 发表于 2018-12-7 16:40:14

画局部详图好用！！！

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

[工具] 图形切割（第二版）

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