'-----------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------

' Connect to our Pulsonix design

set Design = ActiveDocument()

if Not Design Is Nothing then

	' Create and open a new ReportWriter object to do the reporting work.
	set Writer = NewReportWriter()
	strFullName = Design.BasePathName() + " (connections).txt"
	Writer.Open strFullName, "", false
	Writer.EndOfLine()

	' Prepare our list of nets, sorted by their name.
	Set Nets = Design.Nets()
	' Spin through the list of nets.
	for each Net in Nets
				Set Nodes=Net.Nodes()
				for each Node in Nodes
					if (Node.Name Is Nothing)  then
						Writer.Write("No Nodename present")
						Writer.EndOfLine()
					else
						Writer.Write("Nodename present: ")
						Writer.Write(Node.Name)
						Writer.EndOfLine()
					end if

				next
	next

	' Close out the report, then launch it in the appropriate viewer.
	Writer.EndOfLine()
	Writer.Close()
	Writer.View()
else
	Message("No current design")
end if

'-----------------------------------------------------------------------------------------