AutoHotkey Community

#SingleInstance force
SetTitleMatchMode, 2
I_Icon = C:\Documents and Settings\chrisl\My Documents\icon\orcad.ico

; Change tray icon (if one was specified in the configuration section above):
If I_Icon <>
    IfExist, %I_Icon%
        Menu, Tray, Icon, %I_Icon%

#ifwinactive, Orcad Capture

   ; change connector to input type
F5::
PlaceOffPageConnector(0)
return

   ; change connector to output type
F6::
PlaceOffPageConnector(1)
return

   ; change connector to bidir type
F8::
PlaceOffPageConnector(2)
return

   ; change connector to input type
+F5::
PlaceOffPageConnector(0,2)
return

   ; change connector to output type
+F6::
PlaceOffPageConnector(1,2)
return

   ; change connector to bidir type
+F8::
PlaceOffPageConnector(2,2)
return
   ; change connector to input type
^F5::
PlacePortConnector(0)
return

   ; change connector to output type
^F6::
PlacePortConnector(1)
return

   ; change connector to bidir type
^F8::
PlacePortConnector(2)
return

   ; change connector to input type
^+F5::
PlacePortConnector(0,2)
return

   ; change connector to output type
^+F6::
PlacePortConnector(1,2)
return

   ; change connector to bidir type
^+F8::
PlacePortConnector(2,2)
return

   ; repeat work
F7::
SendInput {Enter}
SendInput {Home}
SendInput {Del}
SendInput {Del}
SendInput CARD
SendInput {Enter}
return


; type = 0 for input, 1 for output, 2 for BIDIR
PlaceOffPageConnector(type, rot=4)
{
  BlockInput On
   name := type==0 ? "OFFPAGELEFT-IN" : type==1 ? "OFFPAGERIGHT-OUT" : "OFFPAGE-BIDIR"
   mv := type==0 ? -40 : 40

   MouseGetPos, mx, my
   SendInput {Enter}
   SendInput ^c
   SendInput {Esc}
   SendInput {Del}
   SendInput !p
   SendInput f
   SendInput %name%
   SendInput {Enter}
   Click, %mx%, %my%
   SendInput {Esc}
   MouseClick, , mv, 0, , , ,R
   SendInput {Enter}
   SendInput ^v
   SendInput {Enter}
   mv := type==0 ? -40 : 45
   MouseClick, , -mv, 0, , , ,R
    loop, %rot%
    {
    SendInput r
    }
    SendInput ^x
    SendInput ^v
  BlockInput Off
   return
}

; type = 0 for input, 1 for output, 2 for BIDIR
PlacePortConnector(type, rot=4)
{
  BlockInput On
   name := type==0 ? "PORTRIGHT-R" : type==1 ? "PORTLEFT-R" : "PORTBOTH-L"
   mv := type==2 ? 50 : -50

   MouseGetPos, mx, my
   SendInput {Enter}
   SendInput ^c
   SendInput {Esc}
   SendInput {Del}
   SendInput !p
   SendInput i
   SendInput %name%
   SendInput {Enter}
   Click, %mx%, %my%
   SendInput {Esc}
   loop, 4
   {
   SendInput r
   }
   SendInput {Esc}
   MouseClick, , mv, 0, , , ,R
   SendInput {Enter}
   SendInput ^v
   SendInput {Enter}
   mv := type==0 ? -30 : 35
   MouseClick, , -mv, 0, , , ,R
   loop, %rot%
   {
   SendInput r
   }
   SendInput ^x
   SendInput ^v
  BlockInput Off
   return
}

window(title)
{
  WinWait,%title%,,2
;  WinActivate,%title%
;  WinWaitActive,%title%,,2
  return
}

#ifwinactive

sendinput {ctrl down}
sleep 10
sendinput c
sleep 10
sendinput {ctrl up}