关于线状物体断裂,宽窄检测的实现.docx

项目描述:检测下图红色框中黑色胶带的断裂,过宽或过窄:?需求分析:检测目标所处图像环境较为复杂,应予以提取,而后使用Findline工具沿着胶带形态提取边缘对点,再分析所有边缘对计算最大最小值即可.基准图像?采集图像1.?2.?第一步:分离背景,提取检测目标:Dim ImageMinus As New CogIPTwoImageSubtractTool??ImageMinus.InputImageA = DisplayRef.Image 导入基准图像?ImageMinus.InputImageB = CogRecordDisplay1.Image? ?? ?? ? 导入采集图像?ImageMinus.Run()? ?? ?? ?? ?? ?? ? 执行目标提取复制代码提取后图像1.?2.?第二步:检测断裂,使用斑点工具寻找白色斑点,若斑点个数大于1,则胶带发生断裂.?第三步:检测宽窄,使用Findline工具1.?Dim Line As New CogLineSegment?Dim Max, Min As Double?Dim IndexMax, IndexMin As New Integer?Dim Rec As New CogRectangleAffine?Max = 0?Min = 100?Rec = Blob.Results.GetBlobs.Item(0).GetBoundingBoxAtAngle(Blob.Results.GetBlobs.Item(0).Angle)?InspectDisplay.StaticGraphics.Add(Rec, 9)? ?? ?? ?? ???获取斑点区域?CogRecordDisplay1.StaticGraphics.Add(Rec, 9)?FindLine.InputImage = ImageMinus.OutputImage 导入提取目标后图像?FindLine.RunParams.ExpectedLineSegment.SetStartLengthRotation((Rec.CornerOriginX + Rec.CornerYX) / 2, (Rec.CornerOriginY + Rec.CornerYY) / 2, Rec.SideXLength, Rec.Rotation)? ?? ?? ?设定期望直线?FindLine.RunParams.CaliperProjectionLength = ProjectionBox.Text?FindLine.RunParams.CaliperSearchLength = Rec.SideYLength + 80?FindLine.RunParams.CaliperRunParams.EdgeMode = CogCaliperEdgeModeConstants.Pair?FindLine.RunParams.CaliperRunParams.Edge0Polarity = CogCaliperPolarityConstants.DarkToLight?FindLine.RunParams.CaliperRunParams.Edge1Polarity = CogCaliperPolarityConstants.LightToDark?FindLine.RunParams.CaliperRunParams.MaxResults = 1?FindLine.RunParams.CaliperRunParams.ContrastThreshold = ContrastBox.Text?FindLine.RunParams.CaliperRunParams.Edge0Position = -WidthBox.Text / 2?FindLine.RunParams.CaliperRunParams.Edge1Position = WidthBox.Text / 2?FindLine.RunParams.NumCalipers = Count.Text?FindLine.RunParams.CaliperRunParams.FilterHalfSizeInPixels = FilterBox.Text??FindLine.Run()? ?? ?? ?? ?? ? 寻边参数设定完成,运行?For I As Integer = 0 To FindLine.Results.Count - 1 Step 1 If??FindLine.Results.Item(I).CaliperResults.Item(0).Width Max Then Max = FindLine.Results.Item(I).CaliperResults.Item(0).