Отправлено: 29.07.05 13:38. Заголовок: Изменение размеров TitleBlock'a

При попытке изменить значение существующего размера отрезка VBA ругается.
Может нельзя впринципе?

 Отправлено: 29.07.05 18:54. Заголовок: Re:

просто любопытно, что Вы имели в виду?

 Отправлено: 29.07.05 20:25. Заголовок: Re:

Sdm, да в скетчах на чертежах такое явление есть. Не понятно с чем это связано, возможно не доработка разработчиков. В своё время хотел сходить на ихний форум, да что то руки не дошли... может ты им проблему сформулируешь и напишешь потом что они тебе ответили?

 Отправлено: 01.08.05 12:50. Заголовок: Re:

student пишет:

цитата

---

просто любопытно, что Вы имели в виду?

---

Имеем TitleBlock, внутри которого - образмеренные отрезки. При попытке программно изменить значение размера любого отрезка VBA говорит, что мол ошибка

Антикульманист
Благодарю за ответ, я уже замучался, не пойму, что не так делаю, в модели вроде работает. Странно. Внешне организация скетчей в модели и в чертеже вроде так схожа, а вот программно такие нюансы...
Антикульманист пишет:

цитата

---

может ты им проблему сформулируешь

---

Постараюсь, если руки дойдут

 Отправлено: 01.08.05 13:16. Заголовок: Re:

А может более правильно редактировать не TitleBlock, а TitleBlockDefinition?

 Отправлено: 01.08.05 15:24. Заголовок: Re:

brigval
Я его и редактирую, не работает. ВБАшного опыта почти нет, так вот и думаю - может всёже я туплю...

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oTitleBlockDef As TitleBlockDefinition
Set oTitleBlockDef = oDrawDoc.TitleBlockDefinitions.Item(1)

Dim oSketch As DrawingSketch
Set oSketch = oDrawDoc.TitleBlockDefinitions.Item(1).Sketch

Call oTitleBlockDef.Edit(oSketch)
oSketch.DimensionConstraints.Item(1).Parameter.Value = 0.8
oTitleBlockDef.ExitEdit (True)

End Sub

...не пашет

 Отправлено: 01.08.05 16:36. Заголовок: Re:

Посмотрел в хелпе. Если верить описанию, это свойство только для чтения. То-есть это значение можно прочитать, а изменить нельзя.
DrawingSketch.DimensionConstraints Property Read-only property that returns a collection of all dimension constraints on the sketch.
Syntax
DimensionConstraints() As DimensionConstraints

Необходимо поискать какой-нибудь другой путь.
Я сам с размерами, правда, еще не возился.

 Отправлено: 01.08.05 19:35. Заголовок: Re:

Проверил тотже код в 10-ке демо. Работает. Видимо подкрутили программеры...
Так что, жизнь становится лучше, жить становится веселее.
10-ка рулеz! Где бы только денег на неё достать...

Хотя в хелпе от AIP10 сказано:
DimensionConstraints Property (DrawingSketch)
Description:
Read-only property that returns a collection of all dimension constraints on the sketch.

Property type:
Read-only property

Syntax (Visual Basic):
Public Property DimensionConstraints() As DimensionConstraints

???
Может забыли хелп подправить :)