Difference between revisions of "ExportPtCoordToXLS"
From scripting
(Created page with " Sub ExportPtCoordToXLS(CurPtObj As Variant) If IsUpdatable(CurPtObj) Then Dim CIMeas Set CIMeas = TheSPAWorkbench.GetMeasurable(CurPtObj) Dim CICoords()...") |
(No difference)
|
Latest revision as of 05:29, 22 April 2017
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