Почему не идет Surfer-овский скрипт на Scripter-е?
Добавлено: 08 ноя 2007, 18:18
Есть фрагмент скрипта. Задача экспортировать попарно закрашенные соседние изолинии как полигоны.
Экспорт в шейп не идет, выдает ошибку "|10099|ActiveX Automation: no such named parametr", а в "*.dxf" проходит без проблем.
Где грабли?
В программировании особенно не силен, в VB тем более....
Помогите, пожалуйста... 
Код: Выделить всё
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Где грабли?
В программировании особенно не силен, в VB тем более....
Помогите, пожалуйста...