RGLExport.ahk

;-------导出---------;
F3::
{
  Validate()
	Sleep 50
	ExportClick()
	WinWait, Export to pdf
	Sleep 50
	Return
}
;----------批量导出----------;
F4::
{
	SelectFirstRod()
	RodNum := 1
	While RodNum<=4
	{
		RodLoop(RodNum)
		if RodNum<=3
		{
			NextRod()
		}
		RodNum := RodNum + 1
	}
	run D:\EXPORT
	Return
}
F5::
{
	SelectFirstRod()
	RodNum := 1
	While RodNum<=5
	{
		RodLoop(RodNum)
		if RodNum<=4
		{
			NextRod()
		}
		RodNum := RodNum + 1
	}
	run D:\EXPORT
	Return
}
F8::
{
	SelectFirstRod()
	RodNum := 1
	While RodNum<=8
	{
		RodLoop(RodNum)
		if RodNum<=7
		{
			NextRod()
		}
		RodNum := RodNum + 1
	}
	run D:\EXPORT
	Return
}
;-------切换Rod--------;
F7::
{
	Validate()
	Sleep 50
	NextRod()
	Return
}
;-------切换步数--------;
F6::
{
	Validate()
	Sleep 50
	GoHome()
	Return
}
F9::
{
	Validate()
	Sleep 50
	GoTo2()
	Return
}
F10::
{
	Validate()
	Sleep 50
	GoTo100()
	Return
}
F11::
{
	Validate()
	Sleep 50
	GoTo225()
	Return
}
F12::
{
	Validate()
	Sleep 50
	GoTo224()
	Return
}
;--------输出Rod-----------;
RodLoop(RodNum)
{
	Export(RodNum,1)
	GoTo2()
	Export(RodNum,2)
	GoTo100()
	Export(RodNum,3)
	GoTo225()
	Export(RodNum,4)
	GoTo224()
	Export(RodNum,5)
	Return
}
;-----导出RodNum的第StepNum步-------;
Export(RodNum, StepNum)
{
	ExportClick()
	WinWait, Export to pdf
	Sleep 50
	SendFileName(RodNum,StepNum)
	WinWaitClose, Export to pdf
	Sleep 50
	Return
}
;--------------输出文件名----------;
SendFileName(Rod,StepNum)
{
	Sleep 50
	;输出Rod信息
	if   Rod = 1
	{
		send Rod1_
	}
	else if Rod = 2
	{
		send Rod2_
	}
	else if Rod = 3
	{
		send Rod3_
	}
	else if Rod = 4
	{
		send Rod4_
	}
	else if Rod = 5
	{
		send Rod5_
	}
	else if Rod = 6
	{
		send Rod6_
	}
	else if Rod = 7
	{
		send Rod7_
	}
	else
	{
		send Rod8_
	}
	;输出步数信息
	if   StepNum = 1
	{
		send 1
	}
	else if StepNum = 2
	{
		send 2
	}
	else if StepNum = 3
	{
		send 3
	}
	else if StepNum = 4
	{
		send 4
	}
	else
	{
		send 5
	}
	send {Enter}
	Sleep 50
	Return
}
;-------------执行跳转-------------;
GoHome()
{
	StepClick()
    Sleep 300
    Send {Home}
    Send {Enter}
	Sleep 300
	Return
}
GoTo2()
{
	StepClick()
    Sleep 300
    Send {Down}
    Send {Enter}
	Sleep 300
	Return
}
GoTo100()
{
	StepClick()
    Sleep 300
    Send {PgDn 10}
    Send {Up 2}
    Send {Enter}
	Sleep 300
	Return
}
GoTo225()
{
	StepClick()
    Sleep 300
    Send {PgDn 12}
    Send {Down 6}
    Send {Enter}
	Sleep 300
	Return
}
GoTo224()
{
	StepClick()
    Sleep 300
    Send {Down}
    Send {Enter}
	Sleep 300
	Return
}
;---------切换到下一个Rod--------;
NextRod()
{
	RodClick()
	Sleep 300
	Send {Down}
	Send {Enter}
	Sleep 4000
	Return
}
;----------选择第一根Rod----------;
SelectFirstRod()
{
	RodClick()
	Sleep 300
	Send {Home}
	Send {Enter}
	Sleep 4000
	Return
}
;----------点击步数---------;
StepClick()
{
	;根据屏幕分辨率调整以下数值
	; 1366 x 768 = (690,250)
	XStep := 690
	YStep := 250
    MouseClick, left, XStep, YStep
	Return
}
;------------点击Rod----------;
RodClick()
{
	;根据屏幕分辨率调整以下数值
	; 1366 x 768 = (410,250)
	XRod := 410
	YRod := 250
	MouseClick, left, XRod, YRod
	Return
}
;-------------点击Validate---------;
Validate()
{
	;根据屏幕分辨率调整以下数值
	;	1680 x 1050 = (1180, 930)
	;	1366 x 768  = ( 810, 690)
	XValidate := 810
	YValidate := 690
	MouseClick, left, XValidate, YValidate
	Return
}
;------------点击Export---------------;
ExportClick()
{
	;根据屏幕分辨率调整以下数值
	;	当前分辨率 1366 x 768
	;	1680 x 1050 = (1180, 930)
	;	1366 x 768  = (1030, 690)
	XExport := 1030
	YExport := 690
	MouseClick, left, XExport, YExport
	Return
}