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

tassass

如图1，我用PLINE画了两个三角形，大小都是一样的，直角边都是3米和4米。
7 I8 j' X- U3 m' I# q/ i$ J三角形ABD，我用的办法是A点到B点，B点到D点，然后C封闭整个PLINE。这个三角形的面积和周长都是正常的；
三角形ACD，我用的办法是A到C，C到D，D到A，然后又多画了两段：A到C和C到D，最后没有封闭，那么这个三角形的周长和面积都不对了。
. F  i7 \& r  q( M. U
7 E% A8 l+ a% F  J* {' g! C0 j我的问题是：
1.如果有很多这样的图形，如何批量检查PLINE是否封闭？如何批量检查PLINE中是否存在重复的线段？
2.如何批量消除PLINE中存在的重复线段？我试过overkill命令，如果只选择ACD这个三角形，可以完美消除重复线段，但是如果把两个三角形一起选，OVERKILL就会把两个三角形共有的AD这条边消除一条，形成一个封闭三角形，一个折线段。变成图2。如何解决？

wenwengg

删除多段线重复点,LISP代码参考
" _# y1 v2 J. hhttp://mjtd.com/Codes/ArticleShow.asp?ArticleID=1249

tassass

原帖由 wenwengg 于 2010-11-26 09:20 发表
4 m) i* o. o8 [2 m5 F3 s: s* C删除多段线重复点,LISP代码参考
( }. H) D! V9 V0 }5 Z# Q4 e' bhttp://mjtd.com/Codes/ArticleShow.asp?ArticleID=1249

请教如何在这个LSP代码中再加上这样一个命令：对处理过顶点之后的PLINE使用封闭命令。
( d6 V( v4 m8 m2 r, q如果加上这个，就完美了