Почему не идет Surfer-овский скрипт на Scripter-е?

[womak]

Есть фрагмент скрипта. Задача экспортировать попарно закрашенные соседние изолинии как полигоны.

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

Dim ContourMap As Object
Set ContourMap = MapFrame.Overlays(1)
Set ContourLevels = ContourMap.Levels
For I = -3500 To -200 Step 100
   ContourLevels.AutoGenerate(MinLevel:=I, MaxLevel:=I+100, Interval:=100)
   ContourMap.FillContours = True
   ContourMap.SmoothContours = srfConSmoothHigh
   Debug.Print I;I+100
   UserText$ = Str$(I)+"_"+ Str$(I+100)
   Debug.Print "|";UserText$;"|"
   ContourMap.Export(FileName:="c:проект\проба\Shp\"+UserText$+"-.shp", Options:="Defaults=1,AreasToLines=0,AreasToFile=1")
    ContourMap.ExportContours(FileName:="c:проект\проба\Shp\"+UserText$+"-.dxf", Format:=srfConFormatDefault)
Next I

Экспорт в шейп не идет, выдает ошибку "|10099|ActiveX Automation: no such named parametr", а в "*.dxf" проходит без проблем.
Где грабли?
В программировании особенно не силен, в VB тем более.... Помогите, пожалуйста...

[Максим Дубинин]

с путями все нормально? как-то странно выглядят

[womak]

C путями все нормально. Без экспорта в шейп скрипт работает и экспортирует в DXF без проблем...

[womak]

Все дело в том, что команда "Export" отностится ко всему документу и применять её только к изолиниям нельзя.
Вместо ContourMap.Export нужно использовать Doc.Export.