Option Explicit
'Script written by <insert name>
'Script copyrighted by <insert company name>
'Script version Thursday, August 07, 2008 5:32:06 PM

Call Main()
Sub Main()
	Const rhObjectMesh = 32

	Dim strObject, arrCenters, arrPoint

	strObject = Rhino.GetObject("Select mesh", rhObjectMesh)

	arrCenters = Rhino.MeshFaceCenters(strObject)
	
	Call Rhino.EnableRedraw(False)
	If IsArray(arrCenters) Then
		Dim vtCount : vtCount = 0
		For Each arrPoint In arrCenters 
			Rhino.AddTextDot vtCount, arrCenters(vtCount)
			vtCount = vtCount + 1
		Next
	End If
	Call Rhino.EnableRedraw(True)
End Sub