|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787
|
_.dimangular ?
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 23.12.2013
Сообщений: 26
|
имеются несколько горизонталей с разным уровнем (всё в плане), нужно вычислить угол падения в градусах, а _.dimangular вычисляет угол между отрезками на плоскости.
есть команда CGSLIST но она выдаёт в промилле. Последний раз редактировалось iSpawn, 01.06.2020 в 09:40. |
|||
|
||||
инженер (КМ) Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825
|
Ну если есть код, который уже все делает в промилле, то осталось только перевести результат в градусы:
Код:
----- добавлено через ~2 мин. ----- Кстасти, как лисп узнает, какие высоты у горизонталей?
__________________
Делай хорошо, плохо само получится. |
|||
|
||||
Регистрация: 23.12.2013
Сообщений: 26
|
Цитата:
""Первая отметка: 300.00м; вторая отметка: 250.00м; разность отметок: -50.00м уклон: -700.31‰; откос: -1:1.43; расст. по горизонтали: 71.40м"" Что-то твой лисп не запускается, команда ж для запуска ppm? |
|||
|
||||
инженер (КМ) Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825
|
Это функция запускаетсяв скобках с параметрами, например "(ppm->grd 700.31)".
У меня нет MAP и Civil. Код от туда вытащить не получится. Я не смогу определить высоты горизонталей, если они на плосокости начерчены (полагаю это только MAP и знает), а значит и вычислить уклон. Если они в 3D, то, впринципе, можно. Тогда нужен пример.
__________________
Делай хорошо, плохо само получится. |
|||
|
||||
Регистрация: 23.12.2013
Сообщений: 26
|
|
|||
|
||||
инженер (КМ) Регистрация: 30.10.2004
Красноярск
Сообщений: 3,825
|
Цитата:
Код:
__________________
Делай хорошо, плохо само получится. |
|||
|
||||
Регистрация: 30.01.2018
Сообщений: 3
|
|
|||
|
||||
ang (* (/ (abs (- z1 z2)) dist3) 1000)
(strcat "\nуклон: " (rtos ang 2 2) "‰; расст. по горизонтали: " (rtos dist3 2 2) "м")
__________________
Не труд сделал из обезьяны человека, а лень и жажда халявы... |
||||