The ExtractPoints module is created with the CreateModule command by setting the Type to ExtractPoints. The properties of the ExtractPoints are altered with the ModifyModule command. This is similar to the Network | Computational | ExtractPoints command.
Module Type
ExtractPoints
Syntax
object.Construct(“CreateModule”)
object.Option(“SourceModule”, “data file name”)
object.Option(“Type”, “ExtractPoints”)
object.Do() or object.DoOnce()
object.Construct(“ModifyModule”)
object.Option(“Module”, “ExtractPoints”)
object.Option(“Option_Name”, “OptionValue”)
object.Do() or object.DoOnce()
Option Name
Example 1
This example shows how to add an ExtractPoints module to well data.
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 well data file
CommandApi.Construct("Import")
CommandApi.Option("AutoConnect", "False")
CommandApi.Option ("DefaultPosition", "True")
CommandApi.Option ("Path", "c:\program files\golden software\Voxler 4\Samples\Example_Well_Data.dat")
CommandApi.Option ("Filter", "dat")
CommandApi.Option ("ImportAsWells", "True")
CommandApi.Option ("Options","EatWhitespace=1;Delimiter=Space,tab,comma,semicolon;TextQualifier=doublequote,quote")
CommandApi.Option ("GuiEnabled", "False")
'Set the columns for the well data
CommandApi.Option ("XCol", "1")
CommandApi.Option ("YCol", "2")
CommandApi.Option ("ZCol", "3")
CommandApi.Option ("LogCol", "4,7")
CommandApi.Option ("LogName", "C,Ore Concentration")
CommandApi.Option ("WellNameCol", "5")
CommandApi.Option ("MDCol", "6")
CommandApi.Option ("AzCol", "8")
CommandApi.Option ("IncCol", "9")
CommandApi.Option ("OverwriteLogs", "False")
CommandApi.Option ("SetWellTop", "False")
CommandApi.Do()
'Add an ExtractPoints module
CommandApi.Construct ("CreateModule")
CommandApi.Option ("Type", "ExtractPoints")
CommandApi.Option ("AutoConnect", "True")
CommandApi.Option ("SourceModule", "WellData")
CommandApi.Do()
End Sub
Used by: CreateModule, ModifyModule
See Also