[FDN]

Здравствуйте все!
Проблема в следующем: пытаюсь лиспом создать поверхность в цивиле вот такой строчкой
(vlax-invoke-method (vlax-get-property vla_doc "Surfaces") "AddTinSurface" AeccTinCreationData)
постоянно ругается на AeccTinCreationData
сформировать корректно AeccTinCreationData как-то не получается.
Подскажите пожалуйста каким образом на лиспе создать поверхность.

[VVA]

Пример на VBA
И еще ссылки
Civil 3D Surfacing Help! (VBA требуется регистрация)

[FDN]

Спасибо! Как сделать на vba я знаю. Там все работает. А на лиспе как сделать?

[gomer]

Как-то аналогично...

[FDN]

Вот так создаю поверхность (Tin для объемов) на vba:

Код:

[Выделить все]

Dim Sv As New AeccTinVolumeCreationData
Sv.BaseLayer = g_oDocument.Layers.Item(0).Name
Sv.Layer = g_oDocument.Layers.Item(0).Name
Sv.Name = "ITOGO"
Sv.Description = " "
Sv.Style = g_oDocument.SurfaceStyles(0).Name
Set Sv.ComparisonSurface = OSV
Set Sv.BaseSurface = OSN
Dim TINVOL As AeccTinVolumeSurface
Set TINVOL = g_oAeccDb.Surfaces.AddTinVolumeSurface(Sv)

как сделать тоже самое на лиспе?

Сообщение от gomer Как-то аналогично...

Как?

[gomer]

Сообщение от FDN постоянно ругается на AeccTinCreationData

А как вы создаете объект этого типа? И создаете ли?
Может так вот?

Код:

[Выделить все]

(setq Sv (vlax-create-object "AeccLandLib.AeccTinCreationData"))

И далее по списку....