ExportPtCoordToXLS
From scripting
Revision as of 05:29, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Sub ExportPtCoordToXLS(CurPtObj As Variant) If IsUpdatable(CurPtObj) Then Dim CIMeas Set CIMeas = TheSPAWorkbench.GetMeasurable(CurPtObj) Dim CICoords()...")
Sub ExportPtCoordToXLS(CurPtObj As Variant) If IsUpdatable(CurPtObj) Then Dim CIMeas Set CIMeas = TheSPAWorkbench.GetMeasurable(CurPtObj) Dim CICoords() ReDim CICoords(2) CIMeas.GetPoint CICoords CurCells(CSVCounter, 1).Value = CurPtObj.Name CurCells(CSVCounter, 2).Value = CICoords(0) CurCells(CSVCounter, 3).Value = CICoords(1) CurCells(CSVCounter, 4).Value = CICoords(2) CSVCounter = CSVCounter + 1 End If End Sub