Create TIN from features - программно

Question

В 3D-Analyst есть меню Create/Modify TIN -> Create TIN from features , так я создаю ТИН из линейного слоя с полем "ОТМЕТКА". Потом строится уклоны и в конце получаю полиногальный слой с уклонами.

Как мне сделать это программно? В хелпе так расплывчато, что не найду конца...

Помогите кто знает!

Answer 1

TIN создается без проблем!

Sub CreateTin()
   Dim TT As ITin
   Dim TE As ITinEdit
   Dim MXD As IMxDocument
   Dim pFL As IFeatureLayer
   Dim pHeiFld As IField
   Set MXD = ThisDocument
   Set TE = New tin
   Set pFL = GetLayer("clip_output")
   Set pHeiFld = pFL.FeatureClass.Fields.Field(pFL.FeatureClass.Fields.FindFi eld("otmetka"))
   TE.InitNew pFL.AreaOfInterest
   TE.AddFromFeatureClass pFL.FeatureClass, Nothing, pHeiFld, Nothing, esriTinHardLine
   TE.SaveAs "d:\atemp\CreateTin", True
End Sub

Теперь проблема стала с созданием растра...

Никто не сталкивался???