【模仿秀】连续测量距离

xyp1964

2. ;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url](defun c:tt ()
   
3.   (xyp-CMDLA0)
   
4.   (setq i  -1 ll 0)
   
5.   (while (setq e (entsel "\n选择曲线段: "))
   
6.     (setq lst (xyp-Get-Pts&Pte e)
   
7.           s1(car e)
   
8.           p1(car lst)
   
9.           p2(cadr lst)
   
10.           l1(xyp-LengthAtPoint s1 p1)
    
11.           l2(xyp-LengthAtPoint s1 p2)
    
12.           dl (- l2 l1)
    
13.           ll (+ ll dl)          
    
14.     )
    
15.     (xyp-Grvecs-Ptlst (list p1 p2) 1)
    
16.     (princ "\n本段线长为: ")(princ dl)
    
17.     (princ " 总线长为: ")(princ ll)
    
18.   )
    
19.   (xyp-CMDLA1)
    
20. )

;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url](defun c:tt ()<br />   (xyp-CMDLA0)<br />   (setq i  -1 ll 0)<br />   (while (setq e (entsel "\n选择曲线段: "))<br />     (setq lst (xyp-Get-Pts&Pte e)<br />           s1(car e)<br />           p1(car lst)<br />           p2(cadr lst)<br />           l1(xyp-LengthAtPoint s1 p1)<br />           l2(xyp-LengthAtPoint s1 p2)<br />           dl (- l2 l1)<br />           ll (+ ll dl)          <br />     )<br />     (xyp-Grvecs-Ptlst (list p1 p2) 1)<br />     (princ "\n本段线长为: ")(princ dl)<br />     (princ " 总线长为: ")(princ ll)<br />   )<br />   (xyp-CMDLA1)<br /> )