Add measurement conditions

Hi Kyle1996,

The easiest way is to record a macro where you define multiple filters, so you will see the code and can edit it, if necessary.

But I would recommend you using IQO file to restore all your measurements filters and other measurement options., such as segmentation thresholds or recipe Just set all your options and filters, save the measurement options to an IQO file, then activate recording and load IQO file and click the Count and use that macro for you analysis.

You can check this video that demonstrates using of IQO files in macros https://youtu.be/GytLqW3mXxE

Regards,

Yuri

Ok, if you just want to set filter ranges dynamically, then you can use your existing macro and set Min/Max from variables:

    Public MinArea As Double=0
    Public MaxArea As Double=50

    Public Sub SetNewRanges
        With Measure.MeasurementsCommands.Options(Nothing)
            .SelMeasurements = New MeasCollection()
                .SelMeasurements.Add( New MeasEntry(eMeasures.RgnArea))
            .Segmentation.FilterRanges = New System.Collections.Generic.List(Of MeasFilterEntry)
                .Segmentation.FilterRanges.Add( New MeasFilterEntry(eMeasures.RgnArea,MinArea,MaxArea))
            .Run(ThisApplication.ActiveImage)
        End With
    End Sub

where you set MinArea and MaxArea from your code and then call SetNewRanges.

Yuri

Ok, now I understand what you need. Yes, it's possible, here is the code:

    Public MinArea As Double=35
    Public MaxArea As Double=1E+308

    Public Sub SetNewAreaRanges
        Dim im As McImage=ThisApplication.ActiveImage
        If im Is Nothing Then Exit Sub
        Dim md As McMMData = im.MeasurementsData
        Dim mArea As MeasEntry = New MeasEntry(eMeasures.RgnArea)
        With md.Options.Segmentation
            Dim f As MeasFilterEntry
            If .FilterRanges.ContainsKey(mArea.CombinedName) Then
                'modify existing range
                f = .FilterRanges(mArea.CombinedName)
                f.RangeStart = MinArea
                f.RangeEnd = MaxArea
            End If
        End With
    End Sub

Yuri