关于删除重复线

尘缘一生

删除重复线，本坛不少代码，但是，就是图比较大的时候，时间，速度是个问题，

我偶得一程序，是 *.fas格式，速度是非常快的，

很遗憾的是，下面提示区是乱码，如下图所示：



这个程序，不知谁能了解，如何提示的乱码，改对。

如果能提供源码出来，更好。

现把 *FAS附上。



由于业务原因，我是急需要，删除重复图元速度很快的才可使用，如下图所示：
文件有100多M，难以处理。

东升铮

用十六进制转换替换编码格式就行了!

jun353835273

借花献佛，代码是应该是lee大佬的
试一试这个，只删除重叠直线的

2. (defun c:killline ( / _line _online a e i l s )
   
3. 
   
4.    (defun _line ( a b )
   
5.        (entmake (list '(0 . "LINE") (cons 10 a) (cons 11 b)))
   
6.    )
   
7.    (defun _online ( p a b )
   
8.        (equal (+ (distance p a) (distance p b)) (distance a b) 1e-8)
   
9.    )            
   
10.    (if (setq s (ssget '((0 . "LINE"))))
    
11.        (progn
    
12.            (repeat (setq i (sslength s))
    
13.                (setq e (entget (ssname s (setq i (1- i))))
    
14.                      l (cons (list (cdr (assoc 10 e)) (cdr (assoc 11 e))) l)
    
15.                )
    
16.            )
    
17.            (while (setq a (car l))
    
18.                (foreach b (setq l (cdr l))
    
19.                    (cond
    
20.                        (   (or
    
21.                                (and
    
22.                                    (equal (car  a) (car  b) 1e-8)
    
23.                                    (equal (cadr a) (cadr b) 1e-8)
    
24.                                )
    
25.                                (and
    
26.                                    (equal (car  a) (cadr b) 1e-8)
    
27.                                    (equal (cadr a) (car  b) 1e-8)
    
28.                                )
    
29.                            )
    
30.                            (apply '_line a)
    
31.                        )
    
32.                        (   (and
    
33.                                (_online (car a) (car b) (cadr b))
    
34.                                (_online (car b) (car a) (cadr a))
    
35.                                (not (equal (car a) (car b) 1e-8))
    
36.                            )
    
37.                            (_line (car a) (car b))
    
38.                        )
    
39.                        (   (and
    
40.                                (_online (car  a) (car b) (cadr b))
    
41.                                (_online (cadr b) (car a) (cadr a))
    
42.                                (not (equal (car a) (cadr b) 1e-8))
    
43.                            )
    
44.                            (_line (car a) (cadr b))
    
45.                        )
    
46.                        (   (and
    
47.                                (_online (cadr a) (car b) (cadr b))
    
48.                                (_online (car  b) (car a) (cadr a))
    
49.                                (not (equal (cadr a) (car b) 1e-8))
    
50.                            )
    
51.                            (_line (cadr a) (car b))
    
52.                        )
    
53.                        (   (and
    
54.                                (_online (cadr a) (car b) (cadr b))
    
55.                                (_online (cadr b) (car a) (cadr a))
    
56.                                (not (equal (cadr a) (cadr b) 1e-8))
    
57.                            )
    
58.                            (_line (cadr a) (cadr b))
    
59.                        )
    
60.                    )
    
61.                )
    
62.            )
    
63.        )
    
64.    )
    
65.    (princ)
    
66. )

(defun c:killline ( / _line _online a e i l s )<br /> <br />    (defun _line ( a b )<br />        (entmake (list '(0 . "LINE") (cons 10 a) (cons 11 b)))<br />    )<br />    (defun _online ( p a b )<br />        (equal (+ (distance p a) (distance p b)) (distance a b) 1e-8)<br />    )            <br />    (if (setq s (ssget '((0 . "LINE"))))<br />        (progn<br />            (repeat (setq i (sslength s))<br />                (setq e (entget (ssname s (setq i (1- i))))<br />                      l (cons (list (cdr (assoc 10 e)) (cdr (assoc 11 e))) l)<br />                )<br />            )<br />            (while (setq a (car l))<br />                (foreach b (setq l (cdr l))<br />                    (cond<br />                        (   (or<br />                                (and<br />                                    (equal (car  a) (car  b) 1e-8)<br />                                    (equal (cadr a) (cadr b) 1e-8)<br />                                )<br />                                (and<br />                                    (equal (car  a) (cadr b) 1e-8)<br />                                    (equal (cadr a) (car  b) 1e-8)<br />                                )<br />                            )<br />                            (apply '_line a)<br />                        )<br />                        (   (and<br />                                (_online (car a) (car b) (cadr b))<br />                                (_online (car b) (car a) (cadr a))<br />                                (not (equal (car a) (car b) 1e-8))<br />                            )<br />                            (_line (car a) (car b))<br />                        )<br />                        (   (and<br />                                (_online (car  a) (car b) (cadr b))<br />                                (_online (cadr b) (car a) (cadr a))<br />                                (not (equal (car a) (cadr b) 1e-8))<br />                            )<br />                            (_line (car a) (cadr b))<br />                        )<br />                        (   (and<br />                                (_online (cadr a) (car b) (cadr b))<br />                                (_online (car  b) (car a) (cadr a))<br />                                (not (equal (cadr a) (car b) 1e-8))<br />                            )<br />                            (_line (cadr a) (car b))<br />                        )<br />                        (   (and<br />                                (_online (cadr a) (car b) (cadr b))<br />                                (_online (cadr b) (car a) (cadr a))<br />                                (not (equal (cadr a) (cadr b) 1e-8))<br />                            )<br />                            (_line (cadr a) (cadr b))<br />                        )<br />                    )<br />                )<br />            )<br />        )<br />    )<br />    (princ)<br /> )

bssurvey

指令: ee
選取物件: 指定對角點: 找到*****個
選取物件:
共處理********個實體，刪除了*******個實體
共處理********個實體，刪除了********個實體

這個是繁體中文 您的是簡體中文


选取物件: 指定对角点: 找到 ***** 个        
                                       
选取物件:                              
共处理*****个实体，删除了*****个实体
共处理*****个实体，删除了*****个实体

baoxiaozhong

EXPRESS 里面就有 OVERKILL，更好用不用吗?

言戲無軍

只能删除直线对象，没什么用

尘缘一生

baoxiaozhong 发表于 2020-3-2 07:01
EXPRESS 里面就有 OVERKILL，更好用不用吗?

都试验过，这个不行，首先，速度也不行，而且不能满足要求。如下尺寸标注，中间的都是双份实体，非常恶心人。都需要清理掉，只留一份。

尘缘一生

bssurvey 发表于 2020-3-2 08:17
指令: ee
選取物件: 指定對角點: 找到*****個
選取物件:

若只删除线，速度这么快，倒也可以考虑的，就是繁体改不了。

baoxiaozhong

尘缘一生 发表于 2020-3-2 10:01
若只删除线，速度这么快，倒也可以考虑的，就是繁体改不了。

2004年的软体，作者可能早就换工作了，应该是找不到人改简体中文，不过那些提示看不懂也不影响操作吧。

baoxiaozhong

尘缘一生 发表于 2020-3-2 09:53
都试验过，这个不行，首先，速度也不行，而且不能满足要求。如下尺寸标注，中间的都是双份实体，非常恶心 ...

你这个应该是炸开了，所以才多一份出来，没炸开的情况下，本来就应该是二份。

烟盒迷唇

老程序了，作者肯定改行了啊