调用halcon实现三点绘制圆

By admin at 2019-05-11 • 0人收藏 • 2591人看过

image.png

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio调用halcon实现三点绘制圆 由Aardio.com.cn提供";right=735;bottom=604)
winform.add(
button={cls="button";text='\uF040 开始绘制';left=0;top=494;right=736;bottom=562;flat=1;font=LOGFONT(h=-21;name='FontAwesome');z=2};
edit={cls="edit";text="提示:点击[开始绘制],根据提示一步步操作";left=0;top=561;right=736;bottom=605;align="center";bgcolor=15780518;border=1;color=8421376;font=LOGFONT(h=-29);multiline=1;z=3};
picturebox={cls="picturebox";left=0;top=0;right=736;bottom=496;bgcolor=8421376;z=1}
)
/*}}*/

HOperatorSetX = com.CreateObject("{6ebd90e2-d219-11d2-ade5-0000c00f4ef9}")
var WindowHandle = HOperatorSetX.OpenWindow( 0 , 0 , winform.picturebox.width , winform.picturebox.width , winform.picturebox.hwnd , "transparent", "" );

winform.button.oncommand = function(id,event){
	//dev_clear_window()
	HOperatorSetX.SetSystem( 'clip_region','false' );
	//dev_set_draw('margin')
	HOperatorSetX.SetDraw( WindowHandle , "margin" );
	HOperatorSetX.SetColor( WindowHandle , "red" );
	//*下面绘制第一个点
	winform.edit.text = "提示:鼠标左键点击生成第一个点,右键确认位置"
	var  Row1, Column1 = HOperatorSetX.DrawPoint( WindowHandle );
	var Cross = HOperatorSetX.GenCrossContourXld(  Row1, Column1, 9, 0.785398 );
	HOperatorSetX.DispObj( Cross , WindowHandle );
	//*下面绘制第二个点
	winform.edit.text = "提示:鼠标左键点击生成第二个点,右键确认位置"
	var  Row2, Column2 = HOperatorSetX.DrawPoint( WindowHandle );
	var Cross1 = HOperatorSetX.GenCrossContourXld(  Row2, Column2, 9, 0.785398 );
	HOperatorSetX.DispObj( Cross1 , WindowHandle );
	//*下面绘制第三个点
	winform.edit.text = "提示:鼠标左键点击生成第三个点,右键确认位置"
	var  Row3, Column3 = HOperatorSetX.DrawPoint( WindowHandle );
	var Cross2 = HOperatorSetX.GenCrossContourXld(  Row3, Column3, 9, 0.785398 );
	HOperatorSetX.DispObj( Cross2 , WindowHandle );
	//*下面以三个点生成多边形XLD
	winform.edit.text = "提示:已生成外接圆"
	var Region = HOperatorSetX.GenContourPolygonXld( {Row1;Row2;Row3},{Column1;Column2;Column3} );
	//*下面拟合圆
	var  Row, Column, Radius, StartPhi, EndPhi, PointOrder = HOperatorSetX.FitCircleContourXld( Region, 'algebraic', -1, 0, 0, 3, 2 );
	var ContCircle = HOperatorSetX.GenCircleContourXld(  Row, Column, Radius, 0, 6.28318, 'positive', 1 );
	HOperatorSetX.DispObj( ContCircle , WindowHandle );
}

winform.show();
win.loopMessage();
return winform;

该代码由 http://www.ihalcon.com/read-12274.html

转化而来. 感谢网友分享

登录后方可回帖

登 录
信息栏
 私人小站

本站域名

ChengXu.XYZ

投诉联系:  popdes@126.com



快速上位机开发学习,本站主要记录了学习过程中遇到的问题和解决办法及上位机代码分享

这里主要专注于学习交流和经验分享.
纯私人站,当笔记本用的,学到哪写到哪.
如果侵权,联系 Popdes@126.com

友情链接
Aardio官方
Aardio资源网


才仁机械


网站地图SiteMap

Loading...