ADN Club > VBA

Видеоуроки AutoCAD VBA

(1/19) > >>

Максим Маркевич:
Всем привет! Меня зовут Максим Маркевич, инженер-проектировщик строительных конструкций (КЖ, КМ). Долгое время автоматизировал свою работу в 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

Навигация

[0] Главная страница сообщений

[#] Следующая страница

Перейти к полной версии