CAD路径偏移的lisp程序？

Question

我想要把一个线段A在沿着另一个曲线段B偏移，并且偏移距离为25，例如下图所示（若有能力在曲线B末端也有偏移线段A则更好，若不能我可自行标注末端）(虽然CAD上可以用路径偏移命令来进行每隔25米的沿B偏移，但是需要被偏移的线段B有几十上百条，实在是太多了，一个个偏移极其枯燥且极其耗费时间，所以希望找一个能节约时间的lisp代码。)大哥们，好人有好报呀。本人新手学习CAD lisp编程。但是所需的CAD不可能等我学会了再来提交。故来此寻找大神帮助，谢谢各位大神啦。

Answer 1

将A建成块，比如命令该块的名称为A0
然后对B进行定距等分，定距等分的命令为me
在提示中注意看，我们设定距离为25，插入块，块名称为刚才我们建的那个A0
这样就可以快速对B完成你想要的
另外，在对A进行建块的时候要注意指定基点
最好指定A的中点为基点

Answer 2

你的需要我理解为：
1、你的图中有很多条多段线，你想延着每一条线按间距画垂直的短线，间距为25（可以在程序中指定）
2、这个还是比较简单的，现在，编程前唯一需要确认的是，短线旁边是否需要标注数字，以及按什么方向标注，
------------以下来说一下编程思路：
1、新建一个选择集，将所有需要的多段放入该选择集中
2、遍历选择集中每条多段线（多段线是有若干点组成的，各个点是有前后的方向性的）
3、做一个循环，延着多段线找坐标（按线上长度25来一个一个确定延线的坐标），然后就可画出短线了（同时也可以标注文字）
4、到多段线尾时，一般不会正好是25的，这时候的处理方式，你要想一下
------------------------------如果不考虑标注文字的话，这里还有一个办法，不需要编程，只要做一个合适的线型就可以了，线型上有短线，调整好线型比例，就可以解决

Answer 3

1、你可以下载一个里程标注lisp

2、将线段A做成块，然后用块A等分曲线B

Answer 4

所以需要用到这个小插件,放到cad安装目录,ap-启动组 内容-添加插件,设置cad启动后自动加载,后面只要保存一次就可以自动去除教育版,用过的人都说好。