Adding DrawingBOM when creating automated drawing from model.

[JakubPietrzakVNWKK]

Hi All,

Is there a way to add DrawingBOM to a sheet with with iLogic when creating automated drawing from the model?

There is a simple way of adding views, but I cannot find the same for BOMs.

Code I'm using for adding views is like that:

Dim oDoc As Document = ThisDoc.Document
Dim oDrawingDoc As DrawingDocument = ThisApplication.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject,oTemplate,True)
oDrawingDoc.Activate()
Dim oSheet As Sheet = oDrawingDoc.Sheets.Item(1)
Dim oView As DrawingView
oView = oSheet.DrawingViews.AddBaseView(oDoc, oPoint, oScale, oViewOrient, DrawingViewStyleEnum.kShadedDrawingViewStyle, "BASE VIEW")

[C_Haines_ENG]

This should work.

Sub Main

	Dim oDoc As DrawingDocument = ThisDoc.Document

	Dim oPartsList As PartsList = oDoc.Sheets(1).PartsLists.Add(oDoc.Sheets(1).DrawingViews(1), oDoc.Sheets(1).Border.RangeBox.MaxPoint)

End Sub