Question

CAD中如何用visuallisp实现测量多短线上任意一点至某一端点的距离，并显示或者标注于图上？

如下图所示，折线为多短线，A为一个端点，B为任意点，希望能实现的功能是点取B点后自动显示出B点至A点的距离，此距离非AB直线距离，而是沿着多段线上的累计长度。提供思路即可，当然如有实例代码更好？

Answer 1

(defun C:CD1 ( / ent ob @p1 st en L1 L2 L3 L4 pm)
(vl-load-com)   ;;加载vlax扩展函数
(setq ent (entsel "\n请选择多段线"))
(if (/= ent nil)
 (progn
  (setq ent (car ent))
  (Setq ob (Vlax-Ename->Vla-Object ent) ;;转换为VLA对象
        @p1 (getpoint "\n请选择第一点")
        @p1 (vlax-curve-getclosestpointto ob @p1);;得到距离多段线与选择点最近的点
        @p2 (getpoint "\n请选择第二点") 
        @p2 (vlax-curve-getclosestpointto ob @p2);;得到距离多段线与选择点最近的点
        st (Vlax-curve-getStartPoint ob) ;;取得曲线开始点
        en (Vlax-curve-getEndPoint ob);;取得曲线结束点
        L1 (Vlax-curve-getDistAtpoint ob en);;取得曲线长度
        L2 (Vlax-curve-getDistAtpoint ob @p1);;取得曲线起点到指定点的长度
        L3 (Vlax-curve-getDistAtpoint ob @p2);;取得曲线起点到指定点的长度
        L4 (abs (- L2 L3));;取得指定两点之间的多段线长度
        pm (vlax-curve-getPointAtDist ob (* L1 0.5));;取得曲线中点
   )
   (princ L4);;命令行显示指定两点的多段线长度
  )
 );;要取得这个起点与这个点的长度这个点代入L1即可;另外封闭多段线及圆不能够使用这个函数。其它的圆弧，曲线，不封闭的多段线及直线可以使用这个函数。
 (princ)
 )

追问

为什么加载时会提示如下错误（将上述代码变为*.lsp程序加载运行）：
版本：CAD2006
运行反馈如下信息：

命令: AP
APPLOAD 已成功加载 CD1.lsp。
命令: ; 错误: 参数类型错误: numberp: nil