AutoCAD Civil 3D

Community Scoring

Was this page helpful?

Tag Tags0

This page has no tags

Page statistics

2295 views, 1 edit(s), 2274 characters(s) Page last modified 08:03, 2 Apr 2012 by contentconnector

How to add your knowledge

Upload video
- Upload video
- Video overview

Creating a TIN Surface

1. Creating a Surface From a .tin File
2. Creating a Surface Using AddTinSurface

Creating a Surface From a .tin File

The AeccSurfaces.ImportTIN method can create a new TIN surface from a binary .tin file.

Dim oTinSurface As AeccTinSurface
Dim sFileName As String
sFileName = "C:\My Documents\EG.tin"
oTinSurface = oAeccDocument.Surfaces.ImportTIN(sFileName)

Creating a Surface Using AddTinSurface

You can also create empty TIN surfaces by adding to the document’s collection of surfaces through the AeccSurfaces.AddTinSurface method. This method requires preparing an object of type AeccTinCreationData. It is important to specify every property of the AeccTinCreationData object to avoid errors.

' Create a blank surface using the first layer in the
' document's collection of layers and the first
' surface style in the document's collection of
' surface styles.
Dim oTinSurface As AeccTinSurface
Dim oTinData As New AeccTinCreationData
 
oTinData.Name = "EG"
oTinData.Description = "Sample TIN Surface"
oTinData.Layer = oAeccDocument.Layers.Item(0).Name
oTinData.BaseLayer = oAeccDocument.Layers.Item(0).Name
oTinData.Style = oAeccDocument.SurfaceStyles.Item(0).Name
Set oTinSurface = oAeccDocument.Surfaces
  .AddTinSurface(oTinData)