Progressive Summe der Entfernungen

[PlannerRoad]

dist2einwilligen di sommare in progressione le distanze.

"der standard autocad dist befehl misst nur distanzen zwischen zwei punkten.
wenn sie einen kumulativen (gesamt) abstand messen möchten, der durch aufeinanderfolgende punktklicks (mehrfache liniensegmente) definiert wird, können sie den dist2 lisp verwenden."
http://www.cadforum.cz/cadforum_en/dl_file.asp?id=760

 

[arri]

wie

(defun c:cumd)
(Setvar "cmdecho" 0)
(grafik)
(setq)
p1 (getpoint "\npick start point ")
p2 (getpoint p1 "\npick next point ")
d1 (Abstand p1 p2)
prdist (strcat "\nabstand: " (rtos d1))
)
(princ prdist)
(setq p3 (getpoint p2 "\npick nächster punkt oder zurück, wenn getan))
(while p3
(setq)
d0 (Abstand p2 p3)
d1 (+ Abstand p2 p3) d1)
p2 p3
prdist (strcat "\nabstand: " (rtos d0) ", kumulative entfernung: " (rtos d1))
)
(princ prdist)
(setq p3 (getpoint p2 "\npick next point "))
)
(setq cumd)
(prompt cumd)
(principal)
)