[编程申请]：测量各交点间的样条曲线的长度

xiahwan

各位专家：
  能否帮助我编写这样一个程序：样条曲线与多条直线相交，在不打断样条曲线的情况下测量曲线上相邻交点间的实际长度（即例图中的ab、bc、cd、de、ef间的曲线长度），并能自动列出报表。如果能一次性量出多条曲线上的各相邻交点间的长度是最佳愿望。

lsjjm

返回任意曲线上两点间的长度:
[php]
(defun c:test (cur p1 p2)
  (abs (- (vlax-curve-getDistAtPoint cur p2)
          (vlax-curve-getDistAtPoint cur p1))
)
[/php]

xiahwan

非常感谢二楼楼主的支持。小弟只是一位只会用ACAD绘图，而不懂程序开发。特此请求楼主能较之详细地告诉我怎么用你写的这段程序运用到我的ACAD2004中。

lsjjm

将下面的程序放到VLISP编辑器(或支持路径下), 加载并运行. 按照提示选取曲线和拾取那两个点.
[PHP]
(defun c:test ()
  (setq cur (car (entsel "\nSelect the curve: ")))
  (setq p1 (getpoint "\nPick First Point: "))
  (Setq p2 (getpoinr "\nPick Seconf Point :"))
  (abs (- (vlax-curve-getDistAtPoint cur p2)
             (vlax-curve-getDistAtPoint cur p1)))
)
[/PHP]

xiahwan

谢谢楼主再次对我的帮助。我是从事船舶船体技术服务和管理工作，这个小程序对我的工作实在是作用巨大。我将你写的程序按要求进行操作。可是为啥出现图中所示的错误提示？命令是不是“TEST”
   敬请楼主再一次协助。感谢你。。。

cqnj023

少了两个），

(defun c:test (/ CUR P1 P2)
  (vl-load-com)
(setq cur (car (entsel "\nSelect the curve: ")))
(setq p1 (getpoint "\nPick First Point: "))
(Setq p2 (getpoint "\nPick Seconf Point :"))
(abs (- (vlax-curve-getDistAtPoint cur p2)
(vlax-curve-getDistAtPoint cur p1)))
)

lsjjm

6楼说的对. 贴程序的时候丢掉了. 原程序已改好.

xiahwan

真诚感谢楼主的大力支持，你们的协助解决了我工作中的困难。程序已能正常运行。
  特此至谢谢