4 месяца назад
Перенос таблицы AutoCAD в Word с помощью VBA
Работа с таблицами в AutoCAD нередко требует переноса данных в другие программы, например, Microsoft Word. Макрос выполняет следующие задачи: Приведённый ниже код написан на VBA и предназначен для выполнения в AutoCAD: Sub CopyAcadTableToWord() Dim acadApp As Object Dim acadDoc As Object Dim sset As Object Dim ent As Object Dim acadTable As Object Dim wordApp As Object Dim wordDoc As Object Dim wordTable As Object Dim rowCount As Integer Dim colCount As Integer Dim i As Integer, j As Integer ' Подключаемся к AutoCAD On Error Resume Next Set acadApp = GetObject(, "AutoCAD...
5 месяцев назад
Макрос VBA для сортировки таблицы в AutoCA
Данный макрос предназначен для сортировки данных в таблице AutoCAD по выбранному столбцу. Он поддерживает сортировку как числовых значений, так и строковых данных. Макрос позволяет пользователю выбрать таблицу в чертеже AutoCAD и отсортировать её строки по указанному столбцу. Сортировка может выполняться как по числовым данным, так и по текстовым значениям. Если пользователь не вводит номер столбца, по умолчанию используется столбец с индексом 0. Программа автоматически определяет тип данных и применяет соответствующий алгоритм сортировки. По завершении сортировки значения в таблице обновляются, и выводится сообщение об успешном выполнении операции...