IMcFeaturesSourceData Property |
![]() |
Namespace: MediaCy.IQL.Features
Property SourceData ( Optional FeatureIndex As Integer = 0 ) As Object Get Set
'Example 1, store some data associated with each point With ThisApplication.ActiveImage.PointFeatures 'Create two points .SetFeaturePoints -1, Array(10, 10, 20, 20) 'Set SourceData for both .SourceData(0) = Array(1, 2, 3) .SourceData(1) = 5 Debug.Print "SourceData(0) = " & McToText(.SourceData(0)) Debug.Print "SourceData(1) = " & McToText(.SourceData(1)) End With 'Example 2: Label regions with their area With ThisApplication.ActiveImage.RegionFeatures .Threshold.Execute 'Get some regions Dim varAreas As Variant varAreas = .mRgnArea Dim lF As Long For lF = 0 to .Count-1 .SourceData(lF) = CDbl(varAreas(lF)) Next lF .DisplayedObjects.SetLabelText "%.1f", _ mcsltDisplaySourceData Or mcsltCopyBorderColor Or mcsltLabelCenter End With