如何删除二维多段线的重复点

changyiran

我这涉及的二维多段线都是由直线段组成的，有时候画的时候一个点上会点击两次甚至三次，如何编程实现删除多余点？请教各位大神们。

CAD小帮手

作用：清除多余的节点

CAD小帮手技术交流群1： 115604002  （视频和原图档请在群文件下载）       

CAD小帮手技术交流群2： 618984401  （视频和原图档请在群文件下载）

ferious

q3_2006 发表于 2013-11-22 16:17
ET命令OVERKILL

666666666666666

894560869

http://bbs.mjtd.com/forum.php?mo ... =%B6%E0%B6%CE%CF%DF

q3_2006

ET命令OVERKILL

自贡黄明儒

http://bbs.mjtd.com/thread-108149-1-1.html

changyiran

自贡黄明儒 发表于 2013-11-22 16:20
http://bbs.mjtd.com/thread-108149-1-1.html

不行啊，你的删除重点是针对多段线，我希望二维多段线也能删除啊！就是polyline

changyiran

changyiran 发表于 2013-11-22 16:34
不行啊，你的删除重点是针对多段线，我希望二维多段线也能删除啊！就是polyline

稍等啊，等会传。

Gu_xl

changyiran 发表于 2013-11-22 16:34
不行啊，你的删除重点是针对多段线，我希望二维多段线也能删除啊！就是polyline

1. (defun dump2dPoly (ent)
   
2.   (if (= "POLYLINE"(cdr (assoc 0 (entget ent))))
   
3.     (progn
   
4.       (setq ent (entnext ent))
   
5.       (setq p0 (cdr (assoc 10 (entget ent))))
   
6.       (while (and
   
7.                (setq ent (entnext ent))
   
8.                (= "VERTEX" (cdr (assoc 0 (entget ent))))
   
9.                )
   
10.         (if (equal p0 (setq p1 (cdr (assoc 10 (entget ent)))) 1e-6)
    
11.           (vla-delete (vlax-ename->vla-object ent))
    
12.           (setq p0 p1)
    
13.           )
    
14.         )
    
15.       )
    
16.     )
    
17.   ent
    
18.   )

(defun dump2dPoly (ent)<br />   (if (= "POLYLINE"(cdr (assoc 0 (entget ent))))<br />     (progn<br />       (setq ent (entnext ent))<br />       (setq p0 (cdr (assoc 10 (entget ent))))<br />       (while (and<br />                (setq ent (entnext ent))<br />                (= "VERTEX" (cdr (assoc 0 (entget ent))))<br />                )<br />         (if (equal p0 (setq p1 (cdr (assoc 10 (entget ent)))) 1e-6)<br />           (vla-delete (vlax-ename->vla-object ent))<br />           (setq p0 p1)<br />           )<br />         )<br />       )<br />     )<br />   ent<br />   )

changyiran

Gu_xl 发表于 2013-11-22 16:51

G版厉害，我先慢慢研究下！

changyiran

自贡黄明儒 发表于 2013-11-22 16:20
http://bbs.mjtd.com/thread-108149-1-1.html

网速较慢，不好传，就是类型为polyline的图元，G版那个代码就是针对二维多段线的。

重慶崽兒

Gu_xl 发表于 2013-11-22 16:51

有个问题 G版   如果二维多段线的第一个点和最后一个点在同一个点上的话，此代码并没有达到除重效果
额  另外还想请教G版普通多段线除重问题

zouxiren2007

Gu_xl 发表于 2013-11-22 16:51

下来好好学习！