iLogic Regel die einen Report zu einem Inventordokument erstellt

Frederik Vollbrecht hat mir einen iLogic-Regel geschickt, die von einem Inventormodell eine Worddokument mit einigen iProperties und einem Vorschaubild erstellt. So sieht die Regel aus:

'set the folder name from the template report
folder ="C:\"

'Create the Word Application Object
wordApp = Interaction.CreateObject("Word.Application")

'Add the template document to the Word Session
wordDoc = wordApp.Documents.Add (folder & "ilogic_report_template.docx", Visible:=False)

'Write to the Bookmarks in the template
wordDoc.Bookmarks("FNAME").Range.Text = ThisDoc.FileName(False) 'without extension
wordDoc.Bookmarks("PNUM").Range.Text = iProperties.Value("Project", "Part Number")
wordDoc.Bookmarks("DES").Range.Text = iProperties.Value("Summary", "Author")
wordDoc.Bookmarks("RNUM").Range.Text = iProperties.Value("Project", "Revision Number")

'save iso view to jpg
imagedoc = ThisDoc.PathAndFileName(False) & ".jpg"
oCamera = InventorVb.Application.ActiveView.Camera 'current iso view
oCamera.fit
oCamera.apply
InventorVb.Application.ActiveView.SaveAsBitmap(imagedoc,1200,800 )

'Insert an image at the end of the document
wordDoc.Bookmarks.Item("\endofdoc").Range.InlineShapes.AddPicture(imagedoc)

'Save the Word file with a new name and close the document
wordDoc.SaveAs (ThisDoc.PathAndFileName(False) & ".docx")
wordDoc.Close()
wordDoc=Nothing

'Quit Word session
wordApp.Application.Quit()
wordApp=Nothing

Was anpasst werden muss, ist der Pfad zu der Reportvorlage in der zweiten Zeile folder ="C:\". Liegt die Vorlage ilogic_report_template.docx also im Verzeichnis c:\vorlagen muss der Eintrag folder ="C:\vorlagen\" lauten.

Der Report wird das Verzeichnis gespeichert, in dem die Inventordatei liegt.

Und so sieht der Report dann aus:

Hier könnt ihr die iLogicx-Regel und die Berichtsvorlage herunterladen.

Danke Frederik für diesen Tipp!