quote:

---

The last part I should be able to solve if I just spend some time learnig the syntax of Origin C, I guess.
As to the first part, I don't know how to do this. I don't get what LabTalk does etcetera. I thought Origin C is like C with 'special features for Origin applications' but this code seems strange to me.
Is there some kind of tutorial for Origin C?

---

void get_screen_clicks()
{
	// Create a new worksheet to hold the x, y values
	Worksheet wks;
	wks.Create("Origin", CREATE_HIDDEN);
	// Delete all cols - template may have different setup than needed
	while( wks.DeleteCol(0) );
	// Add two cols to hold x,y values of clicked points
	wks.AddCol("PointX");
	wks.AddCol("PointY");
	wks.Columns(0).SetType(OKDATAOBJ_DESIGNATION_X);
	string strWksName = wks.GetPage().GetName();
	
	// Now call LabTalk code to accept points till user clicks Esc key
	SetDataDisplayText("Double-click for Points, Esc to quit");
	string strThisFile = __FILE__;
	string strCMD;
	strCMD.Format("run.section(%s,GetScreenClicks, %s)", strThisFile, strWksName);
	LT_execute(strCMD);
	
	// Back from LabTalk call - report to user
	printf("X, Y of clicked points saved in worksheet: %s\n", strWksName);
}

// This section of LabTalk will be ignored by compiler since it is contained within an ifdef block.
// The section of script within this block can then be called by a run.section LabTalk command.
#ifdef LABTALK
[GetScreenClicks]
	%a=%1_PointX;
	%b=%1_PointY;
	//create picked_b -c 10;
	for(done=0,waiting=0,idx=1;done==0; ) {
	sec -p .1;
	if(waiting==0)
	{
		dotool 2;
		def pointproc 
		{
			%a[idx]=x;
			%b[idx]=y;
			idx++;
		}
		def quittoolbox 
		{
			done=1;
			dotool 0;
		}
		waiting=1;
   }
}
#endif

static string strWksName; // save worksheet name between sessions

void get_screen_clicks()
{
	Worksheet wks;
	wks.Attach(strWksName);
	if( wks )
	{
		if( MessageBox( GetWindow(), "Start a new output worksheet?", "Attention!" , 
			MB_YESNO | MB_ICONQUESTION | MB_DEFBUTTON1 ) == IDYES )
			wks.Detach();
	}
	if( !wks )
	{
		wks.Create("Origin", CREATE_HIDDEN);
		// Delete all cols - template may have different setup than needed
		while( wks.DeleteCol(0) );
		// Add two cols to hold x,y values of clicked points
		wks.AddCol("PointX");
		wks.AddCol("PointY");
		wks.Columns(0).SetType(OKDATAOBJ_DESIGNATION_X);
		strWksName = wks.GetPage().GetName();
	}
	
	// Now call LabTalk code to accept points till user clicks Esc key
	SetDataDisplayText("Double-click for Points, Esc to quit");
	string strThisFile = __FILE__;
	string strCMD;
	strCMD.Format("run.section(%s,GetScreenClicks, %s)", strThisFile, strWksName);
	LT_execute(strCMD);
	// Back from LabTalk call - report to user
	Dataset dd(wks,0);
	printf("X, Y of %d points saved in worksheet: %s\n", dd.GetSize(), strWksName);
}

// This section of LabTalk will be ignored by compiler since it is contained within an ifdef block.
// The section of script within this block can then be successfully called by a run.section LabTalk command.
#ifdef LABTALK
[GetScreenClicks]
	//%a=%1_PointX;
	//%b=%1_PointY;
	for(done=0,waiting=0,idx=%1!wks.maxrows+1;done==0; ) {
		sec -p .1;
		if(waiting==0)
		{
			dotool 2;
			def pointproc 
			{
				// draw vertical line at x value
				draw -l -v x;
				// find its name
				doc -e G {break};
				// color it red
				%B.color=color(red);
				%1_PointX[idx]=x;
				%1_PointY[idx]=y;
				idx++;
			}
			def quittoolbox 
			{
				done=1;
				dotool 0;
			}
			waiting=1;
		}
	}

static string strWksName; // save worksheet name between sessions

