Не работает программное переключение ActiveTool...

[Cyrax]

ActiveTool = cdrToolPick
ActiveTool = cdrToolEyeDropper
ActiveTool = cdrToolNodeEdit
и т.д. - такое переключение не работает. При этом соответствующие команды выполняются без error'ов, но фактического переключения tool'ов не происходит.
Может, это только в X3 ?

А в help'е именно так и переключают простым присваиванием (установкой свойства).

 

[Sanchos]

Ответ: Не работает программное переключение ActiveTool...

помойму этот вопрос здесь уже обсуждался

 

[lev]

Ответ: Не работает программное переключение ActiveTool...

Угу, не работает, поэтому включаем инструменты через Invoke.

Sub SwitchTool()
  Application.FrameWork.Automation.Invoke "ae9f4ba1-2406-4dbc-b119-c12f9cca17f7" 'включаем NodeEdit
End Sub
'ID для некоторых инструментов
'"ae9f4ba1-2406-4dbc-b119-c12f9cca17f7" - NodeEdit
'"c109a053-50ab-4943-8edc-d374ec153e7e" - EyeDropper
'"f1aee54d-c9aa-4e6f-9193-82f496b0b72b" - PickTool

ID других инструментов ищите в c:\Program Files\Corel\CorelDRAW Graphics Suite 13\Programs\UIConfig\CorelDRAW\DrawUI.xml

 

[Cyrax]

Ответ: Не работает программное переключение ActiveTool...

Да, спасибо. Ту ветку уже нашёл:
Включение 3-point curve через VBA

Осталось выяснить следующее:
1. Почему свойство ActiveTool в X3 readonly ?
2. Работает ли присваивание ActiveTool в X4 и X5 ?

 

[Sanchos]

Ответ: Не работает программное переключение ActiveTool...

2. Работает ли присваивание ActiveTool в X4 и X5 ?

А что мешает проверить в Х4? Ну и в Х5, если он у вас есть )))))