How can a PREMIER PROJECT access the MARKER DISTANCES within the LINE PROFILE TOOL?

Nikita --

Thank you for your guidance.

I have done the FORUM SEARCH that you recommended and I have looked at the code in your POST (on the face and within gx2pqitnsdlr.ipx.

I can get to the DISTANCES generated by the PEAK DETECTION with

                            Debug.Print "d"
                            Debug.Print d

using in the code below.

Unfortunately I cannot seem to get to the DISTANCES generated by MANUAL EDGE EDITING.

Also, what is the procedure from the PREMIER USER INTERFACE to SELECT and DELETE a MANUAL EDGE?

Thanks.

-- Matt

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

    Public Function Convert_Peaks_To_Measurements() As SimpleScript
        Convert_Peaks_To_Measurements = New SimpleScript
        Dim doc1

        With Application.DocumentCommands.Active(Convert_Peaks_To_Measurements)
            .Run(doc1)
        End With

        With Measure.MeasurementsCommands.DeleteAll(Convert_Peaks_To_Measurements)
            .Run(doc1)
        End With

        With Automate.ScriptingCommands.CodeCommand(Convert_Peaks_To_Measurements)
            If .Run() Then
                Dim lpe As LineProfile.McLineProfileEngine
                Dim pd As LineProfile.McProfileData, dis As Double()
                Dim index As Integer, p As System.Drawing.PointF

                lpe = LineProfile.AddIn.LineProfileEngine(doc1, True)
                If lpe IsNot Nothing AndAlso lpe.FeaturesCount > 0 Then
                    For profileIndex As Integer = 0 To lpe.FeaturesCount - 1 'all profiles
                        pd = lpe.ProfileData(profileIndex)
                        dis = pd.EdgesData(LineProfile.mcEdgeTypes.mcetPeaks).Distances ' all Peak's distances

                        For Each d As Double In dis
                            index = CInt(d / lpe.LengthPerSampleDesired) 'calibrated distance to index

                            Debug.Print "d"
                            Debug.Print d

                            If 0 <= index AndAlso index < pd.Points.Length Then
                                p = New System.Drawing.PointF(pd.Points(index).x, pd.Points(index).y)
                                AddMeasurementPoint(doc1, p)
                            End If
                        Next
                    Next
                End If
            End If
        End With
    End Function

    Private Sub AddMeasurementPoint(doc As Object, p As System.Drawing.PointF)
        Dim meas As Object

        With Measure.MeasurementsCommands.Add(Nothing)
            .MeasurementType = McMeasurements.enumMMSTypes.mmtsManualTag
            .Points = New System.Collections.Generic.List(Of System.Drawing.PointF)
            .Points.Add(p)
            .SnapFeature = False
            .Run(doc, meas)
        End With
    End Sub

Nikita --

Thank you for the additional information.

D doesn't generate anything for me when there are only MANUAL PEAKS.  Can you please try it that way?  Also, I'm using 9.1.4.

I created

    Convert_Peaks_To_Measurements2

with a couple of other DEBUG.PRINTS and when I run

    Convert_Peaks_To_Measurements2

it seems to skip the MANUAL PEAKS.  This is shown in the SCREEN CAPTURE below.



I was able to DELETE MANUAL PEAKS with the SHIFT + MANUAL EDGE EDITING.

I don't see this information in the HELP FILE.

Thanks for your assistance.

-- Matt

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

    Public Function Convert_Peaks_To_Measurements2() As SimpleScript
        Convert_Peaks_To_Measurements2 = New SimpleScript
        Dim doc1

        Debug.Clear

        Debug.Print "ThisApplication.ActiveImage.DisplayName"
        Debug.Print ThisApplication.ActiveImage.DisplayName


        With Application.DocumentCommands.Active(Convert_Peaks_To_Measurements2)
            .Run(doc1)
        End With

        With Measure.MeasurementsCommands.DeleteAll(Convert_Peaks_To_Measurements2)
            .Run(doc1)
        End With

        With Automate.ScriptingCommands.CodeCommand(Convert_Peaks_To_Measurements2)
            If .Run() Then
                Dim lpe As LineProfile.McLineProfileEngine
                Dim pd As LineProfile.McProfileData, dis As Double()
                Dim index As Integer, p As System.Drawing.PointF

                lpe = LineProfile.AddIn.LineProfileEngine(doc1, True)

                Debug.Print "lpe.featurescount"
                Debug.Print lpe.featurescount

                If lpe IsNot Nothing AndAlso lpe.FeaturesCount > 0 Then
                    For profileIndex As Integer = 0 To lpe.FeaturesCount - 1 'all profiles
                        pd = lpe.ProfileData(profileIndex)

                        dis = pd.EdgesData(LineProfile.mcEdgeTypes.mcetPeaks).Distances ' all Peak's distances

                        Debug.Print "UBound(dis)"
                        Debug.Print UBound(dis)

                        For Each d As Double In dis
                            index = CInt(d / lpe.LengthPerSampleDesired) 'calibrated distance to index

                            Debug.Print "d"
                            Debug.Print d

                            If 0 <= index AndAlso index < pd.Points.Length Then
                                p = New System.Drawing.PointF(pd.Points(index).x, pd.Points(index).y)
                                AddMeasurementPoint(doc1, p)
                            End If
                        Next
                    Next
                End If
            End If
        End With
    End Function

Nikita --

I'm sorry to be such a headache but something is working differently on my PREMIER 9.1.4 and yours.

I created a LINE PROFILE with 5 MANUAL EDGES and then ran Convert_Peaks_To_Measurements2.  The routine did not see any EDGES.

I made the LINE PROFILE identify several AUTOMATIC EDGE and then ran Convert_Peaks_To_Measurements2.  The routine did not see any EDGES.

I created a 2nd LINE PROFILE with several AUTOMATIC EDGES and several MANUAL EDGES and then ran Convert_Peaks_To_Measurements2.  The routine did not see any EDGES.

SCREEN CAPTURES are attached.

Thank you for your assistance.

-- Matt

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Single LINE PROFILE with only MANUAL EDGES


Single LINE PROFILE with MANUAL EDGES and AUTO EDGES


Double LINE PROFILE (one toward TOP of IMAGE, one toward BOTTOM of IMAGE) with MANUAL and AUTO EDGES