Разработка программ для автоматизации инженерных изысканий

CES	Cogito, ergo sum

	Мыслю, следовательно, существую

На главную

Программы

Микроблог

Обратная связь

Новости сайта:

2020-11-17: Программа CES-Топо обновлена до версии 1.18.0

Новые модули

CES-Утилиты→Работа с 3D→Поставить отметки высоты внутри замкнутых горизонталей
CES-Топо→Работа с полилиниями→Корректно замкнуть полилинии
CES-Топо→Работа с мультивыносками→Импорт мультивыносок из CSV-файла
CES-Топо→Работа с мультивыносками→Экспорт мультивыносок в CSV-файл
CES-Топо→Работа с мультивыносками→Добавить текст к мультивыноскам
CES-Топо→Работа с мультивыносками→Повернуть мультивыноски по полилиниям

2020-08-02: Программа CES-Топо обновлена до версии 1.16.0

Новые модули

CES-Утилиты→Прочее→'Взорвать' объекты типа 'Форма'(Shape)
CES-Топо→Рельеф→Поставить бергштрихи автоматически
CES-Топо→Рельеф→Найти основные горизонтали

Изменения

CES-Топо→Рельеф→Подписать горизонтали автоматически - улучшен алгоритм обработки коротких полилиний

2020-04-30: Программа CES-Топо обновлена до версии 1.15.0

Новые модули

CES-Утилиты→Работа с полилиниями→Подрезать полилинии внутри контуров
CES-Топо→Рельеф→Подписать горизонтали автоматически
CES-Топо→Настройки→Импорт/экспорт настроек слоев в CSV

Все новости...

2014-04-24: Lisp и Autocad Civil 3D: как получить отметку Z с поверхности Civil.

Замечательная команда

(vlax-dump-object(vlax-ename->vla-object (car(entsel)))T)

позволяет исследовать методы и свойства объектов. Применив данную команду к поверхности Civil, среди прочих видим метод с интересным названием: FindElevationAtXY. Опробовав, убеждаемся в том что это то что нам нужно. Однако, есть незадача: метод возвращает ошибку и прерывает работу Lisp-приложения, если координаты точки, отметку Z которой нужно узнать, находятся за пределами поверхности. Поэтому вызов метода нужно заключить в обработчик ошибок. И так, в окончательном виде функция для нахождения отметки Z по поверхности Civil и координатам XY примет вид:

(defun SURFACE_FindElevationAtXY (obj p / result)
(setq result (vl-catch-all-apply(function(lambda()(vlax-invoke-method (vlax-ename->vla-object obj) "FindElevationAtXY" (car p) (cadr p))))))
(if(vl-catch-all-error-p result)
(setq result 0.0)
); end if
result
); end defun

PS. Перед вызовом вышеописанной функции, равно как и перед вызовом vlax-dump-object... необходимо загрузить поддержку ActiveX командой

(vl-load-com)

Просмотров: 3278
Вернуться назад

Добавить комментарий

При использовании материалов сайта ссылка на первоисточник обязательна!
Разработка сайта: cj_lex