[求助]：有没有测量路径的程序

jadekylin

CAD里自带的DIST只可以测两点的距离，有没有可能测量一段路径的距离，不是画好一条多义线来测量的功能

xyp1964

2. [FONT=courier new];; 曲线上任意两点间的线长
   
3. (defun c:test ()
   
4.   (cmdla0)
   
5.   (if (and (setq s1 (car (entsel "\n选择曲线<退出>: ")))
   
6.            (xyp-curve-check s1)
   
7.       )
   
8.     (progn
   
9.       (setq p1          (getpoint "\n第1点: ")
   
10.             p1          (osnap p1 "near")
    
11.             p2          (getpoint p1 "\n第2点: ")
    
12.             p2          (osnap p2 "near")
    
13.             l1          (xyp-get-LengthAtPoint s1 p1)
    
14.             l2          (xyp-get-LengthAtPoint s1 p2)
    
15.             leng1 (abs (- l1 l2))
    
16.       )
    
17.       (if (and l1 l2)
    
18.         (progn
    
19.           (princ (strcat "\n两点间线长=" (xyp-2str leng1)))
    
20.           (if (vlax-curve-isClosed s1)
    
21.             (princ (strcat "\n另一半曲线线长="
    
22.                            (xyp-2str (- (xyp-get-CurveLength s1) leng1))
    
23.                    )
    
24.             )
    
25.           )
    
26.         )
    
27.       )
    
28.     )
    
29.   )
    
30.   (cmdla1)
    
31. )[/FONT]

[FONT=courier new];; 曲线上任意两点间的线长<br /> (defun c:test ()<br />   (cmdla0)<br />   (if (and (setq s1 (car (entsel "\n选择曲线<退出>: ")))<br />            (xyp-curve-check s1)<br />       )<br />     (progn<br />       (setq p1          (getpoint "\n第1点: ")<br />             p1          (osnap p1 "near")<br />             p2          (getpoint p1 "\n第2点: ")<br />             p2          (osnap p2 "near")<br />             l1          (xyp-get-LengthAtPoint s1 p1)<br />             l2          (xyp-get-LengthAtPoint s1 p2)<br />             leng1 (abs (- l1 l2))<br />       )<br />       (if (and l1 l2)<br />         (progn<br />           (princ (strcat "\n两点间线长=" (xyp-2str leng1)))<br />           (if (vlax-curve-isClosed s1)<br />             (princ (strcat "\n另一半曲线线长="<br />                            (xyp-2str (- (xyp-get-CurveLength s1) leng1))<br />                    )<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (cmdla1)<br /> )[/FONT]