2021-07-09 CST2020 导出计算结果（用于快速计算）

对于已经计算完毕的工程，导出snp文件，导出端口电流，导出效率

'#Language "WWB-COM"

Option Explicit

Sub Main

	check_dir()

	export_currents()

	export_effs()

	export_snp()

End Sub
Sub cout(inputl)
	reportinformation(inputl)
End Sub
Sub check_dir()
	Dim projPath
	projPath=getprojectpath("Project")
	If Dir(projPath+"\Res",vbDirectory)="" Then
		MkDir(projPath+"\Res")
	End If
	If Dir(projPath+"\Res\Currents",vbDirectory)="" Then
		MkDir(projPath+"\Res\Currents")
	End If
	If Dir(projPath+"\Res\Efficiencies",vbDirectory)="" Then
		MkDir(projPath+"\Res\Efficiencies")
	End If
End Sub
Sub export_currents()

	Dim projPath
	projPath=getprojectpath("Project")

	Dim resPath
	resPath=projPath+"\Res\Currents\"

	With Resulttree
		.reset
		Dim a
		a=.getfirstchildname("1D Results\Discrete Ports\Currents")
		Do While a<>""
			a=.getnextitemname(a)
			If a="" Then
				Exit Do
			End If
			selecttreeitem(a)
			Plot1D.plotview("magnitude")
			With ASCIIExport
				.reset
				cout(resPath+Split(a,"\")(3))
				.filename (resPath+Split(a,"\")(3))
				.execute
			End With
			cout(a)
		Loop
	End With

End Sub
Sub export_effs()

	Dim projPath
	projPath=getprojectpath("Project")

	Dim resPath
	resPath=projPath+"\Res\Efficiencies\"

	With Resulttree
		.reset
		Dim a
		a=.getfirstchildname("1D Results\Efficiencies")
		Do While a<>""
			a=.getnextitemname(a)
			If a="" Then
				Exit Do
			End If
			selecttreeitem(a)
			Plot1D.plotview("magnitude")
			With ASCIIExport
				.reset
				cout(resPath+Split(a,"\")(2))
				.filename (resPath+Split(a,"\")(2))
				.execute
			End With
			cout(a)
		Loop
	End With
End Sub
Sub export_snp()

	Dim projPath
	projPath=getprojectpath("Project")

	Dim resPath
	resPath=projPath+"\Res\"

	selecttreeitem("1D Results\S-Parameters")

	Dim projName
	projName=Split(projPath,"\")(UBound(Split(projPath,"\")))
	cout(projName)

	With TOUCHSTONE
		.reset
		.filename (resPath+projName)
		.Write

	End With

End Sub