vbscript 如何获取一个点的坐标

如下代码，只能打印出点的标签，要怎样才能打印出坐标？

Dim point1, temp

point1 = rhino.AddPoint(array(0, 1, 2))
rhino.Print(point1)

你在命令栏输入对应的数值坐标就可以了啊，中间逗号分开
没什么特别的话，楼主不要搞的这么复杂嘛
搞得我们这些屌丝都不敢进来:lol

谢谢高山
我今天早上找到答案了

        Dim point1, arrPoint

        point1 = rhino.AddPoint(array(0, 1, 2))

        arrPoint = Rhino.PointCoordinates(point1)
       
        Rhino.Print Rhino.Pt2Str(arrPoint, 3)

#coding=utf-8
import Rhino.Geometry as rg
import rhinoscriptsyntax  as rs
pt=rs.GetObject("选择一个点")
pt=rs.coerce3dpoint(pt)
if pt:
    print(pt.X，pt.Y，pt.Z)
else:
    print("没有选择点")补充一个PYTHON的方法