[编程申请]：老问题！测量曲线（样条曲线等）上任意两点间长。

hechao48

各位专家：
能否帮助我编写这样一个程序：曲线（样条曲线等曲线）与多条直线相交，在不打断曲线的情况下测量曲线上交点间的实际长度（比如：ab、af、bc、de、ef之间的曲线长度）。

                               
登录/注册后可看大图

程序功能要求：
1.能选取要测量的曲线，并能显示已被选择；
2.选取、定位曲线中的点时能使用对象捕捉（例如：交点捕捉）；
3.结果最好能直接导入剪贴板,以便把数据迅速的用于其它的计算.
程序的应用：
    在船舶的设计中就有一项要大量的提取此类数据，绘制外板的展开图纸。
    在论坛搜索时发现也有许多朋友想要实现此功能的，不过好像都不能圆满的解决。

我在论坛上找到几个类似功能的软件都不能完全的满足要求，有时还会出现“错误: 参数类型错误: numberp: nil”的提示。

类似功能源码如下：
第一个：
(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)))
)

第二个：
(defun c:qxdist (/ DIST DIST1 DIST2 EN ENOBJ OSM P1 P2)
(vl-load-com)
(setq osm (getvar "OSMode"))
(setvar "OSMode" 512)
(setq p1 (getpoint "\n选择曲线上的一点："))
(setq p2 (getpoint "\n选择曲线上的另一点："))
(setq en (ssname (ssget p1) 0))
(setq enobj (vlax-ename->vla-object en))
(setq dist1 (vlax-curve-getDistAtPoint enobj p1))
(setq dist2 (vlax-curve-getDistAtPoint enobj p2))
(setvar "OSMode" osm)
(princ "\n测量段曲线长度：")
(setq dist (abs (- dist1 dist2)))
)

各位高手走过路过不要错过呀！