[Lorens]

В Лиспе программирую достаточно уверенно, а вот с технологией ActivX мой первый опыт.

Суть проблемы следующая - есть таблицы ACAD_TABLE, они имеют определенное количество столбцов и неизвестное количество строк. Мне необходимо полностью изменить форматирование - изменить текстовый стиль, высоту, выравнивание...

Написал прогу запустил и... пошел курить, вернулся, взял еще одну сигарету, выкурил... написал этот пост и... программа обработала одну таблицу с 35 строками (а у меня может быть и несколько сотен строк). Вывод вручную поправить быстрее.

Вопрос - я неправильно использую методы или ActivX непригоден для моей задачи??? Акад 2014 английский без ничего.

[Кулик Алексей aka kpblc]

См. свойство RegenerateTableSuppressed

----- добавлено через ~1 мин. -----
И код написан, как бы сказать... Неоптимально. Мне так кажется

[trir]

изменить форматирование - изменить текстовый стиль, высоту, выравнивание

СЮРПРАЙЗ
Проблема возникает если приходится менять ширину столбца, если заведомо выставить её по максимуму...

Да RegenerateTableSuppressed - знал бы раньше...
http://knowledge.autodesk.com/suppor...F3869-htm.html

[Lorens]

Кулик Алексей aka kpblc, Вы мой спаситель. 2 секунды и таблица на 340 строк обработана!!!

Буду очень признателен за рекомендации по оптимизации кода.

[Lorens]

