| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Выбор таблицы vba

Выбор таблицы vba

Ответ
Поиск в этой теме
Непрочитано 29.06.2022, 06:07 #1
Выбор таблицы vba
HiddenM
 
Проектирование иссо. Программирование
 
Хаб
Регистрация: 23.10.2005
Сообщений: 39

нужен пример кода на VBA: выбор таблицы автокада мышкой и потом погулять по ячейкам для их анализа.
Искал, не нашел. Есть только как создать таблицу, а мне сейчас нужно анализировать.
Aotocad 2022 в Windows 10
__________________
вот бы сейчас сесть за QB 4.5
Просмотров: 803
 
Непрочитано 29.06.2022, 13:13
#2
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,516


Чем выбор таблицы отличается от выбора любого другого объекта? Что там такого особенного?
__________________
_бложиг
Boxa вне форума  
 
Непрочитано 29.06.2022, 14:39
#3
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 9,885


ну так анализируйте - открываете в справка акада AcadTable и смотрите методы этого объекта, включая приведенные примеры кода. Пока в инете все это доступно)
Сергей812 вне форума  
 
Непрочитано 01.07.2022, 05:27
#4
Автон

СЦБ
 
Регистрация: 09.03.2006
Иркутск
Сообщений: 67


Я не программист, но такой работает код.
Код:
[Выделить все]
Dim ssetObj As AcadSelectionSet
Dim oTab As AcadTable
Dim iRow As Integer

On Error Resume Next
Set ssetObj = ThisDrawing.SelectionSets.Add("SSET1")
    If Err <> 0 Then
      Set ssetObj = ThisDrawing.SelectionSets.Item("SSET1")
      Err.Clear
    End If

Dim mode As Integer
mode = acSelectionSetAll
'определяем фильтр для выбора только таблиц
Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
gpCode(0) = 0
dataValue(0) = "Acad_Table"
Dim groupCode As Variant, dataCode As Variant
groupCode = gpCode
dataCode = dataValue
'извлекаем в набор все таблицы
ssetObj.Select mode, , , groupCode, dataCode

For Each oTab In ssetObj ' для каждой таблицы
    oTab.RegenerateTableSuppressed = True
    For iRow = 0 To oTab.Rows 'Здесь извлекаем данные, пробегая по всем строчкам, начиная со первой, данные первого столбца (первый это 0)
        MsgBox oTab.GetText(iRow, 0)
    Next iRow
    oTab.RegenerateTableSuppressed = False
Next
ssetObj.Delete
Автон вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Выбор таблицы vba

Инженерные консультации
Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не работает ссылка на ячейку другой таблицы через поле после копирования ее на другой лист brokman AutoCAD 9 21.01.2021 12:12
Сбиваются ссылки на ячейки таблицы, т.к. после закрытия файла переопределяется номер таблицы lemurz9 AutoCAD 0 22.01.2020 10:19
Достать "формулу" из ячейки таблицы autocad tsetse LISP 43 23.12.2018 08:48
вставка таблицы из MS Excell baaba Готовые программы 23 11.03.2014 19:47
Выбор значений из таблицы в Excel Малюк Прочее. Программное обеспечение 1 24.04.2008 11:57