矩形内部如何生成垂直线，线的角度随矩形方向

如图中矩形，粗线是我想要生成的线，矩形的方向不固定，直线的角度随矩形的方向而改变，这个程序该怎么编写，请教各位大佬指教谢谢！

1. gen_image_const (Image, 'byte', 512, 512)
   
2. dev_set_draw ('margin')
   
3. dev_get_window (WindowHandle)
   
4. * draw_rectangle2 (WindowHandle, Row, Column, Phi, Length1, Length2)
   
5. Row:=251.916
   
6. Column:=272.396
   
7. Phi:=0.265131
   
8. Length1:=160.222
   
9. Length2:=66.25
   
10. gen_rectangle2 (Rectangle, Row, Column, Phi, Length1, Length2)
    
11. get_region_points (Rectangle, Rows, Columns)
    
12. tuple_union (Columns, Columns, Union)
    
13. step:=50
    
14. gen_empty_obj (EmptyObject)
    
15. for index:=1 to 5 by 1
    
16.     gen_rectangle2 (Rectangle1, Row, Union[index*step], Phi+rad(90), Length1, 5)
    
17.     intersection (Rectangle1, Rectangle, RegionIntersection)
    
18.     concat_obj (EmptyObject, RegionIntersection, EmptyObject)
    
19. endfor
    
20. dev_display (Image)
    
21. dev_display (Rectangle)
    
22. dev_display (EmptyObject)

复制代码

暗翼小哥 发表于 2024-1-5 15:55
gen_image_const (Image, 'byte', 512, 512)
dev_set_draw ('margin')
dev_get_window (WindowHandle)

感谢大佬解答，我想要的是大矩形内生成直线，不是矩形，这个大佬有办法吗？

1. dev_set_draw ('margin')
   
2. dev_get_window (WindowHandle)
   
3. read_image (Image, 'printer_chip/printer_chip_01')
   
4. draw_rectangle2 (WindowHandle, Row, Column, Phi, Length1, Length2)
   
5. gen_rectangle2 (Rectangle, Row, Column, Phi, Length1, Length2)
   
6. *分隔数量
   
7. N:=10
   
8. *分隔距离
   
9. D:=Length1*2/N
   
10. 
    
11. tuple_cos (Phi, Cos)
    
12. tuple_sin (Phi, Sin)
    
13. 
    
14. *左上
    
15. LT_X := Column+(-Length1*Cos - Length2*Sin)
    
16. LT_Y := Row-(-Length1*Sin + Length2*Cos)
    
17. 
    
18. *左下
    
19. LB_X := Column+(-Length1*Cos + Length2*Sin)
    
20. LB_Y := Row-(-Length1*Sin - Length2*Cos)
    
21. 
    
22. RB_X := Column+(Length1*Cos + Length2*Sin)
    
23. RB_Y := Row-(Length1*Sin - Length2*Cos)
    
24. 
    
25. RT_X := Column+(Length1*Cos - Length2*Sin)
    
26. RT_Y := Row-(Length1*Sin + Length2*Cos)
    
27. 
    
28. * gen_cross_contour_xld (Cross, LT_Y, LT_X, 36, 0)
    
29. * gen_cross_contour_xld (Cross2, LB_Y, LB_X, 36, 0)
    
30. 
    
31. for index := 1 to N-1 by 1
    
32.     ColBegin:=LT_X+cos(-Phi)*D*index
    
33.     RowBegin:=LT_Y+sin(-Phi)*D*index
    
34.     ColEnd:=LB_X+cos(-Phi)*D*index
    
35.     RowEnd:=LB_Y+sin(-Phi)*D*index
    
36.     gen_region_line (RegionLines, RowBegin, ColBegin, RowEnd, ColEnd)
    
37. endfor
    

复制代码

参考draw_rake 算子

夜问夜问 发表于 2024-1-5 16:06
感谢大佬解答，我想要的是大矩形内生成直线，不是矩形，这个大佬有办法吗？
...

楼下有大佬写出来了，学习就行了

halcon2016 发表于 2024-1-5 16:10
dev_set_draw ('margin')
dev_get_window (WindowHandle)
read_image (Image, 'printer_chip/printer_ch ...

十分感谢大佬，你的方法可以

利用sin,cos...
哇，原来已经有大佬写出来了

嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻谢谢

学习学习。。。