Добрый день.
Помогите получить координаты участка
CadView.SelectionSet.SelectObjectsAtScreen(Function(obj) TypeOf obj Is Object, «Выбор объекта»)
For Each acEnt As Object In cadWiever.SelectionSet
Dim myPatch As Topomatic.Sfc.Layer.Wrappers.SurfacePatchWrapper = acEnt
Next