Accessing Survey Database Points using AutoCAD Civil 3D COM API

By Partha Sarkar

Using
IAeccSurveyProject:: GetPointByNumber API we can access a Survey Point instance
with the input point number. Once we get the specific AeccSurveyPoint object we
can access its various properties and methods. Most of the properties in COM
API are read only i.e. we can get the value, but can set them using API except
few e.g. –

IAeccSurveyPoint::
Name Property – > Gets or sets the name of the Point.

Here is a
VB.NET sample code which demonstrates how to access Survey Database Points
using COM API in Civil 3D 2014 :

Public Sub DemoAccessSurveyPoints()
 
  '' This sample Demonstrates How to access Survey Database Points using COM API in Civil 3D 2014
  '' 
  '' Created by Partha Sarkar - DevTech, Autodesk
 
  Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
 
  Dim oAcadApp As Autodesk.AutoCAD.Interop.AcadApplication = Nothing
  Dim oAeccSurveyApp As Autodesk.AECC.Interop.UiSurvey.AeccSurveyApplication = Nothing
  Dim oAeccSurveyDoc As Autodesk.AECC.Interop.UiSurvey.AeccSurveyDocument = Nothing
  Dim oAeccSurveyDB As Autodesk.AECC.Interop.Survey.AeccSurveyDatabase = Nothing
 
 
  Using trans As Transaction = HostApplicationServices.WorkingDatabase.TransactionManager.StartTransaction()
 
    Try
      If oAcadApp Is Nothing Then
        oAcadApp = GetObject(, "AutoCAD.Application")
      End If
    Catch ex As Exception
      ed.WriteMessage(ex.Message)
    End Try
 
    Try
      ' If you are using the COM API in Civil 3D 2014
      ' you need to update the object version to 10.3 
      ' http://adndevblog.typepad.com/infrastructure/2013/03/whats-new-in-autocad-civil-3d-2014-api.html
 
      oAeccSurveyApp = oAcadApp.GetInterfaceObject("AeccXUiSurvey.AeccSurveyApplication.10.3")
      oAeccSurveyDoc = oAeccSurveyApp.ActiveDocument
      oAeccSurveyDB = oAeccSurveyApp.ActiveDocument.Database
 
 
      Dim oSurveyProjects As AeccSurveyProjects = CType(oAeccSurveyDB.Projects, AeccSurveyProjects)
 
      ' get the 1st Project from the Survey Projects collection
      Dim oSurveyProject As AeccSurveyProject = oSurveyProjects.Item(0)
 
      If Not (oSurveyProject Is Nothing) Then
 
        ' Get the Project Name
          ed.WriteMessage(vbCrLf + "Projcet Name : " + " " + oSurveyProject.Name.ToString())
 
        ' IAeccSurveyProject:: GetPointByNumber 
        ' Gets the Survey Point instance with the input point number.
 
        Dim oSurveyPoint As AeccSurveyPoint = oSurveyProject.GetPointByNumber(1)
 
        ' Check the Point Properties Name, Easting, Northing & Elevation
 
        ed.WriteMessage(vbCrLf + "Point Name : " + oSurveyPoint.Name.ToString() )
        ed.WriteMessage(vbCrLf + "Easting : " + oSurveyPoint.Easting.ToString() + " " +
                        "Northing : " + oSurveyPoint.Northing.ToString() + " " + 
                        "Elevation : " + oSurveyPoint.Elevation.ToString())
 
      End If       
 
      trans.Commit()
    Catch ex As Exception
      ed.WriteMessage("Error : ", ex.Message & vbCrLf)
    End Try
  End Using
End Sub

Here is a
screenshot of the result from this code snippet :

Hope this is
useful to you!