ExtractPoints

 

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

ExtractPointsUseDefaultValue

ExtractPointsDefaultValue

ExtractPointsComp1

ExtractPointsComp2

ExtractPointsComp3

ExtractPointsComp4

ExtractPointsComp5

ExtractPointsComp6

ExtractPointsComp7

ExtractPointsComp8

ExtractPointsComp9

ExtractPointsComp10

ExtractPointsComp11

ExtractPointsComp12

ExtractPointsComp13

ExtractPointsComp14

ExtractPointsComp15

ExtractPointsComp16

ExtractPointsComp17

ExtractPointsComp18

ExtractPointsComp19

ExtractPointsComp20

 

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

Automation Model