IMcLineProfilesCountOfProfiles Property |
![]() |
Namespace: MediaCy.IQL.Features
'Show what type of feature each profile is based on Sub ShowTypeOfFeatureForEachProfile(ByRef myProfile As McLineProfiles) Dim mcfeaturesAncestor As McFeatures Set mcfeaturesAncestor = AncestorOfOperator(myProfile, "McFeatures") Dim lP As Long For lP = 0 To myProfile.CountOfProfiles - 1 Dim fType As mcFeaturesType fType = mcfeaturesAncestor.Type(lP) If fType = mcftPolyline Then Debug.Print "Profile " & lP & " is based on a polyline." ElseIf fType = mcftLine Then Debug.Print "Profile " & lP & " is based on a simple line." ElseIf (fType And mcftEmptyRegions) <> 0 Then Debug.Print "Profile " & lP & " is based on a region boundary." Else Debug.Print "ErrorProfile based on unknown feature type." End If Next lP End Sub 'ShowTypeOfFeatureForEachProfile Sub DoShowTypeOfFeatureForEachProfile() ShowTypeOfFeatureForEachProfile ThisApplication.ActiveImage.LineFeatures.Profiles ShowTypeOfFeatureForEachProfile ThisApplication.ActiveImage.Aoi.Profiles End Sub