Reading Parts List Title Value

[MarkyTomm]

Hi All,

Should be an easy question for someone

Can I access the title value of a parts list already place on a sheet within an IDW?

I am familiar with setting the value using 

Dim oPartList As PartsList
Set oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)

oPartsList.Title="XXX"

but I want to read it into a variable to use as the file name for exporting to excel

Thanks in advance

Mark

Inventor 2021

[petr.meduna · Accepted solution]

Hi, 

property Title is Read/Write so you can save it into a variable.

Dim doc As DrawingDocument = ThisApplication.ActiveDocument
Dim pl As PartsList = doc.ActiveSheet.PartsLists.Item(1)
Dim oTitle As String = pl.Title
Dim oOptions As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap
oOptions.Value("StartingCell") = "A1"
oOptions.Value("IncludeTitle") = True
oOptions.Value("AutoFitColumnWidth") = True
Dim oName As String = "C:\TEMP\" & ThisDoc.FileName(False) & "_" & oTitle & ".xlsx"
pl.Export(oName, PartsListFileFormatEnum.kMicrosoftExcel, oOptions) 

[dalton98 · Accepted solution]

oDrawDoc = ThisApplication.ActiveDocument

Dim oPartList As PartsList
oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)

oListName = oPartList.ReferencedDocumentDescriptor.DisplayName
MessageBox.Show(oListName)

oExport = Left(oListName, oListName.Length - 4)
MessageBox.Show(oExport)

[MarkyTomm]

Hi Petr,

Thanks very much for your solution

I guess that is in ilogic but I can convert it to vba easily enough

Regards

Mark

[MarkyTomm]

Thanks Dalton,

That helps and also solves another part of my code which is to extract the referenced assembly document

Regards

Mark