DRA-CAD専用掲示板 [One Tree All Message]

DRA-CAD専用掲示板

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

親記事　/ ▼[ 54 ] ▼[ 56 ] ▼[ 58 ] ▼[ 60 ] ▼[ 64 ] ▼[ 71 ] ▼[ 72 ] ▼[ 73 ] ▼[ 76 ] ▼[ 83 ]

■53 / 親階層)

　DRA-CADとAutoHotkey 始めに(中級者以上)

□投稿者/ TONKUN (32回)-(2016/02/22(Mon) 21:06:58)

2016/02/22(Mon) 21:53:33 編集(投稿者)
2016/02/22(Mon) 21:53:09 編集(投稿者)
2016/02/22(Mon) 21:53:05 編集(投稿者)
2016/02/22(Mon) 21:45:14 編集(投稿者)

DRA-CADは各コマンドが多機能が故に却って使い勝手が悪くなっている部分もあります｡
マクロ機能があれば良いのですが｡
私が現役時には､DRA-CADにマクロ機能は搭載されそうに無いので､
AutoHotkeyで主にマクロ機能として自己用カスタム設定につて発言いたします｡(リマップ用も)
利用される場合は自己責任で｡

***最重要事項***
記述の上書き保存後は必ず｢Reload This Script｣で再設定する｡
記述に問題がある場合はエラーダイアログが表示される｡
起動できなくなった場合は､
インストール先のC:\Users\ユーザー名\Documentsに有る
AutoHotkey ScriptのAutoHotkey.ahkを右クリックして､Edit Scriptを選択して修正｡

DRA-CADで作成できるショートカットの修飾キーはShift+とCtrl+｡
AutoHotkeyでAlt+､windowsキー+も可能になります｡(制約はありますが)
多ボタンマウスにShift､Ctrl､Alt､windowsキーも登録しているので､マクロ記述もそれに合わせている部分もあります｡

DRA-CADは各コマンドで細かく設定でき､コマンドにもショートカットが有るので､それを利用｡

マクロでよく使う文字列
;
+
^
!
#
#IfWinActive
::
,
Send
Return
Sleep
MouseClick
WinMove

例えば､キーのリマップ
vk1Csc079::vkF3sc029 ;変換キーを半角/全角キーに変更

[ □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 53 ] / ▼[ 55 ]

■54 / 1階層)

　始めにその2

□投稿者/ TONKUN (33回)-(2016/02/25(Thu) 20:57:27)

スクリプトを書き込みは
PC全体 ;そのままスクリプトを書き込む
DRA-CAD全体(ウィンドウ)(アプリ) ;DRA-CADを指定してスクリプト書き込む
各専用コマンド(ウィンドウ) ;各コマンドを指定してスクリプトを書き込む

DRA-CADでは割り付けできないキーでも､AutoHotkeyで割り付け可能｡(お勧めできませんが)
キーに直接割り付けも可能｡
例えば､寸法線をPrintScreenに割付は
PrintScreen::Send,dim{Enter} ;コマンド名のdimをステータスバーに表示してEnterキーの操作をする｡

DRA-CAD14で使用する場合､例えば
IfWinActive ahk_class DRACAD14_SE_MainFrame ;Window Spyで取得
#F12::WinMove,,,-2,2,1604,1202 ;デフォルトのウインドウの位置大きさ表示複数行は最後にReturnを記述｡各コマンドスクリプトを順次記述
#IfWinActive ;DRA-CAD14はここまで

開くコマンドを使用する場合､例えば
#IfWinActive 開く ahk_class #32770 ;Window Spyで取得開くダイアログ(ウィンドウ)
#F12::WinMove,,,270,170,1050,955 ;デフォルトダイアログの位置大きさ表示 #F12をデフォルトの共通にしています
#IfWinActive ;開くはここまで

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 54 ] / 返信無し

■55 / 2階層)

　始めにその3(便利さが分かる例)

□投稿者/ TONKUN (34回)-(2016/02/27(Sat) 22:32:27)

例えば､連続寸法線を終了するには､右クリック-作図終了(X)を選択｡(同様のコマンドは他にも有り)
これをShift+Enterで済ます事が可能です｡(ダイアログにショートカットが有るので便利)
#IfWinActive ahk_class DRACAD14_SE_MainFrame
内に下記を記述｡
+Enter::Send,{RButton}x ;連続寸法線等即決定(右クリック後終了選択)

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 53 ] / ▼[ 57 ]

■56 / 1階層)

