LibreCADをAutoHotkeyで半自動化してみる

LibreCADを半自動で動かす

LibreCADは海外製のフリーCADです。QCADの子供です、軽い分少し機能が劣ると思います。

AutoHotkeyは、ショートカットキーにスクリプトを登録し、小さな自動化するのが得意です。

コマンド(キー)中心のCADなら、結構自動化できると思います。

ダウン先: AutoHotkey

半径(直径)入力で、円を描きます。  C

Cキーを押すと、入力画面が現れるので半径(直径)を入れれば円描きます。

AutoHotkeyのコード:

c up::
    ;// GUI 作成
    Gui,Destroy  ;追加した
    Gui, +ToolWindow AlwaysOnTop ;; 最小・最大ボタンなし
    Gui, Font, S12  ;// フォントサイズ
    Gui, Add, Checkbox, x20 y25 w100 h25 v_diameter, 直径の時
    Gui, Add, Edit, x15 y60 w120 h30 vSize 
    Gui, Add, Button, x20 y100 w100 h25 gDrawCircle Default, OK
    ;;---------
    Gui, Show, x1500 h150 w150, 円作成 ;;Windowを表示
    Send,{Tab} ;;TAB {}が必要 Editにフォーカスを当てる
Return

;// 円作成のコマンドを連続で送る
DrawCircle:
    Gui, Submit ;;変数GET
    SetTitleMatchMode,1 ;;タイトル一致
    WinActivate, LibreCAD
    Loop, 8
    {
    send, ci
    send, {Enter}
    sleep, 500
    send, %Size% , %Size% ;;XY座標
    send, {Enter}
    send, %Size% ;; 半径
    send, {Enter}
    Size := Size-10
    }
Return

円のコマンドは:ci

座標は:x, y  (カンマが必要です)

全体表示:za

コメント

タイトルとURLをコピーしました