Option Explicit
'Script written by Howard Jiho Kim
'Script version Thursday, April 03, 2008 6:09:22 PM

Sub CoordinatesBasePoint

	Dim baseObject
	baseObject = Rhino.GetPoint("Select base point To be Set as (0,0,0)")
	If IsNull(baseObject) Then Exit Sub

	Dim arrObjects
	arrObjects = Rhino.GetObjects("Select points To calculate coordinates", 1, True, True)
	If Not IsArray(arrObjects) Then Exit Sub

	Dim arrPoint0, arrVector, arrPoint3
	arrPoint0 = Array(0,0,0)
	arrVector = Rhino.VectorCreate(baseObject, arrPoint0)

	Dim strObject, arrPoint, arrPoint2
	For Each strObject In arrObjects
		arrPoint = Rhino.PointCoordinates(strObject)
		arrPoint2 = Rhino.PointSubtract(arrPoint, arrVector)
		Rhino.AddTextDot Rhino.Pt2Str(arrPoint2, 3), arrPoint
	Next

End Sub

CoordinatesBasePoint