[Vasiliy_and]

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

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

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

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

[BM60]

Что значит "под AutoHotkey"?
Без загрузки (подключения) этого AutoHotkey ваш скрипт не будет действовать?
Важно ли местоположение этого ahk?

[Vasiliy_and]

Конечно, надо установить программу, скачать можно с http://www.autohotkey.com/
, скрипт можно положить в любое место, и редактировать с помощью обычного блокнота)

[BM60]

На оф.сайте несколько программ, достаточно ли только инсталлятора?

[Vasiliy_and]

Достаточно,
---
Для более быстрой работы скрипта надо добавить в первую строчку
SetKeyDelay 0
---
Есть еще доработка:
при нажатии на shift ср.к.м. вызывалась команда _MIRROR
Теперь при удержании shift, после комбинации, автоматически ,на запрос "удалить старое?" ответ да, без удержание - автоматом нет
-заменить строчку:
"+MButton::Send, _MIRROR{enter}"
-на:
+MButton::
Send, _MIRROR{enter}
sleep 400
GetKeyState, state, Shift
KeyWait, LButton, D
sleep 200
KeyWait, LButton, D
if state = D
send, Д{enter}
else
send, Н{enter}
return

[antan83]

Мощно... разбирался - но без опыта програмирования не понял как такое сделать... - только ESC и пробел смог сделать...
Но как называються у 7 кнопочной мыши клавиши?

[Sanechek]

Скачал прогу, скачал Autocad_mouse_23-12-09.rar и что теперь, как сделать, что б это работало?

[Vasiliy_and]

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

---
А что не поняли как сделать?

[Sanechek]

У меня мышь с 2 клавишами и колесиком. Установил прогу, но ничего не получается. Я так понял это теже горячие клавиши, но только одна из клавишь - это кнопка мыши?

[Vasiliy_and]

Не очень понял...
В комбинациях(в том числе и кнопок мыши) могут участвовать любое количество клавиш...
Вы напишите что Вы хотите, а я скажу как)

2Sanechek
устанавливаете прогу, разархивируйте скрипт, и кликните 2 раза по нему.

[Sanechek]

Сообщение от Vasiliy_and устанавливаете прогу, разархивируйте скрипт, и кликните 2 раза по нему.

все сделал, но... . Домустим что бы выполнить команду "отрезок", что мне нужно сделать?

[Vasiliy_and]

создаете текстовый файл(в блокноте)
там пишите:

SetKeyDelay 0
#IfWinActive, AutoCAD
+RButton::Send, _line{enter}
^RButton::Send, {Del}
return

-----
сохраняете под любым именем как текстовый файл. потом меняете расширение txt на ahk
-----
чтоб работало надо установить программу и запустить этот скрипт
-----
данный скрипт перехватывает в Autocad
Shift + ПКМ - и передает команду, если бы вы написали _line и нажали бы ENTER

Ctrl + ПКМ - имитирует нажатия DEL
-----
а вообще есть сайт с документацией по проге:
http://www.script-coding.info/AutoHo...anslation.html

[Sanechek]

Не работает почему то. Может от версии автокада зависит. У меня АDT 2007

[Vasiliy_and]

AutoCAD 2007?
попробуйте исправить скрипт на

SetKeyDelay 0
+RButton::Send, _line{enter}
^RButton::Send, {Del}

---

тогда комб. клав. будут перехватываться во всех приложения Win

[Sanechek]

ЗДОРОВО!!! Линия заработала, а вот ДЕЛ. нет

[Vasiliy_and]

странно у меня все работает,
а вы попробуйте вначале выделить объект а потом нажать
Ctrl + ПКМ
_____

напишите, что у вас написано в скрипте?

[Sanechek]

ага все понял
Спасибо огромное!!! Хочу что б ваш скрипт работал, который выложен в первом посте. Что нужно поменять? Убрать #IfWinActive, AutoCAD?

[Vasiliy_and]

Вот мой скрипт последней редакции:

SetKeyDelay 0

:*:ddd::
FormatTime, CurrentDateTime,, _MM-dd-yyyy
Send %CurrentDateTime%
return

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

;для ПКМ
;RButton::Send, _{enter}
^RButton::Send, _COPY{enter}
+RButton::Send, _MOVE{enter}
^+RButton::Send, _regenall{enter}
^#RButton::Send, _ROTATE{enter}
+#RButton::Send, _scale{enter}

;для СРКМ
;MButton::Send, _{enter}
^MButton::Send, _TRIM{enter}
+MButton::
Send, _MIRROR{enter}
KeyWait, LButton, D
GetKeyState, state, Shift
sleep 200
KeyWait, LButton, D

if state = D
send, Д{enter}
else
send, Н{enter}
return
^+MButton::Send, _matchprop{enter}
+#MButton::Send, Д{enter}

;для 4 КМ
XButton1::Send, _PLINE{enter}
^XButton1::Send, _rectang{enter}
+XButton1::Send, _circle{enter}
^+XButton1::Send, _dimlinear{enter}
+#XButton1::
Send, _insert{enter}
sleep 100
send, CIR_OS{enter}
return

;для 5 КМ
XButton2::Send, {Del}
^XButton2::Send, _burst{enter}
+XButton2::Send, _explode{enter}
;^+XButton2::Send, _burst{enter}

}

Я в него также включил автозамену (везеде под Windows) "ddd"- меняется на _12-25-2009(текущую дату)

[Sanechek]

Это все нужно в один файл копировать? А команды СПДС можно сюда загнать?

[Vasiliy_and]

Да все в одинфайл)
Я дал скрипт как у меня, по этому переделайте его под себя
Какие команды СПДС?