[CDR 2022] Получить значение ReferencePoint

  • Автор темы Автор темы DukereD
  • Дата начала Дата начала
и еще прикол.. )))

Код: 
    ActiveDocument.Unit = cdrMillimeter
    Set s = ActiveLayer.CreateEllipse2(0, 0, 100)
    sx = s.CenterX
    sy = s.CenterY
    
    Application.FrameWork.Automation.Invoke "e6644135-9dab-4935-8ab9-fc85527810ca"
    Application.FrameWork.Automation.Invoke "6ae897fd-2eab-4dad-b172-f4fb768c273e"
    MsgBox sx & " " & sy
    ex = s.CenterX
    ey = s.CenterY
    MsgBox ex & " " & ey
    Debug.Print ex & " " & ey

если убрать первый MsgBox то второй выдаст нули хотя круг и сместился.
в общем совсем не вариант Invoke использовать
 
DukereD сказал(а):
и еще прикол.. )))
Нажмите, чтобы раскрыть...
Есть такое :)
Код: 
ActiveDocument.Unit = cdrMillimeter
    Set s = ActiveLayer.CreateEllipse2(0, 0, 100)
    sx = s.CenterX
    sy = s.CenterY
  
    Application.FrameWork.Automation.Invoke "e6644135-9dab-4935-8ab9-fc85527810ca"
    Application.FrameWork.Automation.Invoke "6ae897fd-2eab-4dad-b172-f4fb768c273e"
    MsgBox sx & " " & sy
    ex = s.CenterX
    ey = s.CenterY
    MsgBox ex & " " & ey
    ex = s.CenterX
    ey = s.CenterY
    MsgBox ex & " " & ey
    Debug.Print ex & " " & ey
Тут третий алерт выдаст правильное значение :) А значит проблема в том, что в процессе работы скрипта не обновляется информация о координатах после зекалирования... как побороть хз :) Я в кореле не силен:)
 
Последнее редактирование:
вот еще забавное поведение

 
DukereD сказал(а):
вот еще забавное поведение
Нажмите, чтобы раскрыть...
А можно словами, так лень всматриваться :) Если Вы о том, что если было выделение и скрипт эти объекты тоже отзеркалит, то я бы не сказал что это большая проблема :)
 
Drawer сказал(а):
в процессе работы скрипта не обновляется информация о координатах
Нажмите, чтобы раскрыть...
Скорее всего из-за того, что интерфейс и скрипт работают в разных контекстах /потоках, не успевает информацию обновлять.
 
Chiga сказал(а):
Скорее всего из-за того, что интерфейс и скрипт работают в разных контекстах /потоках, не успевает информацию обновлять.
Нажмите, чтобы раскрыть...
Вопрос как с этим бороться? :) В иллюстраторовском скриптинге при всей его ограниченности redraw () позволяет вывернуться, неужели тут нет подобного?
 
Drawer сказал(а):
А можно словами, так лень всматриваться :) Если Вы о том, что если было выделение и скрипт эти объекты тоже отзеркалит, то я бы не сказал что это большая проблема :)
Нажмите, чтобы раскрыть...
словами это сложно объяснить. )
 
Chiga сказал(а):
Скорее всего из-за того, что интерфейс и скрипт работают в разных контекстах /потоках, не успевает информацию обновлять.
Нажмите, чтобы раскрыть...
Invoke вызывает метод нажатия на контрол напрямую, в обход автоматизации. Я уже как то здесь говорил, это, примерно, как через AHK кнопку нажать
 
_MBK_ сказал(а):
Invoke вызывает метод нажатия на контрол напрямую, в обход автоматизации. Я уже как то здесь говорил, это, примерно, как через AHK кнопку нажать
Нажмите, чтобы раскрыть...
понятное дело, но как в итоге быть. исходный вопрос не решен )
мне сразу эти костыли не понравились.
 
_MBK_ сказал(а):
метод нажатия на контрол напрямую, в обход автоматизации.
Нажмите, чтобы раскрыть...
На да, поэтому их сложно синхронизировать, и ставят костыли в виде таймеров с запасом и всяких рефрешев, обратной связи никакой.
DukereD сказал(а):
исходный вопрос не решен
Нажмите, чтобы раскрыть...
winApi поможет, но Вам не нравится.
 
Chiga сказал(а):
На да, поэтому их сложно синхронизировать, и ставят костыли в виде таймеров с запасом и всяких рефрешев, обратной связи никакой.

winApi поможет, но Вам не нравится.
Нажмите, чтобы раскрыть...
очень не нравится. не хочу ничего внешнего подключать, да и к тому же это на vba писать придется что тем более не вариант
 
Для ответа нужно войти/зарегистрироваться
Верх Низ