[Vasiliy_and]

На форуме была аналогичная тема, на мой взгляд до конца не раскрыта.

Решил поделится идейкой...

И так, 4 часа заморочек - и получился следующий скрипт под AutoHotkey
Он позволяет, комбинируя нажатия SHIFT, CTRL, WIN и разных кнопок мыши, вызывать нужную команду Acad . Естественно скрипт сделан "под себя"-то беж меня), но гибок и прост в настройке. На одну из комбинайий вставлена "авто" вставка динамического блока (окружность с осями), если надо приложу.

P.S. Чтоб работало, надо скачать саму программу, и открыть мой скрипт.
Скрипт перехватывает комбинации клавиш только из Autocad, сделано специально.

[Sanechek]

Все работает!. Вот это класс! Спасибо огромное!.

[Vasiliy_and]

Пользуйтесь)

[Sanechek]

Уважаемый ,Vasiliy_and, я не могу узнать какое должно быть сочетание клавишь?.

[Vasiliy_and]

ЭТО КАК?

[Мудрый Змей]

а не проще в Сервис-->Адаптация-->Интерфейс настроить под себя команды на быстрые клавишы (те же самые сочетания Ctrl, Shift + буквы)...
и не надо мудрить с мышой, покупать много кнопочную мышь, при том что до многих кнопок на ней не всегда удобно тянуть пальцы...
сам юзаю только те что под большим пальцем, их две, команды Del и Enter, а левая отвечает за набор команд, использую левую половину клавиатуры (буквы через файл acad.pgp и их сочетания с Ctrl или Shift)...
все равно Esc мы нажимает не менее часто чем Del и Enter.
все выше сказанное чисто мое ИМХО

[Vasiliy_and]

Сообщение от Мудрый Змей а не проще в Сервис-->Адаптация-->Интерфейс настроить под себя команды на быстрые клавишы (те же самые сочетания Ctrl, Shift + буквы)... и не надо мудрить с мышой, покупать много кнопочную мышь, при том что до многих кнопок на ней не всегда удобно тянуть пальцы... сам юзаю только те что под большим пальцем, их две, команды Del и Enter, а левая отвечает за набор команд, использую левую половину клавиатуры (буквы через файл acad.pgp и их сочетания с Ctrl или Shift)... все равно Esc мы нажимает не менее часто чем Del и Enter. все выше сказанное чисто мое ИМХО

ИМХО не проще)

1. Назначение горячих клавиш дело - не благодарное: одно назначаешь другое слетает
2. Через Адаптацию можно настроить только СКМ и ЛКМ да и то криво
3. Можно настраивать последовательности нажатия клавиш, например как сделал я с MIRROR
4. Скрипт будет работать на любом компе и любом Autocad
5. Вставка даты(путем автозамены) в любом приложении Windows
6. В любой программе можно настроить Любые Команды через Alt меню
....

Короче все и везде куда можно добраться через клавиатуру можно потсавить на сочетания клавиш

...

Про СПДС Аналогично как в скрипте, можно через Alt, команду можно узнать , понаблюдав за Командной строкой

[Мудрый Змей]

а вы юзаете все сочетания клавиш которые есть у Автокада...???
очень в этом сомневаюсь...
и потом есть файл acad.pgp в котором можно на команды переустановить клавиши клавиатуры, и все сочетания клавиш автокада останутся в целости и сохранности...
а что касается мыши, то кнопки настриваются не в Акаде (о чем по идее можно было догадаться прочитав о том что кнопки расположены под большим пальцем руки - не важно правша вы или левша, сейчас можно найти мыши для обоих рук), а в утилитке, которая позволяет ОС видить возможности вашей мыши...
и настроив кнопки мыши удобным вам образом вы сможете юзать их не только в Акаде, а и в любом приложении запущенном на вашем ПК...

[Koysha]