　｢開く｣関係

□投稿者/ TONKUN (35回)-(2016/02/29(Mon) 20:27:12)

先ず､[に開くを割り付けします｡(DRA-CAD､AutoHotkey何れでも可)
utoHotkeyだと､Ctrl+Oは
[::Send,^o

次に､Shift+[に｢すべてのファイル｣の表示を割り付けします｡
Alt+Tで､｢読み込むファイルの種類｣を選択｡(ショートカットの表示は無い)
次にSキーを打ちSXFを表示させ､更に下矢印キーを3回打つ｡
｢すべてのファイル｣が表示されます｡
+[::Send,!t{s}{Down 3}{Enter} ;ファイルの種類すべてを表示ファイルの種類ですべて選択-下矢印を3回 sはSXFを示す

DRA-CADメニューの最近使ったファイルを使いたいので､Ctrl+[に割り付けて最近使ったファイルNO5に移動させます｡
^[::
Send,!f ;DRA-CADメニューを表示
MouseMove,240,215 ;最近使ったファイルNO5にマウス移動
Return

直近のファイルを読み込む｡
DRA-CADメニューを表示後､最近使ったファイルNO1の読み込みをAlt+[に割り付け｡
Alt+FでDRA-CADメニューを表示-1でNO1ファイル読み込み｡
![::Send,!f1 ;DRA-CADメニューの最近使ったファイル NO1を実行

#IfWinActive 開く ahk_class #32770 ; 開くダイアログ(ウィンドウ)
#F12::WinMove,,,270,170,1050,955 ;デフォルトダイアログの位置大きさ表示
[::Send,!t{d}{Enter} ;DRA-CADファイル選択 dはDRA-CADを示すダイアログ内ですべてのファイルと切り替えできるように
+[::Send,!t{s}{Down 3}{Enter} ;ファイルの種類すべてを表示ファイルの種類ですべて選択-下矢印を3回 sはSXFを示す
+WheelUp::Send,!{Up} ;親フォルダを表示
+WheelDown::Send,!{Left} ;前のフォルダを表示
^Numpad1::Send,{RButton}vl ;右クリック-表示選択-一覧選択
^Numpad2::Send,{RButton}vr ;右クリック-表示選択-大アイコン選択
^Numpad3::Send,{RButton}vx ;右クリック-表示選択-特大アイコン選択
^Numpad4::Send,{RButton}vd ;右クリック-表示選択-詳細選択
#IfWinActive ; 開くはここまで

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 56 ] / 返信無し

■57 / 2階層)

　エクスプローラも同様に

□投稿者/ TONKUN (36回)-(2016/03/13(Sun) 18:23:13)

#IfWinActive ahk_class CabinetWClass
#F12::WinMove,,,270,170,1050,955 ;デフォルトのウインドウの位置大きさ表示
^Numpad1::Send,{RButton}vl ;右クリック-表示選択-一覧選択
^Numpad2::Send,{RButton}vr ;右クリック-表示選択-大アイコン選択
^Numpad3::Send,{RButton}vx ;右クリック-表示選択-特大アイコン選択
^Numpad4::Send,{RButton}vd ;右クリック-表示選択-詳細選択
#IfWinActive

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 53 ] / ▼[ 59 ]

■58 / 1階層)

　｢保存｣関係

□投稿者/ TONKUN (37回)-(2016/03/13(Sun) 21:30:21)

書き出しに有るDXF､JWWは名前を付けてでの保存｡(書き出しとしての表示に疑問が有りますが)
別名で保存のDXF､JWWが欲しいので､
先ず､@に名前を付けて保存を設定｡(常時使えるように)

Shift+@に､DXFの別名で保存を登録｡
先に､Ctrl+hに別名で保存を割り付け
別名で保存を起動
Alt+tでファイルの種類を選択
下矢印をクリックでリストを表示
aを3回押してAutoCAD DXF(*.dxf)を選択(他の方法も有り)

DRA-CAD全体に記述
;別名で保存 DXF
+@::
Send,^h ;別名で保存を起動
Sleep,200
Send,!t{Down}aaa{Enter} ;ファイルの種類でDXFを選択
Return

同様にCtrl+@にJWWを登録｡
;別名で保存 JWW
^@::
Send,^h ;別名で保存を起動
Sleep,200
Send,!t{Down}jj{Enter} ;ファイルの種類でJWWを選択
Return

各ダイアログ表示後
#IfWinActive 名前をつけて保存 ahk_class #32770
#F12::WinMove,,,270,170,1050,955 ;ダイアログの位置大きさ表示
+@::Send,!t{Down}aaa{Enter} ;DXFを選択
^@::Send,!t{Down}jj{Enter} ;JWWを選択
+WheelUp::Send,!{Up} ;親フォルダを表示
+WheelDown::Send,!{Left} ;前のフォルダを表示
#IfWinActive

#IfWinActive 別名で保存 ahk_class #32770
#F12::WinMove,,,270,170,1050,955 ;ダイアログの位置大きさ表示
+@::Send,!t{Down}aaa{Enter} ;DXFを選択
^@::Send,!t{Down}jj{Enter} ;JWWを選択
+WheelUp::Send,!{Up} ;親フォルダを表示
+WheelDown::Send,!{Left} ;前のフォルダを表示
#IfWinActive

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 58 ] / 返信無し

■59 / 2階層)

　;PDFで保存

□投稿者/ TONKUN (38回)-(2016/03/14(Mon) 19:06:01)

先ず､windowsキー+@に｢PDFで保存｣を割り付け｡
#@::Send,wpdf{Enter} ;PDFで保存(wpdfは小文字)

PDFで保存で用紙設定等は面倒なので､PDF書き出しのダイアログ表示時に､
Ctrl+Numpad1にA1横､Ctrl+Numpad2にA2横､Ctrl+Numpad3にA3横､Ctrl+Numpad4にA4縦を割り付け｡

#IfWinActive PDF書き出し ahk_class #32770
^Numpad1::
MouseClick,L,130,50,1,0 ;用紙リストクリック
Send,{Home}{Down 2}{Enter} ;A1選択
MouseClick,L,310,50,1,0 ;方向リストクリック
Send,{Home}{Enter} ;Homeで最上位に移動なので横決定
MouseMove,460,35 ;OKボタンにマウス移動
Return
^Numpad2::
MouseClick,L,130,50,1,0 ;用紙リストクリック
Send,{Home}{Down 3}{Enter} ;A2選択
MouseClick,L,310,50,1,0 ;方向リストクリック
Send,{Home}{Enter} ;Homeで最上位に移動なので横決定
MouseMove,460,35 ;OKボタンにマウス移動
Return
^Numpad3::
MouseClick,L,130,50,1,0 ;用紙リストクリック
Send,{Home}{Down 4}{Enter} ;A3選択
MouseClick,L,310,50,1,0 ;方向リストクリック
Send,{Home}{Enter} ;Homeで最上位に移動なので横決定
MouseMove,460,35 ;OKボタンにマウス移動
Return
^Numpad4::
MouseClick,L,130,50,1,0 ;用紙リストクリック
Send,{Home}{Down 5}{Enter} ;A4選択
MouseClick,L,310,50,1,0 ;方向リストクリック
Send,{Home}{Down}{Enter} ;Homeで最上位に移動､下矢印で下に移動､縦決定
MouseMove,460,35 ;OKボタンにマウス移動
Return
#IfWinActive

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 53 ] / ▼[ 63 ] ▼[ 70 ]

■60 / 1階層)

　｢印刷｣関係

□投稿者/ TONKUN (39回)-(2016/03/16(Wed) 20:11:28)

先ず､/に印刷を割り付け｡(#F7にも割り付けています)

;印刷の設定
#/::
Send,psetup{Enter} ;印刷の設定
MouseClick,L,420,450,1,0 ;プレビューをアクティブ
WinMove,印刷の設定,,1,170,1604,955 ;ダイアログの位置大きさ表示
Return

*コマンドダイアログで､｢印刷｣の文字が付くコマンドはショートカットが共通になるので注意
#IfWinActive 印刷 ahk_class #32770 ;印刷の文字が付くコマンドは共通になるので注意
^Numpad0::Send,!c ;印刷枚数記入欄フォーカス
#IfWinActive

#IfWinActive 印刷の設定 ahk_class #32770
#F12::WinMove,,,1,170,1604,955 ;デフォルトダイアログの位置大きさ表示
#F7::WinMove,,,1,170,1604,955 ;デフォルトダイアログの位置大きさ表示
#/::WinMove,,,1,170,1604,955 ;デフォルトダイアログの位置大きさ表示
#IfWinActive

#IfWinActive 印刷範囲 ahk_class #32770
^Numpad2::Send,!h!p{Home}{Down 3}!z ;横選択-用紙-最上位に移動-下矢印を3回でA2-縮尺移動
^Numpad3::Send,!h!p{Home}{Down 4}!z ;横選択-用紙-最上位に移動-下矢印を4回でA3-縮尺移動
^Numpad4::Send,!v!p{Home}{Down 5}!z ;横選択-用紙-最上位に移動-下矢印を5回でA4-縮尺移動
#IfWinActive

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 60 ] / 返信無し

■63 / 2階層)

　連続印刷の設定(連続簡易プレビュー)

□投稿者/ TONKUN (42回)-(2016/03/21(Mon) 20:11:19)

複数図面を連続で印刷設定(連続簡易プレビュー)する場合です｡
windowsキー+F6を押す度に順次表示を変えます｡
印刷設定ダイアログ表示までの時間設定無しで可能と思われますが､私の能力ではスクリプト作成は無理なので｡

;連続印刷設定(連続簡易プレビュー) DRA-CADでの設定は不可なので､PC全体に登録｡
#F6::
Send,{Esc} ;ダイアログ表示を終了
Send,^{Tab} ;次の図面を呼び出し
WinWaitActive,DRACAD14,,1 ;印刷設定ダイアログ表示まで1秒待つ(1秒で約6万本､図面容量により時間調整)
Send,psetup{Enter} ;印刷設定ダイアログ表示
MouseClick,L,420,450,1,0 ;プレビューをクリックしてアクティブにする(即拡大等を可にする)
WinMove,印刷の設定,,1,170,1604,955 ;デフォルトダイアログの位置大きさ表示
Return

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 60 ] / 返信無し

