PC-DMIS 2001 - Error when uploading a XYZ file

Hi everyone,

That's the first time i come on this forum. I have not a large experience in CMM.

I am trying to make measurements of a blade with the old PC-DMIS 2001. There are like 350 points per face... I'm doing this to compare a physical blade with a CAO model (surface model* : we can't know how the blade has been modeled)
So i would like to import a simple file (Text) as a .XYZ file.

I follow the syntax indicated in the manual :

XYZIJK METRIC
x,y,z,i,j,k

When i try to import the file i have an error message :
Le verouillage indique que l'entrée/sortie XYZ n'est pas disponible.
The lock indicates that the input / output XYZ is not available.

I have not find any posts about this error neither on the forum nor on Google.

An other solution would be to directly insert commands generated on Excel by copy/paste like this :
PNT13 =AUTO/POINT-VECT; AFFICH TOUS PARAM=OUI
THÉO/-45;45;-11;0;0;1
RÉEL/-45;45;-10.474;0;0;1
CIBLE/-45;45;-11;0;0;1
ÉPAISSEUR THÉO = 0; CART; ENCLENCH = OUI ;$
DÉPLACEMENT AUTO = NON; DISTANCE = 0

But PC DMIS does not like when i copy/paste from Exel or Notepad and say :
Erreur de ligne trop longue.
Error : line too long.

I am looking for your help

Nobody here have used the CMM to do automatic control.

If you have any idea, you help is welcome.

Sorry if my English is not so good. As you can guess, this is not my native language.

Thanks !

Maxime

Parents

NinjaBadger over 9 years ago

I am able to modify a VBA program if i identify the variables. But it will be difficult if i have not an example...

About my version, the original was 3.25 and there were updates (3.97 for the last one)

If you already have a script for a similar version, i could take a look on it and try it on my DMIS version. If you won't put it on the forum, i can give you my address ?

Create a program in pc-dmis with a single vector point in it.

File > Export > Basic and save the file.

View the file in notepad and it will look something like this


Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object

