iLogic rule for bending certain thickness

[Anonymous]

Hello,

Can someone help me with an iLogic rule for creating a certain thickness for bending

it should look like this

up to a sheet thickness of 4mm , bend = strength

from 4mm up to 8mm bend=thickness *1,5

from 8mm up to 12mm bend =thickness*2

from 12mm up to 22mm bend=thickness*3

Thank a lot 

[bradeneuropeArthur]

Could you please explain a bit further because I don't understand exact what you need?

[Anonymous]

Well,

In inventor, you can only enter the bending radius value and you have to change it manually for each radius value. 

I want to create a rule to set the bend radius based on the thickness. ( I know it can be performed by setting up the Sheet metal Style but I want a rule for it 🙂 ) 

If ThisApplication.ActiveDocumentType = DocumentTypeEnum.kPartDocumentObject And _
ThisApplication.ActiveDocument.PropertySets.Item("Design Tracking Properties").Item("Document SubType Name").Value = "Sheet Metal" Then
Dim oCD As SheetMetalComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition
If oCD.Thickness.Value <= 4 Then
oCD.BendRadius.Expression = "Thickness"
End If
If oCD.Thickness.Value <= 8 Then
oCD.BendRadius.Expression = "Thickness * 1.5"
End If
If oCD.Thickness.Value <= 12 Then
oCD.BendRadius.Expression = "Thickness * 2"
End If
End if

[bradeneuropeArthur]

If ThisApplication.ActiveDocumentType = DocumentTypeEnum.kPartDocumentObject And ThisApplication.ActiveDocument.PropertySets.Item("Design Tracking Properties").Item("Document SubType Name").Value = "Sheet Metal" Then
	Dim oCD As SheetMetalComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition
	
	If oCD.Thickness.Value <= 4 Then
	oCD.SheetMetalStyles.Item(1).BendRadius ="Thickness"
	End If'	
	
If oCD.Thickness.Value <= 8 Then
oCD.SheetMetalStyles.Item(1).BendRadius ="Thickness * 1.5"
End If
If oCD.Thickness.Value <= 12 Then
oCD.SheetMetalStyles.Item(1).BendRadius ="Thickness * 2"
End If
End If

[bradeneuropeArthur]

Modified.

because the value is in Cm and needs to be multiplied by 10

If ThisApplication.ActiveDocumentType = DocumentTypeEnum.kPartDocumentObject And ThisApplication.ActiveDocument.PropertySets.Item("Design Tracking Properties").Item("Document SubType Name").Value = "Sheet Metal" Then
	Dim oCD As SheetMetalComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition
	
	oCD.SheetMetalStyles.Item(1).BendRadius ="Thickness"
	If oCD.Thickness.Value * 10 <= 4 Then
	oCD.SheetMetalStyles.Item(1).BendRadius ="Thickness"
	End If'	
	
If oCD.Thickness.Value * 10 <= 8 Then
oCD.SheetMetalStyles.Item(1).BendRadius ="Thickness * 1.5"
End If
If oCD.Thickness.Value * 10 <= 12 Then
oCD.SheetMetalStyles.Item(1).BendRadius ="Thickness * 2"
End If
End If

[Anonymous]

i have the following error when i run the rule

Maybe I have to modify something also in editor sheet metal style?