Форумы GIS-Lab.info

Здравствуйте нужено исправить пару строк кода на VBA в програмировании ноль, а примеры кода с help.arcgis.com не хотят работать.

Dim pFeatureWorkspace As IFeatureWorkspace
Dim pFeatureClass As IFeatureClass
Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile("D:\резать.shp", 0)
Set pFeatureClass = pFeatureWorkspace.OpenFeatureClass("резать")
Открываем файл и добавляем его в слой
Dim edit As IEditSketch
Dim p As IPolyline
Set edit = pVertex
Set p = New Polyline
Dim x As Double
Dim y As Double
x =23234
y = 2344
p.PutCoords x, y
edit.AddPolyline p, True