LISP для определения высоты на отрезке линии.

Всех приветствую! Я уже очень давно экспериментирую со скриптами на LISP. Данный форум мне очень помог(и помогает до сих пор) спасибо огромное, поэтому я хочу поделится одним из своих скриптов.

Данный скрипт находит высоту в точке на отрезке линии. Может быть полезен для тех кто выполняет вертикальную планировку в Автокаде. Для начала вам нужно создать линию (именно инструментом Line, а не полулинию т.к у полулинии высота одна (elevation) скрипт будет работать некорректно.) Очень важно если вы работаете с топографией, то вам следует убедится что у вас включены соответствующие привязки когда будете проводить линию между горизонталями. Убедитесь что у линии в параметрах корректно указаны "Start Z" и "End Z". Если в самой топографии в параметрах горизонталей высота не прописана, то вы можете вручную вводить "Start Z" и "End Z".

После того как линия создана запустите код командой: FBLP, и затем выберете линию после кликните на любую точку на этой линии - создастся круг со значением высоты в этой точки, так же значения дублируются в командную строку.

З.Ы Линию позже можно удалить либо настроить им всем слой (и выключить), а сами точки(кружки) со значением высот автоматически создаются в слою "blackpoint" его можете выключить когда завершите работу.