修改现有的 PLD lisp 命令
作为 Lisp 的新手,我想知道我是否可以请求你帮助我修改一些我在网上找到的现有代码 如何在 AutoCAD 中简化折线?。如您能提供任何指导或支持,我们将不胜感激。 我想要获得的 CAD : 中间部分放大: 右侧部分放大: 我想删除折线中彼此距离比任何其他不相邻点更近的任何点。此外,我需要消除任何阻塞点。至关重要的是,拉直的线保持在闭环内,并且顶点不应超出现有折线或闭环线。 我添加了 CAD 绘图图像来展示我想要实现的目标。为了进一步解释这个问题:我想要像此代码一样删除顶点,但是一旦删除顶点,我就不希望新的多边形顶点具有超出原始顶点的线段。此外,我希...