[编程申请]：曲线沿路径按指定若干个长度阵列对象

left2r

曲线沿路径按指定若干个长度阵列对象：
需要沿曲线阵列图块，但距起点距离（可按曲线路径长或X、Y方向长度设置）不规则，
若用measure命令速度太慢，我对vla函数不熟悉，希望大家帮忙解决。


暂时查到的提供给大家的函数如下：
@1.    (vlax-curve-getStartPoint curve-obj)

功能   返回曲线的开始点（在 WCS 中）。

说明    参数 curve-obj 为要测量的 VLA 对象。

返回值：  若成功，则返回表示开始点的三维点表，否则返回 nil。

范例    获取 vlax-curve-getArea 范例中椭圆的开始点：

         _$ (vlax-curve-getStartPoint ellipseObj)

          (3.0 3.0 0.0)

        对于椭圆，起点和端点圆弧是相同的。

          获取 vlax-curve-getDistAtParam 范例中样条曲线的开始点：

         _$ (vlax-curve-getStartPoint splineObj)

         (1.34521 1.68943 0.0)

@2. (vlax-curve-getEndPoint curve-obj)

  功能       返回曲线的端点（按 WCS 表示）

  说明       参数 curve-obj 为要测量的 VLA 对象。

  返回值：   若成功则返回表示端点的三维点表，否则返回 nil。

  范例       获取 vlax-curve-getArea 范例中椭圆的端点：

          _$ (vlax-curve-getEndPoint ellipseObj)

          (3.0 3.0 0.0)

@3.    (vlax-curve-getFirstDeriv curve-obj param)

  功能      返回曲线在指定位置的一阶导数（在 WCS 中）。

  说明
           1）参数 curve-obj 为要测量的 VLA 对象。

           2）参数 param 为数值，指定曲线上的参数。

  返回值： 若成功则返回三维矢量表，否则返回 nil。

  范例  假定 splineObj 指向 vlax-curve-getDistAtParam 范例中的样条曲线。

  1）使用 vlax-curve-getStartParam 获取曲线的开始参数：

  _$ (setq stparameter  (vlax-curve-getStartParam splineObj))

  0.0

  2）获取曲线的结束参数：

  _$ (setq endparameter (vlax-curve-getEndParam splineObj))

  18.2920

  3）确定沿曲线中点参数的 一阶导数：

  _$ (vlax-curve-getFirstDeriv splineObj  

        ( / (- endparameter stparameter) 2))

  (0.622631 -3.25251 0.0)

&：
曲线起终点的问题，可以通过距终点长度＝曲线总长-距起点长度解决；可以用grdraw来预览调节；最好是lsp格式。