domingo, 19 de abril de 2009

AutoHotKey


Baixei o AutoHotKey quando procurava um programa para mapear o teclado como Joystick. Inicialmente parecia interessante poder jogar Games em flash a partir do joystick. O mais interessante é que o AutoHotKey acabou se mostrando um ótimo programa para criar scripts e assim automatizar qualquer programa no Windows.

Algumas coisas que não deram certo utilizando as macros do WinWord (Dimensionar imagens, por exemplo) foram facilmente conseguidas com o AutoHotKey.

Baixe o AutoHotKey (http://www.autohotkey.com/) e utilizando o AutoScriptWriter crie as rotinas. Depois coloque o arquivo no “Quick Launch” e pode executar as ações automaticamente.

Nota: colocar no Quick Launch = Arrastar para o Quick Launch (Barra Inferior) ou salvar em C:\Documents and Settings\Administrador(ou Usuário)\Dados de aplicativos\Microsoft\Internet Explorer\Quick Launch.

***

O Script abaixo; cria atalhos de teclado para utilizar o Dicionário WordWeb e o Aurério (Alt + Espaço ou Alt + V, respectivamente, com o cursor sobre a palavra que se quer consultar).


!Space::

IfWinExist, WordWeb thesaurus/dictionary,
{
Click 2 ;
Send ^c ;

IfWinNotActive, WordWeb thesaurus/dictionary, , WinActivate, WordWeb thesaurus/dictionary,
Send, {CTRLDOWN}v{CTRLUP}{ENTER}
}
else
{
Run, C:\Arquivos de programas\WordWeb\wweb32.exe

Click 2 ;
Send ^c ;

IfWinNotActive, WordWeb thesaurus/dictionary, , WinActivate, WordWeb thesaurus/dictionary,
Send, {CTRLDOWN}v{CTRLUP}{ENTER}
}
return


!v::

IfWinExist, WordWeb thesaurus/dictionary,
{
Click 2
Send,{CTRLDOWN}c{CTRLUP}{ENTER}

IfWinNotActive, Dicionário Aurélio - Século XXI, , WinActivate, Dicionário Aurélio - Século XXI,

Send, !d
Send, s

Send,{CTRLDOWN}v{CTRLUP}{ENTER}

}

else
{

Run, C:\Arquivos de programas\Aurélio - Século XXI\AeXXI.exe

Click 2 ;
Send ^c ;

IfWinNotActive, Dicionário Aurélio - Século XXI, , WinActivate, Dicionário Aurélio - Século XXI,

Send, !d
Send, s

Send,{CTRLDOWN}v{CTRLUP}{ENTER}

}

return
***
Exemplo de Script para Redimensionar Imagens no WinWord

#z::

MouseClick, left, 715, 424
MouseClick, left, 715, 424
Sleep, 100
WinWait, Formatar Imagem,
IfWinNotActive, Formatar Imagem, , WinActivate, Formatar Imagem,
WinWaitActive, Formatar Imagem,
MouseClick, left, 202, 41
Sleep, 100
MouseClick, left, 301, 130
Sleep, 100
MouseClick, left, 307, 122
MouseClick, left, 307, 122
Sleep, 100
MouseClick, left, 307, 122
MouseClick, left, 307, 122
Sleep, 100
MouseClick, left, 307, 122
Sleep, 100
Send, 8,5
MouseClick, left, 140, 124
Sleep, 100
MouseClick, left, 289, 380
Sleep, 100

MouseClick, left, 471, 404

return


Exemplo de Script para Compactar Imagens no WinWord


Send, {ALTDOWN}f{ALTUP}ii{ENTER}
WinWait, Formatar Imagem,
IfWinNotActive, Formatar Imagem, , WinActivate, Formatar Imagem,
WinWaitActive, Formatar Imagem,
Send, {ALTDOWN}m{ALTUP}
WinWait, Compactar Imagens,
IfWinNotActive, Compactar Imagens, , WinActivate, Compactar Imagens,
WinWaitActive, Compactar Imagens,
Send, {ALTDOWN}t{ALTUP}{ENTER}
WinWait, Formatar Imagem,
IfWinNotActive, Formatar Imagem, , WinActivate, Formatar Imagem,
WinWaitActive, Formatar Imagem,
MouseClick, left, 291, 367
Sleep, 100





Como usar as Rotinas Lisp no AutoCAD


Disponibilizarei aqui algumas rotinas que desenvolvi na minha época de Desenhista Cadista. Para usá-las basta copiar e colar na linha de comando do AutoCAD ou então criar um arquivo de texto com extensão .LSP e depois arrastá-lo para dentro do AutoCAD.

Sempre existirá uma breve descrição da rotina e, como a maioria é bastante simples, bastará algumas tentativas para aprender a utilizá-las.

Para rodar a rotina digite na linha de comando o texto que vem entre C: e ().

O que estiver depois de ";;" pode ficar no arquivo ".LSP"; mas, se for colar a rotina na linha de comando, somente cole o texto em negrito.

;; Rotinas simples você vai entrando com os pontos (P1) e com os textos que quer colocar nos pontos (cotas, por exemplo). Para encerrar a rotina você deverá pressionar a tecla ESC.

(defun c:Cotas ()
(setq p1 '(0 0))
(while p1
(setq p1 (getpoint "P1 ___"))
(setq ksc1 (getstring "Cota ___"))
(command "text" p1 "5" "0" (strcat "(" ksc1 ")"))
)
)




AutoHotKey

Ir para página Inicial - Blog Automatizando Baixei o AutoHotKey quando procurava um programa para mapear o teclado como Joystick. Inici...