GetXYZFromPoint

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