Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for
Show only
|
Search instead for
Did you mean:
This page has been translated for your convenience with an automatic translation service. This is not an official translation and may contain errors and inaccurate translations. Autodesk does not warrant, either expressly or implied, the accuracy, reliability or completeness of the information translated by the machine translation service and will not be liable for damages or losses caused by the trust placed in the translation service.Translate
Get the Northing, Easting, Elevation from the point, and use the
Drawing.Points.Add method.
--
James Wedding, P.E.
Technology Manager &
Associate
Jones & Boyd, Inc.
Dallas, TX
XP/2 on P4-3.4/1G
LDT2005SP1 & C3D2005SP1
Here is a simple program what will add a COGO point for every point object
in the drawing file. The elevation of the COGO point will match the
elevation of the AutoCAD point. Make sure that you add the refrences to the
Civil type libraries before you run it.
Cheers,
Peter Funk
Autodesk, Inc.
Option Explicit
Public g_oCivilApp As AeccApplication
Public g_oAeccDoc As AeccDocument
Public g_oAeccDb As AeccDatabase
Function getCivilObjects() As Boolean
Dim oApp As AcadApplication
Set oApp = ThisDrawing.Application
Const sAppName = "AeccXUiLand.AeccApplication"
Set g_oCivilApp = oApp.GetInterfaceObject(sAppName)
If g_oCivilApp Is Nothing Then
MsgBox "Error creating " & sAppName & ", exit."
getCivilObjects = False
Exit Function
End If
Set g_oAeccDoc = g_oCivilApp.ActiveDocument
Set g_oAeccDb = g_oAeccDoc.Database
getCivilObjects = True
End Function
Public Sub convertPoints()
getCivilObjects
Dim cPoints As aeccpoints
Dim point As AeccPoint
Dim aPoint As AcadPoint
Dim obj As AcadObject
Dim coords As Variant
Set cPoints = g_oAeccDb.Points
For Each obj In ThisDrawing.ModelSpace
If TypeOf obj Is AcadPoint Then
Set aPoint = obj
coords = aPoint.Coordinates
cPoints.Add (coords)
End If
Next
End Sub
Grab the dvb file I've attached about five posts up. I think you'll have to
write a text file with your EED number in a PNEZD (or some such) format,
then import it back in. That sample file above does just that process.
--
James Wedding, P.E.
Technology Manager &
Associate
Jones & Boyd, Inc.
Dallas, TX
XP/2 on P4-3.4/1G
LDT2005SP1 & C3D2005SP1