DRA-CAD専用掲示板

HOME HELP 新規作成 新着記事 ツリー表示 発言ランク ファイル一覧 検索 過去ログ

■64 / 1階層)  「文字記入」
□投稿者/ TONKUN (43回)-(2016/03/29(Tue) 19:23:21)
    よく使うので、Insertとマウスホイール下回転に割り付けしています。
    マイデファルトとして、エディットボックスの大きさ、回転0、スタイル名、文字列フォーカス(IME表示) 、
    ;原点左中、ダイアログ外外にマウス移動を自己用に設定。

    ATOKの表示、非表示を設定しているので、各項目設定後はIMEを表示。

    Insertで文字記入ダイアログ表示、もう一度Insertでマイデファルトの表示。

    ;文字記入
    Insert::
    Send,text{Enter} ;文字記入
    WinWaitActive,文字記入 ;文字記入がアクティブになるのを待つ
    MouseMove,-20,40 ;ダイアログ外外にマウス移動
    Return

    #IfWinActive 文字記入 ahk_class #32770
    ;マイデフォルト
    Insert::
    WinMove,,, , ,600,550 ;ダイアログの大きさ
    Send,!t{Right 3}0!sm+{Tab} ;回転0・スタイル名・文字列フォーカス(IME表示)
    MouseClick,L,315,230,1,0 ;原点左中
    MouseMove,-20,40 ;ダイアログ外にマウス移動(即実行できるように)
    Return
    ;マイデフォルト
    #F12::
    WinMove,,, , ,600,550 ;ダイアログの大きさ
    Send,!t{Right 3}0!sm+{Tab} ;回転0・スタイル名・文字列フォーカス (IME表示)
    MouseClick,L,315,230,1,0 ;原点左中
    MouseMove,-20,40 ;ダイアログ外にマウス移動(即実行できるように)
    Return

    +Insert::Send,!s!{Down}m+{Tab} ;スタイル名-MS2.5-文字列フォーカス(IME表示)
    ^Insert::Send,!s!{Down}mm+{Tab} ;スタイル名-MS4-文字列フォーカス(IME表示)
    #Insert::Send,!s!{Down}{Home}+{Tab} ;スタイル名-個別設定選択-字列フォーカス(IME表示)
    +Enter::Send,!zd ;サイズ図面から
    ^Enter::Send,!gd ;文字列図面から
    !Enter::Send,!r ;置換記入
    ^h::Send,{BS} ;ATOKのCtrl+Hの一部が機能しないので

    ;角度取得 図面から
    ^+LButton::
    MouseClick,L,490,315,1,0 ;角度図面からボタンクリック
    Return

    ;背景色で塗りつぶし
    !F11::
    Send,!s!{Down}{Home} ;スタイル名-個別設定選択
    Send,!1 ;背景色で塗りつぶし選択
    MouseClick,L,50,150,1,0 ;エディットボックスアクティブでIMEバー表示(ATOKでIMEバーを表示、非表示設定している為)
    Return

    ;以下は原点を設定
    ^Numpad1::
    MouseClick,L,315,255,1,0 ;原点左下
    MouseMove,-20,40 ;ダイアログ外にマウス移動
    Return
    ^Numpad2::
    MouseClick,L,335,255,1,0 ;原点中下
    MouseMove,-20,40 ;ダイアログ外にマウス移動
    Return
    ^Numpad3::
    MouseClick,L,355,255,1,0 ;原点右下
    MouseMove,-20,40 ;ダイアログ外にマウス移動
    Return
    ^Numpad4::
    MouseClick,L,315,230,1,0 ;原点左中
    MouseMove,-20,40 ;ダイアログ外にマウス移動
    Return
    ^Numpad5::
    MouseClick,L,335,230,1,0 ;原点中中
    MouseMove,-20,40 ;ダイアログ外にマウス移動
    Return
    ^Numpad6::
    MouseClick,L,355,230,1,0 ;原点右中
    MouseMove,-20,40 ;ダイアログ外にマウス移動
    Return
    ^Numpad7::
    MouseClick,L,315,210,1,0 ;原点左上
    MouseMove,-20,40 ;ダイアログ外にマウス移動
    Return
    ^Numpad8::
    MouseClick,L,335,210,1,0 ;原点中上
    MouseMove,-20,40 ;ダイアログ外にマウス移動
    Return
    ^Numpad9::
    MouseClick,L,355,210,1,0 ;原点右上
    MouseMove,-20,40 ;ダイアログ外にマウス移動
    Return
    #IfWinActive ;文字記入ここまで

記事引用 [メール受信/OFF] 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←DRA-CADとAutoHotkey 始めに(中級者以上) /TONKUN 返信無し
 
上記関連ツリー

Nomal DRA-CADとAutoHotkey 始めに(中級者以上) / TONKUN (16/02/22(Mon) 21:06) #53
Nomal 始めに その2 / TONKUN (16/02/25(Thu) 20:57) #54
│└Nomal 始めに その3(便利さが分かる例) / TONKUN (16/02/27(Sat) 22:32) #55
Nomal 「開く」関係 / TONKUN (16/02/29(Mon) 20:27) #56
│└Nomal エクスプローラも同様に / TONKUN (16/03/13(Sun) 18:23) #57
Nomal 「保存」関係 / TONKUN (16/03/13(Sun) 21:30) #58
│└Nomal ;PDFで保存 / TONKUN (16/03/14(Mon) 19:06) #59
Nomal 「印刷」関係 / TONKUN (16/03/16(Wed) 20:11) #60
│├Nomal 連続印刷の設定(連続簡易プレビュー) / TONKUN (16/03/21(Mon) 20:11) #63
│└Nomal 「印刷」で印刷部数設定 / TONKUN (16/05/06(Fri) 12:04) #70
Nomal 「文字記入」 / TONKUN (16/03/29(Tue) 19:23) #64 ←Now
Nomal 「引出線」関係 / TONKUN (16/05/16(Mon) 20:32) #71
Nomal 「寸法線」 / TONKUN (16/05/16(Mon) 21:40) #72
Nomal 14 plus用 ステータスバー計算 / TONKUN (16/06/01(Wed) 20:40) #73
│├Nomal 追記、文字記入で止める場合 / TONKUN (16/06/05(Sun) 19:08) #74
│├Nomal 追記、貼り付け / TONKUN (16/06/07(Tue) 18:57) #75
│└Nomal 帖表示のu*0.3025*2 / TONKUN (16/06/13(Mon) 20:15) #80
Nomal 番外編 ウィンドウ(可変ダイアログ)の大.. / TONKUN (16/06/07(Tue) 19:53) #76 1465296804.dxf/167KB
│└Nomal 「,」カンマ記入 / TONKUN (16/06/07(Tue) 20:04) #77
Nomal 数字に「,」カンマを追加 / TONKUN (16/06/25(Sat) 20:02) #83

All 上記ツリーを一括表示
 
上記の記事へ返信