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

tassass

如图1，我用PLINE画了两个三角形，大小都是一样的，直角边都是3米和4米。
三角形ABD，我用的办法是A点到B点，B点到D点，然后C封闭整个PLINE。这个三角形的面积和周长都是正常的；
$ l4 Q- a/ V% V8 K3 ~7 c/ ]% o三角形ACD，我用的办法是A到C，C到D，D到A，然后又多画了两段：A到C和C到D，最后没有封闭，那么这个三角形的周长和面积都不对了。
4 e1 C+ _' Y/ c2 Y" f  \6 Q' m3 L
& M- d7 p  h' Y/ [" V我的问题是：
1.如果有很多这样的图形，如何批量检查PLINE是否封闭？如何批量检查PLINE中是否存在重复的线段？
2.如何批量消除PLINE中存在的重复线段？我试过overkill命令，如果只选择ACD这个三角形，可以完美消除重复线段，但是如果把两个三角形一起选，OVERKILL就会把两个三角形共有的AD这条边消除一条，形成一个封闭三角形，一个折线段。变成图2。如何解决？

wenwengg

删除多段线重复点,LISP代码参考
3 D; {! i2 N0 _) Ahttp://mjtd.com/Codes/ArticleShow.asp?ArticleID=1249

tassass

原帖由 wenwengg 于 2010-11-26 09:20 发表
0 y8 q; y. A; [) q5 Y删除多段线重复点,LISP代码参考
http://mjtd.com/Codes/ArticleShow.asp?ArticleID=1249

: q5 ?, C4 V5 _6 V# R4 I' ]! X5 J请教如何在这个LSP代码中再加上这样一个命令：对处理过顶点之后的PLINE使用封闭命令。
' g$ l: T! X: N( A$ {如果加上这个，就完美了