определить уклон!

Ничего удивительного нет. Все современные рабочие занятые на строительстве дорог делают такие глаза когда им говорить начинаешь про промилле! Такие уж рабочие пошли в дорожном строительстве.

 

3.06.03

 

3.06.03
это ГОСТ?

 

снип "автомобильные дороги" 3.06.03-85 - технология и контроль качества
2.05.02-85 "автомобильные дороги" - проектирование

 

благодарю)

 

Код для вычисления уклона в промилле:

(vl-load-com)
(defun C:PML (/ ang dif ent hgt ip leng obj p1 p2 pt1 pt2 sign slop)
(prompt "\nВыбрать линии по одной")
(while
(setq ent (entsel "\nВыбрать линию/полилинию (или Enter для завершения цикла): "))
(setq obj (vlax-ename->vla-object (car ent)))
(setq p1 (vlax-curve-getstartpoint obj)
p2 (vlax-curve-getendpoint obj)
)
(if (< (car p1)(car p2))
(setq pt1 p1
pt2 p2)
(setq pt1 p2
pt2 p1)
)
(if (< (cadr pt1)(cadr pt2))
(setq sign -)(setq sign +);<-- знак уклона по ситуации
)
(setq dif (sign (abs (- (cadr pt1)(cadr pt2)))))
(setq leng (vlax-curve-getdistatparam obj
(vlax-curve-getendparam obj))
)
(setq slop (/ dif leng)
hgt 5. ;(getvar "dimtxt");<-- высота текста по ситуации
)
(setq ip (mapcar (function (lambda (a b)(/ (+ a b) 2.))) pt1 pt2)
ip (polar ip (+ (angle pt1 pt2)(/ pi 2)) hgt)
ang (* (angle pt1 pt2) (/ 180.0 pi)))
(command "_.-mtext" ip "_H" hgt "_J" "_MC" "_R" ang ip (strcat (rtos (* slop 1000) 2 2) "\U+2030") "")
)
(princ)
)
(princ "\nНабрать в командной строке PML")
(princ)
;; end of pml.lsp

 

Отличная комманда, мне бы пригодилась, вот только...
у меня высоту текста ставит строго 5. А как бы сделать, чтоб можно было задавать по запросу?
И как сделать чтоб вместе с текстом ставился знак уклона, а лучше - стрелка по направлению уклона?
И вроде бы в коде это присутствует: "высота текста по ситуации" и "знак уклона по ситуации". Почему же не работает?

 

Совершенно с вами согласен, так гораздо удобнее считать, особено при строительстве линейных сооружений.

 

хм...промилле...миллиметры...это всё понятно...У нас тут проектировщики тоже умничают :миллиметры как-то привычнее звучат,а вот промиле сразу настораживает слушающего!Слово то какое:) А вот у меня вопрос: Где найти таблицу уклонов автодороги на кривой или как рассчитать "вираж" кривую автодороги скажем с радиусом в 300 метров? И где можно раздобыть таблицу уклонов?

--- Сообщения объединены, Oct 31, 2016, Оригинальное время сообщения: Oct 31, 2016 ---

это СНиП

 

angar, Таблицы Митина.

 

Спасибо огромное ! Я нашёл книгу и скачал. Начал изучать...пока не всё понятно-книга очень интересная но за раз не осилишь.Надеюсь в будущем она меня выручит!