■70 / 2階層)

　｢印刷｣で印刷部数設定

□投稿者/ TONKUN (48回)-(2016/05/06(Fri) 12:04:26)

やはり､印刷部数設定は面倒なので､Alt+Numpad1･･･に登録です｡
別ソフトでWindows共通仕様の印刷ダイアログでしたら､同様に部数設定できます｡

#IfWinActive 印刷 ahk_class #32770 ;印刷の文字が付くコマンドは共通になるので注意)
!Numpad0::Send,!c ;印刷枚数記入欄クリック-フォーカス
!Numpad1::Send,!c1 ;印刷枚数記入欄クリック-フォーカス-1部
!Numpad2::Send,!c2 ;印刷枚数記入欄クリック-フォーカス-2部
!Numpad3::Send,!c3 ;印刷枚数記入欄クリック-フォーカス-3部
!Numpad4::Send,!c4 ;印刷枚数記入欄クリック-フォーカス-4部
!Numpad5::Send,!c5 ;印刷枚数記入欄クリック-フォーカス-5部
!Numpad6::Send,!c6 ;印刷枚数記入欄クリック-フォーカス-6部
!Numpad7::Send,!c7 ;印刷枚数記入欄クリック-フォーカス-7部
!Numpad8::Send,!c8 ;印刷枚数記入欄クリック-フォーカス-8部
!Numpad9::Send,!c9 ;印刷枚数記入欄クリック-フォーカス-9部
#IfWinActive

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 53 ] / 返信無し

