Jw_cad 情報交換室−その３
JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください
2009年9月以前の発言は 過去ログのページからご覧ください。
それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。
Jw_cad Copyright (C)1997-2016 Jiro Shimizu & Yoshifumi Tanaka
JWW についての情報交換の場としてお使いください
初心者の方などのご相談は Jw_cad 相談 室−その２をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください
2009年9月以前の発言は 過去ログのページからご覧ください。
それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。
 |
 |
図面情報コピーとタグジャンプ mirror 17/3/22(水) 19:33 |
|
|
Re:図面情報コピーとタグジャンプ mirror 17/4/1(土) 11:16 |
|
 |
Re:図面情報コピーとタグジャンプ いっち 17/4/1(土) 14:48 |
|
mirror - 17/4/1(土) 11:16 - |
▼いっちさん：
>UWSCでDoEventsを実行となると、少々勉強が必要です
DoEventsの実態の動作は
PeekMessage(msg,NULL,0,0,PM_REMOVE)が真の間
msg構造体内のmessageを調べて
WM_QUITならExitProcess()
そうでない場合は
TranslateMessage(msg)とDispatchMessage(msg)を実行するです
WindowsAPIを使えば、UWSCでも実装できると思います
Exmenuでは、CPU使用率低減や実行速度改善のため自前で実装しています
>UWSCでDoEventsを実行となると、少々勉強が必要です
DoEventsの実態の動作は
PeekMessage(msg,NULL,0,0,PM_REMOVE)が真の間
msg構造体内のmessageを調べて
WM_QUITならExitProcess()
そうでない場合は
TranslateMessage(msg)とDispatchMessage(msg)を実行するです
WindowsAPIを使えば、UWSCでも実装できると思います
Exmenuでは、CPU使用率低減や実行速度改善のため自前で実装しています
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.79 Safari/537.36 Edg...
|
いっち - 17/4/1(土) 14:48 - |
mirrorさんのレスの内容が、現在の私にとっては、大変難しい内容の為、今すぐに具体的なコードを書くことは出来ません。
しかしながら、mirrorさんのレスの内容は、単に難しいだけでは無く、的確な内容を書かれているように思える為、取り急ぎ、mirrorさんのレスの内容そのままを解る範囲でコードにしてみました。
ここに書いた内容を、UWSCで実際に動かすような事は、一切行っておりません。（というより、このままでは、行えないはずです。）
どこが間違えているかも、（私本人は）解っていません。
いつになったら、ちゃんとしたコードが書けるのか、謎です。
> WindowsAPIを使えば、UWSCでも実装できると思います
// DEF_DLL 関数名(型, 型, ...): 戻り型: DLL名
// 型： int、long、bool、uint、hwnd、string、Wstring、float、double、word、dword、byte、char、pchar、Wchar、pWchar、boolean、longlong、SafeArray
// 構造体：型を { } にて展開して書く 関数名( double, {int, int, int} )
DEF_DLL PeekMessage({LPMSGのUWSCでの指定方法不明です？},hwnd,uint,uint,uint)bool:user32.dll
> DoEventsの実態の動作は
> PeekMessage(msg,NULL,0,0,PM_REMOVE)が真の間
> msg構造体内のmessageを調べて
> WM_QUITならExitProcess()
> そうでない場合は
> TranslateMessage(msg)とDispatchMessage(msg)を実行するです
// DoEventsの実態の動作は
Procedure UwscDoEvents()
// PeekMessage(msg,NULL,0,0,PM_REMOVE)が真の間
While PeekMessage(msg,NULL,0,0,PM_REMOVE)
// msg構造体内のmessageを調べて
Select msg.message
// WM_QUITならExitProcess()
Case WM_QUIT
ExitProcess()
// そうでない場合は
// TranslateMessage(msg)と
// DispatchMessage(msg)を実行するです
Default
TranslateMessage(msg)
DispatchMessage(msg)
Selend
Wend
Fend
しかしながら、mirrorさんのレスの内容は、単に難しいだけでは無く、的確な内容を書かれているように思える為、取り急ぎ、mirrorさんのレスの内容そのままを解る範囲でコードにしてみました。
ここに書いた内容を、UWSCで実際に動かすような事は、一切行っておりません。（というより、このままでは、行えないはずです。）
どこが間違えているかも、（私本人は）解っていません。
いつになったら、ちゃんとしたコードが書けるのか、謎です。
> WindowsAPIを使えば、UWSCでも実装できると思います
// DEF_DLL 関数名(型, 型, ...): 戻り型: DLL名
// 型： int、long、bool、uint、hwnd、string、Wstring、float、double、word、dword、byte、char、pchar、Wchar、pWchar、boolean、longlong、SafeArray
// 構造体：型を { } にて展開して書く 関数名( double, {int, int, int} )
DEF_DLL PeekMessage({LPMSGのUWSCでの指定方法不明です？},hwnd,uint,uint,uint)bool:user32.dll
> DoEventsの実態の動作は
> PeekMessage(msg,NULL,0,0,PM_REMOVE)が真の間
> msg構造体内のmessageを調べて
> WM_QUITならExitProcess()
> そうでない場合は
> TranslateMessage(msg)とDispatchMessage(msg)を実行するです
// DoEventsの実態の動作は
Procedure UwscDoEvents()
// PeekMessage(msg,NULL,0,0,PM_REMOVE)が真の間
While PeekMessage(msg,NULL,0,0,PM_REMOVE)
// msg構造体内のmessageを調べて
Select msg.message
// WM_QUITならExitProcess()
Case WM_QUIT
ExitProcess()
// そうでない場合は
// TranslateMessage(msg)と
// DispatchMessage(msg)を実行するです
Default
TranslateMessage(msg)
DispatchMessage(msg)
Selend
Wend
Fend
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/57.0.2987.133 Safari/537.36