[编程申请]：编一个消除近似重合线的程序

wcf

在实际绘图中，有时图中一条线附近会有一条或几条靠的很近的直线（几乎要重合），可能是来回拷贝造成的，不放大还看不出来。能否编一个程序，设定消除线的距离，任意保留其中的任一条直线，消除其它的直线。保留的线随意在哪个图层上也可以，也不需要保留指定的某一条直线。另外如果是靠的很近的完全相同的文字（几乎要重合），也可以如上处理。

zml84

[php]
对于直线，应该好算。
1、(ssget  "x" '((0 . "LINE")))   选取图形中所有直线对象，构建选择集SS1；
2、遍历SS1。对于其中一对象 EN1 ，以其起终点向外偏移一个距离（允许误差值）进行选择line对象，采用栏选，构建选择集SS2；
3、(ssdel  en1  ss2)，SS2中减去en1；
4、遍历SS2。对于其中一对象 EN2 ， 和EN1 进行比较，若EN1包含EN2，则删除EN2。
[/php]
http://acad.net.cn/viewthread.php?tid=484&extra=page%3D1

wcf

哪位高手，好人做到底，写出一个完整的程序来，让大家学习学习。