如何查看PLINE是否封闭，是否有重合线段？

tassass

如图1，我用PLINE画了两个三角形，大小都是一样的，直角边都是3米和4米。
三角形ABD，我用的办法是A点到B点，B点到D点，然后C封闭整个PLINE。这个三角形的面积和周长都是正常的；
4 C/ \$ W3 H1 K( G2 G0 y) x3 o  r三角形ACD，我用的办法是A到C，C到D，D到A，然后又多画了两段：A到C和C到D，最后没有封闭，那么这个三角形的周长和面积都不对了。

我的问题是：
1.如果有很多这样的图形，如何批量检查PLINE是否封闭？如何批量检查PLINE中是否存在重复的线段？
5 n9 \5 v+ s2 L5 Z5 j2.如何批量消除PLINE中存在的重复线段？我试过overkill命令，如果只选择ACD这个三角形，可以完美消除重复线段，但是如果把两个三角形一起选，OVERKILL就会把两个三角形共有的AD这条边消除一条，形成一个封闭三角形，一个折线段。变成图2。如何解决？

wenwengg

删除多段线重复点,LISP代码参考
http://mjtd.com/Codes/ArticleShow.asp?ArticleID=1249

tassass

原帖由 wenwengg 于 2010-11-26 09:20 发表
删除多段线重复点,LISP代码参考
5 S1 H4 @* i* C7 q& ?2 ohttp://mjtd.com/Codes/ArticleShow.asp?ArticleID=1249

3 _$ p7 C. }) d; M请教如何在这个LSP代码中再加上这样一个命令：对处理过顶点之后的PLINE使用封闭命令。
  k3 ^0 e& `* G3 f8 p如果加上这个，就完美了