iLogic – In Assembly change BOM Structure of weld Subassemblies from Inseparable to Normal and back

Anonymous · ‎12-29-2020

Hello everybody,

I need some help in my existing rule. This rule in assembly makes custom iProp in all parts and subassemblies with qty number from BOM. If there are several assemblies, it can also recalculate the number of pieces.

This rule works ok for me, but I need to write number of pieces also in parts of Inseparable subassemblies in Parts Only. This means that the rule must be changed first weld Subassemblies to Normal Bom Structure, then rewrite the number of pieces in Parts Only and then to refund weld Subassemblies to Inseparable Bom Structure.

I rally don't know, how this can be done.

Or someone has a better idea or solution?

Thank you a lot for any help.

Jernej Puc

Sub Main
'Get current document
doc = ThisDoc.Document
  '- - - - - - - - - - - - -Reading the number of pieces from the assembly 1. time- - - - - - - - - - - -
	Dim o_st_kos_Assembly As String = iProperties.Value("Custom", "st_kos")
Dim st_kos_Assembly As String = "" 'create an empty string to pass the digits into

Dim CharArray() As Char = o_st_kos_Assembly.ToCharArray() 'split the string into characters and pass into an array
For Each chara As Char In CharArray
     If Char.IsDigit(chara) Then
	 	st_kos_Assembly = st_kos_Assembly & chara 'look at each character in the array, if it is a digit then concatenate it into the test2 string
     End If
Next

   '- - - - - - - - - - - - -Writing the number of pieces in BOM - - - - - - - - - - - -
Dim oAssyDef As AssemblyComponentDefinition = doc.ComponentDefinition
'Get the BOM object
Dim oBOM As BOM = oAssyDef.BOM
'enable the Parts Only View
oBOM.PartsOnlyViewEnabled = True
'Get the Parts Only view of the BOM
Dim oBOMViewPO As BOMView = oBOM.BOMViews.Item("Parts Only")
'declare variable for each BOM row.
Dim oBOMRowPO As BOMRow