■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 ;文字記入ここまで

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 53 ] / 返信無し

■71 / 1階層)

　｢引出線｣関係

□投稿者/ TONKUN (49回)-(2016/05/16(Mon) 20:32:20)

先に｢引出線｣をDelete:に割付します｡(｢矢印｣をShift+Deleteに割付)
｢文字記入｣と同様の設定にしています｡

#IfWinActive 引出線 ahk_class #32770
+Delete::
Send,!b!{Down}m+{Tab 8} ;スタイル名-MS2.5--文字列フォーカス
MouseClick,L,106,291,1,0 ;エディット枠クリック
Send,^a
Send,1.25
MouseMove,-10,80 ;ダイアログ外にマウス移動
Return
^Delete::
Send,!b!{Down}mm+{Tab 8} ;スタイル名-MS4-文字列フォーカス
MouseClick,L,106,291,1,0 ;エディット枠クリック
Send,^a
Send,2
MouseMove,-10,80 ;ダイアログ外にマウス移動
Return
#Delete::Send,!b!{Down}{Home}+{Tab 8} ;スタイル名-個別設定選択-文字列フォーカス
+Insert::Send,!b!{Down}m+{Tab 8} ;スタイル名-MS2.5--文字列フォーカス
^Insert::Send,!b!{Down}mm+{Tab 8} ;スタイル名-MS4-文字列フォーカス
#Insert::Send,!b!{Down}{Home}+{Tab 8} ;スタイル名-個別設定選択-文字列フォーカス
+Enter::Send,!z ;サイズ図面から
^Enter::Send,!p ;文字列図面から
;背景色で塗りつぶし
!F11::
Send,!b!{Down}{Home} ;スタイル名-個別設定選択
Send,!m ;文字サイズ設定選択
Send,!1{Enter} ;背景色で塗りつぶし選択-決定
Return
#IfWinActive ;引出線ここまで

