How do I export my Pipe network Parts list to another drawing?

[Anonymous]

I added parts and sizes to my pipe network parts list in my drawing and want to export these to another drawing.

Thanks for any imput you may have.

John Wilson

[xiaodong_liang · Accepted solution]

Hi John,

you can use PartsList.CopyTo . e.g.

Sub test()

'select a partslist of the source sheet
Dim oPL As PartsList
Set oPL = ThisApplication.ActiveDocument.SelectSet(1)

Dim oNewDoc As DrawingDocument
Set oNewDoc = ThisApplication.Documents.Add(kDrawingDocumentObject)

'add a target sheet in the new drawing
Dim oTargetSheet As Sheet
Set oTargetSheet = oNewDoc.Sheets.Add(kA4DrawingSheetSize)

oPL.CopyTo oTargetSheet

End Sub

[Anonymous]

Thank you very much

John