IMcLineProfilesSamplesAsMcLines Property |
![]() |
Namespace: MediaCy.IQL.Features
'Show sampled line(s) with 2 samples per line, on top of the LineFeatures Dim mySL As McLines With ThisApplication.ActiveImage.LineFeatures.Profiles .SampleMode = mclpsmFixedNumberOfSamples .SampleNumbersOrLengths = 2 Set mySL = .SamplesAsMcLines End With Dim myGOT As McGraphObj Set myGOT = mySL.DisplayOverlays.MasterGraphOverlay.Template("McGraphObjPoly", mcgtsAutoCreateTemplate) myGOT.BorderColor = &HFFFF00 'template color is cyan mySL.DisplayOverlays.AutoDisplayTemplateID(True) = mcgtStandardAutoDisplay 'make sure the new one is on top ActiveWindow.View.SetNotifyPriority mySL.DisplayOverlays.MasterGraphOverlay, -1 'show the selection handles mySL.DisplayOverlays.MasterGraphOverlay.SelectTool "McGraphToolSelect", "" mySL.DisplayOverlays.MasterGraphOverlay.Select , True 'Select all