Lisp to delete multiple vertices between two points on polyline

[Rambojazdude]

Hi folks.

 

I'm looking for a lisp that effectively straightens out a polyline between two points. I know pedit has the straighten feature but you have to scroll to the points you need straightening between.

 

I've also found that you can break/trim between two points and then rejoin, but ideally I'd like a lisp that does this automatically.

 

It's more of an issue when editing associative hatch boundaries please see attached image for an example of the before and after scenario.

 

Thanks

 

RJD