易语言开发视觉双相机定位分享

高庞

如果有热度就分享源代码
结合halcon19版本开发

  

如果真 (打开所有相机 ＝ 10)
延时 (10)
hal.复制图像 (相机1图片, Image)
图像预处理1 ()
' hal.设置模型参数 (模板句柄, “timeout”, 100)
左边结果 ＝ hal.单模型寻找不同形状 (Image, 模板句柄, 0, 360, 0.9, 1.1, 0.9, 1.1, 到小数 (编辑框12.内容), 1, 0.5, “least_squares”, 到整数 (编辑框11.内容), 0.9, 返回Y, 返回X, 返回角度, , , 返回分数)
' 左边结果 ＝ hal.寻找形状匹配模型 (Image, 模板句柄, 0, 360, 到小数 (编辑框12.内容), 1, 0.5, “least_squares”, 到整数 (编辑框11.内容), 0.9, 返回Y, 返回X, 返回角度, 返回分数)
如果 (hal.弧度到角度 (返回角度).取元组小数 () ＞ 90)
角度转换 ＝ hal.弧度到角度 (返回角度).取元组小数 () － 360
角度转换 ＝ hal.弧度到角度 (返回角度).取元组小数 ()

如果真 (左边结果 ＝ 0)
' hal.求点和角到刚性仿射变换 (0, 0, 0, 返回Y, 返回X, 返回角度, 矩阵左)
' hal.仿射变换XLD (模板轮廓, 临时轮廓, 矩阵左)
hal.创建矩形 (临时矩形, 返回Y, 返回X, 返回角度, 400, 400)
编辑框4.内容 ＝ 到文本 (角度转换)
编辑框5.内容 ＝ 到文本 (返回X.取元组小数 ())
编辑框6.内容 ＝ 到文本 (返回Y.取元组小数 ())
编辑框7.内容 ＝ 到文本 (到数值 (编辑框5.内容) － 到数值 (编辑框500.内容))
编辑框8.内容 ＝ 到文本 (到数值 (编辑框6.内容) － 到数值 (编辑框600.内容))
编辑框902.内容 ＝ 到文本 (到数值 (编辑框4.内容) － 到数值 (编辑框900.内容))
编辑框602.内容 ＝ 编辑框8.内容
编辑框502.内容 ＝ 编辑框7.内容
如果真 (返回Y.取元组小数 () ≠ 0 或 返回X.取元组小数 () ≠ 0)
延时 (10)
线程ID1 ＝ 线程_启动 (&找交点)
临时矩形.显示 (窗口ID)

i支持库列表	支持库注释
ehalcon_ch	(未知支持库)

.版本 2<br /> .支持库 ehalcon_ch<br /> <br /> .如果真 (打开所有相机 ＝ 10)<br />     延时 (10)<br />     hal.复制图像 (相机1图片, Image)<br />     图像预处理1 ()<br /> .如果真结束<br /> ' hal.设置模型参数 (模板句柄, “timeout”, 100)<br /> 左边结果 ＝ hal.单模型寻找不同形状 (Image, 模板句柄, 0, 360, 0.9, 1.1, 0.9, 1.1, 到小数 (编辑框12.内容), 1, 0.5, “least_squares”, 到整数 (编辑框11.内容), 0.9, 返回Y, 返回X, 返回角度, , , 返回分数)<br /> ' 左边结果 ＝ hal.寻找形状匹配模型 (Image, 模板句柄, 0, 360, 到小数 (编辑框12.内容), 1, 0.5, “least_squares”, 到整数 (编辑框11.内容), 0.9, 返回Y, 返回X, 返回角度, 返回分数)<br /> .如果 (hal.弧度到角度 (返回角度).取元组小数 () ＞ 90)<br />     角度转换 ＝ hal.弧度到角度 (返回角度).取元组小数 () － 360<br /> .否则<br />     角度转换 ＝ hal.弧度到角度 (返回角度).取元组小数 ()<br /> .如果结束<br /> <br /> .如果真 (左边结果 ＝ 0)<br />     ' hal.求点和角到刚性仿射变换 (0, 0, 0, 返回Y, 返回X, 返回角度, 矩阵左)<br />     ' hal.仿射变换XLD (模板轮廓, 临时轮廓, 矩阵左)<br />     hal.创建矩形 (临时矩形, 返回Y, 返回X, 返回角度, 400, 400)<br />     编辑框4.内容 ＝ 到文本 (角度转换)<br />     编辑框5.内容 ＝ 到文本 (返回X.取元组小数 ())<br />     编辑框6.内容 ＝ 到文本 (返回Y.取元组小数 ())<br />     编辑框7.内容 ＝ 到文本 (到数值 (编辑框5.内容) － 到数值 (编辑框500.内容))<br />     编辑框8.内容 ＝ 到文本 (到数值 (编辑框6.内容) － 到数值 (编辑框600.内容))<br />     编辑框902.内容 ＝ 到文本 (到数值 (编辑框4.内容) － 到数值 (编辑框900.内容))<br />     编辑框602.内容 ＝ 编辑框8.内容<br />     编辑框502.内容 ＝ 编辑框7.内容<br /> <br />     .如果真 (返回Y.取元组小数 () ≠ 0 或 返回X.取元组小数 () ≠ 0)<br />         延时 (10)<br />         线程ID1 ＝ 线程_启动 (&找交点)<br />     .如果真结束<br />     临时矩形.显示 (窗口ID)

  

