DumpDocumentData

The following example demonstrates how to view all RhinoScript document data.

Example

Option Explicit

'------------------------------------------------------------------------------

' Subroutine: DumpDocumentData

' Purpose:    Lists all RhinoScript document data to the command line.

'------------------------------------------------------------------------------

Sub DumpDocumentData()

Dim arrApps, strApp, arrKeys, strKey, strValue

arrApps = Rhino.GetDocumentData()

If IsArray(arrApps) Then

For Each strApp in arrApps

arrKeys = Rhino.GetDocumentData(strApp)

If IsArray(arrKeys) Then

For Each strKey in arrKeys

strValue = Rhino.GetDocumentData(strApp, strKey)

If Not IsNull(strValue) Then

Rhino.Print strApp & " - " & strKey & " - " & strValue

End If

Next

End If

Next

End If

End Sub