pf775                        
						размещено: 30 Октября 2025                    
 
                 
                
                                        Друзья, делюсь своим «велосипедом»: «Универсальная программа для поиска Z-координаты на линии или плоскости».
Предыстория
Для построения профилей проектируемых коммуникаций я давно пользуюсь лиспами Find_Z_OnLine.lsp и Find_Z_OnPlane.lsp. Изначально цель была просто объединить эти две программы в одну. Я «скормил» эти два лиспа ИИ, и понеслась! )))
Что делает
Программа выполняет интерполяцию на линии и плоскости как на «плоской геоподоснове», так и на 3D-объектах, которые имеют координату Z (планировка и т.д.) или «уровень».
Может получать информацию об отметке из внешних ссылок, блоков, текста и мтекста (указываем на текст мышкой).
Есть возможность указывать на отметку коммуникации типа "123.12лот" или "о.т.123.123".
Предусмотрен ручной ввод координат.
Для 3d объектов координата Z берется автоматически 
Маркер проинтерполированной отметки получает расчётную Z-координату.
Принцип работы
Указываем точку №1 и выбираем её отметку.
Указываем точку №2 и выбираем её отметку. Строится временная линия.
Если выбрать точку на временной линии, активируется режим интерполяции по линии.
Если указать точку №3, будет выбран режим интерполяции по плоскости.
Искомую точку (или несколько точек) можно выбирать за пределами линии или плоскости — интерполяция также будет выполнена.
После указания точки есть возможность задать координаты вручную: для этого нажимаем Пробел и вводим значения.
Особенности работы с 3D-объектами
Для 3D-объектов (у которых Z или уровень не равны 0) алгоритм работает иначе: просто указываем точки, и Z из объекта подхватывается автоматически. Если у объекта переменная Z, координата возьмётся из выбранной точки этого объекта.
Дополнительные возможности
До указания первой точки можно выбрать высоту текста (по умолчанию 0.9) для всех последующих построений.
После указания первой точки и её координаты есть возможность построить маркер одной точки (в 2D и 3D режиме), просто нажимаем ентер.
Все маркеры высотных отметок создаются в отдельном слое.
У каждой выбранной точки указывается координата, которую посчитал LISP, для самоконтроля.
P.S.
Я делал это для себя, для построения профилей коммуникаций по сводным планам, собранным из 2D и 3D (планировка) данных, ГП (Геотрест). Постарался сделать максимально интуитивно и просто. Всё сделано с помощью DeepSeek, я lisp не знаю.
Если будете работать, обязательно проверяйте результат. Я не знаю, как это работает, если выдает какие то ошибки или не запускается , просто залейте лисп в DeepSeek и напишите ему про ошибку )). У меня работает на Acad 2022
				                
                
                    
                        
							                             
                            0.01                                МБ
                            
                            СКАЧАТЬ