有没有大神帮忙实现一下自动沿路布置车位的插件

郑梓莘

刚接触lisp,对这个自动步车位的插件有点思路，不知道对不对。                                                                                                                                        选取多段线pa,选择车位块cw，选择车位块对齐点dq1、dq2输入车位长度cc
输入车位宽度kk
偏移多段线pa，偏移距离为cc，选择偏移方向，得到多段线pb
获取多段线pa的顶点个数ddnum
设置n的初始值(初始为第一个顶点)

将多段线pa的第n个顶点赋值给ea
多段线pa的第n+1个顶点赋值给FF

循环（循环条件：n<ddnum）
  {xunhuan
   panduan
   }



子程序panduan
  判断ea和FF之间的子段是否为弧段
      是：继续判断弧段的凸度是否为正
          是：(将多段线pb的第n个顶点赋值给ea
               将多段线pb的第n+1个顶点赋值给FF
                pa与pb的图元名称对调）



子程序xunhuan
循环（循环条件：点FF不在以ea为圆心以kk为半径的圆内<先执行循环提在判断>）
  {
   以ea为圆心以kk为半径画圆（图面上不表达）
   求圆与pa的交点NN1（右交点）
   求点NN1到pb的最近点NN2，然后连接
   以ea为圆心以kk/2为半径画圆（图面上不表达）
   求圆与pa的交点DD1（右交点），求DD1到到pb的最近点DD2，复制车位块、将车位块对齐点dp1、dp3与DD1和DD2对齐
   将NN1赋值给ea，NN2赋值给FF
   n加1
  }

郑梓莘

有没有大神帮忙指点一下