halcon
/
标注工具（对单张大图多标注）.hdev

<?xml version="1.0" encoding="UTF-8"?>
<hdevelop file_version="1.2" halcon_version="22.05.0.0">
<procedure name="main">
<interface/>
<body>
<l>dev_open_window (0, 0, 512, 512, 'black', WindowHandle)</l>
<c>* 图像根路径</c>
<l>image_root_dir := 'D:/图像/115s4e64231a0_gbl/'</l>
<c>* 图像名</c>
<l>image_name := 'org_proj.bmp'</l>
<l>read_image (Image, image_root_dir + image_name)</l>
<c></c>
<c>* 保存文件根路径</c>
<l>file_root_dir:= 'D:/图像/115s4e64231a0_gbl/'</l>
<c>* 文件名</c>
<l>file_name := '115s4e64231a0_gbl_1.csv'</l>
<c>* 检测文件是否存在</c>
<l>file_exists (file_root_dir + file_name, FileExists)</l>
<l>if (FileExists)</l>
<l>    open_file (file_root_dir + file_name, 'input', FileHandle)</l>
<l>    close_file (FileHandle)</l>
<l>endif</l>
<c>* 定义区域填充模式 透明填充</c>
<l>dev_set_draw ('margin')</l>
<c>* 生成一个空区域</c>
<l>gen_empty_obj (Rectregion)</l>
<l>c:=0</l>
<c></c>
<c>* 序号变量</c>
<l>index := 0</l>
<c></c>
<l>while(true)</l>
<l>    stop()</l>
<c>    *  在这里停止后，根据类别手动选择对应的类别分支，再按F5矩形运行代码</c>
<l>    switch(c)</l>
<l>    case 0:</l>
<c>        * 开路</c>
<l>        dev_set_color ('red')</l>
<l>        Catergary := 0</l>
<l>        break</l>
<l>    case 1:</l>
<c>        * 短路</c>
<l>        dev_set_color ('green')</l>
<l>        Catergary := 1</l>
<l>        break</l>
<l>    case 2:</l>
<c>        * 浅氧化</c>
<l>        dev_set_color ('blue')</l>
<l>        Catergary := 2.1</l>
<l>        break</l>
<l>    case 3:</l>
<c>        * 深氧化</c>
<l>        dev_set_color ('yellow')</l>
<l>        Catergary := 2.2</l>
<l>        break</l>
<l>    endswitch</l>
<c>    * 用鼠标对图像区域内画矩形</c>
<l>    draw_rectangle1 (WindowHandle, Row1, Column1, Row2, Column2)</l>
<l>    gen_rectangle1 (Rectangle, Row1, Column1, Row2, Column2)</l>
<c>    * 转换成整数类型</c>
<l>    tuple_round (Row1, Row1)</l>
<l>    tuple_round (Column1, Column1)</l>
<l>    tuple_round (Row2, Row2)</l>
<l>    tuple_round (Column2, Column2)</l>
<c>    * 设置图像彩色数量</c>
<l>    dev_set_colored (6)</l>
<c>    * 把对象合到对象元组中</c>
<l>    concat_obj (Rectregion, Rectangle, Rectregion)</l>
<c>    * 以追加的方式打开文件</c>
<l>    open_file (file_root_dir + file_name, 'append', FileHandle)</l>
<c>    * 输出到文档</c>
<l>    fwrite_string (FileHandle, index+',')</l>
<l>    fwrite_string (FileHandle, Row1+',')</l>
<l>    fwrite_string (FileHandle, Column1+',')</l>
<l>    fwrite_string (FileHandle, Row2+',')</l>
<l>    fwrite_string (FileHandle, Column2+',')</l>
<l>    fwrite_string (FileHandle, Catergary+'\n')</l>
<c>    * 关闭文档</c>
<l>    close_file (FileHandle)</l>
<c>    * 序号自增</c>
<l>    index := index+1</l>
<l>endwhile</l>
<c>* 当想要跳出循环时，将运行光标(绿色)移动到这里</c>
<c>* 保存标定的区域</c>
<l>write_region (Rectregion, image_root_dir+'region.hobj')</l>
</body>
<docu id="main">
<parameters/>
</docu>
</procedure>
</hdevelop>