[Alex13]

Привет!
Ребята подскажите , до 10ки не было таких глюков . короче есть свой код , который вызывает набор карт , встроен в меню.
Собран в 10ке бейсика , запускаем , мапинфо падает , если перед запуском открыть любую таблицу через файл-открыть , и потом запусить свою программу , все работает.
Тоже самое с рабочим набором , если открываем через файл рткрыть - все работает , выводиться карта , но если запустить рабочий набор допустим из проводника , мапинфо падает . Ошибки в коде быть не может , т.к работал и с 8-9.5 версию .
Не могу понять чего за глюк .

[Alex13]

!Workspace
!Version 1000
!Charset WindowsCyrillic

Open Table "S:\seversk\relief" As Схема_Расположения Interactive
Open Table "S:\seversk\1005" As Канализация_Ливневая Interactive
Open Table "S:\seversk\1002" As Рельеф Interactive
Open Table "S:\seversk\1003" As Гидрография Interactive
Open Table "S:\seversk\1004" As Канализация Interactive
Open Table "S:\seversk\1001" As Отметки_высот Interactive
Open Table "S:\seversk\1006" As Водопровод Interactive
Open Table "S:\seversk\1007" As Теплосети Interactive
Open Table "S:\seversk\1008" As Прочие_трубопроводы Interactive
Open Table "S:\seversk\1009" As Кабели_специальные Interactive
Open Table "S:\seversk\1010" As Кабели_электрические Interactive
Open Table "S:\seversk\1011" As Здания_и_сооружения Interactive
Open Table "S:\seversk\1012" As Растительный_покров Interactive
Open Table "S:\seversk\1013" As Дорожная_сеть Interactive
Open Table "S:\seversk\1014" As Границы_и_ограждения Interactive
Open Table "S:\seversk\1015" As Почвы Interactive
Open Table "S:\seversk\1016" As Железные_дороги Interactive
Open Table "S:\seversk\1017" As Скважины Interactive
Open Table "S:\seversk\1018" As Хранилища_спецсбросов Interactive
Open Table "S:\seversk\1019" As НежилыеПомещения Interactive
Open Table "S:\seversk\1020" As Землепользование Interactive
Open Table "S:\seversk\1034" As Кварталы Interactive
Open Table "S:\seversk\1035" As Гаражи Interactive
Open Table "S:\seversk\1036" As ПодземныеКладовки Interactive
Open Table "S:\seversk\сел_часть" As сел_часть Interactive
Open Table "S:\seversk\дороги" As дороги Interactive
Open Table "S:\seversk\инфо" As инфо Interactive
Open Table "S:\seversk\леса" As леса Interactive
Open Table "S:\seversk\оц_зоны" As оц_зоны Interactive
Open Table "S:\seversk\промзона" As промзона Interactive
Open Table "S:\seversk\садов_участки" As садов_участки Interactive
Open Table "S:\seversk\санзона" As санзона Interactive
Open Table "S:\seversk\pocv" As почвы_ Interactive
Open Table "S:\seversk\координаты" As координаты Interactive
Open Table "S:\seversk\kadsev" As КадастровоеДеление Interactive
Open Table "S:\seversk\ГенПлан" As ГенПлан Interactive
Open Table "S:\seversk\Проекты" As Проекты Interactive
Open Table "S:\seversk\Дома" As Дома Interactive
Open Table "S:\seversk\seti4" As seti4 Interactive
Open Table "S:\seversk\seti1" As seti1 Interactive
Open Table "S:\seversk\seti2" As seti2 Interactive
Open Table "S:\seversk\seti3" As seti3 Interactive
Open Table "S:\seversk\Реклама" As Реклама Interactive
Open Table "S:\seversk\АрендаПом" As АрендаПом Interactive
Open Table "S:\seversk\GarKoord" As ГарКоорд Interactive
Open Table "S:\seversk\1000" As p1000 Interactive
Open Table "S:\seversk\10000" As p10000 Interactive
Open Table "S:\seversk\2000" As p2000 Interactive
Open Table "S:\seversk\500" As p500 Interactive
Open Table "S:\seversk\5000" As p5000 Interactive
Map From GroupLayer("Основные слои",АрендаПом,Гаражи,ГенПлан,Гидрография,
Границы_и_ограждения,Дома,дороги,Дорожная_сеть,Железные_дороги,Здания_и_сооружения,
Землепользование,Кварталы,координаты,НежилыеПомещения,Отметки_высот,ПодземныеКладовки,
Проекты,Реклама,Растительный_покров,Рельеф,Схема_Расположения,Хранилища_спецсбросов
),GroupLayer("Зоны",инфо,КадастровоеДеление,
леса,оц_зоны,промзона,Почвы,санзона,садов_участки,
сел_часть,сел_часть ),GroupLayer("Планшеты",p500,p1000,p2000,p5000,p10000 ),GroupLayer("Сети",Водопровод,Канализация_Ливневая,Кабели_электрические,Кабели_специальные,
Канализация,Прочие_трубопроводы,Теплосети,seti1,seti2,seti3,
seti4 )
Position (0.0208333,-0.03125) Units "in"
Width 8.02083 Units "in" Height 3.64583 Units "in"
Set Window FrontWindow() ScrollBars On Autoscroll On
Set Map
CoordSys NonEarth Units "m"
Center (7064.424709,5619.281094)
Zoom 13061.89028 Units "m"
Preserve Zoom Display Scale
Distance Units "m" Area Units "sq m" XY Units "m"
Distance Type Cartesian
Set Map
Layer 1
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Адрес
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 2
Display Global
Global Pen (1,2,16711680) Brush (72,16711680,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Zoom (100, 2000) Units "m"
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Кооператив
Parallel On Auto On Overlap Off Duplicates Off Offset 2
Visibility On
Alpha 206
Layer 3
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With ID
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 4
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With id
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 5
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With ID
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 6
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Right Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Адрес
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 7
Display Global
Global Pen (1,2,12632256) Brush (2,12632256,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",1,9,0) Pen (1,2,0)
With Название
Parallel On Auto On Overlap Off Duplicates Off Offset 2
Visibility On
Activate Using название On Objects Relative Path On
Layer 8
Display Global
Global Pen (1,2,8421504) Brush (2,8421504,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Название
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Alpha 142
Layer 9
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Балансосодержатель
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 10
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Zoom (100, 2000) Units "m"
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Дом
Parallel On Auto On Overlap Off Duplicates On Offset 2
Visibility On
Activate Using Растр On Objects Relative Path Off
Layer 11
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Объект
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 12
Display Global
Global Pen (2,2,16711680) Brush (1,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Квартал
Parallel On Auto On Overlap Off Duplicates On Offset 2
Visibility On
Activate Using URL On Labels Objects Relative Path Off
Layer 13
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Right Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With ID
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 14
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Zoom (100, 2000) Units "m"
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With ID
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 15
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Right Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With id
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 16
Display Global
Global Pen (1,2,8388608) Brush (59,8388608,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Zoom (100, 2000) Units "m"
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Общество
Parallel On Auto On Overlap Off Duplicates Off Offset 2
Visibility On
Alpha 147
Layer 17
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With ID
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 18
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Предприятие_балансодержатель
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 19
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Right Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Название
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 20
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With id
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 21
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Right Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Номенклатура
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 22
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line Arrow Position Right Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With ID
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 23
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line Arrow Position Right Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With id
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 24
Display Graphic
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With KADNOM
Parallel On Auto On Overlap Off Duplicates On Offset 2
Visibility On
Layer 25
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With id
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 26
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With наименование
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 27
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With название
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 28
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With ID
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 29
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With id
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 30
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With название
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 31
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With название
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 32
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With название
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 33
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Номенклатура
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 34
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Номенклатура
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 35
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Номенклатура
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 36
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Номенклатура
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 37
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Номенклатура
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 38
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With ПредприятиеБалансодержатель
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 39
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With ПредприятиеБалансодержатель
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 40
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Балансосодержатель
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 41
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With ПредприятиеБалансодержатель
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 42
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With Предприятие_балансодержатель
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 43
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With ПредприятиеБалансодержатель
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 44
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With ПредприятиеБалансодержатель
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 45
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With диаметр
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
Layer 46
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Right Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With диаметр
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 47
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line None Position Center Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With seti3
Parallel On Auto Off Overlap Off Duplicates On Offset 2
Visibility On
Layer 48
Display Off
Global Pen (1,2,0) Brush (2,16777215,16777215) Symbol (35,0,12) Line (1,2,0) Font ("Arial Cyr",0,9,0)
Selectable Off
Label Line Arrow Position Above Font ("Arial Cyr",0,9,0) Pen (1,2,0)
With диаметр
Parallel On Auto Off Overlap Off Duplicates Off Offset 2
Visibility On
GroupLayer 1
Display On Title "Основные слои"
GroupLayer 2
Display On Title "Зоны"
GroupLayer 3
Display Off Title "Планшеты"
GroupLayer 4
Display On Title "Сети"
Set Window FrontWindow() Title "Карта Северска"
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Create Adornment Type ScaleBar
Background Brush (2,16777215,16777215) Pen (1,2,0)
Size Width 4.949821 Height 1.646667 Units "cm"
Position 6 Offset (0.000000, 0.000000) Units "cm"
Layout Fixed Position Geographic
BarType 0
Display Units "cm"
Ground Units "m"
BarLength 2.949821
BarHeight 0.200000
BarStyle Brush (2,0,16777215) Pen (1,2,0) Font ("Arial CYR",0,8,0)
Scale On
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow

[FedorinoFF]

Может просто MI10 сырая до ужаса? Буржинские пользователи не очень ее хвалят... Хотя может и в другом проблема. Может видяшные драйверочки, может в папке Temp много файликов... Новые продукты часто страдают старыми болячками...

[Андрей Могильный]

Зашли-ка это лучше на официальную поддержку MapInfo Rus - в Эсти-Мап.

[Alex13]

Если бы была лицензионная версия !
А эта скаченная на пробу с торрента

[FedorinoFF]

[quote="Alex13"]Если бы была лицензионная версия !
А эта скаченная на пробу с торрента[/quote]
Скачай офиицальное демо с сайта PB-Mapinfo http://www.pbinsight.com/ten/

простая регистрация, закачка, проверка и ...
Ты ведь собираешься купить лицензию, а тут такая трабла... ;-)

[Alex13]

перед запуском своих программ делаем манипуляцию :
в мапинфо- файл-открыть , не выбираем таблиц и закрываем диалог , и чудо код начинает работать ничего не валиться .
Значит при инициализации программы , какой то переменной не присвоено значение , придется в отладчик лезть ((((
Народ , мож есть идеи ?

[Alex13]

Инициализатор типа "System.Windows.Documents.TextSchema" выдал исключение.



System.TypeInitializationException не обработано
Message="Инициализатор типа \"System.Windows.Documents.TextSchema\" выдал исключение."
Source="PresentationFramework"
TypeName="System.Windows.Documents.TextSchema"
StackTrace:
в System.Windows.Documents.TextSchema.IsValidChild(ITextPointer position, Type childType)
в System.Windows.Documents.TextPointerBase.IsAtNormalizedPosition(ITextPointer position, Boolean respectCaretUnitBoundaries)
в System.Windows.Documents.TextPointerBase.NormalizePosition(ITextPointer thisNavigator, LogicalDirection direction, Boolean respectCaretUnitBoundaries)
в System.Windows.Documents.TextPointer.MoveToInsertionPosition(LogicalDirection direction)
в System.Windows.Documents.TextPointer.System.Windows.Documents.ITextPointer.MoveToInsertionPosition(LogicalDirection direction)
в System.Windows.Documents.TextPointer.System.Windows.Documents.ITextPointer.GetInsertionPosition(LogicalDirection direction)
в System.Windows.Documents.TextPointer.GetInsertionPosition(LogicalDirection direction)
в System.Windows.Documents.TextRangeEditTables.IdentifyTableElements(TextPointer anchorPosition, TextPointer movingPosition, Boolean includeCellAtMovingPosition, TableCell& anchorCell, TableCell& movingCell, TableRow& anchorRow, TableRow& movingRow, TableRowGroup& anchorRowGroup, TableRowGroup& movingRowGroup, Table& anchorTable, Table& movingTable)
в System.Windows.Documents.TextRangeEditTables.BuildTableRange(TextPointer anchorPosition, TextPointer movingPosition, Boolean includeCellAtMovingPosition, Boolean& isTableCellRange)
в System.Windows.Documents.TextRangeBase.SelectPrivate(ITextRange thisRange, ITextPointer position1, ITextPointer position2, Boolean includeCellAtMovingPosition, Boolean markRangeChanged)
в System.Windows.Documents.TextRangeBase.Select(ITextRange thisRange, ITextPointer position1, ITextPointer position2, Boolean includeCellAtMovingPosition)
в System.Windows.Documents.TextRange..ctor(ITextPointer position1, ITextPointer position2, Boolean ignoreTextUnitBoundaries)
в System.Windows.Documents.TextSelection..ctor(TextEditor textEditor)
в System.Windows.Documents.TextEditor..ctor(ITextContainer textContainer, FrameworkElement uiScope, Boolean isUndoEnabled)
в System.Windows.Controls.Primitives.TextBoxBase.InitializeTextContainer(TextContainer textContainer)
в System.Windows.Controls.TextBox..ctor()
в MapInfo.MiPro.Dialogs.SimpleRootNode.Init(String s)
в MapInfo.MiPro.Dialogs.SimpleRootNode..ctor()
в MapInfo.MiPro.Dialogs.MapNode..ctor(String s)
в MapInfo.MiPro.Dialogs.LcLayerTree.CreateMapItem(MapDefinition map)
в MapInfo.MiPro.Dialogs.LcLayerTree.AddNewMap(MapDefinition map)
в MapInfo.MiPro.Dialogs.LcControl.AddNewMap(MapDefinition map)
в MapInfo.MiPro.Controllers.LcController.EventBroker_MapOpened(Object sender, LayerEventArgs e)
в MapInfo.MiPro.EventBroker.OnMapOpened(Int32 MapWindowID)
в RaiseMapOpened(Int32 MapWindowID)
InnerException: System.TypeInitializationException
Message="Инициализатор типа \"System.Windows.Documents.List\" выдал исключение."
Source="PresentationFramework"
TypeName="System.Windows.Documents.List"
StackTrace:
в System.Windows.Documents.TextSchema..cctor()
InnerException: System.ArithmeticException
Message="Переполнение или потеря точности в арифметической операции."
Source="PresentationFramework"
StackTrace:
в System.Windows.Documents.List.IsValidMarkerOffset(Object o)
в System.Windows.DependencyProperty.ValidateDefaultValueCommon(Object defaultValue, Type propertyType, String propertyName, ValidateValueCallback validateValueCallback, Boolean checkThreadAffinity)
в System.Windows.DependencyProperty.ValidateMetadataDefaultValue(PropertyMetadata defaultMetadata, Type propertyType, String propertyName, ValidateValueCallback validateValueCallback)
в System.Windows.DependencyProperty.RegisterCommon(String name, Type propertyType, Type ownerType, PropertyMetadata defaultMetadata, ValidateValueCallback validateValueCallback)
в System.Windows.DependencyProperty.Register(String name, Type propertyType, Type ownerType, PropertyMetadata typeMetadata, ValidateValueCallback validateValueCallback)
в System.Windows.Documents.List..cctor()
InnerException:

[Alex13]

Причем если используем из программы FileOpenDlg


Dim s_filename As String
s_filename = FileOpenDlg("","","TAB","Open Table")


тоже валиться -бред

[FedorinoFF]

А с .net библиотеками все хорошо? может надо обновиться там или пофиксить.... :-)

P.S.
А может надо системный разделить для дробной части в '.' выставить...

[Андрей Могильный]

26 сборка 10-ки (10.0) или 220 (10.0.1)?
Если первое, то для начала обновись до 10.0.1 - maintance release уже выложен.

[Alex13]

220 (10.0.1 ) установлена