The Contours module is created with the CreateModule command by setting the Type to Contours. The properties of the Contours are altered with the ModifyModule command. This is similar to the Network | Graphics Output | Contours command.
Module Type
Contours
Syntax
object.Construct(“CreateModule”)
object.Option(“SourceModule”, “data file name”)
object.Option(“Type”, “Contours”)
object.Do() or object.DoOnce()
object.Construct(“ModifyModule”)
object.Option(“Module”, “Contours”)
object.Option(“Option_Name”, “OptionValue”)
object.Do() or object.DoOnce()
Option Name
Example
This example shows how to load a data file, grid the data, and create a contour map from it. It then changes the contour interval.
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()
'Load the data file
CommandApi.Construct("Import")
CommandApi.Option("AutoConnect", "False")
CommandApi.Option ("DefaultPosition", "True")
CommandApi.Option ("Path", "c:\program files\golden software\Voxler 4\Samples\GoldConcentration.dat")
CommandApi.Option ("Filter", "dat")
CommandApi.Do()
'Add a gridder module
CommandApi.Construct("CreateModule")
CommandApi.Option ("AutoConnect", "True")
CommandApi.Option ("SourceModule", "GoldConcentration.dat ")
CommandApi.Option ("Type", "Gridder")
CommandApi.Do()
'Grid the data
CommandApi.Construct("ModifyModule")
CommandApi.Option("Module","Gridder")
CommandApi.Option("Gridder3Auto", "true")
CommandApi.Option("Gridder3DoIt", "true")
CommandApi.Do()
'Add a contours module
CommandApi.Construct("CreateModule")
CommandApi.Option ("AutoConnect", "True")
CommandApi.Option ("SourceModule", "Gridder")
CommandApi.Option ("Type", "Contours")
CommandApi.Do()
'Change the contour Level Method to Min, Max, Interval
CommandApi.Construct ("ModifyModule")
CommandApi.Option ("Module", "Contours")
CommandApi.Option ("ContourSpacing", "2")
CommandApi.Do()
'Change the contour level interval to 1
CommandApi.Construct ("ModifyModule")
CommandApi.Option ("Module", "Contours")
CommandApi.Option ("ContourLevelInterval", "1")
CommandApi.Do()
End Sub
Used by: CommandApi object, CreateModule, ModifyModule
See Also