' 找交点代码
如果真 (左边结果 ≠ 2)
' hal.清除窗口 (WindowHandle)
' hal.dev打开窗口 (0, 0, 图片框1.宽度, 图片框1.高度, “black”, WindowHandle)
hal.复制图像 (Image, Image2)
hal.取图像的尺寸 (Image2, Image高, Image宽)
hal.显示图像局部 (WindowHandle, 0, 0, Image宽, Image高)
hal.RGB1转灰度 (Image2, Image2)
' hal.读取图像 (Image2, “E:/视觉软件/halcon案例/halcon案例/08Halcon卡尺找边/2.png”)
hal.设置颜色 (WindowHandle, “red”)
hal.显示图像对象 (Image2, WindowHandle)
hal.取图像的尺寸 (Image2, Image高, Image宽)
hal.设置线宽 (WindowHandle, 2)
Row1 ＝ hal.取整数 (到小数 (编辑框17.内容) ＋ 到小数 (编辑框8.内容))
Column1 ＝ hal.取整数 (到小数 (编辑框18.内容) ＋ 到小数 (编辑框7.内容))
Row2 ＝ hal.取整数 (到小数 (编辑框19.内容) ＋ 到小数 (编辑框8.内容))
Column2 ＝ hal.取整数 (到小数 (编辑框20.内容) ＋ 到小数 (编辑框7.内容))
' hal.交互绘直线 (WindowHandle, Row1, Column1, Row2, Column2)
hal.赋值 (Line, hal.创建元组 (Row1, Column1, Row2, Column2))
hal.创建计量模型 (MetrologyHandle)
hal.设置计量模型图像大小 (MetrologyHandle, Image高, Image宽)
hal.添加计量对象通用 (MetrologyHandle, “line”, Line, 20, 5, 1, 15, hal.创建元组 (), hal.创建元组 (), Index)
hal.应用计量模型 (Image2, MetrologyHandle)
hal.取计量对象测量 (Contours, MetrologyHandle, “all”, “all”, Row, Column)
hal.创建十字XLD轮廓 (Cross, Row, Column, 1, 0.785398)
hal.取计量对象结果 (MetrologyHandle, “all”, “all”, “result_type”, “all_param”, Parameter)
hal.取计量对象模型轮廓 (Contour, MetrologyHandle, “all”, 1.5)
hal.清除计量模型 (MetrologyHandle)
' *拟合成直线
hal.创建多边形XLD轮廓 (Contour5, Row, Column)
hal.XLD轮廓拟合直线 (Contour5, “tukey”, -1, 0, 5, 2, RowBegin1, ColBegin1, RowEnd1, ColEnd1, Nr1, Nc1, Dist1)
' *这里主要是为了算角度
hal.线位置 (RowBegin1, ColBegin1, RowEnd1, ColEnd1, RowCenter, ColCenter, Length, Phi)
' *算角度
hal.赋值 (radian, Phi)
hal.赋值 (degree, hal.除 (hal.乘 (radian, 180), 3.1415926))
编辑框2302.内容 ＝ 到文本 (degree.取元组小数 ())
' *这个步骤才是构造无限长度直线
hal.XLD轮廓拟合直线 (Contour5, “tukey”, -1, 0, 5, 2, Row11, Column11, Row22, Column22, Nr1, Nc1, Dist1)
' hal.显示图像对象 (Contour5, 窗口ID)
' *特殊情况水平线
判断 (hal.等于 (hal.减 (Row22, Row11), 0))
hal.赋值 (k, 0)
hal.创建多边形XLD轮廓 (Contour, hal.创建元组 (Row22, Row22), hal.创建元组 (0, Image高))
k ＝ hal.取整数 ( (Column22.取元组小数 () － Column11.取元组小数 ()) ÷ (Row22.取元组小数 () － Row11.取元组小数 ()))
hal.赋值 (b, hal.减 (Column22, hal.乘 (k, Row22)))
hal.赋值 (Row1, 0)
hal.赋值 (Row2, hal.减 (Image宽, 1))
hal.赋值 (col1, hal.加 (hal.乘 (k, Row1), b))
hal.赋值 (col2, hal.加 (hal.乘 (k, Row2), b))
hal.创建多边形XLD轮廓 (Contour, hal.创建元组 (Row1, Row2), hal.创建元组 (col1, col2))

