Код: Выделить всё
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 тем более.... Помогите, пожалуйста...