ADN Club > VBA
Видеоуроки AutoCAD VBA
Максим Маркевич:
Всем привет! Меня зовут Максим Маркевич, инженер-проектировщик строительных конструкций (КЖ, КМ). Долгое время автоматизировал свою работу в AutoCAD при помощи VBA. Поэтому сейчас решил записать серию уроков по этой теме. В данных уроках не столько рассматриваются аспекты программирования, сколько решение конкретных задач для AutoCAD.
А именно:
* Связка с Excel
* Связка с Mathcad
* Программная манипуляция блоками
* Создание полей
* Создание таблици многое другое…
Курс отлично подойдет для новичков в этом деле.
Плейлист курса, содержащий все видеоматериалы
P.S.: Хотелось бы отметить, что курс записывается в режиме реального времени, поэтому можно оставлять комментарии (предложения и замечания). По самым интересным запросам будут записаны отдельные уроки.
В данной теме допускается поднимать вопросы, связанные с тематическим развитием курса, полезной модификацией кода, предложением иных путей решения конкретных задач видеоуроков.
А вот обсуждение видеоуроков (любые вопросы типа "у меня не работает", "в этом месте выдает ошибку" и прочее) будет происходить вот здесь, дабы не захламлять основную тему.
Максим Маркевич:
1. Введение
Несколько слов о том, почему стоит изучать VBA и в каких случаях это упрощает жизнь.
Написание и запуск первого кода.
Максим Маркевич:
2. Достучаться до Excel
В данном уроке объясняется, как при помощи редактора VBA получить информацию из Excel.
--- Код - Visual Basic [Выбрать] ---Sub ExcelToAutocad() ' Для того, чтобы автокад понимал такой тип переменных, как Excel.Application, Excel.Workbook и Excel.Worksheet ' необходимо в редакторе VBA выбрать Tools - References и добавить Microsoft Excel *.* Type Library Dim AP As Excel.Application Dim WB As Excel.Workbook Dim WS As Excel.Worksheet 'Устанавливаем связь с Excel Set AP = Excel.Application Set WB = AP.Workbooks.Open("m:\Excel.xlsx") Set WS = WB.Worksheets("Лист1") 'Считываем данные dlina = Cells(1, 1) a = Cells(1, 2) 'Выводим в AutoCAD MsgBox dlina & " = " & a 'Закрываем Excel AP.Quit End Sub
Максим Маркевич:
3. Достучаться до Mathcad
В видеоуроке объясняется, как получить информацию из Mathcad (в данном случае, все равно, используется некий буферный Excel, поэтому такой метод немножко костыль, но костыль вполне рабочий).
Максим Маркевич:
4. Вставка блока
В данном видео объясняется, как программно вставить блок в AutoCAD.
--- Код - Visual Basic [Выбрать] ---Sub InsertBlock() Dim blockRef As AcadBlockReference Dim name As String Dim pp As Variant 'В случае ошибки переходим к следующему действию On Error Resume Next 'Получаем точку вставки блока pp = ThisDrawing.Utility.GetPoint(, "Укажите точку вставки блока:") 'Имя блока name = "Тестовый" 'Вставка блока Set blockRef = ThisDrawing.ModelSpace.InsertBlock(pp, name, 1, 1, 1, 0) End Sub
Навигация
Перейти к полной версии