GetXYZFromPoint
From scripting
Function GetXYZFromPoint(InputPt As Variant) As Variant Dim SArr() ReDim SArr(2) If IsUpdatable(InputPt) Then Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(InputPt) CMeas.GetPoint SArr GetXYZFromPoint = SArr Exit Function End If SArr(0) = 0 SArr(1) = 0 SArr(2) = 0 GetXYZFromPoint = SArr End Function