VisionPro 实现多目标测量

VisionPro实现多目标测量其效果如图所示：

VB代码如下:

Imports System
Imports System.Collections
Imports Cognex.VisionPro
Imports Cognex.VisionPro3D
Imports Cognex.VisionPro.ToolGroup
Imports Cognex.VisionPro.Blob
Imports Cognex.VisionPro.Caliper
 
 
Public Class UserScript
  Inherits CogToolGroupBaseScript
  
  Dim labels As ArrayList = New ArrayList()
 
  'The GroupRun function is called when the tool group is run.  The default
  'implementation provided here is equivalent to the normal behavior of the
  'tool group.  Modifying this function will allow you to change the behavior
  'when the tool group is run.
  Overrides Function GroupRun(ByRef message As String, _
                           ByRef result As CogToolResultConstants) _
    As Boolean
 
    ' To let the execution stop in this script when a debugger is attached, uncomment the following line.
    ' #If DEBUG Then
    ' If System.Diagnostics.Debugger.IsAttached Then System.Diagnostics.Debugger.Break()
    ' #End If
 
    'Run each tool in the tool group using the RunTool function
    For toolIdx As Int32 = 0 To ToolGroup.Tools.Count - 1
      ToolGroup.RunTool(ToolGroup.Tools(toolIdx), message, result)
    Next
    
    Dim blobTool As CogBlobTool = ToolGroup.Tools("CogBlobTool1")
    Dim caliperTool As CogCaliperTool = ToolGroup.Tools("CogCaliperTool1")
    Dim caliperRegion As CogRectangleAffine = caliperTool.Region 
    
    ToolGroup.RunTool(blobTool, message, result)
    Dim blobResults As CogBlobResultCollection = blobTool.Results.GetBlobs()
    
    For Each blob As CogBlobResult In blobResults
      
      caliperRegion.CenterX = blob.CenterOfMassX
      caliperRegion.CenterY = blob.CenterOfMassY
      ToolGroup.RunTool(caliperTool, message, result)
      
      Dim myCaliper As New CogCaliperTool
      myCaliper = Me.toolGroup.Tools("CogCaliperTool1")
      
      Dim myLabel As CogGraphicLabel = New CogGraphicLabel()
      myLabel.Alignment = CogGraphicLabelAlignmentConstants.BaselineCenter
      myLabel.SetXYText(blob.CenterOfMassX, blob.CenterOfMassY, "当前宽度：" + (myCaliper.Results.Item(0).Width).ToString("0.00"))
      myLabel.Color = CogColorConstants.Green
      
      labels.Add(myLabel)
      
    Next
 
    'Returning False indicates we ran the tools in script, and they should not be
    'run by VisionPro 
    Return False
  End Function
 
#Region "When the Current Run Record is Created"
  Overrides Sub ModifyCurrentRunRecord(ByVal currentRecord As Cognex.VisionPro.ICogRecord)
 
  End Sub
#End Region
 
#Region "When the Last Run Record is Created"
  'Allows you to add or modify the contents of the last run record when it is
  'created.  For example, you might add custom graphics to the run record here.
  Overrides Sub ModifyLastRunRecord(ByVal lastRecord As Cognex.VisionPro.ICogRecord)
 
    For Each label As CogGraphicLabel In labels
      ToolGroup.AddGraphicToRunRecord(label, lastRecord, "Image Source.OutputImage", "script")
      
    Next
    
  End Sub
#End Region
 
#Region "When the Script is Initialized"
  'Perform any initialization required by your script here
  Overrides Sub Initialize(ByVal host As CogToolGroup)
    'DO NOT REMOVE - Call the base class implementation first - DO NOT REMOVE
    MyBase.Initialize(host)
  End Sub
#End Region
 
End Class