hal.显示图像对象 (Contour, 窗口ID)
' hal.交互绘直线 (WindowHandle, Row111, Column111, Row222, Column222)
Row111 ＝ hal.取整数 (到小数 (编辑框21.内容) ＋ 到小数 (编辑框8.内容))
Column111 ＝ hal.取整数 (到小数 (编辑框22.内容) ＋ 到小数 (编辑框7.内容))
Row222 ＝ hal.取整数 (到小数 (编辑框23.内容) ＋ 到小数 (编辑框8.内容))
Column222 ＝ hal.取整数 (到小数 (编辑框24.内容) ＋ 到小数 (编辑框7.内容))
' Row111 ＝ hal.取整数 (编辑框21.内容)
' Column111 ＝ hal.取整数 (编辑框22.内容)
' Row222 ＝ hal.取整数 (编辑框23.内容)
' Column222 ＝ hal.取整数 (编辑框24.内容)
hal.赋值 (Line, hal.创建元组 (Row111, Column111, Row222, Column222))
hal.创建计量模型 (MetrologyHandle1)
hal.设置计量模型图像大小 (MetrologyHandle1, Image高, Image宽)
hal.添加计量对象通用 (MetrologyHandle1, “line”, Line, 20, 5, 1, 15, hal.创建元组 (), hal.创建元组 (), Index)
hal.设置颜色 (WindowHandle, “red”)
hal.应用计量模型 (Image2, MetrologyHandle1)
' *生成的轮廓
hal.取计量对象测量 (Contours1, MetrologyHandle1, “all”, “all”, Row3, Column3)
' *生成叉叉的记号
hal.创建十字XLD轮廓 (Cross1, Row3, Column3, 1, 0.785398)
hal.取计量对象结果 (MetrologyHandle1, “all”, “all”, “result_type”, “all_param”, Parameter)
' *生成中间的那条横线
hal.取计量对象模型轮廓 (Contour1, MetrologyHandle1, “all”, 1.5)
hal.清除计量模型 (MetrologyHandle1)
' *拟合直线
hal.创建多边形XLD轮廓 (Contour2, Row3, Column3)
hal.XLD轮廓拟合直线 (Contour2, “tukey”, -1, 0, 5, 2, RowBegin, ColBegin, RowEnd, ColEnd, Nr, Nc, Dist)
' hal.显示图像对象 (Contour2, 窗口ID)
' *算角度
hal.线位置 (RowBegin, ColBegin, RowEnd, ColEnd, RowCenter1, ColCenter1, Length1, Phi1)
' *算角度
hal.赋值 (radian1, Phi1)
hal.赋值 (degree1, hal.除 (hal.乘 (radian1, 180), 3.1415926))
编辑框2303.内容 ＝ 到文本 (degree1.取元组小数 ())
' 编辑框4.内容 ＝ 到文本 (degree1.取元组小数 ())
' 编辑框9.内容 ＝ 到文本 (到数值 (编辑框4.内容) － 到数值 (编辑框900.内容))
hal.XLD轮廓拟合直线 (Contour2, “tukey”, -1, 0, 5, 2, Row11, Column11, Row22, Column22, Nr1, Nc1, Dist1)
' hal.显示图像对象 (Contour2, 窗口ID)
' *特殊情况水平线
判断 (hal.等于 (hal.减 (Row22, Row11), 0))
hal.赋值 (k, 0)
hal.创建多边形XLD轮廓 (Contour1, hal.创建元组 (Row22, Row22), hal.创建元组 (0, Image高))
k ＝ hal.取整数 ( (Column22.取元组小数 () － Column11.取元组小数 ()) ÷ (Row22.取元组小数 () － Row11.取元组小数 ()))
hal.赋值 (b, hal.减 (Column22, hal.乘 (k, Row22)))
hal.赋值 (Row1, 0)
hal.赋值 (Row2, hal.减 (Image宽, 1))
hal.赋值 (col1, hal.加 (hal.乘 (k, Row1), b))
hal.赋值 (col2, hal.加 (hal.乘 (k, Row2), b))
hal.创建多边形XLD轮廓 (Contour1, hal.创建元组 (Row1, Row2), hal.创建元组 (col1, col2))

