Collapse All Expand All

PC-DMIS 2019 R1 Object Library |
ProgressBarPercentage Property
See Also Example Send Topic Feedback | See Object Hierarchy Chart

PCDLRN ActiveX DLL > ExecutionWindow Object : ProgressBarPercentage Property

Glossary Item Box

# Description

This read only property returns the percentage value of the progress bar on the Execution window. A positive value means the execution has started. A negative value means the execution percentage is not available.

# Syntax

Visual Basic
    Public Property ProgressBarPercentage As Single

# Return Type

A number value of type Single that contains the percentage value of the progress bar on the Execution window.

# Remarks

This is the percentage of the measurement routine that has finished executing. The percentage is derived from the amount of executed commands and hits taken compared against the total number of marked commands and hits to take.

# Example

This script takes a paused execution and manipulates the Execution window. It then obtains the progress bar value, converts it to an integer and displays the execution percentage in a message box.

Example (VBScript) | Copy Code
--- | ---
    ' Start an execution. Pause it, and then run this script.
    Dim DmisApp As Object
    Dim DmisPart As Object

    Sub Main
      Set DmisApp = CreateObject("PCDLRN.Application")
      Set DmisPart = DmisApp.ActivePartProgram
      Set ExWin = DmisPart.GetExecutionWindow (0)
      ExWin.Visible = True
      MsgBox "The height is " & ExWin.Height
      MsgBox "The width is " & ExWin.Width
      MsgBox "Setting the height to 500 x 1500."
      Dim dblPercent As Double
      Dim intPercent As Integer
      ExWin.Height = 500
      ExWin.Width = 1500
      dblPercent = ExWin.ProgressBarPercentage
      intPercent = Cint(dblPercent)
      MsgBox "Execution Progress is " & intPercent &"%"

    End Sub

# See Also

ExecutionWindow Object | ExecutionWindow Members

Copyright © 2019. Hexagon Manufacturing Intelligence – Metrology Software, Inc. All Rights Reserved.