距離の進歩的な合計

[PlannerRoad]

dist2

consente di sommare in progressione le distanze.

"the standard autocad dist command measures only distances between two points.
if you want to measure a cumulative (total) distance defined by consecutive point clicks (multiple line segments), you can use the dist2 lisp."

http://www.cadforum.cz/cadforum_en/dl_file.asp?id=760

 

[arri]

cumd

(defun c:cumd ()
(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)
)