void get_screen_clicks()
{
	Worksheet wks(strWksName);
	if( wks )
	{
		if( MessageBox( GetWindow(), "Start a new output worksheet?", "Attention!" , 
			MB_YESNO | MB_ICONQUESTION | MB_DEFBUTTON1 ) == IDYES )
			wks.Detach();
	}
	if( !wks )
	{
		wks.Create("Origin", CREATE_HIDDEN);
		// Delete all cols - template may have different setup than needed
		while( wks.DeleteCol(0) );
		// Add two cols to hold x,y values of clicked points
		wks.AddCol("PointX");
		wks.AddCol("PointY");
		wks.Columns(0).SetType(OKDATAOBJ_DESIGNATION_X);
		strWksName = wks.GetPage().GetName();
	}
	
	// Plot selected points as markers
	GraphLayer gl = Project.ActiveLayer();
	DataPlot dp = gl.DataPlots(strWksName + "_PointY");
	if( !dp )
	{
		Curve cv(wks,1);
		gl.AddPlot(cv, IDM_PLOT_SCATTER);
		dp = gl.DataPlots(strWksName + "_PointY");
		dp.Curve.Symbol.Shape.nVal = 13; // symbol = X
		dp.Curve.Symbol.Size.nVal = 9; // symbol size = 9
		dp.Curve.Symbol.EdgeColor.nVal = 1; // symbol color = red
	}
	
	// Now call LabTalk code to accept points till user clicks Esc key
	SetDataDisplayText("Double-click for Points, Esc to quit");
	string strThisFile = __FILE__;
	string strCMD;
	strCMD.Format("run.section(%s,GetScreenClicks, %s)", strThisFile, strWksName);
	LT_execute(strCMD);
	
	gl.RemovePlot(dp); // Remove markers
	
	// Back from LabTalk call - report to user
	Dataset dd(wks,0);
	printf("X, Y of %d points saved in worksheet: %s\n", dd.GetSize(), strWksName);
}

// This section of LabTalk will be ignored by compiler since it is contained within an ifdef block.
// The section of script within this block can then be successfully called by a run.section LabTalk command.
#ifdef LABTALK
[GetScreenClicks]
	for(done=0,waiting=0,idx=%1!wks.maxrows+1;done==0; ) {
		sec -p .1;
		if(waiting==0)
		{
			dotool 2;
			def pointproc 
			{
				%1_PointX[idx]=x;
				%1_PointY[idx]=y;
				idx++;
			}
			def quittoolbox 
			{
				done=1;
				dotool 0;
			}
			waiting=1;
		}
	}
	sort -w %1 %1_PointX;
#endif

quote:

---

1/ When the program is running, Origin is using all of my laptop's CPU (which is not desirable).
This was not the case in the previous version (of Easwar).

---

static string strWksName; // save worksheet name between sessions
void get_screen_clicks()
{
	Worksheet wks(strWksName);
	if( wks )
	{
		if( MessageBox( GetWindow(), "Start a new output worksheet?", "Attention!" , 
			MB_YESNO | MB_ICONQUESTION | MB_DEFBUTTON1 ) == IDYES )
			wks.Detach();
	}
	if( !wks )
	{
		wks.Create("Origin", CREATE_HIDDEN);
		// Delete all cols - template may have different setup than needed
		while( wks.DeleteCol(0) );
		// Add two cols to hold x,y values of clicked points
		wks.AddCol("PointX");
		wks.AddCol("PointY");
		wks.Columns(0).SetType(OKDATAOBJ_DESIGNATION_X);
		strWksName = wks.GetPage().GetName();
	}
	
	// Plot selected points as markers
	GraphLayer gl = Project.ActiveLayer();
	DataPlot dp = gl.DataPlots(strWksName + "_PointY");
	if( !dp )
	{
		Curve cv(wks,1);
		gl.AddPlot(cv, IDM_PLOT_SCATTER);
		gl.LT_execute("set " + strWksName + "_PointY" + " -k 7"); // symbol = X, (10 for |)
		gl.LT_execute("set " + strWksName + "_PointY" + " -c color(red)"); // color = red
		gl.LT_execute("set " + strWksName + "_PointY" + " -z 12"); // size = 12
	}
	
	// Now call LabTalk code to accept points till user clicks Esc key
	SetDataDisplayText("Double-click for Points, Esc to quit");
	string strThisFile = __FILE__;
	string strCMD;
	strCMD.Format("run.section(%s,GetScreenClicks, %s)", strThisFile, strWksName);
	LT_execute(strCMD);
	
	gl.LT_execute("lay -e " + strWksName + "_PointY"); // remove markers
	
	// Back from LabTalk call - report to user
	Dataset dd(wks,0);
	printf("X, Y of %d points saved in worksheet: %s\n", dd.GetSize(), strWksName);
}
// This section of LabTalk will be ignored by compiler since it is contained within an ifdef block.
// The section of script within this block can then be successfully called by a run.section LabTalk command.
#ifdef LABTALK
[GetScreenClicks]
	for(done=0,waiting=0,idx=%1!wks.maxrows+1;done==0; ) {
		sec -p .1;
		if(waiting==0)
		{
			dotool 2;
			def pointproc 
			{
				%1_PointX[idx]=x;
				%1_PointY[idx]=y;
				idx++;
			}
			def quittoolbox 
			{
				done=1;
				dotool 0;
			}
			waiting=1;
		}
	}
	sort -w %1 %1_PointX;
