连续测量线长的代码

newer

1. (defun c:test (/ pt pts dis p1)
   
2.   (while (setq pt (getpoint "\nPoint: "))
   
3.     (if (not p1)
   
4.       (setq p1 pt)
   
5.     )
   
6.     (setq pts (cons pt pts))
   
7.     (if (>= (length pts) 2)
   
8.       (grdraw pt p1 1)
   
9.     )
   
10.     (setq p1 pt)
    
11.   )
    
12.   (setq dis 0.)
    
13.   (if pts
    
14.     (mapcar
    
15.       '(lambda (x y)
    
16.          (setq dis (+ dis (distance x y)))
    
17.        )
    
18.       (reverse (cdr (reverse pts)))
    
19.       (cdr pts)
    
20.     )
    
21.   )                                       ; (apply 'command (cons ".pline"
    
22.                                        ; pts))
    
23.                                        ; (command)
    
24.   (if (not (zerop dis))
    
25.     (princ (strcat "\nDistance = " (rtos dis 2 4)))
    
26.   )
    
27.   (princ)
    
28. )
    
29. 
    

(defun c:test (/ pt pts dis p1)<br />   (while (setq pt (getpoint "\nPoint: "))<br />     (if (not p1)<br />       (setq p1 pt)<br />     )<br />     (setq pts (cons pt pts))<br />     (if (>= (length pts) 2)<br />       (grdraw pt p1 1)<br />     )<br />     (setq p1 pt)<br />   )<br />   (setq dis 0.)<br />   (if pts<br />     (mapcar<br />       '(lambda (x y)<br />          (setq dis (+ dis (distance x y)))<br />        )<br />       (reverse (cdr (reverse pts)))<br />       (cdr pts)<br />     )<br />   )                                       ; (apply 'command (cons ".pline"<br />                                        ; pts))<br />                                        ; (command)<br />   (if (not (zerop dis))<br />     (princ (strcat "\nDistance = " (rtos dis 2 4)))<br />   )<br />   (princ)<br /> )<br /> <br />