hal.显示图像对象 (Contour1, 窗口ID)
hal.求线段交点 (RowBegin1, ColBegin1, RowEnd1, ColEnd1, RowBegin, ColBegin, RowEnd, ColEnd, Row6, Column4, IsOverlapping)
hal.创建十字XLD轮廓 (Cross2, Row6, Column4, 200, 0.785398)
找到交点 ＝ hal.显示图像对象 (Cross2, 窗口ID)
编辑框42.内容 ＝ 到文本 (找到交点)
取交点原点Y ＝ 到数值 (Row6.取元组小数 ())
取交点原点X ＝ 到数值 (Column4.取元组小数 ())
编辑框2300.内容 ＝ 到文本 (到数值 (Row6.取元组小数 ()) － 到数值 (编辑框800.内容))
编辑框2301.内容 ＝ 到文本 (到数值 (Column4.取元组小数 ()) － 到数值 (编辑框801.内容))
编辑框2506.内容 ＝ 编辑框2300.内容
编辑框2507.内容 ＝ 编辑框2301.内容
hal.保存窗口到文件 (窗口ID, “png”, 取运行目录 () ＋ “\测试完成图片\” ＋ 到文本 (取现行时间 ()) ＋ “_” ＋ 编辑框10.内容 ＋ “_左”)
如果 (编辑框2300.内容 ≠ “” 且 编辑框2301.内容 ≠ “”)
如果真 (按钮25.标题 ＝ “标定开启”)
延时 (10)
线程_启动 (&标定A)

