沿直线的距离

(defun c:pdist ( / e p )
    (if (setq e (car (entsel "\nSelect object to measure: ")))
        (while (setq p (getpoint "\nPick point on object: "))
            (princ
                (strcat "\nDistance from start point: "
                    (rtos
                        (vlax-curve-getdistatpoint e
                            (vlax-curve-getclosestpointto e (trans p 1 0))
                        )
                    )
                )
            )
        )
    )
    (princ)
)
(vl-load-com) (princ)