Сообщение от Vasiliy_and у 7-ми кнопочной ни как. Дело в том, что сам AutoHotKey перехватывает сочетания только до пятой клавиши мыши. Но с помощью только 5-ти клавишь можно сделать Очень много команд,ведь в сочетаниях можно использовать любые клавиши --- А что не поняли как сделать?

у меня 9-ти кнопочная мышь (5+колесо влево, колесо вправо, zoom+, zoom-)
и все легко настраеивается

четвертая кнопка мыши - Shift
пятая кнопка мыши - Del
колесо влево - Esc
колесо вправо - сочетание клавиш Ctrl+ Z
zoom- - F8 режим Орто
zoom+ - F3 - привязка

[hwd]

Offtop: а 64-х кнопочная у кого-нить есть? )))

[Vasiliy_and]

Сообщение от Koysha у меня 9-ти кнопочная мышь (5+колесо влево, колесо вправо, zoom+, zoom-) и все легко настраеивается четвертая кнопка мыши - Shift пятая кнопка мыши - Del колесо влево - Esc колесо вправо - сочетание клавиш Ctrl+ Z zoom- - F8 режим Орто zoom+ - F3 - привязка

Речь идет про эту програму, а вы очевидно пользуетесь родным совтом, это всего лишь скрипт, но имеющий оч. большие возможности....

З,Ы, Это все ИМХО)

[Koysha]

нет
писал скрипт в AutoHotKey

мышь Trust MI-6950R

вот что я там написал:

SetTitleMatchMode,2
#IfWinActive, AutoCAD
XButton1::Shift
XButton2:: Del
WheelLeft::Esc
WheelRight::Send, ^{sc02c}
Ctrl & WheelDown:: Send, {F8}
Ctrl & WheelUp:: Send, {F3}
#IfWinActive

#IfWinActive, SolidWorks
WheelDown::WheelUp
WheelUp::WheelDown
#IfWinActive
return

[Vasiliy_and]

Сообщение от Koysha нет писал скрипт в AutoHotKey мышь Trust MI-6950R вот что я там написал: SetTitleMatchMode,2 #IfWinActive, AutoCAD XButton1::Shift XButton2:: Del WheelLeft::Esc WheelRight::Send, ^{sc02c} Ctrl & WheelDown:: Send, {F8} Ctrl & WheelUp:: Send, {F3} #IfWinActive #IfWinActive, SolidWorks WheelDown::WheelUp WheelUp::WheelDown #IfWinActive return

интересно, а что такое WheelLeft/right/up/down?
....
понял, что колесо
так удалось ли поставить через autokey zom+/-?

[Солидворкер]

Сообщение от Vasiliy_and интересно, а что такое WheelLeft/right/up/down?

WheelLeft/right -это наклон колеса влево\вправо, Wheelup/down -прокрутка

[Uduzr]

Ох понимаю что оффтопик но смолчать не могу....
А зачем это все нужно? Если вы и так будете нажимать на Ctrl, Shift, Win то почему бы не нажимать комбинацию клавиш на клавиатуре?? Хотите сделать мышь более функциональной? Купите хорошую мышь. В частности я пользуюсь и на работе и дома A4tech XL-755k. 11 кнопок перенастраиваемых. Не рекламы для, а только ради поделиться опытом говорю - очень удобно. На мыши висит enter, del, shift, esc, Ctrl+c (назначено копирование с базовой точкой простым копированием для объектов не пользуюсь вообще), Ctrl-v, Ctrl-w (назначена на перенести), Ctrl-E (назначена на обрезать), плюс поворот двумя клавишами (Shift+Ctrl+c). В 3d вид тоже меняется зажатием 2х клавиш одним пальцем - очень удобно.. В итоге вторая рука подносит чай, подпирает голову, листает документацию. Только координаты вводить приходится и текст набирать с клавиатуры ;-).

[Vasiliy_and]

