Difference between revisions of "GetXYZFromPoint"
From scripting
(Created page with " Function GetXYZFromPoint(InputPt As Variant) As Variant Dim SArr() ReDim SArr(2) If IsUpdatable(InputPt) Then Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable...") |
(No difference)
|
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