What CODE will extract the PITCH LINE LENGTHS from from a PITCH WITH LINE FEATURE?

mbatchelor · June 2021

2021-06-06-162742

All --

I am working with an SAMPLE and an APP and we are currently using a set measurements that includes LINE FEATURES and ANGLE ANGLE FEATURES to measure something for a customer.

I would like to add two PITCH WITH LINE FEATURES

Image: https://us.v-cdn.net/5020878/uploads/editor/re/bn4joqc7av2p.png

to the APP to measure another dimension on the IMAGE of the SAMPLE.

I have used the

sf.FeatureType

in other CODE to properly handle the MEASUREMENT based on the FEATURE TYPE and its place in the SEQUENCE of FEATURES / MEASUREMENTS created by the user.

The PITCH WITH LINE FEATURE seems to be handled very much like a LINE FEATURE so I am having issues juggling the LINE FEATURES verses the PITCH WITH LINES FEATURES.

When I run this CODE

    Public Sub MMBPitchWithline()

        Debug.Clear

        'CONNECT WITH THE ACTIVE IMAGE
        Dim im2 As McImage=ThisApplication.ActiveImage

        'ERROR TRAP FOR NO IMAGE
        If im2 Is Nothing Then Exit Sub

        'CONNECT WITH THE MEASUREMENTS IN THE ACTIVE IMAGE
        Dim md2 As McMMData=im2.MeasurementsData

        'LOOP THROUGH THE FEATURES IN THE ACTIVE IMAGE

        Dim MyPWLCount As Integer = _
            0

        For Each sf As McMMSubFeature In md2.SubFeatures

'            If ( _
'                sf.FeatureType = _
'                    "mcmmsfLine" _
'                ) _
'                Then

                    Debug.Print "sf.Name"
                    Debug.Print sf.Name

                    Debug.Print "sf.FeatureType"
                    Debug.Print sf.FeatureType

                    MyPWLCount += _
                        1

                    Debug.Print "MyPWLCount"
                    Debug.Print MyPWLCount

                    'LEARN THE LENGTH FOR THE CURRENT LINE

                    Dim MyLength As Double = _
                        sf.Value(eMeasures.LnLength)

                    Debug.Print "MyLength
                    Debug.Print MyLength
'
'                End If

            Next

        md2.BeginUpdateBlock(False)

    End Sub

On this IMAGE (Image attached as 2021-06-06-162303.tif)

Image: https://us.v-cdn.net/5020878/uploads/editor/vu/aa44up7b7s4n.png

the IMMEDIATE WINDOW shows

sf.Name
PWL1
sf.FeatureType
mcmmsfLine
MyPWLCount
1
MyLength
5.46021070765929
sf.Name
PWL1PL4
sf.FeatureType
mcmmsfLine
MyPWLCount
2
MyLength
0.935572131396735
sf.Name
L2
sf.FeatureType
mcmmsfLine
MyPWLCount
3
MyLength
3.05630021341195
sf.Name
L3
sf.FeatureType
mcmmsfLine
MyPWLCount
4
MyLength
2.93328657804104
sf.Name
PWL4
sf.FeatureType
mcmmsfLine
MyPWLCount
5
MyLength
6.78636382614732
sf.Name
PWL4PL4
sf.FeatureType
mcmmsfLine
MyPWLCount
6
MyLength
0.842490789128647

which matches the DATA TABLE which shows

Feature Name    Length(mm)
PWL1    5.4602
PWL1PL4    0.9356
L2    3.0563
L3    2.9333
PWL4    6.7864
PWL4PL4    0.8425

A previous discussion on this FORUM at

https://forums.mediacy.com/discussion/comment/2031#Comment_2031

provides some information about working with the PITCH WITH LINE FEATURES but it does not illuminate how to discriminate between PWL FEATURES and LINE FEATURES.

What CODE will allow me to step through the FEATURES in an IMAGE and know when I encounter a LINE FEATURE verses an PITCH WITH LINE FEATURE?

I would prefer to not use the NAME in the FEATURE NAME (like sf.name) because the APP is changing the FEATURE NAME (sf.name) as part of the flow of MAKING and EXTRACTING the MEASUREMENT DATA.

I believe that for this APP that the PWL FEATURES will only have 1 PITCH LINE but if the solution can indicate how to access multiple PITCH LINE LENGTHS, that would be super. This is somewhat addressed in the FORUM ENTRY referenced above but I am hoping that since that was 2016, that there is a more elegant solution in 2021.

Thank you in advance for your assistance with this.

-- Matt

YuriG · June 2021

Hi Matt,

You can check the FeatureType of the parent McMMFeature and also Flags. Here is the test macro:

    Public Sub TestPitch
        Dim md As McMMData=ThisApplication.ActiveImage.MeasurementsData
        For Each sf As McMMSubFeature In md.SubFeatures
            Debug.Print String.Format("{0} - parent type {1}, flags - {2}",sf.Name,sf.Parent.FeatureType, sf.Flags And McMMSubFeature.mcmmsfFlags.mcmmsffPPLine)
        Next
    End Sub

The result may look like:

PWL1 - parent type mmttPitchWithLine, flags - 0

PWL1PL6 - parent type mmttPitchWithLine, flags - mcmmsffPPLine

PWL1PL7 - parent type mmttPitchWithLine, flags - mcmmsffPPLine

PWL1PL8 - parent type mmttPitchWithLine, flags - mcmmsffPPLine

L2 - parent type mmttLine, flags - 0

Yuri

mbatchelor · June 2021

2021-06-07-095558

Yuri --

Super.

I will let you know how it goes.

Thanks.

-- Matt

mbatchelor · June 2021

2021-06-11-140853

Yuri --

I just wanted to follow up and say that I was able to use the PARENT.FEATURETYPE PROPERTY and a scan through the MEASUREMENTSDATA to determine the LENGTH of the 1st PITCH LINE for the APP that I am developing.

Looking back through your example, I see that you pointed me at the

sf.Flags And McMMSubFeature.mcmmsfFlags.mcmmsffPPLine

to indicate the PITCH LINE but that was chopped off of display of the CODE on my browser. I was able to write the routine with just

PARENT.FEATURETYPE PROPERTY

I may revisit this section of code and make it more elegant using the

sf.Flags And McMMSubFeature.mcmmsfFlags.mcmmsffPPLine

Thank you for your guidance on this and the other issues you have addressed over the years..

-- Matt

What CODE will extract the PITCH LINE LENGTHS from from a PITCH WITH LINE FEATURE?

Best Answer

Answers