'For each row in the Parts Only BOM, do the following
For Each oBOMRowPO In oBOMViewPO.BOMRows
    'Set a reference to the primary ComponentDefinition of the row
    Dim oCompDef As ComponentDefinition = oBOMRowPO.ComponentDefinitions.Item(1)
    
    'get the full filename associated to the component in the row. ex: c:\temp\part1.ipt
    Dim CompFullDocumentName As String = oCompDef.Document.FullDocumentName
    Dim CompFileNameOnly As String
    'get the location of the last backslash
    Dim index As Integer = CompFullDocumentName.LastIndexOf("\")
    'get the filename only from the full filename
    CompFileNameOnly = CompFullDocumentName.Substring(index+1)
    
    'MessageBox.Show(CompFileNameOnly)
    On Error Resume Next
    'get the Qty value in the current row
    Dim Qty As String = oBOMRowPO.TotalQuantity * CDbl(st_kos_Assembly)'Multiply by the number from assebly
    
    'check to see if the component is a library part, cc part or read only.
    Dim IsLibCCReadonly As Boolean = LibCCReadonlyChecker(CompFullDocumentName)
    
    'if the file is NOT a library part, cc part or read only.
    If IsLibCCReadonly = False Then
        'set following custom iproperty to equal the QTY from the row
        iProperties.Value(CompFileNameOnly, "Custom", "st_kos") = Qty
    End If
Next

'at this time, the qty value for all parts have been copied to the custom property.'next, the following code will cycle through only the subassemblies.

'if the Structured BOM view is enabled then...
If oBOM.StructuredViewEnabled Then
    'If show First Level is set then turn it off. This will set it to All Levels
    If oBOM.StructuredViewFirstLevelOnly Then
        oBOM.StructuredViewFirstLevelOnly = False
    End If
Else
    'enable the Structured BOM view
    oBOM.StructuredViewEnabled = True
    'set the FirstLevelOnly to false therefore make it All Levels
    oBOM.StructuredViewFirstLevelOnly = False
End If

'Get the Structured view of the BOM
Dim oBOMViewStruc As BOMView = oBOM.BOMViews.Item("Structured")
'declare variable for each BOM row.
Dim oBOMRowStruc As BOMRow
'Create a blank array(list). This will be used to store a list of all subassemblies for comparing if the subassembly already exist.
Dim arrSubAssemblyList As New ArrayList

'call a subroutine to cycle through the structured BOM. It will need the collection of rows, the subassembly list, and 1 is the initial parentqty.
Call QueryBOMRowProperties(oBOMViewStruc.BOMRows, arrSubAssemblyList, 1)

End Sub

Private Sub QueryBOMRowProperties(oBOMRows As BOMRowsEnumerator, arrSubAssembly As ArrayList, oParentQty As Integer)

'declare a incrementer variable
Dim i As Long
'for each row in the structured BOM
For i = 1 To oBOMRows.count
    'get the row based on the incrementer
    Dim oBOMRowStruc As BOMRow = oBOMRows.item(i)
    'get the component definition assocated with the row
    Dim oCompDef As ComponentDefinition = oBOMRowStruc.ComponentDefinitions.Item(1)
    Dim oQty As Integer
    
    'If the component is an assembly and it's bom structure is Normal then do the following. else do nothing
    If TypeOf oCompDef Is AssemblyComponentDefinition And oCompDef.BOMStructure = BOMStructureEnum.kNormalBOMStructure Then
            'get the full filename associated to the component in the row. ex: c:\temp\subassembly.iam
            Dim CompFullDocumentName As String = oCompDef.Document.FullDocumentName
            Dim CompFileNameOnly As String
            'get the location of the last backslash
            Dim index As Integer = CompFullDocumentName.LastIndexOf("\")
            'get the filename only from the full filename
            CompFileNameOnly = CompFullDocumentName.Substring(index+1)
            'MessageBox.Show(CompFileNameOnly)
			
   '- - - - - - - - - - - - -Reading the number of pieces from the assembly 2. time- - - - - - - - - - - -
	Dim o_st_kos_Assembly As String = iProperties.Value("Custom", "st_kos")
Dim st_kos_Assembly As String = "" 'create an empty string to pass the digits into

Dim CharArray() As Char = o_st_kos_Assembly.ToCharArray() 'split the string into characters and pass into an array
For Each chara As Char In CharArray
     If Char.IsDigit(chara) Then
	 	st_kos_Assembly = st_kos_Assembly & chara 'look at each character in the array, if it is a digit then concatenate it into the test2 string
     End If
Next           
            'get the qty of the row and multiply by the parent qty.
			'oQty = oBOMRowStruc.ItemQuantity * oParentQty
If CDbl(st_kos_Assembly)=1 Then		
		oQty = oBOMRowStruc.ItemQuantity * CDbl(st_kos_Assembly) * oParentQty 'Multiply by the number from assebly
	Else If (st_kos_Assembly)>1 Then
		oQty = oBOMRowStruc.ItemQuantity * CDbl(st_kos_Assembly) 'Multiply by the number from assebly
    End If  
            
            'create a variable that will be used to get the qty of the subassembly if it was used elsewhere
            Dim additionalQty As Integer = 0
            'if the subassembly list is not empty then...
            If arrSubAssembly.Count <> 0 Then
                'create a counter. this will be used to determine which item in the subassembly array (list) when it finds a match.
                'this counter will be used to edit that item with the new qty.
                Dim counter As Integer = 0
                'for each item in the subassembly array (list) starting at 0 (first item) to last item
                For j As Integer = 0 To arrSubAssembly.Count-1
                    'get the location of the colon
                    Dim commaindex As Integer = arrSubAssembly(j).indexof(":")
                    'get just the file name
                    Dim CompName As String = arrSubAssembly(j).substring(0,commaindex)
                    
                    'if the file name of the current row matches the current item in the subassembly array (list) then...
                    If CompName = CompFileNameOnly Then
                        'set the additional qty to the qty found in the subassembly array (list)
                        additionalQty = arrSubAssembly(j).substring(commaindex+1)
                        'set the counter equal to the item in the subassembly array (list)
                        counter = j
                        'since a match is found, we need to exit the for loop so that counter no longer increments.
                        'so Set j To the number of items in the subassembly array. this will exit out the for loop.
                        j = arrSubAssembly.Count
                    Else
                        'increase the counter
                        counter += 1
                    End If
                Next
                
                'if additional qty was not changed then there was no match. It will be a new item in the subassembly array (list)
                If additionalQty = 0 Then
                    'add the subassambly to the subassembly array (list)
                    arrSubAssembly.add(CompFileNameOnly & ":" & oQty)
                Else
                    'if it did find a match, then update the qty for that item in the subassembly array (list)
                    arrSubAssembly(counter) = CompFileNameOnly & ":" & oQty + additionalQty
                End If
            Else
                'add the first subassembly to the list. It will add the filename and the qty separated by a colon. ex. subassembly.iam:2
                arrSubAssembly.add(CompFileNameOnly & ":" & oQty)
            End If
            
            'check to see if the component is a library part, cc part or read only.
            Dim IsLibCCReadonly As Boolean = LibCCReadonlyChecker(CompFullDocumentName)
            
            'if the File Is Not a library part, cc part Or read only.
            If IsLibCCReadonly = False Then
                'set following custom iproperty to equal the QTY from the row plus the additional qty value
                iProperties.Value(CompFileNameOnly, "Custom", "st_kos") = oQty + additionalQty
				
            
                'Recursively iterate child rows if present.
                If Not oBOMRowStruc.ChildRows Is Nothing Then
                    'recall the subroutine, push the childrows of the sub, sub assembly array (list), and the qty of the subassembly
                    Call QueryBOMRowProperties(oBOMRowStruc.ChildRows, arrSubAssembly, oQty)
                End If
            End If
        End If
    Next
End Sub

Private Function LibCCReadonlyChecker(filename As String) As Boolean
' Get the active project
Dim oProject As DesignProject = ThisApplication.DesignProjectManager.ActiveDesignProject
' Get all the library paths
Dim oLibraryPaths As ProjectPaths = oProject.LibraryPaths
Dim oLibraryPath As ProjectPath

'for each library path in the list of all library paths
For Each oLibraryPath In oLibraryPaths
    'get the library path
    Dim oLibs As String = oLibraryPath.Path
    'if the file is in a library path then Return True
    If filename.Contains(oLibs) = True Then
        Return True
    End If
Next

'if the file is in the CC location then Return True
If filename.Contains(oProject.ContentCenterPath) = True Then
    Return True
End If

'get read only status
Dim File_Attr As Long = System.IO.File.GetAttributes(filename)
'if the file is readonly or readonly and archieve then Return True
If File_Attr = 1 Or File_Attr = 33 Then
    Return True
End If

'return False if it's not a library, CC or a Readonly part.
Return False

End Function

bradeneuropeArthur · ‎12-31-2020

This is not needed.

Take a look at this sample piece of code!

Public Sub aaa()

Dim a As Application
Set a = ThisApplication

Dim b As AssemblyDocument
Set b = a.ActiveDocument

Dim c As ComponentOccurrence

For Each c In b.ComponentDefinition.Occurrences

Dim ass As AssemblyDocument
Set ass = c.Definition.Document
Next

Dim c1 As ComponentOccurrence

For Each c1 In ass.ComponentDefinition.Occurrences

Dim prt As PartDocument
Set prt = c1.Definition.Document

prt.PropertySets.Item(4).######

Next
End Sub

Regards,

Arthur Knoors

Autodesk Affiliations & Links:

Anonymous · ‎01-01-2021

Dear @bradeneuropeArthur,

First of all I would like to wish you a happy and everything good in new year 2021.

Many thanks for your replay and your time.

I am almost new to writing iLogic rules and I need some help to implement some kind of code in to.

What I know is this is a VBA code and I can't use that in the iLogic rule in my case.

Is there any options to make this rule in iLogic?

Thank you a lot for any help.

Jernej Puc

bradeneuropeArthur · ‎01-02-2021

Simply remove the Sets

Regards,

Arthur Knoors

Autodesk Affiliations & Links:

bradeneuropeArthur · ‎01-02-2021


Dim a As Application
a = ThisApplication

Dim b As AssemblyDocument
b = a.ActiveDocument

Dim c As ComponentOccurrence


For Each c In b.ComponentDefinition.Occurrences

Dim ass As AssemblyDocument
ass = c.Definition.Document
Next

Dim c1 As ComponentOccurrence


For Each c1 In ass.ComponentDefinition.Occurrences

Dim prt As PartDocument
prt = c1.Definition.Document

prt.PropertySets.Item(4).######

Next

Regards,

Arthur Knoors

Autodesk Affiliations & Links:

Anonymous · ‎01-02-2021

Dear @bradeneuropeArthur,

Thank you, but I still have two errors:

All the best,

Jernej Puc

bradeneuropeArthur · ‎01-02-2021

You need to fill in the user proprety.

What is the name of the property you need in the parts?

Regards,

Arthur Knoors

Autodesk Affiliations & Links:

Anonymous · ‎01-02-2021

You think like this:

Dim a As Application
a = ThisApplication

Dim b As AssemblyDocument
b = a.ActiveDocument

Dim c As ComponentOccurrence

For Each c In b.ComponentDefinition.Occurrences

Dim ass As AssemblyDocument
ass = c.Definition.Document
Next

Dim c1 As ComponentOccurrence


For Each c1 In ass.ComponentDefinition.Occurrences

Dim prt As PartDocument
prt = c1.Definition.Document

prt.PropertySets.Item(4).iProperties.Value("Custom", "st_kos")

Next

Some problem is also with ass because is not declared correctly.

bradeneuropeArthur · ‎01-02-2021

Dim a As Application
a = ThisApplication

Dim b As AssemblyDocument
b = a.ActiveDocument

Dim c As ComponentOccurrence

For Each c In b.ComponentDefinition.Occurrences

Dim ass As AssemblyDocument
ass = c.Definition.Document
Next

Dim c1 As ComponentOccurrence


For Each c1 In ass.ComponentDefinition.Occurrences

Dim prt As PartDocument
prt = c1.Definition.Document

prt.PropertySets.Item(4).item("st_kos").value = "TESTER"

Next

Regards,

Arthur Knoors

Autodesk Affiliations & Links:

Anonymous · ‎01-02-2021

I still have this error:

bradeneuropeArthur · ‎01-02-2021

You are really new to programming, but does not matter. I will prepare the complete code ASAP for you.

You need to provide me the steps you need with a complete setup of what you need in detail!

Regards,

Arthur Knoors

Autodesk Affiliations & Links:

Anonymous · ‎01-02-2021

Yes you have right, I need to get more basics knowledge. I am so sorry for that.

I need to add in my program only one think:

My problem are just weld assemblies (Inseparable), because they are in Parts Only shown as one part. In Parts Only, with my program I copying the number of pieces (QTY) in parts.

Part Number »Part1« there are 3 pieces in the whole assembly. But my program only overwrites 1 piece. Because weld Assembly »Assembly2« is Inseparable.

In Structured you can see that two pieces »Part1« in weld assembly and 1 piece in normal assembly.

In Structured, with my program I copying the number of pieces (QTY) only in subassemblies.

I just need the program to be able to add up all the existing pieces in the main Assembly and overwrite in all parts and subassemblies in custom iProp »st_kos«.

I hope you understand what i mean. Please let me know if you don't.

Thank you so much.

bradeneuropeArthur · ‎01-02-2021

Dim a As Inventor.Application
a = ThisApplication

Dim b As AssemblyDocument
b = a.ActiveDocument

Dim c As ComponentOccurrence

For Each c In b.ComponentDefinition.Occurrences

Dim ass As AssemblyDocument
ass = c.Definition.Document

MessageBox.Show(ass.FullDocumentName)
Dim c1 As ComponentOccurrence

Try
	For Each c1 In ass.ComponentDefinition.Occurrences

Dim prt As PartDocument
prt = c1.Definition.Document
 MessageBox.Show(prt.FullDocumentName)
'prt.PropertySets.Item(4).iProperties.Value("Custom", "st_kos")

Next
Catch
End Try

Next

Try this to understand better!

Regards,

Arthur Knoors

Autodesk Affiliations & Links:

Anonymous · ‎01-02-2021

Thank you very much for your help and all suggestions.

I solved my problem 😊

All the best,

Jernej Puc

Community

iLogic – In Assembly change BOM Structure of weld Subassemblies from Inseparable to Normal and back

iLogic – In Assembly change BOM Structure of weld Subassemblies from Inseparable to Normal and back

iLogic – In Assembly change BOM Structure of weld Subassemblies from Inseparable to Normal and back