#endif

static string strWksName; // save worksheet name between sessions
void get_screen_clicks()
{
	Worksheet wks(strWksName);
	if( wks )
	{
		if( MessageBox( GetWindow(), "Start a new output worksheet?", "Attention!" , 
			MB_YESNO | MB_ICONQUESTION | MB_DEFBUTTON1 ) == IDYES )
			wks.Detach();
	}
	if( !wks )
	{
		wks.Create("Origin", CREATE_HIDDEN);
		// Delete all cols - template may have different setup than needed
		while( wks.DeleteCol(0) );
		// Add two cols to hold x,y values of clicked points
		wks.AddCol("PointX");
		wks.AddCol("PointY");
		wks.Columns(0).SetType(OKDATAOBJ_DESIGNATION_X);
		wks.AddCol("Height");
		wks.AddCol("Position");
		wks.Columns(2).SetType(OKDATAOBJ_DESIGNATION_X);
		strWksName = wks.GetPage().GetName();
	}
	
	// Plot selected points as markers
	GraphLayer gl = Project.ActiveLayer();
	DataPlot dp = gl.DataPlots(strWksName + "_PointY");
	if( !dp )
	{
		Curve cv(wks,1);
		gl.AddPlot(cv, IDM_PLOT_SCATTER);
		gl.LT_execute("set " + strWksName + "_PointY" + " -k 7"); // symbol = X, (10 for |)
		gl.LT_execute("set " + strWksName + "_PointY" + " -c color(red)"); // color = red
		gl.LT_execute("set " + strWksName + "_PointY" + " -z 12"); // size = 12
	}
	
	// Now call LabTalk code to accept points till user clicks Esc key
	SetDataDisplayText("Double-click for Points, Esc to quit");
	string strThisFile = __FILE__;
	string strCMD;
	strCMD.Format("run.section(%s,GetScreenClicks, %s)", strThisFile, strWksName);
	LT_execute(strCMD);
	
	//gl.LT_execute("lay -e " + strWksName + "_PointY");
	
	// Back from LabTalk call - report to user
	printf("X, Y of points saved in worksheet: %s\n", strWksName);
}
// This section of LabTalk will be ignored by compiler since it is contained within an ifdef block.
// The section of script within this block can then be successfully called by a run.section LabTalk command.
#ifdef LABTALK
[GetScreenClicks]
	for(done=0,waiting=0,idx=%1!wks.maxrows+1;done==0; ) {
		sec -p 0.1;
		if(waiting==0)
		{
			dotool 2;
			def pointproc 
			{
				%1_PointX[idx]=x;
				%1_PointY[idx]=y;
				idx++;
			};
			def quittoolbox 
			{
				done=1;
				dotool 0;
			};
			waiting=1;
		};
	};
	%1_Height = int(%1_PointY);
	%1_Position = %1_PointX;
	sort.wksname$ = %1;
	sort.c1 = 3;
	sort.c2 = 4;
	sort.r1 = 1;
	sort.r2 = %1!wks.maxrows;
	sort.cname1$ = A: Height;
	sort.cname2$ = A: Position;
	sort.wks();
#endif

quote:

---

Can I use data reader in this code instead of screen reader?

---

quote:

---

quote:

---

And what code should be added if I want to put the window's name when I click a point?

---

Where do you want to put it?

---

quote:

---

I want to put the window's (or dataset's) name in the same worksheet (which stores X & Y position, etc.)

---

quote:

---

Is %C not the dataset's name? Why can't I use it?

---