Lisp自动画梯形_CAD lisp 求助一段代码实现自动画弧！

看到你的确切的要求后，这两天进行了多种方案的探索。

共有四种画法，详见下面的截图。①红线是用arc命令徒手操作画出的圆弧线，它的曲线画得最夸张(圆弧过分张扬)，并要求块的个数是3的整倍数，否则就会留出“尾巴”。②绿线是用spline命令徒手画出的B样条曲线，它的画法是事先通过菜单“工具/绘图设置/绘图设置”将捕捉状态修改为只捕捉插入点。它的优点是最不夸张。它的缺点是要较费时，打乱了当前的捕捉设置；此外，曲线没有准确经过插入点。③品红色的曲线是用编制的程序命令逐段画出的pline多段线，后经pedit命令修改为拟合(注意拟合曲线和样条曲线是不同的-原先我说得不够准确)得到的曲线。它的优点是可不干扰当前的捕捉状态、“隐蔽”捕捉插入点，且能准确经过插入点。缺点是个别处仍有夸张现象。④褐色的曲线也是用编制的程序命令逐段画出的pline多段线，后经pedit命令修改为样条曲线得到的B样条曲线。它的缺点是大部分插入点都没被经过。

由于你要的是程序编制的命令，因此推荐采用第三种方案。相应的命令取名为ln，连接的拟合线的意思。请下载附件。