Excel таблица в чертеже

[filat]

Да, реализация через удаление - это самый надежный метод, но и у него есть минус: в новой таблице ширина колонок слетает...

[mikazakov]

: в новой таблице ширина колонок слетает...

А на таблицы чертежные стили не распространяются?

[filat]

: в новой таблице ширина колонок слетает...

А на таблицы чертежные стили не распространяются?

Ну не будешь же под каждую таблицу свой стиль создавать - ИМХО
Но в целом, вопрос решаемый - добавляется два цикла: считывание массива ширин колонок в старой таблице(до удаления) и возврат данных из массива в новую таблицу:

Код - vb.net [Выбрать]

1. For i2 = 1 To oCTable.Columns.Count
2.     oCTable.Columns.Item(i2).Width = oWidth(i2)
3. Next

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

Но в целом, вопрос решаемый - добавляется два цикла: считывание массива ширин колонок в старой таблице(до удаления) и возврат данных из массива в новую таблицу:

Зачем два цикла если достаточно одного: цикл по колонкам старой таблицы и сразу присвоение ширин колонкам новой таблицы? И только после этого старая таблица удаляется. Конечно это справедливо только для случая, когда количество колонок в таблицах совпадает.

[filat]

Новая таблица получается методом копирования файла старой таблицы - поэтому количество колонок одинаково всегда.
Да, старую таблицу можно у далить и после вставки новой.

[filat]

For i2 = 1 To oCTable.Columns.Count
    oCTable.Columns.Item(i2).Width = oWidth(i2)
Next

Что-то я не понимаю: Width  похоже только для чтения?

[mikazakov]

это вопрос по экселю? или по инвенторовской таблице?

[filat]

это вопрос по экселю? или по инвенторовской таблице?

Это по экселевской таблице в инвенторе - CustomTables

[mikazakov]

в инвенторе - CustomTables

Судя по описанию Column.Width в кастом тэйбл должно редактироватьсяъ
Может тебе документ.апдейт вызвать?


Column.Width Property

Parent Object: Column

Description

Specifies the width of the column.

Syntax
Column.Width() As Double
Property Value
This is a read/write property whose value is a Double.

[filat]

Пробовал Дабл



Еще пробовал Integer - пишет про тоже Int32...

[mikazakov]

запусти, это у меня сработало

Код - Visual Basic [Выбрать]

1. Sub ff()
2. Dim oDrw As DrawingDocument: Set oDrw = ThisApplication.ActiveDocument
3. Dim ff As CustomTable: Set ff = oDrw.ActiveSheet.CustomTables(1)
4. ff.Columns(1).Width = (10)
5. End Sub
6.  

Почему твое не срабатывает трудно сказать

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

Почему твое не срабатывает трудно сказать

Мне почему-то кажется, что ошибка в коде filat не на строке

Код - Visual Basic [Выбрать]

1. oCTable.Columns.Item(1).Width = oWidth

а где-то раньше.
Или вместо этой строки должно быть (т.е. Item не нужно):

Код - Visual Basic [Выбрать]

1. oCTable.Columns(1).Width = oWidth

[R.I.Chernov]

В C# ширина столбца задается так:

Код - C# [Выбрать]

1. customTable.Columns[1].Width = 55;

, где customTable - ссылка на таблицу.

oCTable.Columns.Item(1).Width = oWidth

Так что по идее должно работать

[R.I.Chernov]

Глупость коненчо, но может стоит попробовать ширину задавать интом, а не даблом? Или, наоборот, присвоить oWidth = 6.0

[filat]

Ребята, вот у вас работает изменение ширины таблицы - это именно таблица эксель вставленная в чертеж? в каких АИ проведен опыт?

ff.Columns(1).Width = (10)

для чего установлены скобки вокруг числа?

чуть позже выложу файлы моего примера - может в файле что не так...