Automation Example - LoadPoints

 

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

Automation Model