直线，圆弧的圆去虫复,效率很(超)高（目前已知问题全部解决）~~欢迎品鉴和踢馆

易云网络

edata 发表于 2015-8-23 09:45
用OVERkill测试了下，发现，overkill速度慢点不说，还有清理不干净的线，圆弧直接kill，剩余最后一条，over ...

已经更新了,欢迎测试

易云网络

xiaotao 发表于 2015-8-22 21:16
刚测试了下，针对 CIRCLE ARC LINE 目前为止这个是速度最快处理得也是最理想的lsp程序！比OVERKILL快多了。 ...

修复了BUG重新测试吧

edata

你的贴图是已经解决还是没有解决的问题。

易云网络

edata 发表于 2015-8-23 19:55
你的贴图是已经解决还是没有解决的问题。

这个程序还存在的小问题，不用修改了，解决这问题会影响效率，这个情况也少

edata

易云网络 发表于 2015-8-23 20:09
这个程序还存在的小问题，不用修改了，解决这问题会影响效率，这个情况也少

能否上传个dwg，看看，这个属于什么问题。

易云网络

edata 发表于 2015-8-23 20:40
能否上传个dwg，看看，这个属于什么问题。

最后面的圆弧横跨了 前面几组互相没有关联的圆弧
因为前面的已经处理过了 表集已经删除了，没有循环判断
（因为考虑到后面的圆弧有可能会跨过第一条，把第一条重新又写入了表的后面，所以第一条会删除掉），有漏的但是安全的

edata

首先圆心半径分组，那么对于有圆，直接全删除，如果全是弧形，那么考虑起始和结束角度，执行判断，圆弧几种状态，连接，重复，断开，类似于jion，理论上可以实现。

laiz3000

不错，用处很大

海盗曹

多谢分享啊，学习了

易云网络

edata 发表于 2015-8-23 21:49
首先圆心半径分组，那么对于有圆，直接全删除，如果全是弧形，那么考虑起始和结束角度，执行判断，圆弧几种 ...

1. (if (member ent1 ceshi)
   
2.                 (progn
   
3.                   (if yht  
   
4.                     (progn
   
5.                       (ssadd ent1 delss)
   
6.                       (setq  yht nil)
   
7.                       (entmake (list '(0 . "arc")
   
8.                           (cons 10 (car LST)) (cons 40 (cadr LST)) (cons 50 spt1) (cons 51 ept1)))))
   
9.                   (setq  
   
10.                     ent1 ent2
    
11.                     spt1 spt2  
    
12.                     ept1 ept2
    
13.                   )
    
14.                 )
    
15.                 (progn
    
16.                   (if yht
    
17.                     (progn
    
18.                       (chg_ent ent1 50 spt1)
    
19.                       (chg_ent ent1 51 ept1)
    
20.                       (setq  yht nil ))
    
21.                   )
    
22.                   (setq   a (list(car LST)(cadr LST) ent1 (list spt1 ept1))
    
23.                     ceshi (cons ent1 ceshi)  
    
24.                     ssma  (reverse (cons a (reverse  ssma)))
    
25.                     ent1 ent2
    
26.                     spt1 spt2  
    
27.                     ept1 ept2)
    
28.                   ;(princ ssma)
    
29.                 )
    
30.                
    
31.               )

(if (member ent1 ceshi)<br />                 (progn<br />                   (if yht  <br />                     (progn<br />                       (ssadd ent1 delss)<br />                       (setq  yht nil)<br />                       (entmake (list '(0 . "arc")<br />                           (cons 10 (car LST)) (cons 40 (cadr LST)) (cons 50 spt1) (cons 51 ept1)))))<br />                   (setq  <br />                     ent1 ent2<br />                     spt1 spt2  <br />                     ept1 ept2<br />                   )<br />                 )<br />                 (progn<br />                   (if yht <br />                     (progn <br />                       (chg_ent ent1 50 spt1)<br />                       (chg_ent ent1 51 ept1)<br />                       (setq  yht nil ))<br />                   )<br />                   (setq   a (list(car LST)(cadr LST) ent1 (list spt1 ept1))<br />                     ceshi (cons ent1 ceshi)  <br />                     ssma  (reverse (cons a (reverse  ssma)))<br />                     ent1 ent2<br />                     spt1 spt2  <br />                     ept1 ept2)<br />                   ;(princ ssma)<br />                 )<br />                 <br />               )