Продолжаю играть с этой прогой. Пытаюсь установить аппаратно тип ряда (Row style) и не могу найти метод для установки. Метод для получения мне известен: getRowType, а вот обратный ему найти не могу ((

[trir]

object.SetCellStyle nRow, nCol, szCellStyle
http://entercad.ru/acadauto.en/

[Lorens]

trir, огромное спасибо, но это изменение свойства Cell Style - свойство ячейки, а мне необходимо изменить свойство ряда. Объясняю зачем это мне надо - автокад с 12 (если не раньше) позволяет "сжимать" таблицу, т.е. она графически превращается в 2, 3, 4 (сколько надо) при этом "шапка" у всех дублируется, но "шапкой" будет считаться только те ряды у которых Row Style = Title... Изменение же типа ячейки ни чем не поможет...

[trir]

object.MergeCells(minRow, maxRow, minCol, maxCol)
Фейрштейн?

[Do$]

Что-то вспоминается мне, что вроде бы программно нельзя задать стиль строке, есть ощущение, что проблема уже всплывала то ли тут, то ли на ADN-CIS.
Если на лиспе кодите, рекомендую рассмотреть вариант использования готовых шаблонов таблиц в отдельном файле и вставлять их в чертеж программно. Это проще и надежней, чем пытаться настраивать программно. Хотя, могут быть и другие мнения...

[Lorens]

Do$, можно и в ручную настроить, благо не так много таблиц за раз обрабатывать надо. Готовый шаблон - это мысль, надо будет ее обсосать. Может, что и придумаю...

В любом случае спасибо, а то я столько времени ухлопал пока искал, а так все ясно - нет, значит НЕТ.

[Do$]

Сообщение от Do$ Что-то вспоминается мне, что вроде бы программно нельзя задать стиль строке, есть ощущение, что проблема уже всплывала то ли тут, то ли на ADN-CIS.

http://bushman-andrey.blogspot.ru/20...autocad_5.html
Строка 402
Получается, что с помощью NET это можно сделать в последних версиях AutoCAD.
С помощью лиспа - нет.

[art_rrc]

Доброго времени суток. Пишу из соседней !закрытой! темы http://forum.dwg.ru/showthread.php?t=115743 . Т.к. закрыли ее видимо из-за наличия этой ветки. Хотя не ясно, как по заголовку этой темы я должен был узнать, что здесь освещается именно мой вопрос. Но не об этом.
К сожалению obj.RegenerateTableSuppressed меня не спас. Заполнение действительно происходит быстрее, но когда дело доходит до назначения стиля ячейке, автокад все равно очень задумывается и даже в мониторе ресурсов windows отображается что он "не отвечает". Подскажите пожалуйста, можно ли на VBA назначать стили не по 1 ячейке, а сразу целым диапазонам?

[Кулик Алексей aka kpblc]

Сначала гасишь регенерацию таблицы, потом меняешь regenmode, потом модифицируешь таблицу и все возвращаешь обратно.

[art_rrc]

Сообщение от Кулик Алексей aka kpblc потом меняешь regenmode

Большое спасибо, этого еще не советовали! На первый взгляд кажется что это именно то, что нужно . Спасибо. Буду пробовать.
Попробовал. Сделал так:

Код:

[Выделить все]

Table.RecomputeTableBlock False
Table.RegenerateTableSuppressed = False
ThisDrawing.SetVariable "REGENMODE", 0

"Обработка таблицы"

ThisDrawing.SetVariable "REGENMODE", 1
Table.RegenerateTableSuppressed = True
Table.RecomputeTableBlock True

Код:

[Выделить все]

Table.RecomputeTableBlock False
Table.RegenerateTableSuppressed = False
ThisDrawing.SetVariable "REGENMODE", 0

nStr = n
w1(0) = 1: w1(1) = 1: w1(2) = 1
w2(0) = 1: w2(1) = 1: w2(2) = 1
Do
    Err.Clear
    ThisDrawing.Utility.GetEntity Table, pnt, vbCrLf & "Выберите таблицу:"
    If Err = 13 Or Err = 91 Then ThisDrawing.Utility.Prompt vbCrLf & "Требуется таблица"
    Loop While Err = 13 Or Err = 91
If Err = -2147352567 Then Exit Sub
Err.Clear
iRow = 12
nRows = Table.Rows
iRowDet = -1
iRowMat = -1
For i = 0 To nRows
    strX = Table.GetText(i, 2)
    If strX = "{\LДетали}" Then
        iRowDet = i
    End If
    Select Case Table.GetText(i, 2)
    Case "{\LДетали}"
        iRowDet = i
    Case "{\LМатериалы}"
        iRowMat = i
    End Select
Next i
If (iRowDet = -1) Or (iRowMat = -1) Or (iRowMat < iRowDet) Then
MsgBox ("Некорректная таблица")
GoTo DavayDoSvidaniya:
End If
nsTabl = iRowMat - iRowDet - 2
rHeight = 8#
iRow = iRowDet + 1
If nStr > nsTabl Then
    'Вставка
    nCells = nStr - nsTabl
    Table.InsertRows iRow, rHeight, nCells
    ElseIf (nStr < nsTabl) Then
    'Удаление
    nCells = nsTabl - nStr
    Table.DeleteRows iRow, nCells
End If
nRows = Table.Rows
nCol = Table.Columns
Call art_Set_Alf(Alf)
For i = 1 To n
Table.SetRowHeight (iRowDet + i), 8#
For j = 0 To nCol
'GoTo next2
Select Case j
    'Форматирование левой части
    Case 0, 1
        Table.SetCellStyle (iRowDet + i), j, "art_Текстовая"
    Case 2
        Table.SetCellStyle (iRowDet + i), j, "art_Диаметр"
    Case 3, 5
        Table.SetCellStyle (iRowDet + i), j, "art_Целая_середина"
    Case 4, 6
        Table.SetCellStyle (iRowDet + i), j, "art_Текстовая_вправо"
    Case 7
        Table.SetCellStyle (iRowDet + i), j, "art_Длина"
    
    Case 8
        Table.SetCellStyle (iRowDet + i), j, "art_Целая"
    End Select
'next2:
    If j < 9 Then
        Table.SetText (iRowDet + i), j, MgSpec(i, j + 1)
        ElseIf j = 9 Then
            strX = CStr(iRowDet + i + 1)
            FCell = "=pi/4*7850/1000000000*h" + strX + "*d" + strX + "^2"
            Table.SetText (iRowDet + i), j, FCell
    End If
Next j
Next i
Table.SetRowHeight (iRowDet + n + 1), 8#

ThisDrawing.SetVariable "REGENMODE", 1
Table.RegenerateTableSuppressed = True
Table.RecomputeTableBlock True

При этом таблица в 25 строк, заполняется примерно 45 сек. При том что я временно выкинул большую часть нужных мне столбцов, и практически все форматирование. Опять же повторюсь, что в ексель все записывает мгновенно. А может быть 45 сек на 25 строк это хороший результат и мне стоит успокоиться? Может нужно использовать не SetText, а SetValue или SetFormula? Это может помочь?

[Кулик Алексей aka kpblc]

Я не вижу в коде, где идет снятие регенерации таблицы

[Александр Ривилис]

art_rrc, В коде всё с точностью до наоборот. До обработки таблицы нужно запретить её регенерацию, т.е.:

Код:

[Выделить все]

Table.RegenerateTableSuppressed = True

а после обработки разрешить регенерацию и выполнить регенерацию таблицы:

Код:

[Выделить все]

Table.RegenerateTableSuppressed = False
Table.RecomputeTableBlock(True)

P.S.: Подозреваю, что это от незнания английского:
Suppress - подавить (т.е. RegenerateTableSuppressed - регенерация таблицы подавлена)

[art_rrc]

Буду уже в понедельник дальше экспериментировать. Ваши советы очень полезны! Спасибо!
Добавлено:

Подправил код, теперь он выглядит так:

Код:

[Выделить все]

ThisDrawing.SetVariable "REGENMODE", 0 'Отключить авторегенерацию
Table.RegenerateTableSuppressed = True 'Подавить регенерацию таблицы
Table.RecomputeTableBlock False 'Отключить пересчет таблицы

"Обработка таблицы"

Table.RecomputeTableBlock True
Table.RegenerateTableSuppressed = False
ThisDrawing.SetVariable "REGENMODE", 1

Но для таблицы 10х10(таблица уже создана в пространстве модели) получил такие результаты:
1) Вставка/удаление строк - 0.1 сек.
2) Только заполнение ячеек - 8 сек.
3) Только форматирование ячеек (точнее только задание стиля ячейкам, остальное отключил) - 5 сек.
4) Заполнение+форматирование - 26 сек (хотя вроде 8+5=13 должно быть).

Неужели все равно я что-то делаю не так? Кажется, уже все варианты перепробывал, результата нет. Еще появилось ощущение, что я просто хожу по кругу и задаю глупые вопросы... Уже и программы то почти не осталось, все выключено, обрезано, выкинуто, осталась только сплошная война с таблицами...

[art_rrc]

Еще раз всем спасибо за советы! Вы мне очень помогли добиться более адекватной скорости работы. На днях закончил первый вариант програмки составления спецификаций. Тема конечно не нова, но я постарался сделать нечто новое (по крайней мере в автокаде такого еще не видел). Все почему-то вокруг екселя бубнами машут... Хотя все можно сделать в чистом автокаде без лишних файлов и прокси-объектов. Если кому интересно, вот условный пример работы: https://www.youtube.com/watch?v=MRVEkxov5mI

И еще подскажите пожалуйста, чем нибудь отличаются:
Table.SetText i,j,"" от Table.DeleteCellContent i,j или
Table.SetText i,j,"=1+1" от Table.SerFormula i,j,X,"=1+1"

И что это за парамерт такой x - nContent as Long??? Спасибо!