IMcLinesSpatialCalibration Property |
![]() |
Namespace: MediaCy.IQL.Features
Property SpatialCalibration As McSpatialCalib Get Set
Dim calib As McSpatialCalib Dim image As McImage Set image = ActiveImage Set image.SpatialCalibration = CreateOperator("McSpatialCalib") image.SpatialCalibration.Name = "Manually Created Image Calib" Dim regionsI As McRegions 'McRegions with parent McImage Set regionsI = image.RegionFeatures Dim regionsNoI As McRegions ' one w/out parent McImage Set regionsNoI = McEngine.CreateOperator("McRegions") 'See if calbration is already set if image.RegionFeatures.SpatialCalibration Is Nothing Then _ Debug.Print "SpatialCalibration is currently unassigned" ' Set calibrations Set regionsNoI.SpatialCalibration = CreateOperator("McSpatialCalib") regionsI.SpatialCalibration.Name = "Manually Created Regions Calib"