如果真 (到整数 (编辑框2302.内容) ＝ 0 且 到整数 (编辑框2303.内容) ＝ 0)
标签6.文本颜色 ＝ #红色
标签6.标题 ＝ “NG”
编辑框3.加入文本 (到文本 (取现行时间 ()) ＋ “:左交点未生成，左计算NG” ＋ #换行符 )
编辑框20006.内容 ＝ “2”

i支持库列表	支持库注释
ehalcon_ch	(未知支持库)

'找交点代码<br /> .版本 2<br /> .支持库 ehalcon_ch<br /> <br /> .如果真 (左边结果 ≠ 2)<br />     ' hal.清除窗口 (WindowHandle)<br />     ' hal.dev打开窗口 (0, 0, 图片框1.宽度, 图片框1.高度, “black”, WindowHandle)<br />     hal.复制图像 (Image, Image2)<br />     hal.取图像的尺寸 (Image2, Image高, Image宽)<br />     hal.显示图像局部 (WindowHandle, 0, 0, Image宽, Image高)<br />     hal.RGB1转灰度 (Image2, Image2)<br />     ' hal.读取图像 (Image2, “E:/视觉软件/halcon案例/halcon案例/08Halcon卡尺找边/2.png”)<br />     hal.设置颜色 (WindowHandle, “red”)<br />     hal.显示图像对象 (Image2, WindowHandle)<br />     hal.取图像的尺寸 (Image2, Image高, Image宽)<br />     hal.设置线宽 (WindowHandle, 2)<br /> <br />     Row1 ＝ hal.取整数 (到小数 (编辑框17.内容) ＋ 到小数 (编辑框8.内容))<br />     Column1 ＝ hal.取整数 (到小数 (编辑框18.内容) ＋ 到小数 (编辑框7.内容))<br />     Row2 ＝ hal.取整数 (到小数 (编辑框19.内容) ＋ 到小数 (编辑框8.内容))<br />     Column2 ＝ hal.取整数 (到小数 (编辑框20.内容) ＋ 到小数 (编辑框7.内容))<br /> <br />     ' hal.交互绘直线 (WindowHandle, Row1, Column1, Row2, Column2)<br />     hal.赋值 (Line, hal.创建元组 (Row1, Column1, Row2, Column2))<br />     hal.创建计量模型 (MetrologyHandle)<br />     hal.设置计量模型图像大小 (MetrologyHandle, Image高, Image宽)<br />     hal.添加计量对象通用 (MetrologyHandle, “line”, Line, 20, 5, 1, 15, hal.创建元组 (), hal.创建元组 (), Index)<br />     hal.应用计量模型 (Image2, MetrologyHandle)<br />     hal.取计量对象测量 (Contours, MetrologyHandle, “all”, “all”, Row, Column)<br />     hal.创建十字XLD轮廓 (Cross, Row, Column, 1, 0.785398)<br /> <br />     hal.取计量对象结果 (MetrologyHandle, “all”, “all”, “result_type”, “all_param”, Parameter)<br />     hal.取计量对象模型轮廓 (Contour, MetrologyHandle, “all”, 1.5)<br /> <br />     hal.清除计量模型 (MetrologyHandle)<br />     ' *拟合成直线<br />     hal.创建多边形XLD轮廓 (Contour5, Row, Column)<br />     hal.XLD轮廓拟合直线 (Contour5, “tukey”, -1, 0, 5, 2, RowBegin1, ColBegin1, RowEnd1, ColEnd1, Nr1, Nc1, Dist1)<br />     ' *这里主要是为了算角度<br />     hal.线位置 (RowBegin1, ColBegin1, RowEnd1, ColEnd1, RowCenter, ColCenter, Length, Phi)<br />     ' *算角度<br />     hal.赋值 (radian, Phi)<br />     hal.赋值 (degree, hal.除 (hal.乘 (radian, 180), 3.1415926))<br />     编辑框2302.内容 ＝ 到文本 (degree.取元组小数 ())<br />     ' *这个步骤才是构造无限长度直线<br />     hal.XLD轮廓拟合直线 (Contour5, “tukey”, -1, 0, 5, 2, Row11, Column11, Row22, Column22, Nr1, Nc1, Dist1)<br />     ' hal.显示图像对象 (Contour5, 窗口ID)<br />     ' *特殊情况水平线<br />     .判断开始 (hal.等于 (hal.减 (Row22, Row11), 0))<br />         hal.赋值 (k, 0)<br />         hal.创建多边形XLD轮廓 (Contour, hal.创建元组 (Row22, Row22), hal.创建元组 (0, Image高))<br />     .默认<br />         k ＝ hal.取整数 ((Column22.取元组小数 () － Column11.取元组小数 ()) ÷ (Row22.取元组小数 () － Row11.取元组小数 ()))<br />         hal.赋值 (b, hal.减 (Column22, hal.乘 (k, Row22)))<br />         hal.赋值 (Row1, 0)<br />         hal.赋值 (Row2, hal.减 (Image宽, 1))<br />         hal.赋值 (col1, hal.加 (hal.乘 (k, Row1), b))<br />         hal.赋值 (col2, hal.加 (hal.乘 (k, Row2), b))<br />         hal.创建多边形XLD轮廓 (Contour, hal.创建元组 (Row1, Row2), hal.创建元组 (col1, col2))<br />     .判断结束<br /> <br />     hal.显示图像对象 (Contour, 窗口ID)<br />     ' hal.交互绘直线 (WindowHandle, Row111, Column111, Row222, Column222)<br />     Row111 ＝ hal.取整数 (到小数 (编辑框21.内容) ＋ 到小数 (编辑框8.内容))<br />     Column111 ＝ hal.取整数 (到小数 (编辑框22.内容) ＋ 到小数 (编辑框7.内容))<br />     Row222 ＝ hal.取整数 (到小数 (编辑框23.内容) ＋ 到小数 (编辑框8.内容))<br />     Column222 ＝ hal.取整数 (到小数 (编辑框24.内容) ＋ 到小数 (编辑框7.内容))<br /> <br /> <br />     ' Row111 ＝ hal.取整数 (编辑框21.内容)<br />     ' Column111 ＝ hal.取整数 (编辑框22.内容)<br />     ' Row222 ＝ hal.取整数 (编辑框23.内容)<br />     ' Column222 ＝ hal.取整数 (编辑框24.内容)<br /> <br />     hal.赋值 (Line, hal.创建元组 (Row111, Column111, Row222, Column222))<br />     hal.创建计量模型 (MetrologyHandle1)<br />     hal.设置计量模型图像大小 (MetrologyHandle1, Image高, Image宽)<br />     hal.添加计量对象通用 (MetrologyHandle1, “line”, Line, 20, 5, 1, 15, hal.创建元组 (), hal.创建元组 (), Index)<br />     hal.设置颜色 (WindowHandle, “red”)<br />     hal.应用计量模型 (Image2, MetrologyHandle1)<br />     ' *生成的轮廓<br />     hal.取计量对象测量 (Contours1, MetrologyHandle1, “all”, “all”, Row3, Column3)<br />     ' *生成叉叉的记号<br />     hal.创建十字XLD轮廓 (Cross1, Row3, Column3, 1, 0.785398)<br />     hal.取计量对象结果 (MetrologyHandle1, “all”, “all”, “result_type”, “all_param”, Parameter)<br />     ' *生成中间的那条横线<br />     hal.取计量对象模型轮廓 (Contour1, MetrologyHandle1, “all”, 1.5)<br />     hal.清除计量模型 (MetrologyHandle1)<br />     ' *拟合直线<br />     hal.创建多边形XLD轮廓 (Contour2, Row3, Column3)<br />     hal.XLD轮廓拟合直线 (Contour2, “tukey”, -1, 0, 5, 2, RowBegin, ColBegin, RowEnd, ColEnd, Nr, Nc, Dist)<br />     ' hal.显示图像对象 (Contour2, 窗口ID)<br />     ' *算角度<br />     hal.线位置 (RowBegin, ColBegin, RowEnd, ColEnd, RowCenter1, ColCenter1, Length1, Phi1)<br />     ' *算角度<br />     hal.赋值 (radian1, Phi1)<br />     hal.赋值 (degree1, hal.除 (hal.乘 (radian1, 180), 3.1415926))<br />     编辑框2303.内容 ＝ 到文本 (degree1.取元组小数 ())<br />     ' 编辑框4.内容 ＝ 到文本 (degree1.取元组小数 ())<br />     ' 编辑框9.内容 ＝ 到文本 (到数值 (编辑框4.内容) － 到数值 (编辑框900.内容))<br /> <br />     hal.XLD轮廓拟合直线 (Contour2, “tukey”, -1, 0, 5, 2, Row11, Column11, Row22, Column22, Nr1, Nc1, Dist1)<br />     ' hal.显示图像对象 (Contour2, 窗口ID)<br />     ' *特殊情况水平线<br />     .判断开始 (hal.等于 (hal.减 (Row22, Row11), 0))<br />         hal.赋值 (k, 0)<br />         hal.创建多边形XLD轮廓 (Contour1, hal.创建元组 (Row22, Row22), hal.创建元组 (0, Image高))<br />     .默认<br />         k ＝ hal.取整数 ((Column22.取元组小数 () － Column11.取元组小数 ()) ÷ (Row22.取元组小数 () － Row11.取元组小数 ()))<br />         hal.赋值 (b, hal.减 (Column22, hal.乘 (k, Row22)))<br />         hal.赋值 (Row1, 0)<br />         hal.赋值 (Row2, hal.减 (Image宽, 1))<br />         hal.赋值 (col1, hal.加 (hal.乘 (k, Row1), b))<br />         hal.赋值 (col2, hal.加 (hal.乘 (k, Row2), b))<br />         hal.创建多边形XLD轮廓 (Contour1, hal.创建元组 (Row1, Row2), hal.创建元组 (col1, col2))<br />     .判断结束<br /> <br />     hal.显示图像对象 (Contour1, 窗口ID)<br />     hal.求线段交点 (RowBegin1, ColBegin1, RowEnd1, ColEnd1, RowBegin, ColBegin, RowEnd, ColEnd, Row6, Column4, IsOverlapping)<br />     hal.创建十字XLD轮廓 (Cross2, Row6, Column4, 200, 0.785398)<br />     找到交点 ＝ hal.显示图像对象 (Cross2, 窗口ID)<br />     编辑框42.内容 ＝ 到文本 (找到交点)<br />     取交点原点Y ＝ 到数值 (Row6.取元组小数 ())<br />     取交点原点X ＝ 到数值 (Column4.取元组小数 ())<br />     编辑框2300.内容 ＝ 到文本 (到数值 (Row6.取元组小数 ()) － 到数值 (编辑框800.内容))<br />     编辑框2301.内容 ＝ 到文本 (到数值 (Column4.取元组小数 ()) － 到数值 (编辑框801.内容))<br />     编辑框2506.内容 ＝ 编辑框2300.内容<br />     编辑框2507.内容 ＝ 编辑框2301.内容<br />     hal.保存窗口到文件 (窗口ID, “png”, 取运行目录 () ＋ “\测试完成图片\” ＋ 到文本 (取现行时间 ()) ＋ “_” ＋ 编辑框10.内容 ＋ “_左”)<br />     .如果 (编辑框2300.内容 ≠ “” 且 编辑框2301.内容 ≠ “”)<br />         .如果真 (按钮25.标题 ＝ “标定开启”)<br />             延时 (10)<br />             线程_启动 (&标定A)<br />         .如果真结束<br /> <br />     .否则<br />         .如果真 (到整数 (编辑框2302.内容) ＝ 0 且 到整数 (编辑框2303.内容) ＝ 0)<br />             标签6.文本颜色 ＝ #红色<br />             标签6.标题 ＝ “NG”<br />             编辑框3.加入文本 (到文本 (取现行时间 ()) ＋ “:左交点未生成，左计算NG” ＋ #换行符)<br />             编辑框20006.内容 ＝ “2”

高庞

附加软件界面

神一样的人猫腻

感谢分享

cs潇潇

看不懂，这能校验打印机吗，感觉用途有限

yysy3344

niubiniubi666666

高庞

神一样的人猫腻 发表于 2024-6-7 23:56
感谢分享

分享那方面的？抓图还是找线

高庞

cs潇潇 发表于 2024-6-8 04:28
看不懂，这能校验打印机吗，感觉用途有限

主要是视觉定位这方面的

高庞

yysy3344 发表于 2024-6-8 10:49
niubiniubi666666

谢谢老铁

高庞

每天分享一点从创建窗口开始，分享

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
相机ID	视觉元组
相机ID1	视觉元组
窗口ID	视觉元组
窗口ID1	视觉元组
窗口ID2	视觉元组
窗口ID3	视觉元组
hal	Halcon19
Image	视觉对象
Image高	视觉元组
Image宽	视觉元组
Image1	视觉对象
Image1高	视觉元组
Image1宽	视觉元组
绘制矩形	视觉对象
模板句柄	视觉元组
绘制矩形1	视觉对象
模板句柄1	视觉元组
模板轮廓	视觉对象
模板轮廓1	视觉对象
返回X	视觉元组
返回Y	视觉元组
返回角度	视觉元组
返回分数	视觉元组
中心Y	双精度小数型
中心X	双精度小数型
长半轴角度	双精度小数型
长半轴长度	双精度小数型
短半轴长度	双精度小数型
取原点X	双精度小数型
取原点Y	双精度小数型
取原点R	视觉元组
返回1X	视觉元组
返回1Y	视觉元组
返回角度1	视觉元组
返回分数1	视觉元组
中心1Y	双精度小数型
中心1X	双精度小数型
长半轴角度1	双精度小数型
长半轴长度1	双精度小数型
短半轴长度1	双精度小数型
取原点1X	双精度小数型
取原点1Y	双精度小数型
取原点1R	视觉元组
取交点原点X	双精度小数型
取交点原点Y	双精度小数型
取交点原点1X	双精度小数型
取交点原点1Y	双精度小数型
t	整数型
PLC接通	逻辑型
起点Y	视觉元组
起点X	视觉元组
终点Y	视觉元组
终点X	视觉元组
起点1Y	视觉元组
起点1X	视觉元组
终点1Y	视觉元组
终点1X	视觉元组
矩阵	视觉元组
临时矩阵	视觉元组
左边结果	整数型
右边结果	整数型
取图像原点Y	文本型
取图像原点X	文本型
启动软件	整数型
RB连接站点号	整数型
打开相机1	短整数型
打开相机2	短整数型
线程ID1	整数型
线程ID2	整数型
图像处理中	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

hal.打开窗口 (0, 0, 图片框1.宽度, 图片框1.高度, 图片框1.取窗口句柄 (), #视觉_窗口模式_可视, , 窗口ID)
hal.打开窗口 (0, 0, 图片框4.宽度, 图片框4.高度, 图片框4.取窗口句柄 (), #视觉_窗口模式_可视, , 窗口ID1)
hal.打开窗口 (0, 0, 图片框2.宽度, 图片框2.高度, 图片框2.取窗口句柄 (), #视觉_窗口模式_可视, , 窗口ID2)
hal.打开窗口 (0, 0, 图片框3.宽度, 图片框3.高度, 图片框3.取窗口句柄 (), #视觉_窗口模式_可视, , 窗口ID3)
hal.设置颜色 (窗口ID, #视觉_颜色_红色 )
hal.设置填充模式 (窗口ID, “margin”)
hal.设置线宽 (窗口ID, 3)
hal.设置颜色 (窗口ID1, #视觉_颜色_红色 )
hal.设置填充模式 (窗口ID1, “margin”)
hal.设置线宽 (窗口ID1, 3)
hal.设置颜色 (窗口ID2, #视觉_颜色_红色 )
hal.设置填充模式 (窗口ID2, “margin”)
hal.设置线宽 (窗口ID2, 3)
hal.设置颜色 (窗口ID3, #视觉_颜色_红色 )
hal.设置填充模式 (窗口ID3, “margin”)
hal.设置线宽 (窗口ID3, 3)

i支持库列表	支持库注释
ehalcon_ch	(未知支持库)

.版本 2<br /> .支持库 ehalcon_ch<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 相机ID, 视觉元组<br /> .程序集变量 相机ID1, 视觉元组<br /> .程序集变量 窗口ID, 视觉元组<br /> .程序集变量 窗口ID1, 视觉元组<br /> .程序集变量 窗口ID2, 视觉元组<br /> .程序集变量 窗口ID3, 视觉元组<br /> .程序集变量 hal, Halcon19<br /> .程序集变量 Image, 视觉对象<br /> .程序集变量 Image高, 视觉元组<br /> .程序集变量 Image宽, 视觉元组<br /> .程序集变量 Image1, 视觉对象<br /> .程序集变量 Image1高, 视觉元组<br /> .程序集变量 Image1宽, 视觉元组<br /> .程序集变量 绘制矩形, 视觉对象<br /> .程序集变量 模板句柄, 视觉元组<br /> .程序集变量 绘制矩形1, 视觉对象<br /> .程序集变量 模板句柄1, 视觉元组<br /> .程序集变量 模板轮廓, 视觉对象<br /> .程序集变量 模板轮廓1, 视觉对象<br /> .程序集变量 返回X, 视觉元组<br /> .程序集变量 返回Y, 视觉元组<br /> .程序集变量 返回角度, 视觉元组<br /> .程序集变量 返回分数, 视觉元组<br /> .程序集变量 中心Y, 双精度小数型<br /> .程序集变量 中心X, 双精度小数型<br /> .程序集变量 长半轴角度, 双精度小数型<br /> .程序集变量 长半轴长度, 双精度小数型<br /> .程序集变量 短半轴长度, 双精度小数型<br /> .程序集变量 取原点X, 双精度小数型<br /> .程序集变量 取原点Y, 双精度小数型<br /> .程序集变量 取原点R, 视觉元组<br /> .程序集变量 返回1X, 视觉元组<br /> .程序集变量 返回1Y, 视觉元组<br /> .程序集变量 返回角度1, 视觉元组<br /> .程序集变量 返回分数1, 视觉元组<br /> .程序集变量 中心1Y, 双精度小数型<br /> .程序集变量 中心1X, 双精度小数型<br /> .程序集变量 长半轴角度1, 双精度小数型<br /> .程序集变量 长半轴长度1, 双精度小数型<br /> .程序集变量 短半轴长度1, 双精度小数型<br /> .程序集变量 取原点1X, 双精度小数型<br /> .程序集变量 取原点1Y, 双精度小数型<br /> .程序集变量 取原点1R, 视觉元组<br /> .程序集变量 取交点原点X, 双精度小数型<br /> .程序集变量 取交点原点Y, 双精度小数型<br /> .程序集变量 取交点原点1X, 双精度小数型<br /> .程序集变量 取交点原点1Y, 双精度小数型<br /> .程序集变量 t, 整数型<br /> .程序集变量 PLC接通, 逻辑型<br /> .程序集变量 起点Y, 视觉元组<br /> .程序集变量 起点X, 视觉元组<br /> .程序集变量 终点Y, 视觉元组<br /> .程序集变量 终点X, 视觉元组<br /> .程序集变量 起点1Y, 视觉元组<br /> .程序集变量 起点1X, 视觉元组<br /> .程序集变量 终点1Y, 视觉元组<br /> .程序集变量 终点1X, 视觉元组<br /> .程序集变量 矩阵, 视觉元组<br /> .程序集变量 临时矩阵, 视觉元组<br /> .程序集变量 左边结果, 整数型<br /> .程序集变量 右边结果, 整数型<br /> .程序集变量 取图像原点Y, 文本型<br /> .程序集变量 取图像原点X, 文本型<br /> .程序集变量 启动软件, 整数型<br /> .程序集变量 RB连接站点号, 整数型<br /> .程序集变量 打开相机1, 短整数型<br /> .程序集变量 打开相机2, 短整数型<br /> .程序集变量 线程ID1, 整数型<br /> .程序集变量 线程ID2, 整数型<br /> .程序集变量 图像处理中, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> hal.打开窗口 (0, 0, 图片框1.宽度, 图片框1.高度, 图片框1.取窗口句柄 (), #视觉_窗口模式_可视, , 窗口ID)<br /> hal.打开窗口 (0, 0, 图片框4.宽度, 图片框4.高度, 图片框4.取窗口句柄 (), #视觉_窗口模式_可视, , 窗口ID1)<br /> hal.打开窗口 (0, 0, 图片框2.宽度, 图片框2.高度, 图片框2.取窗口句柄 (), #视觉_窗口模式_可视, , 窗口ID2)<br /> hal.打开窗口 (0, 0, 图片框3.宽度, 图片框3.高度, 图片框3.取窗口句柄 (), #视觉_窗口模式_可视, , 窗口ID3)<br /> <br /> hal.设置颜色 (窗口ID, #视觉_颜色_红色)<br /> hal.设置填充模式 (窗口ID, “margin”)<br /> hal.设置线宽 (窗口ID, 3)<br /> hal.设置颜色 (窗口ID1, #视觉_颜色_红色)<br /> hal.设置填充模式 (窗口ID1, “margin”)<br /> hal.设置线宽 (窗口ID1, 3)<br /> hal.设置颜色 (窗口ID2, #视觉_颜色_红色)<br /> hal.设置填充模式 (窗口ID2, “margin”)<br /> hal.设置线宽 (窗口ID2, 3)<br /> hal.设置颜色 (窗口ID3, #视觉_颜色_红色)<br /> hal.设置填充模式 (窗口ID3, “margin”)<br /> hal.设置线宽 (窗口ID3, 3)

year1970

感谢分享