｢引出線｣と｢矢印｣で､矢印種類数と並び順の違いが気になります｡

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 53 ] / 返信無し

■72 / 1階層)

　｢寸法線｣

□投稿者/ TONKUN (50回)-(2016/05/16(Mon) 21:40:08)

2016/05/16(Mon) 21:44:56 編集(投稿者)

AutoHotkeyの価値が一番分かるのではないでしょうか｡
常時使う種類は決まっています｡
切り替えが面倒｡
そして､｢始めにその3｣で説明したShift+Enterが生きます｡

;単寸法線長さ1にマウス移動
PrintScreen::
Send,+q ;寸法線
Sleep,200
MouseClick,L,150,125,1,0 ;寸法種類選択ボタンクリック
Sleep,10
MouseClick,L,360,45,1,0 ;単寸法線クリック
MouseMove,215,62 ;長さ1にマウス移動
Return
;連続寸法線長さ1にマウス移動
+PrintScreen::
Send,+q ;寸法線
Sleep,200
MouseClick,L,150,125,1,0 ;寸法種類選択ボタンクリック
Sleep,10
MouseClick,L,200,45,1,0 ;連続寸法線クリック
MouseMove,215,62 ;長さ1にマウス移動
Return
;二段寸法線長さ2にマウス移動
^PrintScreen::
Send,+q ;寸法線
Sleep,200
MouseClick,L,150,125,1,0 ;寸法種類選択ボタンクリック
Sleep,10
MouseClick,L,70,45,1,0 ;二段寸法線クリック
MouseMove,215,62 ;長さ1にマウス移動
Return
;寸法線矢尻矢印選択
!PrintScreen::
Send,+q ;寸法線
Sleep,200
MouseClick,L,150,125,1,0 ;寸法種類選択ボタンクリック
Sleep,10
MouseClick,L,360,45,1,0 ;単寸法線クリック
Sleep,10
MouseClick,L,150,215,1,0 ;矢印選択ボタンクリック
MouseClick,L,65,250,1,0 ;矢尻選択
MouseMove,215,62 ;長さ1にマウス移動
Return

#IfWinActive 寸法線 ahk_class #32770
;マイデフォルト矢印白丸のみ選択
#F12::
MouseClick,L,150,215,1,0 ;矢印選択ボタンクリック
Sleep,10
MouseClick,L,65,120,1,0 ;白丸選択
MouseMove,210,65 ;長さ1にマウス移動
Send,!m ;文字サイズ設定
Send,!s!{Down}m{Enter}{Enter} ;スタイル名-MS2.5
Return
;単寸法線長さ1にマウス移動PrintScreen::
Send,+q ;寸法線
Sleep,100
MouseClick,L,150,125,1,0 ;寸法種類選択ボタンクリック
Sleep,10
MouseClick,L,360,45,1,0 ;単寸法線クリック
MouseMove,215,62 ;長さ1にマウス移動
Return
;連続寸法線長さ1にマウス移動
+PrintScreen::
Send,+q ;寸法線
Sleep,500
MouseClick,L,150,125,1,0 ;寸法種類選択ボタンクリック
Sleep,10
MouseClick,L,200,45,1,0 ;連続寸法線クリック
MouseMove,215,62 ;長さ1にマウス移動
Return
;二段寸法線長さ2にマウス移動
^PrintScreen::
Send,+q ;寸法線
Sleep,500
MouseClick,L,150,125,1,0 ;寸法種類選択ボタンクリック
Sleep,10
MouseClick,L,70,45,1,0 ;二段寸法線クリック
MouseMove,215,62 ;長さ1にマウス移動
Return
;寸法線矢印選択
#PrintScreen::
Send,+q ;寸法線
Sleep,100
MouseClick,L,150,125,1,0 ;寸法種類選択ボタンクリック
Sleep,10
MouseClick,L,360,45,1,0 ;単寸法線クリック
Sleep,10
MouseClick,L,150,215,1,0 ;矢印選択ボタンクリック
MouseClick,L,65,250,1,0 ;矢尻選択
MouseMove,215,62 ;長さ1にマウス移動
Return
#IfWinActive ;寸法線ここまで

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 53 ] / ▼[ 74 ] ▼[ 75 ] ▼[ 80 ]

■73 / 1階層)

　14 plus用ステータスバー計算

□投稿者/ TONKUN (51回)-(2016/06/01(Wed) 20:40:41)

14 plusで計算結果のコピー等が出来るようになっていますが､｢=Enter｣が必要なのは変わらず｡

^NumpadEnter::Send,={Enter} ;=+Enterステータスバー計算結果

;ステータスバー計算結果即記入
#NumpadEnter::
Send,={Enter} ;=+Enterステータスバー計算結果
MouseClick,R,350,1165,1,0 ;ステータスバー計算結果を右クリック
Send,t^v ;切り取り後貼り付けで文字記入､文字記入で止める場合はここまで
Sleep,400
MouseClick,L,700,-100,1,0 ;枠外でマウスクリック
Return

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 73 ] / 返信無し

■74 / 2階層)

　追記､文字記入で止める場合

□投稿者/ TONKUN (52回)-(2016/06/05(Sun) 19:08:39)

やはり､文字記入での表示が必要なので｡

;ステータスバー計算結果文字記入表示
!NumpadEnter::
Send,={Enter} ;=+Enterステータスバー計算結果
MouseClick,R,350,1165,1,0 ;ステータスバー計算結果を右クリック
Send,t ;切り取り
MouseClick,L,900,400,1,0 ;文字記入を移動表示させる為にクリック
Send,^v ;貼り付けで文字記入
Return

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 73 ] / 返信無し

■75 / 2階層)

　追記､貼り付け

□投稿者/ TONKUN (53回)-(2016/06/07(Tue) 18:57:46)

貼り付けも有れば便利なので｡

;ステータスバー計算に貼り付け
#^v::
MouseClick,R,350,1165,1,0 ;コマンドライン(ステータスバー計算)を右クリック
Send,p ;貼り付け
Return

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 73 ] / 返信無し

■80 / 2階層)

　帖表示の㎡*0.3025*2

□投稿者/ TONKUN (58回)-(2016/06/13(Mon) 20:15:40)

14 plusは不動産屋優先CADです｡
建築設計屋として､帖（1.62㎡　900×1800）に納得できないので｡

+F2::send,*0.3025*2 ;㎡を帖値

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 53 ] / ▼[ 77 ]

■76 / 1階層)

　番外編ウィンドウ(可変ダイアログ)の大きさ変更

□投稿者/ TONKUN (54回)-(2016/06/07(Tue) 19:53:24)

隅にマウス移動しなくて良いので､すごく便利です｡
引用元をあらためて調べましたが分かりませんでした｡
引用元からShiftに変更しています｡
禁止用語が有るらしく､DXFで添付します｡

1465296804.dxf/167KB

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 76 ] / 返信無し

■77 / 2階層)

　｢,｣カンマ記入

□投稿者/ TONKUN (55回)-(2016/06/07(Tue) 20:04:17)

テンキーに｢,｣カンマが欲しいので､
キー配列変更ソフト KeyTweakを利用してNumLockを｢,｣カンマに､
ScrollLockをNumLockに変更しています｡(AutoHotkeyでも可能)

ひらがな入力IMEを表示時の｢,｣カンマ記入の煩わしさを解消の為に｡
これも何処かに載っていたスクリプトの引用です｡
; 文字列に｢,｣カンマ追加
^,::
clipboardbackup = %clipboardall%
clipboard = , ; 記入する文字列
clipwait, 0.5
send, ^v
clipboard = %clipboardbackup%
Return

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

▲[ 53 ] / 返信無し

■83 / 1階層)

　数字に｢,｣カンマを追加

□投稿者/ TONKUN (61回)-(2016/06/25(Sat) 20:02:56)

寸法線は図形のプロパティで可能ですが､一般数字の場合です｡
｢直接文字編集･記入｣用で､6桁までで小数点以下は無し｡
先に｢直接文字編集･記入｣で数字を選択して実行｡

; 数字に｢,｣カンマを追加
#,::
send,{Left 3} ;左へ3回移動
send,^{,} ;｢,｣カンマを挿入
Sleep,10
send,^{Enter} ;確定
Return

[ 親 53 / □ Tree ] 返信/引用返信 [メール受信/OFF] 削除キー/

- Child Tree -