[CDR 2019] Очистка окна масштабов

izrukvruki

Топикстартер
10 лет на форуме
Сообщения
1 074
Оценка реакций
143
Достался по наследству файлик с мега огромным списком масштабов.
При входе в это окно - сразу вылетает Corel.
1593673243160.png

Прочитал Тема1 и Тема2
Макрос DeleteViewStyles тоже приводит к закрытию Corel

Окно видов пустое
1593673317552.png
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
27 965
Оценка реакций
9 263
А что со стилями?
Через CMX пробовали?
 

izrukvruki

Топикстартер
10 лет на форуме
Сообщения
1 074
Оценка реакций
143
Да в CMX масштабы пропали!

Через копирование в новый документ - помогло.
Но открываться он быстрее не стал. Просто думал что из-за этого файл очень долго открывался...
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
27 965
Оценка реакций
9 263
Ну извиняйте, файл содержащий 700 метров чистого вектора быстро открываться не может по определению
Я вообще с трудом себе представляю чего туда можно навертеть в таком объеме 'hmmm'
 

izrukvruki

Топикстартер
10 лет на форуме
Сообщения
1 074
Оценка реакций
143
Ну извиняйте, файл содержащий 700 метров чистого вектора быстро открываться не может по определению
Я вообще с трудом себе представляю чего туда можно навертеть в таком объеме 'hmmm'
С десяток больших растровых картинок
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
27 965
Оценка реакций
9 263
А линки на что?
 

dastin

Некромант-любитель
10 лет на форуме
Сообщения
1 186
Оценка реакций
996
Но открываться он быстрее не стал.
мб это (Object Data) ещё попробовать?
************
кроме Sancho_вского макроса есть ещё от вариант wOxxOm
создать пустой макрос поместить в ThisMacroStorage - хотя суть в обоих одна
Код:
Option Explicit

Private Sub GlobalMacroStorage_DocumentBeforeSave(ByVal Doc As Document, ByVal SaveAs As Boolean, ByVal FileName As String)
   GlobalMacroStorage_DocumentOpen Doc, FileName
   End Sub

Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName As String)
   If Doc Is Nothing Then Exit Sub
   Do While Doc.Views.Count > 0
      Doc.Views(1).Delete
   Loop
   End Sub
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
27 965
Оценка реакций
9 263
Ну так а смысл в обнулении если их и так там нету? Понятно ж что проблема в чем то ином
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
27 965
Оценка реакций
9 263
Таракан сидит в стакане.
Ножку рыжую сосет.
Он попался Он в капкане
И теперь он казни ждет
Он печальными глазами
На диван бросает взгляд,
Где с ножами, с топорами
Вивисекторы сидят
 

dastin

Некромант-любитель
10 лет на форуме
Сообщения
1 186
Оценка реакций
996
Win7 x64
прямое открытие
2019 - вылетает с ошибкой
Имя события проблемы: APPCRASH
Имя приложения: CorelDrw.exe
Имя модуля с ошибкой: ucrtbase.DLL
MS RunTyme Library - лежит в Windows/System32

2020 - натужно пытается, но до открытия так и не доходит
с макросом wOxxOm - обе версии - натужно пытаются, но до открытия таки не доходит

импорт в пустой файл
мгновенно - в докере View - пусто
 

izrukvruki

Топикстартер
10 лет на форуме
Сообщения
1 074
Оценка реакций
143
Win10 x64
Corel 2019
открывает нормально, без вылетов.
Вылет когда заходишь в окно масштабов
1593693187906.png
 

izrukvruki

Топикстартер
10 лет на форуме
Сообщения
1 074
Оценка реакций
143
Ладно, я понял что масштабы лечятся копированием в новый файл
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
27 965
Оценка реакций
9 263
Ну вообще говоря, это стандартная универсальная процедура постукивания по шине от Кэпа: при любой неведомой хрени экспортировать в CMX, импортировать или копипастить в пустой документ.