关于线状物体断裂,宽窄检测的实现程序.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()? ?? ?? ?? ?