Преобразования 2-D стиля отображения поверхности в SDF/SHP

[sawyer041]

Выкладываю ссылку на фрагнмент поверхности
https://drive.google.com/file/d/0B45JWI ... sp=sharing

[trir]

Опять - двадцать пять...
Не у кого на форуме нет 2013/2014 Civil'а, что бы открыть ваши файлы, так что вам придётся ждать пару лет...

Код: Выделить всё

Public Sub test1()
    Dim AeccApp As AeccXUiLandLib.AeccApplication
    Set AeccApp = ThisDrawing.Application.GetInterfaceObject("AeccXUiLand.AeccApplication.9.0")
'
    Dim wSurf As AeccSurface
    Seе wSurf = AeccApp.ActiveDocument.Surfaces.Item(0)
End Sub

[sawyer041]

https://drive.google.com/file/d/0B45JWI ... sp=sharing
https://drive.google.com/file/d/0B45JWI ... sp=sharing
https://drive.google.com/file/d/0B45JWI ... sp=sharing
В каком формате вам еще сохранить?
На выбор- 2004, 2007, 2010.

[bingeomap]

У меня AutoCAD Civil 2014 и нормально открывается