ExportPtCoordToXLS
From scripting
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