本帖最后由 xyp1964 于 2014-1-25 11:47 编辑
;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF(defun c:tt ()
(xyp-CMDLA0)
(setq i-1 ll 0)
(while (setq e (entsel "\n选择曲线段: "))
(setq lst (xyp-Get-Pts&Pte e)
s1(car e)
p1(car lst)
p2(cadr lst)
l1(xyp-LengthAtPoint s1 p1)
l2(xyp-LengthAtPoint s1 p2)
dl (- l2 l1)
ll (+ ll dl)
)
(xyp-Grvecs-Ptlst (list p1 p2) 1)
(princ "\n本段线长为: ")(princ dl)
(princ " 总线长为: ")(princ ll)
)
(xyp-CMDLA1)
)