[baaba]

Вот, рисовал тут карту, на днях. Подумалось: как измерять длину дорог? На бумажной карте это делают измерителем (циркуль с двумя иглами). Можно обвести трассу полилинией и, затем, померять длину полилинии. Но захотелось что то вроде измерителя, на автолисп. Вот, набросалось такое:

Код:

[Выделить все]

(defun c:shtangel (/ pt1 pt2 c)
(setq pt1 (getpoint "\nEnter first point"))
(setq pt2 (getpoint "\nEnter second point"))

(defun dodist (a b)
(sqrt
    (+
        (expt(- (car a) (car b)) 2)
        (expt (- (cadr a) (cadr b)) 2))))
    
(setq c (dodist pt1 pt2))
(setq pn (getpoint "\nEnter next point"))

(while pn
    (setq c (+ c (dodist pt2 pn)))
    (setq pt2 pn)
    (setq pn (getpoint "\nEnter next point")))
(princ c) (princ))

Однако точность измерения меня не устроила, один знак потерялся, показываю скрин: http://omploader.org/vMncyMw
Сейчас, вот так быстро, не приходит в голову почему. Вобщем тут был долгий перерыв, я не брался за лисп, просто не было времени. Наверное я топчусь на месте? Интересно ваше мнение, и так просто, хочу пообщаться. Спасибо!

[Дима_]

во первых есть функция (distance), во вторых зачем dodist внутри объявляется функции объявляеться как глобальный? Хотя по моему правильней полилинию нарисовать и померить - навскидку - чтоб лисп вспомнить:

Код:

[Выделить все]

(defun c:test ( / pt1 pt2 total)
(setq 	pt1 (getpoint "\nНачало ")
	total 0
);end of setq
(while (setq pt2 (getpoint pt1 (strcat "\nИтого " (rtos total) " ")))
(grdraw pt1 pt2 -1)
(setq	total (+ total (distance pt1 pt2))
	pt1 pt2
);end of setq
);end of while
(redraw)
total
);end of test

[Profan]

Штангенциркулем (не штангельциркулем) длину трассы только безумец может измерять. Лучше бы рулетку упомянул.

А трассы отрисованы отрезками и дугами? Да еще на каких попало слоях?

[Neutrino]

На бумажной карте длину кривых измеряют курвиметром.