You can extract a contour (or contours) from a surface in a given elevation range as AutoCAD entities. This example extracts the contours between 90 and 95, and prints out the entity type for each one.

Note

The contours that you wish to extract must be visible in the drawing for this example to work.

...
Dim z As Double
Dim objSurf As AeccSurface
Set objSurf = g_oAeccDoc.Surfaces(0)
Dim varObjects As Variant
Dim objEnt As AcadEntity
Dim iCtr As Integer, iLow As Integer, iHigh As Integer
varObjects = objSurf.ExtractContour(aeccDisplayOrientationPlan, aeccSFMajorContours, 90, 95)
iLow = LBound(varObjects)
iHigh = UBound(varObjects)
For iCtr = iLow To iHigh
   Set objEnt = varObjects(iCtr)
   Debug.Print TypeName(objEnt)
Next iCtr

AutoCAD Civil 3D

Community Scoring

Tag Tags0

Page statistics

Extracting Contours from a TIN Surface

Table of contents

Comments0