Recognize bending in sheet metal parts

[Anonymous]

Hi,

Is it possible with VBA or ilogic that Inventor can recognize if a sheet metal part is just flat or that a bending exist?

I would like an automatic Iproperty of choice to be filled in if there is a bend in the plate part..

This would make sorting much easier for me.

I hope someone can help me with this.
Thanks in advance.

Regards.
Jeffrey

[bradeneuropeArthur]

Public Sub main()

Dim a As Application
Set a = ThisApplication

Dim b As PartDocument
Set b = a.ActiveDocument

Dim sm As SheetMetalComponentDefinition
Set sm = b.ComponentDefinition

MsgBox sm.Bends.Count

End Sub

[Anonymous]

Hi,

Thanks for your help.

Where should I indicate in which iProperty it must be completed?

I don't have so much experience in these thinks yet..

Regards,

Jeffrey

[bradeneuropeArthur]

this:

Public Sub main()

Dim a As Application
Set a = ThisApplication

Dim b As PartDocument
Set b = a.ActiveDocument

Dim sm As SheetMetalComponentDefinition
Set sm = b.ComponentDefinition

MsgBox sm.Bends.Count

If sm.Bends.Count > 0 Then

Dim customProp As Property
On Error Resume Next
Set customProp = b.PropertySets.Item(4).Item("CustomProp").Value = "CustomProp"
Set customProp = b.PropertySets.Item(4).Add("Bend Exist", "CustomProp")

End If
End Sub

Regards,

Autodesk Software: Inventor Professional 2018 | Vault Professional 2018 | Autocad Mechanical 2018
Programming Skills: Vba | Vb.net (Add ins Vault / Inventor, Applications) | I-logic
Dimension Component! | Partlist Export! | Derive I-properties! | Vault Prompts Via API! | Vault Handbook/Manual!
Drawing Toggle Sheets! | Vault Defer Update!

! For administrative reasons, please mark a "Solution as solved" when the issue is solved !

[Anonymous]

SyntaxEditor Code Snippet

Public Sub Main()

Dim a As Application
Set a = ThisApplication

Dim b As PartDocument
Set b = a.ActiveDocument

Dim sm As SheetMetalComponentDefinition
Set sm = b.ComponentDefinition

MsgBox sm.Bends.Count

If sm.Bends.Count > 0 Then

Dim customProp As Property
On Error Resume Next
Set customProp = b.PropertySets.Item(4).Item("Bending").Value = "CustomProp"
Set customProp = b.PropertySets.Item(4).Add("Bend Exist", "Bending")

End If
End Sub

Did I fill it in so well? (name iproperty = bending)

Because I get some errors..

Rule Compile Errors in Bending, in 21629.ipt

Error on Line 4 : Let- en Set-toewijzingsinstructies worden niet langer ondersteund.
Error on Line 7 : Let- en Set-toewijzingsinstructies worden niet langer ondersteund.
Error on Line 10 : Let- en Set-toewijzingsinstructies worden niet langer ondersteund.
Error on Line 12 : Methodeargumenten moeten tussen haakjes worden geplaatst.
Error on Line 16 : Het sleutelwoord benoemt geen type.
Error on Line 18 : Let- en Set-toewijzingsinstructies worden niet langer ondersteund.
Error on Line 19 : Let- en Set-toewijzingsinstructies worden niet langer ondersteund.

Regards,

Jeffrey

[bradeneuropeArthur]

the code is for VBA:

for illogic:

remove all "set"

Public Sub Main()

Dim a As Application
a = ThisApplication

Dim b As PartDocument
b = a.ActiveDocument
Dim sm As SheetMetalComponentDefinition
sm = b.ComponentDefinition

MsgBox sm.Bends.Count

If sm.Bends.Count > 0 Then

Dim customProp As Property
On Error Resume Next
customProp = b.PropertySets.Item(4).Item("Bending").Value = "Bend Exist"
customProp = b.PropertySets.Item(4).Add("Bend Exist", "Bending")

