作为 Lisp 的新手，我想知道我是否可以请求你帮助我修改一些我在网上找到的现有代码 如何在 AutoCAD 中简化折线？。如您能提供任何指导或支持，我们将不胜感激。
我想要获得的 CAD ：
中间部分放大：
右侧部分放大：
我想删除折线中彼此距离比任何其他不相邻点更近的任何点。此外，我需要消除任何阻塞点。至关重要的是，拉直的线保持在闭环内，并且顶点不应超出现有折线或闭环线。
我添加了 CAD 绘图图像来展示我想要实现的目标。为了进一步解释这个问题：我想要像此代码一样删除顶点，但是一旦删除顶点，我就不希望新的多边形顶点具有超出原始顶点的线段。此外，我希望代码的一部分能够查看是否存在比相邻顶点更近的非相邻顶点，这些顶点超出了我们决定的阈值（如果没有阈值，那么我们最终可能会删除一条长直线的顶点）。这是为了删除您可以在下面提供的示例图中看到的阻塞形状。
非常感谢您抽出时间和考虑。我非常重视您提供的任何帮助！:)