Сообщение от Uduzr Ох понимаю что оффтопик но смолчать не могу.... А зачем это все нужно? Если вы и так будете нажимать на Ctrl, Shift, Win то почему бы не нажимать комбинацию клавиш на клавиатуре?? Хотите сделать мышь более функциональной? Купите хорошую мышь. В частности я пользуюсь и на работе и дома A4tech XL-755k. 11 кнопок перенастраиваемых. Не рекламы для, а только ради поделиться опытом говорю - очень удобно. На мыши висит enter, del, shift, esc, Ctrl+c (назначено копирование с базовой точкой простым копированием для объектов не пользуюсь вообще), Ctrl-v, Ctrl-w (назначена на перенести), Ctrl-E (назначена на обрезать), плюс поворот двумя клавишами (Shift+Ctrl+c). В 3d вид тоже меняется зажатием 2х клавиш одним пальцем - очень удобно.. В итоге вторая рука подносит чай, подпирает голову, листает документацию. Только координаты вводить приходится и текст набирать с клавиатуры ;-).

В шапке же написано же: это все ИМХО

[Koysha]

Сообщение от Vasiliy_and так удалось ли поставить через autokey zom+/-?

удалось
оказалось, что кнопка на мыши zoom+ - это сочетание Ctrl + колесо мыши вверх. просто прописал в скрипте строки:
Ctrl & WheelDown:: Send, {F8}
Ctrl & WheelUp:: Send, {F3}

получилось, что zoom+ теперь F3 (привязка) , а zoom- теперь F8 (режим орто)

[Vasiliy_and]

Сообщение от Koysha удалось оказалось, что кнопка на мыши zoom+ - это сочетание Ctrl + колесо мыши вверх. просто прописал в скрипте строки: Ctrl & WheelDown:: Send, {F8} Ctrl & WheelUp:: Send, {F3} получилось, что zoom+ теперь F3 (привязка) , а zoom- теперь F8 (режим орто)

буду иметь в виду

[perpetule]

; <COMPILER: v1.0.48.5>
SetKeyDelay 0
XButton1::Send, ^{sc02E}
MButton::Send, ^{sc02F}
; #IfWinActive, AutoCAD ; работает до 2012
; узнать ahk_class C:\Program Files\AutoHotkey\AU3_Spy.exe
;;; для 2012 AfxMDIFrame90u
; для 2014 AfxMDIFrame100u
#ifWinActive ahk_class AfxMDIFrame100u
{
^+LButton::Send, ^{sc21}
MButton::Send, ^{sc02F}
+MButton::Send, _.pasteclip{enter}
^RButton::Send, _.PLINE{enter}
+RButton::Send, _.line{enter}
^+RButton::Send, ПОВ{enter} ; из стандартного PGP RUS локали
^XButton1::Send, МТ{enter} ; из стандартного PGP RUS локали
+XButton1::Send, ^+{sc2E} ; +XButton1::Send, _COPYBASE{enter}
^+XButton1::
Send, ДТ{enter} ; из стандартного PGP RUS локали
Send, {enter}
Send, {enter}
return
!XButton1::Send, _.TEXTSIZE{enter}

XButton2::
send, {MButton down}
return

XButton2 up::
send, {MButton up}
return

^XButton2::Send, ДТ{enter} ; из стандартного PGP RUS локали
+XButton2::Send, ПО Г{enter} ; из стандартного PGP RUS локали _.ZOOM _E
^+XButton2::Send,, ПО Р{enter} ; из стандартного PGP RUS локали _.ZOOM _W

F4::Send, {Esc}{Esc}_.DDEDIT{enter}
F5::Send, {Esc}{Esc}_.ATTIPEDIT{enter}

}

; +Коммент
; XButton1::Send, ^{sc02E} БКМ-1 (БОКОВАЯ-КЛ-МЫШИ-1) --- CTRL+С - В ЛЮБОМ ПРИЛОЖЕНИИ
; MButton::Send, ^{sc21} СКМ (СРЕДНЯЯ-КЛ-МЫШИ-1) --- CTRL+V - В ЛЮБОМ ПРИЛОЖЕНИИ
; #ifWinActive ahk_class ### ЕСЛИ ЗАПУЩЕН AUTOCAD НИЖЕСЛЕДУЮЩЕЕ ДЛЯ AUTOCAD

; ------------------------------ ЛКМ --------------------------------------
; ^+LButton::Send, ^{sc21} CTRL+SHIFT+ЛКМ --- CTRL+F - ВСТАВКА ПОЛЯ


; ------------------------------ СКМ --------------------------------------
; +MButton::Send, ^+{sc02F} SHIFT+СКМ --- СДЕЛАТЬ БЛОК $ACxxxx ИЗ БУФЕРА


; ------------------------------ ПКМ --------------------------------------
; ^RButton::Send, _.PLINE{enter} CTRL+ПКМ --- ЧЕРТИТЬ ПОЛИЛИНИЮ
; +RButton::Send, _.line{enter} SHIFT+ПКМ --- ЧЕРТИТЬ ОТРЕЗОК
; ^+RButton::Send, _.ROTATE{enter} CTRL+SHIFT+ПКМ --- ВРАЩАТЬ


; ------------------------------ БКМ-1 --------------------------------------
; ^XButton1::Send, _.MTEXT{enter} CTRL+БКМ-1 --- МНОГОСТРОЧНЫЙ ТЕКСТ
; +XButton1::Send, _COPYBASE{enter} SHIFT+БКМ-1 --- КОПИРОВАТЬ С БАЗОВОЙ ТОЧКОЙ
; ^+XButton1::Send, _.TEXT{enter} CTRL+SHIFT+БКМ-1 --- ОДНОСТРОЧНЫЙ ТЕКСТ ЧЕРТИТЬ
; !XButton1::Send, _TEXTSIZE{enter} ALT+БКМ-1 --- ОДНОСТРОЧНЫЙ ТЕКСТ ВЫСОТА

[Малёха]

Здравствуйте. Помогите пожалуйста. Раньше работал в AutoCAD 2010 и пользовался скриптом

;Process, Priority, , High

#IfWinActive, AutoCAD
{
;ДЛЯ ЛКМ
;!LButton::Send, {Delete}

;для ПКМ
;RButton::Send, _{enter}
+RButton::Send, _COPY{enter}
^RButton::Send, _rotate{enter}
^+RButton::Send, _join{enter}
^#RButton::Send, _regenall{enter}
#RButton::Send, _matchprop{enter}
!RButton::Send, __move{enter}
!#RButton::Send, ttorient{enter}

;для СРКМ
;MButton::Send, _{enter}
^MButton::Send, _trim{enter}
+MButton::Send, _extend{enter}
!MButton::Send, __break{enter}
#MButton::Send, _scale{enter}
^+MButton::Send, _offset{enter}
!#MButton::Send, __mirror{enter}
^#MButton::Send, _explode{enter}

;для 4 КМ
XButton1::Send, _PLINE{enter}
^XButton1::Send, _circle{enter}
+XButton1::Send, _spline{enter}
!XButton1::Send, _Otkos{enter}
#XButton1::Send, _bhatch{enter}
^+XButton1::Send, t2m{enter}
^#XButton1::Send, txt2mtxt{enter}
!+XButton1::Send, _mapbreak{enter}
!#XButton1::Send, _maptrim{enter}

;для 5 КМ
XButton2::Send, _dist{enter}
^XButton2::Send, _reverse{enter}
+XButton2::Send, PL-JOIN{enter}
!XButton2::Send, RR3P{enter}
#XButton2::Send, _dimangular{enter}
^+XButton2::Send, ConvTo2d{enter}
+#XButton2::Send, РPL-VxAdd{enter}
^+!XButton2::Send, восстан{enter}
}

Теперь перешёл на AutoCAD 2015, скрипт на этой версии не работает. Подскажите, пожалуйста, что в нём надо изменить, что бы он заработал.
Пробовал скрипт для 2014 который приведен выше, к сожалению не помогло.

[perpetule]

узнать ahk_class

- через скрипт AHK, какой уже не помню гугл в помощь