以下源代码可以沿曲线绘制堤坡线
使用说明：
在 AutoCAD 图形中定义一个 2 条不等长度线的块（垂直方向），插入点位于双线的底部中点表示堤坡线
注：使用压缩包中的dd.dwg插入后亦可以（该块线间距==2mm）。

在命令行提示输入线间距时输入块的线间距的 2 倍值。若使用 dd.dwg 则输入 4
其他按命令行提示输入。

加载：[工具][加载LISP]
启动：命令行输入JCXian1<CR>
然后按提示操作。

说明：希望对你有参考作用，起到抛砖引玉之效果。