Reorder-Renumber based on part list style

[koenroovers]

Hello Everyone,

I have got an Ilogic implemented in the drawing template that reorders and renumbers the part list. For assemblies and weldments this works fine. But for mono drawings it doesn't. Can somebody help me with a line of code that checks the part list style and if it is mono then does nothing?

Mono part list style:

Parts List - Mono (Kieu)

Thanks in advance.

Koen

Code is below:

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oPartsList1 As PartsList
oPartsList1 = oDrawDoc.ActiveSheet.PartsLists.Item(1)
oPartsList1.Sort("Opmerkingen", 1, "Kodenummer", 1)
oPartsList1.Renumber 

[Michael.Navara]

You are looking for this?

If oPartsList1.Style.Name = "Parts List - Mono (Kieu)" Then Return

[koenroovers]

Sadly this is not the solution

[Michael.Navara]

Why not?

[koenroovers]

I receive the following error:

This is the rule i'm using:

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oPartsList1 As PartsList

If oPartsList1.Style.Name = "Parts List - Mono (Kieu)" Then Return 

oPartsList1 = oDrawDoc.ActiveSheet.PartsLists.Item(1)
oPartsList1.Sort("Opmerkingen", 1, "Kodenummer", 1)
oPartsList1.Renumber 

[Michael.Navara · Accepted solution]

You need to set oPartsList1 first (Line 5)

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oPartsList1 As PartsList

oPartsList1 = oDrawDoc.ActiveSheet.PartsLists.Item(1)

If oPartsList1.Style.Name = "Parts List - Mono (Kieu)" Then Return 

oPartsList1.Sort("Opmerkingen", 1, "Kodenummer", 1)
oPartsList1.Renumber 

[koenroovers]

@Michael.Navara 

Thank you very much, this was the solution!

[koenroovers]

Hello @Michael.Navara 

Is there also a way to perform a check if there is a BOM present before executing the rule? 
Sometimes i create drawings without a BOM. And the rule doesn't have to be run in this case. 

[tyler.warner · Accepted solution]

@koenroovers you can add a check for the PartsLists.Count:

Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
oSheet = oDrawDoc.ActiveSheet

If oSheet.PartsLists.Count = 0 Then
	Return
Else
	Dim oPartsList1 As PartsList
	oPartsList1 = oSheet.PartsLists.Item(1)
	
	If oPartsList1.Style.Name = "Parts List - Mono (Kieu)" Then Return 
	Try
		oPartsList1.Sort("Opmerkingen", 1, "Kodenummer", 1)
		oPartsList1.Renumber 
	Catch
	End Try
End If

[koenroovers]

Thank you @tyler.warner this worked!