Copy part number.iam to custom column in BOM with iLogic

[BRLMCHKD]

Hi there.

Could someone give me an idea, how to copy part number

to the custom column in BOM by use of iLogic - is it possible?

Thank you 

BRLMCHKD

[bradeneuropeArthur]

Create a custom Property ie
"CompPartNumber" with the expression "=<Part Number>" (no "")

so no ilogic needed for this

[clutsa]

This should set the property to all first level parts...(needs tested against  sub-assemblies)

Dim app As Inventor.Application = ThisApplication
Dim doc As AssemblyDocument = app.ActiveDocument
Dim compDef As ComponentDefinition = doc.ComponentDefinition
Dim occ As ComponentOccurrence
For Each occ In compDef.Occurrences
	iProperties.Value(occ.Name, "Custom", "CustomColumnNameHere") = ThisDoc.FileName(False)
Next

I couldn't figure out how to make the custom column show in the BOM though... I imagine you can do an Import BOM Customization with something like

Dim BOM As BOM = compDef.BOM
BOM.ImportBOMCustomization("C:\Users\[userNameHere]\Desktop\CustomBOMExportNameHere.xml")

[Curtis_Waguespack]

Hi @BRLMCHKD

You can use something like the first example to get the 9 right most characters of the assembly file name and  then write that value to a custom iproperty in each occurrence file.

If the part number is not always 9 characters then we could use the ")" character to find the start point of the part number, as in the 2nd example.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Dim HasDrawing_List As New ArrayList
' Get the active document. This assumes it is a part document.
Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition


oPN = Right(ThisDoc.FileName(False),9)


'Iterate through all of the occurrences
Dim oOccurrence As ComponentOccurrence
For Each oOccurrence In oAsmCompDef.Occurrences.AllReferencedOccurrences(oAsmCompDef)  
	
	oDDoc = oOccurrence.Definition.Document
	iProperties.Value(oOccurrence.Name, "Custom", "Detail Dwg") = oPN

Next

Dim HasDrawing_List As New ArrayList
' Get the active document. This assumes it Is a part document.
Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition

Dim oName As String
oName = ThisDoc.FileName(False) 'without extension
'Get length Of file name 
oLen = Len(oName)
'find the postion Of the last ) In the name
oPos = InStrRev(oName, ")",-1) 

'Get middle part Of String starting at
'position Of ), +1 
oPN = Mid(oName,oPos+1,(oLen - oPos) )



'Iterate through all of the occurrences
Dim oOccurrence As ComponentOccurrence
For Each oOccurrence In oAsmCompDef.Occurrences.AllReferencedOccurrences(oAsmCompDef)  
    
    oDDoc = oOccurrence.Definition.Document
    iProperties.Value(oOccurrence.Name, "Custom", "Detail Dwg") = oPN

Next

[BRLMCHKD]

Hi bradeneurope.

[bradeneuropeArthur]

You asked for the Part Number!

The Part Number is the Same as shown in your pictures.

Do you have an overview what you understand with Part Number?

Regards,

[BRLMCHKD]

Hi.

I have to update my wish, to avoid misunderstandings.

See my updated snag shot of what I'm trying to automate.

Many thanks for all your kind answers 

[BRLMCHKD]

Hi.

I have tried your iLogic, and found it working, on the basis of the first assumptions I gave in my question.

But I have just learned that the Detail Dwg column, must follow the part numbers that vary with different numbers,

in the assembly.

Therefore my question remains open, see my last uploaded revised question 

[bradeneuropeArthur]

Hi,

Differs your partnumber (Inventor Part Number) in length and format?

[BRLMCHKD]

Hi.

Yes my partnumber do differs, but the prefix always starts with the same number of digits like e.g.s below.

10270 HAH20 052 Noz6_45degLeft.ipt

10390 HAH10 025 CbFl1.ipt

10400 HAH30 010 InletNoz.ipt

The digits i wants to copy, is number 7 to 15 (the underlined)  

KR

[bradeneuropeArthur]

ok that is clear.

do you like to add a ilogic code to your part(s) or do you like to have an ilogic code in your assembly (only)?

[BRLMCHKD]

Hi.

I think the simplest solution for me, would be to have an iLogic code in the assembly 

[bradeneuropeArthur]

let's give it a try......

[bradeneuropeArthur]

Public Sub PartNumber()

Dim a As AssemblyDocument
Set a = ThisApplication.ActiveDocument

Dim b As AssemblyComponentDefinition
Set b = a.ComponentDefinition

Dim c As ComponentOccurrence

For Each c In b.Occurrences

MsgBox c.Name

Dim x As Document

Set x = c.Definition.Document

MsgBox x.DisplayName
Dim Partnumber As String
Partnumber = VBA.Left(x.DisplayName, 15)

Partnumber = VBA.Right(Partnumber, 8)
Dim p As Property
On Error Resume Next
x.PropertySets.Item(4).Add Partnumber, "detail dwg"
If Error Then
Set p = x.PropertySets.Item(4).Item("detail dwg")
p.Value = Partnumber
Err.Clear
End If
MsgBox x.PropertySets.Item(1).Item(1).Name

Next

[bradeneuropeArthur]

for I logic:

 Sub Main()

Dim a As AssemblyDocument
a = ThisApplication.ActiveDocument

Dim b As AssemblyComponentDefinition
b = a.ComponentDefinition

Dim c As ComponentOccurrence

For Each c In b.Occurrences

MsgBox (c.Name)

Dim x As Document

x = c.Definition.Document

MsgBox (x.DisplayName)
Dim Partnumber As String
Partnumber = Left(x.DisplayName, 15)

Partnumber = Right(Partnumber, 8)
Dim p As Inventor.Property
Try
x.PropertySets.Item(4).Add (Partnumber, "detail dwg")	
Catch ex As Exception
	
	End Try
		
p = x.PropertySets.Item(4).Item("detail dwg")
p.Value = Partnumber


MsgBox (x.PropertySets.Item(1).Item(1).Name)

Next
End Sub

[BRLMCHKD]

Hi.

Maybe it's not so simpel / easily to do that task with iLogic (?)

It's no big matter, it had just been a help /smart work around to avoid manually entering these numbers 

[bradeneuropeArthur]

please remove the msgboxes.

are you a little familiar with programming?

[BRLMCHKD]

Hi.

No I am not very familiar with programming, but try with great energy to learn something basic knowledge of iLogic 🙂

But I guess I can just remove the msg boxes with putting the (') in front of them

'MsgBox (#.###)

[bradeneuropeArthur]

that is correct...

[BRLMCHKD]

Hi Brad.

Your rule seems to work correctly, at least partly.

Correcting in BOM of the detail drwg. numbers works correct.

But now it seems, that I cannot be able to make 'Copy Design' in Vault, of the particular iam, where I was testing your rule(?)  Do you got a clue of what can be wrong?