Thank you

(Autocad V 2010)

 

;cumulative distance
;this routine is just like the Autocad Distance command with the
;exception that it allows you to pick more than 2 consecutive points.
;the routine will display the cumulative distance and the distance
;between the last two points picked on the command line.

(defun c:cd ()
 (setvar "cmdecho" 0)
 (graphscr)
 (setq
  p1 (getpoint "\nPick start point ")
  p2 (getpoint p1 "\nPick next point ")
  d1 (distance p1 p2)
  prdist (strcat "\nDistance: " (rtos d1))
 )
 (princ prdist)
 (setq p3 (getpoint p2 "\nPick next point or RETURN if done "))
 (while p3
  (setq
   d0 (distance p2 p3)
   d1 (+ (distance p2 p3) d1)
   p2 p3
   prdist (strcat "\nDistance: " (rtos d0) ", Cumulative distance: " (rtos d1))
  )
  (princ prdist)
  (setq p3 (getpoint p2 "\nPick Next Point "))
 )
 (setq cumd (strcat "Cumulative distance --> " (rtos d1)))
 (prompt cumd)
 (princ)
)
(princ "\nType CD to run Cumulative Distance")
(princ)

 

Enter an option [Distance/Radius/Angle/ARea/Volume] <Distance>: Distance

Specify first point: Specify a point

Specify second point or [Multiple Points]: m

Trace lines and get the line lengths calculated.

Enter an option [Distance/Radius/Angle/ARea/Volume/eXit] <Distance>: Exit

 

You can also click F1 and get this instraction in AutoCAD help documents.

 

Sean