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

izrukvruki

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

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

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

_MBK_

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

vovansky

Участник
Сообщения
474
Реакции
207
Если объектов не много, можно попробовать скопировать всё и вставить в новый файл.
 
  • Спасибо
Реакции: izrukvruki

izrukvruki

Топикстартер
12 лет на форуме
Сообщения
1 210
Реакции
158
Да в CMX масштабы пропали!

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

_MBK_

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

izrukvruki

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

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
28 906
Реакции
9 522
А линки на что?
 

dastin

Некромант-любитель
10 лет на форуме
Сообщения
1 295
Реакции
1 116
Но открываться он быстрее не стал.
мб это (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 лет на форуме
Сообщения
28 906
Реакции
9 522
Ну так а смысл в обнулении если их и так там нету? Понятно ж что проблема в чем то ином
 

_MBK_

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

dastin

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

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

импорт в пустой файл
мгновенно - в докере View - пусто
 
  • Спасибо
Реакции: izrukvruki

izrukvruki

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

izrukvruki

Топикстартер
12 лет на форуме
Сообщения
1 210
Реакции
158
Ладно, я понял что масштабы лечятся копированием в новый файл
 

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
28 906
Реакции
9 522
Ну вообще говоря, это стандартная универсальная процедура постукивания по шине от Кэпа: при любой неведомой хрени экспортировать в CMX, импортировать или копипастить в пустой документ.
 
  • Спасибо
Реакции: izrukvruki