Присвоение сгибу нового радиуса и коэффициента

[bionorica2015]

Здравствуйте
Есть такой код:

Код Выделить Развернуть

...
Dim part As KompasAPI7.iSheetMetalContainer
Set part = doc.TopPart

Dim sheetbends As KompasAPI7.SheetMetalBends
Set sheetbends = part.SheetMetalBends
                 
           
Dim sheetbendscount As Long
sheetbendscount = sheetbends.count

For i = 0 To sheetbendscount - 1     
     With sheetbends.SheetMetalBend(i)
        .BendCoefficient = 0.4
        .radius = 1.5
        .Update
     End With
Next i
...
Почему сгибу не присваиваются новый радиус и коэффициент?
Самое интересное это то, что если у радиуса и у коэффициента стоят переменные, то не присваиваются, а если просто цифры то этот код работает.
Версия Компаса v16

[Михаил88]

Можно тогда через переменные изменять.

[bionorica2015]

Можно тогда через переменные изменять.

Переменные в коде или переменные в редакторе переменных(Fx)?

[Михаил88]

Те что в компасе их можно тоже менять через api. Я говорю про дерево переменных.

[Михаил88]

Код Выделить Развернуть

sheet_metal_bends = sheet_metal_container.SheetMetalBends
sheet_metal_bend = sheet_metal_bends.SheetMetalBend(4)

sheet_metal_bend.Radius = 1.5
sheet_metal_bend.BendCoefficient = 0.5

sheet_metal_bend.Update()

проверил в компас 18.1 работает нормально

[Михаил88]

Те что в компасе их можно тоже менять через api. Я говорю про дерево переменных.

Обходной вариант.

Код Выделить Развернуть

feature7 = sheet_metal_bend.Owner
variables = feature7.Variables(False, False)
for variable in variables:
    parameter_note = variable.ParameterNote
    if parameter_note == "Коэффициент":
        variable.Value = 0.4
part7.Update()
part7.RebuildModel(True)
kompas_document_3d.RebuildDocument()

Если нужно сохранить ссылку на переменную, тогда получаем имя переменной, которое стоит в выражении для переменной, отвечающей за коэф. или радиус, и потом уже меняем значение в самой переменной. Если ссылка на переменную не нужна, тогда можно изменить так, как я написал выше.

[bionorica2015]

Обходной вариант.

Код Выделить Развернуть

feature7 = sheet_metal_bend.Owner
variables = feature7.Variables(False, False)
for variable in variables:
    parameter_note = variable.ParameterNote
    if parameter_note == "Коэффициент":
        variable.Value = 0.4
part7.Update()
part7.RebuildModel(True)
kompas_document_3d.RebuildDocument()

Если нужно сохранить ссылку на переменную, тогда получаем имя переменной, которое стоит в выражении для переменной, отвечающей за коэф. или радиус, и потом уже меняем значение в самой переменной. Если ссылка на переменную не нужна, тогда можно изменить так, как я написал выше.

Этот вариант хорош но мне нужно именно через

Код Выделить Развернуть

sheet_metal_bends = sheet_metal_container.SheetMetalBends
sheet_metal_bend = sheet_metal_bends.SheetMetalBend(4)

sheet_metal_bend.Radius = 1.5
sheet_metal_bend.BendCoefficient = 0.5

sheet_metal_bend.Update()
Но этот код и мой не меняют коэфф и радиусы:

Код Выделить Развернуть

...
Dim part As KompasAPI7.iSheetMetalContainer
Set part = doc.TopPart

Dim sheetbends As KompasAPI7.SheetMetalBends
Set sheetbends = part.SheetMetalBends
                 
           
Dim sheetbendscount As Long
sheetbendscount = sheetbends.count

For i = 0 To sheetbendscount - 1     
     With sheetbends.SheetMetalBend(i)
        .BendCoefficient = 0.4
        .radius = 1.5
        .Update
     End With
Next i
...

Вообщем странно почему не получается менять R и K через iSheetMetalContainer

[bionorica2015]

Убрал .Update() теперь присваиваются новые радиусы и коэфф. но вот как (см. скрин)
Скрин: https://cloud.mail.ru/public/gtiE/kB6ommzYo

