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

Все про Surfer
Ответить
womak
Участник
Сообщения: 72
Зарегистрирован: 13 окт 2006, 06:19
Репутация: 0

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

Сообщение womak » 08 ноя 2007, 18:18

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

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

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 тем более.... :( Помогите, пожалуйста... :roll:

Аватара пользователя
Максим Дубинин
MindingMyOwnBusiness
Сообщения: 8934
Зарегистрирован: 06 окт 2003, 20:20
Статьи: 231
Проекты: 12/6
Репутация: 663
Ваше звание: NextGIS
Откуда: Москва
Контактная информация:

Сообщение Максим Дубинин » 09 ноя 2007, 06:17

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

womak
Участник
Сообщения: 72
Зарегистрирован: 13 окт 2006, 06:19
Репутация: 0

Сообщение womak » 09 ноя 2007, 18:03

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

womak
Участник
Сообщения: 72
Зарегистрирован: 13 окт 2006, 06:19
Репутация: 0

Сообщение womak » 13 ноя 2007, 01:55

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

Ответить

Вернуться в «Surfer»