Designer Flight Students works Графика Enigma All tutors Gallery Blog Downloads Home


Программа VBA (Visual Basic for Applications) для AutoCAD - Генератор ландшафтов


Дизайнерам ландшафта, использующим в своей работе AutoCAD, для трехмерной визуализации приходится моделировать поверхность земли. Эта рутинная работа иногда отнимает много времени.
Выполнить эту рутинную работу может несложный скрипт VBA - генератор ландшафтов, автор - Сыркин Юрий Иванович. Результаты работы скрипта представлены на рисунке, поверхность получается случайно-неровной.

Высота неровностей - порядка 20 см, она настраиваемая, размеры участка также настраиваемые.
Скачать скрипт (8 kB) можно отсюда, а файл AutoCAD с сгенерированным ландшафтом (23 kB) отсюда.

1. Для начала надо загрузить программу в AutoCAD. Для этого в меню программы нажать Tools>>Macro>>VBA Manager... После этого появится далоговое окно VBA менеджера, в котором надо нажать кнопку Load.



Кнопка Load вызывает окно открытия VBA проекта, в котором надо найти и открыть скачанный и разархивированный файл проекта mesh.dvb



2. AutoCAD спросит, уверены ли Вы в макросе, что он не содержит вирусы. Ответьте "Enable Macros", этот макрос не содержит вирусы (но избегайте нажимать эту кнопку для макросов, скачанных из других источников).



После открытия в окне VBA Manager нажмите кнопку Macros..., после чего откроется диалоговое окно Macros, в котором надо нажать кнопку Run.



3. Теперь осталось указать AutoCAD ширину и длину участка в метрах (по умолчанию 30х20) и степень неровности поверхности (по умолчанию 0.25 м - дроби в AutoCAD вводятся через точку. На начальном этапе можно подтверждать значения по умолчанию клавишей Enter. На рисунке полеченная сеть в каркасном виде.



Полученная сеть в визуальном стиле Conceptual (View>>Visual Style>>Conceptual) и в перспективной проекции (View>>Orbit>>Free Orbit, щелчок правой кнопкой мыши на рабочем поле - Perspective).



Результат - участок, на который можно ставить дом, сажать деревья.




Home

*Имя:
E-mail:
*Текст:
*Сложите 13513 и 84,
результат введите в это поле: