Добрый день.
Предлагаю тут развивать тему скриптов AutoHotkey для базиса
Я ужа давно работаю в мебельщике с помощью PieMeny написанное на AutoHotkey. Ну и пару своих скриптов... Снял пару роликов на эту тему на ютьюбе. Кому интересно оставлю тут ссылочки
и
Интересно может кто-то еще использует AutoHotkey в работе? Хотелось бы посмотреть примеры использования.
Я попробовал выложить на гугл диск актуальную версию из второго видео, но гугл диск почему-то считает этот архив зло пакостным поэтому если кому надо пишите в телеграмме(@BNikitaG) поделюсь
Последний раз редактировалось Uncle; 05.10.2021 в 16:45..
Причина: ссылка на актуальную версию
#singleInstance Force #IfWinActive, БАЗИС-Мебельщик ;Название окна программы
y:: ;Вызываем параметры размеров y Send ^+!= ; Ctrl-Shift-Alt-= хоткеи Параметры размеров winwait, ahk_class TFormParRazm qS = 2 ;Задаем размер стрелок 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 ;Подобрать паузу WinExist("A") SetKeyDelay, 20, 10 InputBox, size, какую высоту размерной надписи задать? if ErrorLevel Return WinActivate Control, EditPaste, %size%, Edit2 ;Меняем высоту надписи Sleep 10 ;Подобрать паузу Send {Tab 3}{Enter} Sleep 100 ;Подобрать паузу Send,^+{F10} ;клавиши для выделения всего текста Sleep 100
ImgFound := false ;ищем картинку While(ImgFound = false) { ImageSearch, x, y, 0, 0, 1920, 1080, *0 text_off.png ;картинку ДО выделения вырезать через принтскрин, т.к. настройки темы могут быть другие If(x <> "") { Click, %x%, %y% ;кликаем если нашли невыделенную строку в свойствах ImgFound := true } ImageSearch, x, y, 0, 0, 1920, 1080, *0 text_on.png ;картинку ПОСЛЕ выделения вырезать через принтскрин, т.к. настройки темы могут быть другие If(x <> "") { Click, %x%, %y% ;кликаем если нашли выделенную строку в свойствах ImgFound := true } } ;----------способ №2 передать значение в ячейку---------- InputBox, size, какую высоту размерной надписи задать? #IfWinActive, ahk_class TFormMain Control, EditPaste, %size%, TSpTBXEdit1 Sleep 20 Control, Check,, TSpTBXEdit1 Sleep 20 ;------------------------------------------------------------------ Send, {Enter}{Escape 2} Return
[свернуть]
Продолжаем попытки
P.S. Иногда помогает просто перезагрузка БМ или скрипта
P.S. Иногда помогает просто перезагрузка БМ или скрипта
перезагрузка всего с последней версией тоже не помогла... ))
извиняюсь, специально его закрыл, само не открывается
окно свойства элементов активируется только по клику мышки, а текст ждёт этой активации, не принимает значения
поиграюсь. Благодарю Вас за помощь. Если получится, выставлю конечный вариант. По задумке там ещё один параметр хочу добавить... а то и два (выбор цветов)
Этим вариантом пользуюсь уже пару дней, вроде всё работает нормально..
Это если работать им в автономном режиме, если кидать в функцию этот код для RadialMenu,
координаты для ввода текста сбиваются. Не напрягает, даже наоборот получается для текста можно выбрать
не только размер из свойств элементов, но и задать цвет текста.
Высота размеров и выносок
PHP код:
#singleInstance Force #IfWinActive, БАЗИС-Мебельщик ;Название окна программы
F11:: ;Вызываем параметры размеров F11 Send ^+!= ; Ctrl-Shift-Alt-= хоткеи Параметры размеров winwait, ahk_class TFormParRazm qS = 2 ;Задаем размер стрелок 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 ;Подобрать паузу WinExist("A") SetKeyDelay, 20, 10 InputBox, size1, какую высоту размерной надписи задать? if ErrorLevel Return WinActivate Control, EditPaste, %size1%, Edit2 ;Меняем высоту надписи Sleep 10 ;Подобрать паузу Send {Tab 3}{Enter} Sleep 100 ;Подобрать паузу Send,^+{F10} ;клавиши для выделения всего текста Sleep 250 WinExist("A") WinMaximize ; SetKeyDelay, 20, 10 InputBox, size2, какую высоту текста задать? if ErrorLevel Return WinActivate Send,^+{F10} ;клавиши для выделения всего текста Sleep 100 ImgFound := false ;ищем картинку While(ImgFound = false) { ImageSearch, x, y, 0, 0, 1920, 1080, *0 text_off.png ;картинку ДО выделения вырезать через принтскрин, т.к. настройки темы могут быть другие If(x <> "") { Click, %x%, %y% ;кликаем если нашли невыделенную строку в свойствах ImgFound := true } ImageSearch, x, y, 0, 0, 1920, 1080, *0 text_on.png ;картинку ПОСЛЕ выделения вырезать через принтскрин, т.к. настройки темы могут быть другие If(x <> "") { Click, %x%, %y% ;кликаем если нашли выделенную строку в свойствах ImgFound := true } ImageSearch, x, y, 0, 0, 1920, 1080, *0 text_on hold.png ;картинку ПОСЛЕ выделения вырезать через принтскрин, т.к. настройки темы могут быть другие If(x <> "") { Click, %x%, %y% ;кликаем если нашли выделенную строку в свойствах ImgFound := true } } sleep, 300 Send, %size2%{Enter}{Escape 2} Return
Поизучаю Ваш вариант, спасибо! Для базиса 2022 ему чего-то не хватает, после запуска выходит окно с просьбой, указать высоту текста, после ввода больше ничего не происходит.