Difference between revisions of "GetXYZFromPoint"

Latest revision as of 06:03, 22 April 2017

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