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

HLCAD

非常感谢固版主！
1、被切成2段不闭合问题：
    将：(setq ss (ssget "f" ppl0 '((0 . "lwpolyline"))))
    改为：(setq ss (ssget "f" (append ppl0 (list (car ppl0))) '((0 . "lwpolyline"))))解决了
2、漏剪问题：多采用几次不同的DIS参数解决了
两次感谢固版主，向您学习！

fang_123

没豆。。。。。。。。

sicky111

请问G版，如果把多段线外框的图元删除，保留多段线内框的图元，应该怎么实现？

maiqi816

非常好东西

牢固

sicky111 发表于 2013-5-30 16:22
请问G版，如果把多段线外框的图元删除，保留多段线内框的图元，应该怎么实现？

反其道而行之！

chenjian2159

下来学习一下

zjsmlzp

裁剪时能有选择保留框内或框外就更好。:)
下面情况下，框左边的图形裁剪后会出现不能形成封闭(裁剪基准线仅在四边形的情况下)！！

Everything

好东西········

gufengyin

这个非常好 学习了

lewyee

拓扑算法运用的很好

GTJ116600

HLCAD 发表于 2013-5-24 10:13
程序试用手记：
方法1（采用BPoly函数重新构建边界）不能达到预期效果，现只用方法2；
方法1和方法2中针 ...

呵呵，研究得很细，确实有些个小毛病呀

yzr2002626

顶G版，下来学习一下

yzr2002626

谢谢分享，下来用，解决了大问题

zhangq_cai1

学习了~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

牢固

用强大的晓东API来写该功能，寥寥几句代码就可以搞定：

1. (defun c:tt ()
   
2.   (xdrx_begin (list "cmdecho" 0 "osmode" 0))
   
3.   (xdrx_document_ucson)
   
4.   (setq poly (car (xdrx_entsel "\n选择多段线:" '((0 . "lwpolyline")))))
   
5.   (if poly
   
6.     (progn
   
7.       (vla-copy (vlax-ename->vla-object poly))
   
8.       ;;返回多段线的模拟点
   
9.       (setq pts (xdrx_getsamplept poly))
   
10.       ;;返回向内偏移的的顶点坐标
    
11.       (setq pts1 (xdrx_curve_offset poly (* -0.005 (getvar 'viewsize))))
    
12.       ;;隐藏原边界
    
13.       (redraw poly 0)
    
14.       (setq ss (ssget "_F" pts '((0 . "*polyline"))))
    
15.       ;;曲线交点打断
    
16.       (setq ss (XDRX_CURVE_INTERSECTBREAK ss 0))
    
17.       ;;如果不加延迟，后面选择不到多段线
    
18.       (command "delay" 100)
    
19.       ;;删除边界内多段线
    
20.       (setq s1 (ssget "wp" pts '((0 . "*polyline"))))
    
21.       (if s1 (command "erase" s1 ""))
    
22.       (setq s1 (ssget "_F" pts1 '((0 . "*polyline"))))
    
23.       (if s1 (command "erase" s1 ""))
    
24.       (setq ss (xdrx_geom_searchRegions  ss 0))
    
25.        (xdrx_document_ucsoff)
    
26.       ;;恢复原边界
    
27.       (redraw poly 1)
    
28.       
    
29.       )
    
30.     )
    
31.   (xdrx_end)
    
32.   )

(defun c:tt ()<br />   (xdrx_begin (list "cmdecho" 0 "osmode" 0))<br />   (xdrx_document_ucson)<br />   (setq poly (car (xdrx_entsel "\n选择多段线:" '((0 . "lwpolyline")))))<br />   (if poly<br />     (progn<br />       (vla-copy (vlax-ename->vla-object poly))<br />       ;;返回多段线的模拟点<br />       (setq pts (xdrx_getsamplept poly))<br />       ;;返回向内偏移的的顶点坐标<br />       (setq pts1 (xdrx_curve_offset poly (* -0.005 (getvar 'viewsize))))<br />       ;;隐藏原边界<br />       (redraw poly 0)<br />       (setq ss (ssget "_F" pts '((0 . "*polyline"))))<br />       ;;曲线交点打断<br />       (setq ss (XDRX_CURVE_INTERSECTBREAK ss 0))<br />       ;;如果不加延迟，后面选择不到多段线<br />       (command "delay" 100)<br />       ;;删除边界内多段线<br />       (setq s1 (ssget "wp" pts '((0 . "*polyline"))))<br />       (if s1 (command "erase" s1 ""))<br />       (setq s1 (ssget "_F" pts1 '((0 . "*polyline"))))<br />       (if s1 (command "erase" s1 ""))<br />       (setq ss (<font color=\"#336699\"><font face=\"Monaco, Consolas,\">xdrx_geom_searchRegions</font></font>  ss 0))<br />        (xdrx_document_ucsoff)<br />       ;;恢复原边界<br />       (redraw poly 1)<br />       <br />       )<br />     )<br />   (xdrx_end)<br />   )