【牢固】多段线剪裁多段线，并重构封闭多段线

XDSoft · 发表于 2013-7-11 23:52:58

牢固发表于 2013-7-11 21:53
用强大的晓东API来写该功能，寥寥几句代码就可以搞定：

还能再简化，G版，看

(defun c:tt( / entl)
(if (and (setq e (car (xdrx_entsel "\n拾取裁剪边界多段线<退出>:" '((0 . "LWPOLYLINE")))))
(= 1 (logand (xdrx_getentdxf 70) 1))
(setq pts (xdrx_getsamplept e))
(setq ss (ssget "f" pts '((0 . "*line,circle,ellipse"))))
(ssdel e ss)
(> (sslength ss) 0)
)
(progn
(xdrx_begin)
(if (and (setq ss (xdrx_pickset_ClipByPoly ss e))
(ssadd e ss)
(setq ss (xdrx_curve_intersectbreak ss))
(setq ss (xdrx_geom_searchRegions ss 0.0))
)
(progn
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq area (car (xdrx_getarea e))
entl (cons (cons area e) entl)
)
)
(setq entl (vl-sort entl '(lambda(x1 x2)(> (car x1)(car x2)))))
(xdrx_object_delete (cdar entl))
)
)
(xdrx_end)
)
)
)

(defun c:tt( / entl) 
   (if (and (setq e (car (xdrx_entsel "\n拾取裁剪边界多段线<退出>:" '((0 . "LWPOLYLINE"))))) 
            (= 1 (logand (xdrx_getentdxf 70) 1)) 
            (setq pts (xdrx_getsamplept e)) 
            (setq ss (ssget "f" pts '((0 . "*line,circle,ellipse")))) 
            (ssdel e ss) 
            (> (sslength ss) 0) 
       ) 
       (progn 
          (xdrx_begin) 
          (if (and (setq ss (xdrx_pickset_ClipByPoly ss e)) 
                   (ssadd e ss) 
                   (setq ss (xdrx_curve_intersectbreak ss)) 
                   (setq ss (xdrx_geom_searchRegions ss 0.0))                   
              ) 
            (progn 
               (xdrx_setsstodb ss 0) 
               (while (setq e (xdrx_getentdata 0)) 
                 (setq area (car (xdrx_getarea e)) 
                       entl (cons (cons area e) entl) 
                 ) 
               ) 
               (setq entl (vl-sort entl '(lambda(x1 x2)(> (car x1)(car x2))))) 
               (xdrx_object_delete (cdar entl)) 
            ) 
          ) 
          (xdrx_end) 
       ) 
   ) 
)

牢固 · 发表于 2013-7-12 00:22:36

XDSoft 发表于 2013-7-11 23:52
还能再简化，G版，看

翘首期盼API最新手册文件的出炉！{:soso_e113:}

米克 · 发表于 2013-8-16 17:21:09

为什么用不了啊命令是TRIN吗？？

dwg001 · 发表于 2013-9-30 08:20:51

强大的功能。

xmg123 · 发表于 2013-10-20 11:39:15

用不成嘛，怎么加载呢？

flyfox1048 · 发表于 2013-12-30 18:53:12

支持，不错的代码

拉契 · 发表于 2014-4-15 17:10:04

支持一下，感觉以后能够用得上！先谢谢了

muyu301 · 发表于 2014-6-29 11:33:53

这个利害！感谢分享,下载学习了!

yoyoho · 发表于 2014-7-3 14:40:57

G版的程式，一定要看，能学到很多东西。

hehaidizhi · 发表于 2014-8-4 20:01:00

学习了，谢谢，必须收藏

yjy4519 · 发表于 2014-8-11 17:50:57

这个太牛逼啦:lol

zhcSolution · 发表于 2014-10-14 12:37:20

HLCAD 发表于 2013-5-25 14:46
“no function definition: GXL-AX:2DPOINT”
缺少函数：GXL-AX:2DPOINT，望楼主补上
被切断后的多段线能 ...

非闭合图元个数大于1万个了？

这种问题的解决是非常困难的；原因：1）图形的个数不定2）图形的位置不知。目前国内能做此问题解决只有深圳志和诚科技有限公司(zhcdesign.com) 开发的软件ZHCTOPL，是目前性价比最高的。

xwn1332250 · 发表于 2017-2-11 19:21:48

啥也不说了，感谢楼主分享哇！确实很有用，稍微有点贵

508000096 · 发表于 2017-2-11 19:48:34

这功能的确非常不错.

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

[每日一码] 【牢固】多段线剪裁多段线，并重构封闭多段线

点评