Option Explicit
'Script written by Howard Jiho Kim
'Script version April 23, 2008

Call Main()
Sub Main()
	
	Dim strObject, arrObject
	

	arrObject = Rhino.GetObjects("Select text")
	
	For Each strObject In arrObject
		
		replacePoint strObject
		
	Next
		
End Sub

Function replacePoint (strObject)
	
	Dim strText, arrPoint
	Dim x,y,z, xyz, strDelimiter, new_xyz

	If Rhino.IsText(strObject) Then

		strText = Rhino.TextObjectText(strObject)
		Rhino.Print strText
		
		arrPoint = Rhino.TextObjectPoint(strObject)
		strDelimiter = ","

		xyz = arrPoint(0) & strDelimiter & arrPoint(1) & strDelimiter & strText
		
		Rhino.Print xyz
		
		new_xyz = Rhino.Str2Pt(xyz)

		Rhino.AddPoint new_xyz
		
	End If

End Function