[skromvit]

Пример AHK-cкрипта для тех, кому требуется часто и быстро поменять стиль размеров и выносок в режиме чертежа.
В примере:
Ctrl+Shift+Alt+R хоткеи для вызова окна Параметры размеров.
!1 - Alt+1 хоткеи для настроек №1
!2 - Alt+2 хоткеи для настроек №2 - особенность, включается настройка "Применить ко всем текущим размерам".
!3 - Alt+3 хоткеи для настроек №3 - особенность, включается Курсив, использую для выносок.

Скрытый текст

PHP код:

#singleInstance Force
#IfWinActive, БАЗИС-Мебельщик ;Название окна программы

!1:: ;Вызываем параметры размеров Alt+1
Send ^+!{sc13} ; Ctrl+Shift+Alt+R хоткеи Параметры размеров
winwait, ahk_class TFormParRazm
qS = 2 ;Задаем размер стрелок
qT = 2,5 ;Задаем высоту надписи
Sleep 200
Control, Uncheck,, TCheckBox2 ;Снимаем чек с курсива
Sleep 20 ;Подобрать паузу
Control, Uncheck,, TCheckBox3 ;Снимаем чек для замены всем размерам
Sleep 20 ;Подобрать паузу
Control, Check,, Edit1
Sleep 20 ;Подобрать паузу
Control, EditPaste, %qS%, Edit1 ;Меняем размер стрелок
Send {Enter}
Sleep 10 ;Подобрать паузу
Control, Check,, Edit2
Sleep 20 ;Подобрать паузу
Control, EditPaste, %qT%, Edit2 ;Меняем высоту надписи
Sleep 10 ;Подобрать паузу
Send {Tab 3}{Enter}
Return

!2:: ;Вызываем параметры размеров Alt+2
Send ^+!{sc13} ; Ctrl+Shift+Alt+R хоткеи Параметры размеров
winwait, ahk_class TFormParRazm
qS = 4 ;Задаем размер стрелок
qT = 4 ;Задаем высоту надписи
Sleep 200
Control, Uncheck,, TCheckBox2 ;Снимаем чек с курсива
Sleep 20 ;Подобрать паузу
Control, Check,, TCheckBox3 ;Ставим чек для замены всем размерам
Sleep 20 ;Подобрать паузу
Control, Check,, Edit1
Sleep 20 ;Подобрать паузу
Control, EditPaste, %qS%, Edit1 ;Меняем размер стрелок
Send {Enter}
Sleep 10 ;Подобрать паузу
Control, Check,, Edit2
Sleep 20 ;Подобрать паузу
Control, EditPaste, %qT%, Edit2 ;Меняем высоту надписи
Sleep 10 ;Подобрать паузу
Send {Tab 3}{Enter}
Return

!3:: ;Вызываем параметры размеров Alt+3
Send ^+!{sc13} ; Ctrl+Shift+Alt+R хоткеи Параметры размеров
winwait, ahk_class TFormParRazm
qS = 5 ;Задаем размер стрелок
qT = 5 ;Задаем высоту надписи
Sleep 200
Control, Check,, TCheckBox2 ;Снимаем чек с курсива
Sleep 20 ;Подобрать паузу
Control, Check,, Edit1
Sleep 20 ;Подобрать паузу
Control, EditPaste, %qS%, Edit1 ;Меняем размер стрелок
Send {Enter}
Sleep 10 ;Подобрать паузу
Control, Check,, Edit2
Sleep 20 ;Подобрать паузу
Control, EditPaste, %qT%, Edit2 ;Меняем высоту надписи
Sleep 10 ;Подобрать паузу
Send {Tab 3}{Enter}
Return 


[свернуть]