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

(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)
 )