PC-DMIS 2021.1 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

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