То есть и старые и новые радиусы и коэфф. остаются - точнее приравниваются друг другу)))

[Михаил88]

А Вы уверены, что вы правильно  iSheetMetalContainer получаете?

[bionorica2015]

А Вы уверены, что вы правильно  iSheetMetalContainer получаете?

Вот как тут:
https://forum.ascon.ru/index.php?msg=296639

[bionorica2015]

А Вы уверены, что вы правильно  iSheetMetalContainer получаете?

Вот поменял как надо, но всё равно радиус и коэфф не меняются.

Код Выделить Развернуть

         Dim doc As KompasAPI7.KompasDocument
         Set doc = docs.Open(ThisFolder & "\" & ThisFile, True, False)
         ThisFile = Dir


         Dim doc3d As KompasAPI7.KompasDocument3D
         Set doc3d = doc
         
         Dim part3d As Part7
         Set part3d = doc3d.TopPart

         Dim sheetMetalContainer As KompasAPI7.iSheetMetalContainer
         Set sheetMetalContainer = part3d

         Dim sheetbends As KompasAPI7.SheetMetalBends
         Set sheetbends = sheetMetalContainer.SheetMetalBends


[Михаил88]

Делайте обходным путем, как я написал да и все. Я же писал, что в к18.1 работает. Значит возможно в к16 ошибка в API.

[p3452]

Все-таки кодеры на Python и Basic могут себе позволить СЛИШКОМ много вольностей...

Например, на C# код из поста №1 - гарантированные ошибки...
Но если подправить немного:
- явное приведение типа на каждом шаге,
- не radius, а Radius,
- не Update, а Update()
то код, вполне, заработает и на C#...

[bionorica2015]

Все-таки кодеры на Python и Basic могут себе позволить СЛИШКОМ много вольностей...

Например, на C# код из поста №1 - гарантированные ошибки...
Но если подправить немного:
- явное приведение типа на каждом шаге,
- не radius, а Radius,
- не Update, а Update()
то код, вполне, заработает и на C#...

VBA сам подправляет на нижний регистр и убирает скобки...

Век живи - век учись, всё равно дураком помрёшь.

[bionorica2015]

Делайте обходным путем, как я написал да и все. Я же писал, что в к18.1 работает. Значит возможно в к16 ошибка в API.

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

[p3452]

bionorica2015 - Да Вы, "братец" - ХАМ!"
Ну, с этим "клеймом" и "живите"...

[lavgirb]

VBA сам подправляет на нижний регистр...

Есть такое дело. Некоторые свойства и методы меняют регистр.
Тому есть причины, предположительные.
Но VBA - регистронезависмый язык. И регистр свойств и методов не изменяет их работу.

[bionorica2015]

Код Выделить Развернуть

sheet_metal_bends = sheet_metal_container.SheetMetalBends
sheet_metal_bend = sheet_metal_bends.SheetMetalBend(4)

sheet_metal_bend.Radius = 1.5
sheet_metal_bend.BendCoefficient = 0.5

sheet_metal_bend.Update()

проверил в компас 18.1 работает нормально

Попробовал в 21, 22, 23 версиях -не работает(
Точнее до Update вроде как присваивается, но после Update возвращается к исходным значениям. До Update происходит такое присвоение: например  должен присвоить 0.4. У меня в коэффициенте стоит SM_K и он равен 0.35. В ячейке коэффициента такая запись: 0.4=SM_K +0.05 )))
Может если в ячейке стоит переменная нужно как-то сбрасывать через какой-то метод?!

[p3452]

Извинитесь за хамство - подскажу...

[Михаил88]

Попробовал в 21, 22, 23 версиях -не работает(
Точнее до Update вроде как присваивается, но после Update возвращается к исходным значениям. До Update происходит такое присвоение: например  должен присвоить 0.4. У меня в коэффициенте стоит SM_K и он равен 0.35. В ячейке коэффициента такая запись: 0.4=SM_K +0.05 )))
Может если в ячейке стоит переменная нужно как-то сбрасывать через какой-то метод?!

Работает и в 16.1 и в 18.1, но с оговоркой, как выяснилось. Если создать сгиб и сразу подтвердить создание не меняя длину то работает. Если поменять длину вручную через редактирование сгиба то перестает работать.