边界分割多边形

Lispboy · 发表于 2016-4-28 12:04:23

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

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

×

[sell]

(defun c:XDTB_PolyFG ( / as bs ec eL l ss x yorno)
(if (and
(xdrx_prompt "\n选择多边形<退出>:")
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(setq eL (car (xdrx_entsel "\n选取分割边界曲线<退出>:" '((0 . "*LINE,ARC,CIRCLE")))))
(setq yorno (xdrx_yesorno "\n是否保留原多边形" 0))
)
(progn
(xdrx_begin)
(setq as (mapcar
'(lambda (x)
(if (not (xdrx_getpropertyvalue x "IsClosed"))
(xdrx_setpropertyvalue x "IsClosed" t)
)
(rtos (xdrx_getpropertyvalue x "area") 2 6)
)
(xdrx_pickset->ents ss)
)
)
(setq ec (ssname (xdrx_entity_copy (ssname ss 0)) 0))
(setq ss (ssadd el ss)
ss (xdrx_curve_intersectbreak ss 10.0 nil)
ss (xdrx_geom_searchregions ss 0.)
)
(mapcar '(lambda(x)(xdrx_entity_setPropertiesFrom x ec))(setq ents (xdrx_pickset->ents ss)))
(xdrx_entity_delete ec)
(if (= 0 yorno)
(progn
(setq l (mapcar
'(lambda (x)
(list (rtos (xdrx_getpropertyvalue x "area") 2 6) x)
)
ents
)
)
(mapcar
'(lambda (x)
(if (setq bs (assoc x l))
(xdrx_entity_delete (cadr bs))
)
)
as
)
)
)
)
)
(xdrx_end)
(princ)
)

(defun c:XDTB_PolyFG ( / as bs ec eL l ss x yorno) 
  (if (and 
        (xdrx_prompt "\n选择多边形<退出>:") 
        (setq ss (ssget '((0 . "LWPOLYLINE")))) 
        (setq eL (car (xdrx_entsel "\n选取分割边界曲线<退出>:" '((0 . "*LINE,ARC,CIRCLE"))))) 
        (setq yorno (xdrx_yesorno "\n是否保留原多边形" 0)) 
      ) 
    (progn 
      (xdrx_begin) 
      (setq as (mapcar 
                 '(lambda (x) 
                    (if (not (xdrx_getpropertyvalue x "IsClosed")) 
                       (xdrx_setpropertyvalue x "IsClosed" t) 
                    ) 
                    (rtos (xdrx_getpropertyvalue x "area") 2 6) 
                  ) 
                 (xdrx_pickset->ents ss) 
               ) 
      ) 
      (setq ec (ssname (xdrx_entity_copy (ssname ss 0)) 0)) 
      (setq ss (ssadd el ss) 
            ss (xdrx_curve_intersectbreak ss 10.0 nil) 
            ss (xdrx_geom_searchregions ss 0.) 
      ) 
      (mapcar '(lambda(x)(xdrx_entity_setPropertiesFrom x ec))(setq ents (xdrx_pickset->ents ss))) 
      (xdrx_entity_delete ec) 
      (if (= 0 yorno) 
        (progn 
          (setq l (mapcar 
                    '(lambda (x) 
                       (list (rtos (xdrx_getpropertyvalue x "area") 2 6) x) 
                     ) 
                    ents 
                  ) 
          ) 
          (mapcar 
            '(lambda (x) 
               (if (setq bs (assoc x l)) 
                 (xdrx_entity_delete (cadr bs)) 
               ) 
             ) 
            as 
          ) 
        ) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

[/sell]

褪去的记忆 · 发表于 2016-5-7 11:11:22

看着挺牛的，有点贵:lol

AxueLJ · 发表于 2016-5-15 06:57:40

学习学习！！！

bjfu010101 · 发表于 2016-9-1 10:20:13

这个正是需要的

李亮_DwV27 · 发表于 2017-9-12 20:25:59

这个在做路网规划的时候很有用

docu · 发表于 2017-11-28 15:33:30

请问可否实现框选分割？

sicky111 · 发表于 2017-12-7 00:04:17

有点贵，看得人少。

l982414 · 发表于 2017-12-11 08:15:48

这个正是需要的

kqqt6236 · 发表于 2017-12-15 00:10:47

谢谢分享。

xzs16 · 发表于 2017-12-15 09:27:01

看着挺牛的，有点贵:lol

环宇天下 · 发表于 2018-1-2 16:52:26

这个正是需要的

igood · 发表于 2018-1-2 17:16:43

不错的，有时候切图需要

kqqt6236 · 发表于 2018-1-4 00:05:12

不错的插件。

403181713 · 发表于 2020-10-18 16:17:20

大佬，这个好像只能分割无属性线，如果分割jmd就不行了，比如分割混房线或者砖房线分割后只有三遍呢

Trouble12138 · 发表于 2020-12-1 17:25:27

多谢楼主分享

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

[曲线] 边界分割多边形

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

评分