Difference between revisions of "ExportPtCoordToXLS"

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