End If
End Sub

[Anonymous]

I still have a error left..

Sorry but I can not fix this myself 

Rule Compile Errors in Bending, in 21629.ipt

Error on Line 11 : Methodeargumenten moeten tussen haakjes worden geplaatst.
Error on Line 15 : Het sleutelwoord benoemt geen type.

[bradeneuropeArthur]

set your project to "straight Vba Code"

[Anonymous]

I have adjusted that now.

One error left:

Rule Compile Errors in Bending, in 21634.ipt

Error on Line 1 : De instructie is niet geldig in een naamruimte.

[bradeneuropeArthur]

Dim a As inventor.Application

a = ThisApplication

[Anonymous]

Still have a error..

Rule Compile Errors in Bending, in 21634.ipt

Error on Line 1 : De instructie is niet geldig in een naamruimte.

This is the code right now:

SyntaxEditor Code Snippet

Public Sub Main()

Dim a As Inventor.Application
Set a = ThisApplication

Dim b As PartDocument
Set b = a.ActiveDocument

Dim sm As SheetMetalComponentDefinition
Set sm = b.ComponentDefinition

MsgBox sm.Bends.Count

If sm.Bends.Count > 0 Then

Dim customProp As Property
On Error Resume Next
Set customProp = b.PropertySets.Item(4).Item("Bending").Value = "CustomProp"
Set customProp = b.PropertySets.Item(4).Add("Bend Exist", "Bending")

End If
End Sub

[bradeneuropeArthur]

tested and it works now:

Public Sub Main()
Dim a As Inventor.Application
a = ThisApplication

Dim b As PartDocument
 b = a.ActiveDocument

Dim sm As SheetMetalComponentDefinition
 sm = b.ComponentDefinition

MsgBox (sm.Bends.Count)

If sm.Bends.Count > 0 Then

Dim customProp As Inventor.Property
On Error Resume Next
 customProp = b.PropertySets.Item(4).Item("Bending").Value = "CustomProp"
customProp = b.PropertySets.Item(4).Add("Bend Exist", "Bending")

End If
End Sub

[Anonymous]

Strange..

If I do Save & Run i do not get any errors but nothing happens when I look to the custom properties..

When I run the rule again in the Ilogic browser I get the error..

Error on Line 1 : De instructie is niet geldig in een naamruimte.   (The statement is not valid in a namespace.)

Regards,

Jeffrey

[bradeneuropeArthur]

Remove the public sub main and the end sub from this module...

[Anonymous]

Hi,

Sorry but I realy do not understand what you mean..

I tried diferent thinks but keep getting errors everytime.

Could you possibly place the complete code as it should be?

Regards,

Jeffrey

[bradeneuropeArthur]

I already provided you the working Code but there must be something wrong or different on your side. I am far away from my desktop so I can help you on this earliest Monday. Could you please send me a private message with a link to this topic so I will not forget.

Regards.

[bradeneuropeArthur]

could you please provide me the complete code you are using?

[Anonymous]

Hi,

I used the same code as the one that works for you.

Public Sub Main()
Dim a As Inventor.Application
a = ThisApplication

Dim b As PartDocument
 b = a.ActiveDocument

Dim sm As SheetMetalComponentDefinition
 sm = b.ComponentDefinition

MsgBox (sm.Bends.Count)

If sm.Bends.Count > 0 Then

Dim customProp As Inventor.Property
On Error Resume Next
 customProp = b.PropertySets.Item(4).Item("Bending").Value = "CustomProp"
customProp = b.PropertySets.Item(4).Add("Bend Exist", "Bending")

End If
End Sub

Error on Line 1 : De instructie is niet geldig in een naamruimte.

Regards,

Jeffrey

[bradeneuropeArthur]

could you please provide the ipt too?

[Anonymous]

Hi,

I have attached the file.

I also tested it with a different file.

Regards,

Jeffrey