Sub Part1
  Set DmisApp = CreateObject("PCDLRN.Application")
  Set DmisPart = DmisApp.ActivePartProgram
  Set DmisCommands = DmisPart.Commands
  CommandCount = DmisCommands.Count
  Set DmisCommand = DmisCommands.Item(CommandCount)
  DmisCommands.InsertionPointAfter DmisCommand
  Set DmisCommand = DmisCommands.Add(START_ALIGN, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Id  = STARTUP
    retval = DmisCommand.PutText ("STARTUP", ID, 0)
  ' Set Reference Id Item 1 = USE_PART_SETUP
    retval = DmisCommand.PutText ("USE_PART_SETUP", REF_ID, 1)
  ' Set Alignment List  = YES
    retval = DmisCommand.SetToggleString (2, ALIGN_LIST, 0)
  
  Set DmisCommand = DmisCommands.Add(END_ALIGN, TRUE)
    DmisCommand.Marked = TRUE
  
  Set DmisCommand = DmisCommands.Add(MAN_DCC_MODE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Mode  = MANUAL
    retval = DmisCommand.SetToggleString (2, MODE_TYPE, 0)
  
  Set DmisCommand = DmisCommands.Add(PREHIT_DISTANCE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Distance  = 2
    retval = DmisCommand.PutText ("2", DISTANCE, 0)
  
  Set DmisCommand = DmisCommands.Add(RETRACT_DISTANCE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Distance  = 2
    retval = DmisCommand.PutText ("2", DISTANCE, 0)
  
  Set DmisCommand = DmisCommands.Add(MOVE_SPEED, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Move Speed  = 300
    retval = DmisCommand.PutText ("300", F_MOVESPEED, 0)
  
  Set DmisCommand = DmisCommands.Add(FLY_MODE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Fly Mode  = ON
    retval = DmisCommand.SetToggleString (2, FLY_MODE_TYPE, 0)
  ' Set Radius Type  = 3
    retval = DmisCommand.PutText ("3", RADIUS_TYPE, 0)
  
  Set DmisCommand = DmisCommands.Add(DIMENSION_FORMAT, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Dimension Text  = TEXT
    retval = DmisCommand.SetToggleString (1, DIM_TEXT, 0)
  ' Set Dimension Text Options  = OPTIONS
    retval = DmisCommand.SetToggleString (2, DIM_TEXT_OPTIONS, 0)
  ' Set Show Headings  = HEADINGS
    retval = DmisCommand.SetToggleString (3, SHOW_HEADINGS, 0)
  ' Set Show Symbols  = SYMBOLS
    retval = DmisCommand.SetToggleString (4, DEVIATION_SYMBOLS, 0)
  ' Set Standard Deviation  =  
    retval = DmisCommand.SetToggleString (7, STANDARD_DEVIATION, 0)
  ' Set Dimension Heading Item 1 = NOM
    retval = DmisCommand.SetToggleString (1, DIM_HEADING, 1)
  ' Set Dimension Heading Item 2 = TOL
    retval = DmisCommand.SetToggleString (2, DIM_HEADING, 2)
  ' Set Dimension Heading Item 3 = MEAS
    retval = DmisCommand.SetToggleString (3, DIM_HEADING, 3)
  ' Set Dimension Heading Item 4 = DEV
    retval = DmisCommand.SetToggleString (5, DIM_HEADING, 4)
  ' Set Dimension Heading Item 5 = OUTTOL
    retval = DmisCommand.SetToggleString (6, DIM_HEADING, 5)
  
  Set DmisCommand = DmisCommands.Add(GET_PROBE_DATA, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Filename  = P4_4BY40
    retval = DmisCommand.PutText ("P4_4BY40", FILE_NAME, 0)
  
  Set DmisCommand = DmisCommands.Add(SET_ACTIVE_TIP, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Id  = T1A90B90
    retval = DmisCommand.PutText ("T1A90B90", ID, 0)
  ' Set Tip I  = -1
    retval = DmisCommand.PutText ("-1", TIP_I, 0)
  ' Set Tip J  = 0
    retval = DmisCommand.PutText ("0", TIP_J, 0)
  ' Set Tip K  = 0
    retval = DmisCommand.PutText ("0", TIP_K, 0)
  ' Set Theoretical Angle  = 90
    retval = DmisCommand.PutText ("90", THEO_ANGLE, 0)
  
  [B]Set DmisCommand = DmisCommands.Add(CONTACT_VECTOR_POINT_FEATURE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Theoretical X  = 50
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"50"[/COLOR], THEO_X, 0)
  ' Set Theoretical Y  = 100
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"100"[/COLOR], THEO_Y, 0)
  ' Set Theoretical Z  = 0
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"0"[/COLOR], THEO_Z, 0)
  ' Set Theoretical I  = 0
    retval = DmisCommand.PutText [COLOR="#FF0000"]("0"[/COLOR], THEO_I, 0)
  ' Set Theoretical J  = 0
    retval = DmisCommand.PutText [COLOR="#FF0000"]("0"[/COLOR], THEO_J, 0)
  ' Set Theoretical K  = 1
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"1"[/COLOR], THEO_K, 0)
  ' Set Report Vector I  = 0
    retval = DmisCommand.PutText ("0", REPORTVEC_I, 0)
  ' Set Report Vector J  = 0
    retval = DmisCommand.PutText ("0", REPORTVEC_J, 0)
  ' Set Report Vector K  = 1
    retval = DmisCommand.PutText ("1", REPORTVEC_K, 0)
  ' Set Update Vector I  = 1
    retval = DmisCommand.PutText ("1", UPDATEVEC_I, 0)
  ' Set Update Vector J  = 0
    retval = DmisCommand.PutText ("0", UPDATEVEC_J, 0)
  ' Set Update Vector K  = 0
    retval = DmisCommand.PutText ("0", UPDATEVEC_K, 0)
  ' Set Measured X  = 50
    retval = DmisCommand.PutText ("50", MEAS_X, 0)
  ' Set Measured Y  = 100
    retval = DmisCommand.PutText ("100", MEAS_Y, 0)
  ' Set Measured Z  = 0
    retval = DmisCommand.PutText ("0", MEAS_Z, 0)
  ' Set Measured I  = 0
    retval = DmisCommand.PutText ("0", MEAS_I, 0)
  ' Set Measured J  = 0
    retval = DmisCommand.PutText ("0", MEAS_J, 0)
  ' Set Measured K  = 1
    retval = DmisCommand.PutText ("1", MEAS_K, 0)
  ' Set Target X  = 50
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"50"[/COLOR], TARG_X, 0)
  ' Set Target Y  = 100
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"100"[/COLOR], TARG_Y, 0)
  ' Set Target Z  = 0
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"0"[/COLOR], TARG_Z, 0)
  ' Set Target I  = 0
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"0"[/COLOR], TARG_I, 0)
  ' Set Target J  = 0
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"0"[/COLOR], TARG_J, 0)
  ' Set Target K  = 1
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"1"[/COLOR], TARG_K, 0)
  ' Set Update Vector I  = 1
    retval = DmisCommand.PutText ("1", UPDATEVEC_I, 0)
  ' Set Update Vector J  = 0
    retval = DmisCommand.PutText ("0", UPDATEVEC_J, 0)
  ' Set Update Vector K  = 0
    retval = DmisCommand.PutText ("0", UPDATEVEC_K, 0)
  ' Set Report Vector I  = 0
    retval = DmisCommand.PutText ("0", REPORTVEC_I, 0)
  ' Set Report Vector J  = 0
    retval = DmisCommand.PutText ("0", REPORTVEC_J, 0)
  ' Set Report Vector K  = 1
    retval = DmisCommand.PutText ("1", REPORTVEC_K, 0)
  ' Set Id  = PNT1
    retval = DmisCommand.PutText ("[COLOR="#FF0000"]PNT1[/COLOR]", ID, 0)
  ' Set Coordinate Type  = CARTESIAN
    retval = DmisCommand.SetToggleString (1, COORD_TYPE, 0)
  ' Set Relative Measure Feature X  = <Current Alignment>
    retval = DmisCommand.PutText ("<Current Alignment>", RMEASFEATIDX, 0)
  ' Set Relative Measure Feature Y  = <Current Alignment>
    retval = DmisCommand.PutText ("<Current Alignment>", RMEASFEATIDY, 0)
  ' Set Relative Measure Feature Z  = <Current Alignment>
    retval = DmisCommand.PutText ("<Current Alignment>", RMEASFEATIDZ, 0)
  ' Set Noms Mode  = NOMINALS
    retval = DmisCommand.SetToggleString (3, FIND_NOMS_TYPE, 0)
  ' Set Surface Thickness Type  = THICKNESS_NONE
    retval = DmisCommand.SetToggleString (3, THICKNESS_TYPE, 0)
  ' Set Surface Thickness  = 0
    retval = DmisCommand.PutText ("0", F_THICKNESS, 0)
  ' Set Auto Wrist  = NO
    retval = DmisCommand.SetToggleString (1, AUTO_PH9, 0)
  ' Set Void Detection  = NO
    retval = DmisCommand.SetToggleString (1, VOID_DETECT, 0)
  ' Set Graphic Analysis  = NO
    retval = DmisCommand.SetToggleString (1, GRAPH_ANALYSIS, 0)
  ' Set Feature Locator BMP  = NO
    retval = DmisCommand.SetToggleString (1, LOCATOR_BMP, 0)
  ' Set Feature Locator WAV  = NO
    retval = DmisCommand.SetToggleString (1, LOCATOR_WAV, 0)
  ' Set Feature Locator Text  = 
    retval = DmisCommand.PutText ("", COMMENT_FIELD, 0)
  ' Set Measurement Strategy  = DEFAULT
    retval = DmisCommand.PutText ("DEFAULT", MEASUREMENT_STRATEGY, 0)
  ' Set Display Probe Parameters  = YES
    retval = DmisCommand.SetToggleString (2, DISPLAY_PROBE_PARAMETERS, 0)
  ' Set Display Advanced Parameters  = YES
    retval = DmisCommand.SetToggleString (2, DISPLAY_ADVANCED_PARAMETERS, 0)
  ' Set Avoidance Move  = BOTH
    retval = DmisCommand.SetToggleString (2, MOVE_TYPE, 0)
  ' Set Avoidance Move Distance  = 25
    retval = DmisCommand.PutText ("25", F_AUTOMOVE, 0)
  ' Set Display Hits  = NO
    retval = DmisCommand.PutText ("NO", DISPLAY_HITS, 0)[/B]
  
End Sub

Sub Main

  Part1

  DmisPart.RefreshPart
End Sub

Edited for more info

Reply

NinjaBadger over 9 years ago

I am able to modify a VBA program if i identify the variables. But it will be difficult if i have not an example...

About my version, the original was 3.25 and there were updates (3.97 for the last one)

If you already have a script for a similar version, i could take a look on it and try it on my DMIS version. If you won't put it on the forum, i can give you my address ?

Create a program in pc-dmis with a single vector point in it.

File > Export > Basic and save the file.

View the file in notepad and it will look something like this


Dim DmisApp As Object
Dim DmisPart As Object
Dim DmisCommands As Object
Dim DmisCommand As Object

Sub Part1
  Set DmisApp = CreateObject("PCDLRN.Application")
  Set DmisPart = DmisApp.ActivePartProgram
  Set DmisCommands = DmisPart.Commands
  CommandCount = DmisCommands.Count
  Set DmisCommand = DmisCommands.Item(CommandCount)
  DmisCommands.InsertionPointAfter DmisCommand
  Set DmisCommand = DmisCommands.Add(START_ALIGN, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Id  = STARTUP
    retval = DmisCommand.PutText ("STARTUP", ID, 0)
  ' Set Reference Id Item 1 = USE_PART_SETUP
    retval = DmisCommand.PutText ("USE_PART_SETUP", REF_ID, 1)
  ' Set Alignment List  = YES
    retval = DmisCommand.SetToggleString (2, ALIGN_LIST, 0)
  
  Set DmisCommand = DmisCommands.Add(END_ALIGN, TRUE)
    DmisCommand.Marked = TRUE
  
  Set DmisCommand = DmisCommands.Add(MAN_DCC_MODE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Mode  = MANUAL
    retval = DmisCommand.SetToggleString (2, MODE_TYPE, 0)
  
  Set DmisCommand = DmisCommands.Add(PREHIT_DISTANCE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Distance  = 2
    retval = DmisCommand.PutText ("2", DISTANCE, 0)
  
  Set DmisCommand = DmisCommands.Add(RETRACT_DISTANCE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Distance  = 2
    retval = DmisCommand.PutText ("2", DISTANCE, 0)
  
  Set DmisCommand = DmisCommands.Add(MOVE_SPEED, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Move Speed  = 300
    retval = DmisCommand.PutText ("300", F_MOVESPEED, 0)
  
  Set DmisCommand = DmisCommands.Add(FLY_MODE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Fly Mode  = ON
    retval = DmisCommand.SetToggleString (2, FLY_MODE_TYPE, 0)
  ' Set Radius Type  = 3
    retval = DmisCommand.PutText ("3", RADIUS_TYPE, 0)
  
  Set DmisCommand = DmisCommands.Add(DIMENSION_FORMAT, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Dimension Text  = TEXT
    retval = DmisCommand.SetToggleString (1, DIM_TEXT, 0)
  ' Set Dimension Text Options  = OPTIONS
    retval = DmisCommand.SetToggleString (2, DIM_TEXT_OPTIONS, 0)
  ' Set Show Headings  = HEADINGS
    retval = DmisCommand.SetToggleString (3, SHOW_HEADINGS, 0)
  ' Set Show Symbols  = SYMBOLS
    retval = DmisCommand.SetToggleString (4, DEVIATION_SYMBOLS, 0)
  ' Set Standard Deviation  =  
    retval = DmisCommand.SetToggleString (7, STANDARD_DEVIATION, 0)
  ' Set Dimension Heading Item 1 = NOM
    retval = DmisCommand.SetToggleString (1, DIM_HEADING, 1)
  ' Set Dimension Heading Item 2 = TOL
    retval = DmisCommand.SetToggleString (2, DIM_HEADING, 2)
  ' Set Dimension Heading Item 3 = MEAS
    retval = DmisCommand.SetToggleString (3, DIM_HEADING, 3)
  ' Set Dimension Heading Item 4 = DEV
    retval = DmisCommand.SetToggleString (5, DIM_HEADING, 4)
  ' Set Dimension Heading Item 5 = OUTTOL
    retval = DmisCommand.SetToggleString (6, DIM_HEADING, 5)
  
  Set DmisCommand = DmisCommands.Add(GET_PROBE_DATA, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Filename  = P4_4BY40
    retval = DmisCommand.PutText ("P4_4BY40", FILE_NAME, 0)
  
  Set DmisCommand = DmisCommands.Add(SET_ACTIVE_TIP, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Id  = T1A90B90
    retval = DmisCommand.PutText ("T1A90B90", ID, 0)
  ' Set Tip I  = -1
    retval = DmisCommand.PutText ("-1", TIP_I, 0)
  ' Set Tip J  = 0
    retval = DmisCommand.PutText ("0", TIP_J, 0)
  ' Set Tip K  = 0
    retval = DmisCommand.PutText ("0", TIP_K, 0)
  ' Set Theoretical Angle  = 90
    retval = DmisCommand.PutText ("90", THEO_ANGLE, 0)
  
  [B]Set DmisCommand = DmisCommands.Add(CONTACT_VECTOR_POINT_FEATURE, TRUE)
    DmisCommand.Marked = TRUE
  ' Set Theoretical X  = 50
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"50"[/COLOR], THEO_X, 0)
  ' Set Theoretical Y  = 100
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"100"[/COLOR], THEO_Y, 0)
  ' Set Theoretical Z  = 0
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"0"[/COLOR], THEO_Z, 0)
  ' Set Theoretical I  = 0
    retval = DmisCommand.PutText [COLOR="#FF0000"]("0"[/COLOR], THEO_I, 0)
  ' Set Theoretical J  = 0
    retval = DmisCommand.PutText [COLOR="#FF0000"]("0"[/COLOR], THEO_J, 0)
  ' Set Theoretical K  = 1
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"1"[/COLOR], THEO_K, 0)
  ' Set Report Vector I  = 0
    retval = DmisCommand.PutText ("0", REPORTVEC_I, 0)
  ' Set Report Vector J  = 0
    retval = DmisCommand.PutText ("0", REPORTVEC_J, 0)
  ' Set Report Vector K  = 1
    retval = DmisCommand.PutText ("1", REPORTVEC_K, 0)
  ' Set Update Vector I  = 1
    retval = DmisCommand.PutText ("1", UPDATEVEC_I, 0)
  ' Set Update Vector J  = 0
    retval = DmisCommand.PutText ("0", UPDATEVEC_J, 0)
  ' Set Update Vector K  = 0
    retval = DmisCommand.PutText ("0", UPDATEVEC_K, 0)
  ' Set Measured X  = 50
    retval = DmisCommand.PutText ("50", MEAS_X, 0)
  ' Set Measured Y  = 100
    retval = DmisCommand.PutText ("100", MEAS_Y, 0)
  ' Set Measured Z  = 0
    retval = DmisCommand.PutText ("0", MEAS_Z, 0)
  ' Set Measured I  = 0
    retval = DmisCommand.PutText ("0", MEAS_I, 0)
  ' Set Measured J  = 0
    retval = DmisCommand.PutText ("0", MEAS_J, 0)
  ' Set Measured K  = 1
    retval = DmisCommand.PutText ("1", MEAS_K, 0)
  ' Set Target X  = 50
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"50"[/COLOR], TARG_X, 0)
  ' Set Target Y  = 100
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"100"[/COLOR], TARG_Y, 0)
  ' Set Target Z  = 0
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"0"[/COLOR], TARG_Z, 0)
  ' Set Target I  = 0
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"0"[/COLOR], TARG_I, 0)
  ' Set Target J  = 0
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"0"[/COLOR], TARG_J, 0)
  ' Set Target K  = 1
    retval = DmisCommand.PutText ([COLOR="#FF0000"]"1"[/COLOR], TARG_K, 0)
  ' Set Update Vector I  = 1
    retval = DmisCommand.PutText ("1", UPDATEVEC_I, 0)
  ' Set Update Vector J  = 0
    retval = DmisCommand.PutText ("0", UPDATEVEC_J, 0)
  ' Set Update Vector K  = 0
    retval = DmisCommand.PutText ("0", UPDATEVEC_K, 0)
  ' Set Report Vector I  = 0
    retval = DmisCommand.PutText ("0", REPORTVEC_I, 0)
  ' Set Report Vector J  = 0
    retval = DmisCommand.PutText ("0", REPORTVEC_J, 0)
  ' Set Report Vector K  = 1
    retval = DmisCommand.PutText ("1", REPORTVEC_K, 0)
  ' Set Id  = PNT1
    retval = DmisCommand.PutText ("[COLOR="#FF0000"]PNT1[/COLOR]", ID, 0)
  ' Set Coordinate Type  = CARTESIAN
    retval = DmisCommand.SetToggleString (1, COORD_TYPE, 0)
  ' Set Relative Measure Feature X  = <Current Alignment>
    retval = DmisCommand.PutText ("<Current Alignment>", RMEASFEATIDX, 0)
  ' Set Relative Measure Feature Y  = <Current Alignment>
    retval = DmisCommand.PutText ("<Current Alignment>", RMEASFEATIDY, 0)
  ' Set Relative Measure Feature Z  = <Current Alignment>
    retval = DmisCommand.PutText ("<Current Alignment>", RMEASFEATIDZ, 0)
  ' Set Noms Mode  = NOMINALS
    retval = DmisCommand.SetToggleString (3, FIND_NOMS_TYPE, 0)
  ' Set Surface Thickness Type  = THICKNESS_NONE
    retval = DmisCommand.SetToggleString (3, THICKNESS_TYPE, 0)
  ' Set Surface Thickness  = 0
    retval = DmisCommand.PutText ("0", F_THICKNESS, 0)
  ' Set Auto Wrist  = NO
    retval = DmisCommand.SetToggleString (1, AUTO_PH9, 0)
  ' Set Void Detection  = NO
    retval = DmisCommand.SetToggleString (1, VOID_DETECT, 0)
  ' Set Graphic Analysis  = NO
    retval = DmisCommand.SetToggleString (1, GRAPH_ANALYSIS, 0)
  ' Set Feature Locator BMP  = NO
    retval = DmisCommand.SetToggleString (1, LOCATOR_BMP, 0)
  ' Set Feature Locator WAV  = NO
    retval = DmisCommand.SetToggleString (1, LOCATOR_WAV, 0)
  ' Set Feature Locator Text  = 
    retval = DmisCommand.PutText ("", COMMENT_FIELD, 0)
  ' Set Measurement Strategy  = DEFAULT
    retval = DmisCommand.PutText ("DEFAULT", MEASUREMENT_STRATEGY, 0)
  ' Set Display Probe Parameters  = YES
    retval = DmisCommand.SetToggleString (2, DISPLAY_PROBE_PARAMETERS, 0)
  ' Set Display Advanced Parameters  = YES
    retval = DmisCommand.SetToggleString (2, DISPLAY_ADVANCED_PARAMETERS, 0)
  ' Set Avoidance Move  = BOTH
    retval = DmisCommand.SetToggleString (2, MOVE_TYPE, 0)
  ' Set Avoidance Move Distance  = 25
    retval = DmisCommand.PutText ("25", F_AUTOMOVE, 0)
  ' Set Display Hits  = NO
    retval = DmisCommand.PutText ("NO", DISPLAY_HITS, 0)[/B]
  
End Sub

Sub Main

  Part1

  DmisPart.RefreshPart
End Sub

Edited for more info

Children

No Data