Update part list style with ilogic

[Anonymous]

Hello,

I recently updated my parts list styles and now I want to update some existing drawings.

I've already updated the style with the help of the Add-In ''Batch update styles''.

So far so good..

When I open a drawing with the updated styles, the parts list is not automatically renewed.

I must first click on the parts list and then select the parts list again in the annotate menu so that it is refreshed.

Could someone help me to get this done automatically with the help of ilogic or something similar?

I hope someone can help me with this! 

Regards,

Jeffrey

[chandra.shekar.g]

@Anonymous,

Try below iLogic code to change partslist style. Before running code, need to update the name of PartsListStyle in code.

Sub Main()
    Dim oDoc As DrawingDocument
    oDoc = ThisApplication.ActiveDocument
    
    Dim oStyleMgr As DrawingStylesManager
    oStyleMgr = oDoc.StylesManager
    
    Dim oPartListStyle As PartsListStyle
    oPartListStyle = oStyleMgr.PartsListStyles.Item("Parts List (ANSI-AIP)")
    
    Dim oPartsList As PartsList
    For Each oPartsList In oDoc.ActiveSheet.PartsLists
        oPartsList.Style = oPartListStyle
    Next
End Sub

Please feel free to contact if there is any queries.

If solves problem, click on "Accept as solution" / give a "Kudo".

Thanks and regards,

[Anonymous]

@chandra.shekar.g

Thanks for Ilogic code.

I use 4 different part list styles.. (forgot to tell in the first message)

is it possible that the active part list is recognized and updated automatically during opening ?

Thanks.

Regards,

Jeffrey

[MechMachineMan · Accepted solution]

I think this might be what you are looking for.

Sub Main()
    Dim oPL As PartsList
    For Each oSheet In ThisDoc.Document.Sheets
        For Each oPL In oSheet.PartsLists
            Call RefreshPartsListStyle(oPL)
        Next
    Next
End Sub

Sub RefreshPartsListStyle(oPartsList As PartsList)   
    
    Dim oDoc As Document
    oDoc = oPartsList.Parent.Parent

    Dim oStyleMgr As DrawingStylesManager
    oStyleMgr = oDoc.StylesManager
    
    oActivePLStyle = oPartsList.Style
   
    For Each oStyle In oStyleMgr.PartsListStyles
        If Not oStyle.Equals(oActivePLstyle)
            oNotActivePLStyle = oStyle
            Exit For
        End If
    Next
    
    oPartsList.Style = oNotActivePLStyle
    'oDoc.Update
    oPartsList.Style = oActivePLStyle
End Sub   

[ramji.m]

Hi ,

Can you help me with API TO ACCESS  importing partslist.XML

Cause am manually importing 

edit layers --> import styles--> browse and select partslist.xml for old drawing

[Anonymous]

@ramji.m 

I am currently looking for a solution for the same problem, importing a style file *.styxml with the API.

As far as I have found out so far, it is NOT directly possible via API. I might try to copy a current style and then reading the properties of the *.styxml and editing the new style accordingly. But I am not sure what to do with all the (dozens of) settings where I don't have direct access via the API.