刪除與闭合多义线相交或被合多义线包圍的實體

/db_自贡黄明儒_

取点，然后ssget "F" pts

Free-Lancer

用API随手写

1. (defun c:tt (/ e pts ss)
   
2.   (if (and (setq e (xdrx_entsel "\nPick Pline: " '((0 . "*polyline"))))
   
3.     (setq pts (xdrx_entity_getstretchpoint (car e)))
   
4.     (setq ss (ssget "CP" pts))
   
5.       )
   
6.     (progn
   
7.       (ssdel (car e) ss)
   
8.       (xdrx_entity_delete ss)
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )

(defun c:tt (/ e pts ss)<br />   (if (and (setq e (xdrx_entsel "\nPick Pline: " '((0 . "*polyline"))))<br />     (setq pts (xdrx_entity_getstretchpoint (car e)))<br />     (setq ss (ssget "CP" pts))<br />       )<br />     (progn<br />       (ssdel (car e) ss)<br />       (xdrx_entity_delete ss)<br />     )<br />   )<br />   (princ)<br /> )

注意关掉捕捉！

Free-Lancer

kcad2010 发表于 2013-8-20 11:54
如果那个指定的多义线有圆弧就是出现错误。把不能删除的也删除了。

你没有显示有弧段啊!
有弧段的只能模拟，api 最简单！

Lispboy

送你个通用函数和测试程序

1. ;|
   
2. 构建多段线选择集
   
3. 参数：
   
4.    e --- 多段线
   
5.    filter --- 过滤表，如： '((0 . "circle"))
   
6. 返回值：
   
7.    表 (多段线内的实体选集  多段线上的实体选集 多段线外的实体选集)
   
8. |;
   
9. (defun xd::pickset:polyfence (e filter)
   
10.   (xdrx_ucson)
    
11.   (if (setq pts (xdrx_getsamplept e))
    
12.     (progn
    
13.       (setq ss1 (ssget "f" pts filter)
    
14.             ss1 (ssdel e ss1)
    
15.             ss2 (ssget "wp" pts filter)
    
16.             ss3 (ssget "x")
    
17.             ss3 (xdrx_pickset_subtract ss3 ss2)
    
18.             ss3 (xdrx_pickset_subtract ss3 ss1)
    
19.       )
    
20.       (setq ss3 (list ss2 ss1 ss3))
    
21.     )
    
22.   )
    
23.   (xdrx_ucsoff)
    
24.   ss3
    
25. )
    

;|<br /> 构建多段线选择集<br /> 参数：<br />    e --- 多段线<br />    filter --- 过滤表，如： '((0 . "circle"))<br /> 返回值：<br />    表 (多段线内的实体选集  多段线上的实体选集 多段线外的实体选集)<br /> |;<br /> (defun xd::pickset:polyfence (e filter)<br />   (xdrx_ucson)<br />   (if (setq pts (xdrx_getsamplept e))<br />     (progn<br />       (setq ss1 (ssget "f" pts filter)<br />             ss1 (ssdel e ss1)<br />             ss2 (ssget "wp" pts filter)<br />             ss3 (ssget "x")<br />             ss3 (xdrx_pickset_subtract ss3 ss2)<br />             ss3 (xdrx_pickset_subtract ss3 ss1)<br />       )<br />       (setq ss3 (list ss2 ss1 ss3))<br />     )<br />   )<br />   (xdrx_ucsoff)<br />   ss3<br /> )<br />

测试：

1. (defun c:tt()
   
2.    (if (setq e (car (xdrx_entsel "\n选取一条多段线<退出>:" '((0 . "*POLYLINE")))))
   
3.       (progn
   
4.          (setq ss (XD::Pickset:PolyFence e nil))
   
5.          (xdrx_entity_delete (car ss))
   
6.          (xdrx_entity_delete (cadr ss))
   
7.       )
   
8.    )
   
9.    (princ)
   
10. )
    
11. 
    

(defun c:tt()<br />    (if (setq e (car (xdrx_entsel "\n选取一条多段线<退出>:" '((0 . "*POLYLINE")))))<br />       (progn<br />          (setq ss (XD::Pickset:PolyFence e nil))<br />          (xdrx_entity_delete (car ss))<br />          (xdrx_entity_delete (cadr ss))<br />       )<br />    )<br />    (princ)<br /> )<br /> <br />

Lispboy

kcad2010 发表于 2013-8-20 11:54
如果那个指定的多义线有圆弧就是出现错误。把不能删除的也删除了。

有圆弧的用我的， 用 xdrx_getsamplept 获得模拟点表，可以模拟圆弧。

Lispboy

kcad2010 发表于 2013-8-20 11:56
;(getplinstss (car(entsel)) 0.5)
(defun getplinstss ( en  lk / mbpllength pp )        
(setq mbpll ...

你的代码有多余的点，如果直线段的，就取顶点就行了，只是ARC段的，才用模拟顶点。而且这个模拟的精度很有说法，要适合很小的弧，也要适合很大很大的弧，所以你固定参数间距肯定不贴切了，圆弧小的时候，几个点就够了，而圆弧很大很大的时候，要很多点才行。

所以，直接用API吧，你可以测试下 xdrx_getsamplept， 对于不同大小的圆弧，出来的顶点数是不一样的。

newer

楼主，你是台湾朋友吗？

Free-Lancer

用模拟点总会有或多或少的选择，外凸时可能少选，内凹时可能多选！

Lisphk

Free-Lancer 发表于 2013-8-20 12:30
用模拟点总会有或多或少的选择，外凸时可能少选，内凹时可能多选！

一个 CP 应该可以一网打尽了。CP= F+WP

Free-Lancer

Lisphk 发表于 2013-8-20 12:36
一个 CP 应该可以一网打尽了。CP= F+WP

F 也是有多打或者少打的时候，模拟的是弦，弦到弧还有一个空间，理论上有Bug

Lispboy

Free-Lancer 发表于 2013-8-20 12:40
F 也是有多打或者少打的时候，模拟的是弦，弦到弧还有一个空间，理论上有Bug

只要在视觉误差内，应该都可以选上的，谁也不会画个眼睛都看不见的东西在那，有也不是我们需要的{:soso_e113:}，如果这个模拟点是里面一个外面一个的话就更能保证了。