This is an example for Info.
'********************************************************************************************
' info module.BAS
' This script loads a test lattice and adds an info module.
' It then shows the info data.
'
' -by SKP 4/2010
'
'********************************************************************************************
Sub Main
'Declares VoxlerApp as an object
Dim VoxlerApp As Object
'Creates an instance of the Voxler application object
'and assigns it to the variable named "VoxlerApp"
Set VoxlerApp = CreateObject("Voxler.Application")
'Make Voxler visible
VoxlerApp.Visible = True
'Access CommandApi
Set CommandApi = VoxlerApp.CommandApi
'Create a new Voxler document
CommandApi.Construct ("New")
CommandApi.DoOnce()
'Create the test lattice
CommandApi.Construct("CreateModule")
CommandApi.Option("AutoConnect", "False")
CommandApi.Option ("DefaultPosition", "True")
CommandApi.Option ("Type", "TestLattice")
CommandApi.Do()
'Add a info module
CommandApi.Construct("CreateModule")
CommandApi.Option ("AutoConnect", "True")
CommandApi.Option ("SourceModule", "TestLattice")
CommandApi.Option ("Type", "Info")
CommandApi.Do()
'View the data
CommandApi.Construct("ModifyModule")
CommandApi.Option("Module","Info")
CommandApi.Option("InfoShowData", "True")
CommandApi.Do()
End Sub
See Also