常州上位机培训

常州机器视觉培训

常州机器人培训

江苏和讯自动化设备有限公司欢迎您!
  • 和讯PLC,电工培训中心优势,名师团队一对一教学.
热门课程
联系方式
  • 常州和讯自动化培训中心
  • 常州市新北区太湖东路府琛大厦2号楼307-1室,307-2室(常州万达广场对面)
  • 电话:0519-85602926
  • 手机:15861139266 13401342299
当前位置:网站首页 > 新闻中心 新闻中心
Halcon教程之角度和距离测量-常州机器视觉学习,常州上位机学习
日期:2024-1-31 8:58:46人气:  标签:常州机器视觉学习 常州上位机学习

halcon代码:

   1 *读取并截取图片


   2: dev_close_window()


   3: read_image (Image, 'D:/MyFile/halcon/长度和角度测量/图.png')


   4: crop_rectangle1 (Image, ImagePart, 75, 0, 400, 400)


   5: get_image_size (ImagePart, Width, Height)


   6: dev_open_window (0, 0, Width, Height, 'black', WindowHandle)


   7: dev_display (ImagePart)


   8:  


   9: *获取图形的边界


  10: threshold (ImagePart, Regions, 0, 112)


  11:  


  12: *分离三角形和圆形


  13: connection(Regions,ConnectedRegions)


  14: sort_region(ConnectedRegions,SortedRegions,'upper_left','true','column')


  15: select_obj(SortedRegions,Circle,1)


  16: select_obj(SortedRegions,Triangle,2)


  17:  


  18: *获取三角形各边的信息


  19: skeleton(Triangle,TriangleSkeleton)


  20: gen_contours_skeleton_xld(TriangleSkeleton,TriangleContours,1,'filter')


  21: segment_contours_xld(TriangleContours,ContoursSplit,'lines_circles', 5, 4, 2)


  22: select_contours_xld(ContoursSplit,SelectedContours, 'contour_length',100, 999, -0.5, 0.5)


  23: fit_line_contour_xld (SelectedContours, 'tukey', -1, 10, 5, 2, RowBegin, ColBegin, RowEnd, ColEnd, Nr, Nc, Dist)


  24:  


  25: *计算三角形角度


  26: angle_ll (RowBegin[0], ColBegin[0], RowEnd[0], ColEnd[0], RowBegin[1], ColBegin[1], RowEnd[1], ColEnd[1], Angle1)


  27: angle_ll (RowBegin[0], ColBegin[0], RowEnd[0], ColEnd[0], RowBegin[2], ColBegin[2], RowEnd[2], ColEnd[2], Angle2)


  28: angle_ll (RowBegin[1], ColBegin[1], RowEnd[1], ColEnd[1], RowBegin[2], ColBegin[2], RowEnd[2], ColEnd[2], Angle3)


  29: Angle1:=abs(deg(Angle1))


  30: Angle2:=abs(deg(Angle2))


  31: Angle3:=abs(deg(Angle3))


  32:  


  33: *获取圆的信息


  34: area_center(Circle,AreaCircle, RowCircle, ColumnCircle)


  35:  


  36: *计算圆心到三角形各边的距离


  37: Distance := []


  38: for Index := 0 to 2 by 1


  39:     distance_pl (RowCircle, ColumnCircle, RowBegin[Index], ColBegin[Index], RowEnd[Index], ColEnd[Index], ThisDistance)


  40:     Distance := [Distance,ThisDistance]


  41: endfor

本文网址:
下一篇:没有资料

相关信息:
版权所有 CopyRight 2006-2017 江苏和讯自动化设备有限公司 电话:0519-85602926 地址:常州市新北区太湖东路府琛大厦2号楼307-1室,307-2室
ICP备14016686号-2 技术支持:常州鹤翔网络
本站关键词:常州电工培训 常州电工证 常州变频器培训 常州触摸屏培训 网站地图 网站标签
在线与我们取得联系