McMMSubFeatureGetFeatures Method |
![]() |
Namespace: MediaCy.Addins.Measurements
Sub ListAllSubFeatures() Dim lSize 'get number of sub-features (lines in data table) lSize = ThisApplication.ActiveImage.MeasurementsData.Rows Debug.Print "# Name Type Index Count" 'print all measurements with McFeatures.Type Dim pFeatures As McFeatures For i = 0 To lSize - 1 Set pFeatures = ThisApplication.ActiveImage.MeasurementsData.SubFeature(i).GetFeatures Debug.Print i + 1 + " " + ThisApplication.ActiveImage.MeasurementsData.SubFeature(i).Name + " " + TypeName(pFeatures) + " " + ThisApplication.ActiveImage.MeasurementsData.SubFeature(i).FeatureIndex + " " + pFeatures.Count Next End Sub