Ilogic Изменение правила развертывания по умолчанию в элементе.

[expgtn 0]

Здравствуйте! Всю голову сломал. Имеется задача: В многотельной листовой детали, в определенных элементах, менять "Правило обработки деталей из листового металла". Общее правило в детали поменять могу, могу прочесть имя элемента, где нужно изменить правило (Фланец по контуру), могу прочитать имя текущего правила в элементе. Но вот как его изменить - ума не приложу. 

    ' Set a reference to the sheet metal document.
    ' This assumes a part document is active.
    Dim oPartDoc As PartDocument
    oPartDoc = ThisApplication.ActiveDocument
    Dim oSheetMetalCompDef As SheetMetalComponentDefinition
    oSheetMetalCompDef = oPartDoc.ComponentDefinition
	
	
    ' Display then name of the active style.
    MessageBox.Show("Active Sheet Metal Style: " & oSheetMetalCompDef.ActiveSheetMetalStyle.Name)
    
    ' Iterate through the features looking specifically for sheet metal features.
    Dim oFeature As PartFeature
    For Each oFeature In oSheetMetalCompDef.Features
        If oFeature.Type=kContourFlangeFeatureObject Then
                Dim oContourFlangeFeature As ContourFlangeFeature
                oContourFlangeFeature = oFeature
				If oContourFlangeFeature.Name="Фланец по контуру_1" Then
                	MessageBox.Show("Contour Flange Feature: " & oContourFlangeFeature.Name)
					Dim oCFMetalStyle As SheetMetalStyle
					oCFMetalStyle=oContourFlangeFeature.Definition.SheetMetalRule
					oCFMetalStyle.Name = "0.7"
				End If                            
		End If
    Next
iLogicVb.UpdateWhenDone = True

К сожалению, в VBA не силен, в основном все методом копипастинга и тыка делаю. Коллеги, буду признателен за подсказки