批量区域删除

newer · 发表于 2018-12-31 22:15:24

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

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

×

(defun c:XDTB_REGIONERASE ( / pts ss ss1 var x)
(xdrx_begin)
(if (not #xd_var_global_select_mode)
(setq #xd_var_global_select_mode "C")
)
(xdrx_initget "C W")
(if (setq var (getkword (xdrx_prompt
"\n删除方式[交叉窗口(C)/窗口(W)]<"
#xd_var_global_select_mode
">:"
t
)
)
)
(setq #xd_var_global_select_mode var)
)
(while (and (xdrx_initssget "\n选择要区域删除的边界<退出>:")
(setq ss (xdrx_ssget
'((-4 . "<or")
(0 . "circle,ellipse")
(-4 . "<and")
(0 . "*polyline")
(-4 . "&=")
(70 . 1)
(-4 . "and>")
(-4 . "or>")
)
)
)
)
(mapcar '(lambda (x)
(setq
pts (xd::pnts:wcs2ucs (xd::pnts:open (xdrx_getsamplept x)))
)
(if (setq ss1 (ssget (if (= #xd_var_global_select_mode "C")
"CP"
"WP"
)
pts
)
)
(progn (ssdel x ss1) (xdrx_entity_delete ss1))
)
)
(xdrx_pickset->ents ss)
)
)
(xdrx_end)
(princ)
)

(defun c:XDTB_REGIONERASE ( / pts ss ss1 var x) 
  (xdrx_begin) 
  (if (not #xd_var_global_select_mode) 
    (setq #xd_var_global_select_mode "C") 
  ) 
  (xdrx_initget "C W") 
  (if (setq var        (getkword (xdrx_prompt 
                            "\n删除方式[交叉窗口(C)/窗口(W)]<" 
                            #xd_var_global_select_mode 
                            ">:" 
                            t 
                          ) 
                ) 
      ) 
    (setq #xd_var_global_select_mode var) 
  ) 
  (while (and (xdrx_initssget "\n选择要区域删除的边界<退出>:") 
              (setq ss (xdrx_ssget 
                         '((-4 . "<or") 
                           (0 . "circle,ellipse") 
                           (-4 . "<and") 
                           (0 . "*polyline") 
                           (-4 . "&=") 
                           (70 . 1) 
                           (-4 . "and>") 
                           (-4 . "or>") 
                          ) 
                       ) 
              ) 
         ) 
    (mapcar '(lambda (x) 
               (setq 
                 pts (xd::pnts:wcs2ucs (xd::pnts:open (xdrx_getsamplept x))) 
               ) 
               (if (setq ss1 (ssget (if        (= #xd_var_global_select_mode "C") 
                                      "CP" 
                                      "WP" 
                                    ) 
                                    pts 
                             ) 
                   ) 
                 (progn (ssdel x ss1) (xdrx_entity_delete ss1)) 
               ) 
             ) 
            (xdrx_pickset->ents ss) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

2767836360 · 发表于 2019-1-1 08:54:17

谢谢分享谢谢分享

cfc123456 · 发表于 2019-1-1 08:55:09

感谢楼主提供，学习下。

cainiao923214 · 发表于 2019-1-1 09:30:56

如果能框选，自动分析里面的孤岛，然后再删除就好了

yuren008 · 发表于 2019-1-1 09:43:29

支持楼主上传分享。

evayleung · 发表于 2019-1-1 10:04:37

谢谢分享。。。。。。。。。。。。。

cainiao923214 · 发表于 2019-1-1 10:32:40

(defun c:gdsctk ()
(xyp-Start)
(if (setq ss (ssget '((0 . "LWPOLYLINE") (8 . "0"))))
(progn
(setq lst (mapcar '(lambda (x)(vl-remove-if-not '(lambda (y) (xyp-Etype y "*PO*")) x))(xyp-Ss2CPListOut ss))
qf '((0 . "INSERT") (8 . "ZBTZ") )
)
(mapcar '(lambda (x)
(if (= (length x) 2)
(progn
(setq s1 (vl-sort x '(lambda (a b) (< (xyp-CurveLength a) (xyp-CurveLength b)))))
(if (setq ss1 (ssget "wp" (xyp-Vertexs (car s1) 0) qf))
(xyp-erase ss1)
)
)
)
)
lst
)
)
)
(xyp-End)
)

这是院长发的，可以分析孤岛，然后删除孤岛内的块，但是我用不了，不知道是什么原因，能改成支持咱们函数库的就好了

newer · 发表于 2019-1-1 12:35:55

cainiao923214 发表于 2019-1-1 09:30
如果能框选，自动分析里面的孤岛，然后再删除就好了

除非你图面很干净，如果还有很多其他多段线实体，就麻烦了

蛋疼的东东 · 发表于 2019-1-1 13:52:13

好东西收藏先

coverne · 发表于 2019-1-1 21:17:44

感谢楼主提供，学习下。

bwin925 · 发表于 2019-1-1 21:38:17

感谢楼主提供，学习下

jinzhu23 · 发表于 2019-1-3 10:40:19

感谢楼主提供，学习下。

kqqt6236 · 发表于 2019-1-5 00:06:50

谢谢分享！

香远益清 · 发表于 2019-11-27 16:05:13

no function definition: XYP-START

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

[工具] 批量区域删除

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

点评