10/19/2017 - 11:02 AM


' For complete examples and data files, please go to
'Get Configurations
Dim config As ViewerConfig = Utilities.GetConfigurations()

' Create html handler
Dim htmlHandler As New ViewerHtmlHandler(config)

' Guid implies that unique document name 
Dim guid As String = DocumentName

' Set CAD options to render Model and all non empty Layouts
Dim options As New HtmlOptions()
options.CadOptions.RenderLayouts = True

' Get pages 
Dim pages As List(Of PageHtml) = htmlHandler.GetPages(guid, options)

For Each page As PageHtml In pages
    'Save each page at disk
    Utilities.SaveAsHtml(page.PageNumber + "_" + DocumentName, page.HtmlContent)