fendak писал(а):
...Можна це вікно знімати функцією @SendChars Text<CR>, але коли файли без помилок, то ця функція пізніше знімає автоматично з екрану повідомлення, які не треба знімати...
Я таким чином організував суміщення з сусідніми, допоки кількість суміщених не стане рівною 0 або рівною кількості суміщених при попередньому суміщенні
Код:
$ProgPach=@ProgramPath
@Run $ProgPach\Favorites\CloseEditAlignWithautWait.exe
@ExecuteMenu EditAlign
$CountSelStart=@Map.SelCount
@If $CountSelStart=0 then @Dialog.Message Припинення суміщення з сусідніми
@If $CountSelStart=0 then @Goto %EndNextEditAlign
%StartNextEditAlign
$CountSelOld=@Map.SelCount
@Run $ProgPach\Favorites\CloseEditAlignWithautWait.exe
@ExecuteMenu EditAlign
$CountSelNew=@Map.SelCount
@If $CountSelNew=0 then @Dialog.Message Припинення суміщення з сусідніми
@If $CountSelNew=0 then @Goto %EndNextEditAlign
@If $CountSelNew<>$CountSelOld then @Goto %StartNextEditAlign
%EndNextEditAlign
Тут, при суміщенні з сусідніми, команда
@SendChars <CR> гаситься прогресом виконання суміщення, тому замість неї застосовую запуск
CloseEditAlignWithautWait.exe, який натискає на кнопку "OK" діалога про кількість суміщених або кнопку "OK" діалога
@Dialog.Message Припинення суміщення з сусідніми. Останній виконує роль вікна, що гасить функцію
CloseEditAlignWithautWait.exe, якщо суміщених немає.
У Вашому випадку, якщо перед вікном, яке треба погасити не очікується інше, можна замість
@Run $ProgPach\Favorites\CloseEditAlignWithautWait.exe застосувати
@SendChars Text<CR>.
Вложение:
Вложение:
Demo.exe [453.58 Кб]
Скачиваний: 349