LISP for intersection clean up

[zorroxxxx]

Hi,

Does anyone have a LISP or Script that will clean up intersections? Both linear and radius intersections. I have been constantly trimming and after a few hundred thousand clicks, I figure there has to be an easier way. I've also have tried using BPOLY command but it creates polylines on top of existing lines, which I then have to delete. I am just learning LISP so I'm not sure how to conquer this problem.

I have attached a .BMP file which shows exactly what I'm looking for.

I run Vanilla ACAD 2002

Any help will be greatly appreciated

Gary

[Anonymous]

To everyone reading this thread, I'll try to post a revised one-click version over the weekend. It should incorporate additional error checking per Doug's suggestion, as well as Allen's method for improving reliability with arcs. That is, if anyone cares... I certainly don't like the idea what I posted may cause fatal errors. Regardless of vague disclaimers which hint at that potential effect. My apologies to all, if the code caused a problem. Joe Burke