This is an example for LoadPoints.
'********************************************************************************************
' load points.BAS
' This script loads a DAT point set file.
' It then changes the properties of the points.
'
' -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()
'Loads a point source file
CommandApi.Construct ("Import")
CommandApi.Option ("GuiEnabled", "False")
CommandApi.Option ("AutoConnect", "False")
CommandApi.Option ("ClearOptions", "False")
CommandApi.Option ("Filter", "dat")
CommandApi.Option ("Path", "C:\Program Files\Golden Software\Voxler 4\Samples\DrillData.dat")
CommandApi.Option ("Options", "Defaults=1;EatWhitespace=1;Delimiter=Space,tab,comma,semicolon;TextQualifier=doublequote,quote")
CommandApi.Do()
'Show the data for the point source
CommandApi.Construct ("ModifyModule")
CommandApi.Option ("Module", "DrillData.dat ")
CommandApi.Option ("PointsSrcShowData", "True")
CommandApi.Do()
'Change the file path for the data file
CommandApi.Construct ("ModifyModule")
CommandApi.Option ("Module", "DrillData.dat ")
CommandApi.Option ("PointsSrcFilename", "C:\Program Files\Golden Software\Voxler 4\Samples\GoldConcentration.dat")
CommandApi.Do()
End Sub
See Also