Z Surfer's Blog

VectorWorkのショートカットキーの中で一番面倒なキーがひとつあります。
それは、Delete（BackSpace）キーです。
だって、遠いんだもん...。

Macで仕事していた時代には、代わりに“カット（Command+X）”を使ったりしていましたが、
WindowsではCtrlキーの位置の関係でちょっと面倒です...。
なので普段は、右手はマウスで、左手で遠いBackSpaceキーまで“行って”ました。

しかし、JWWを使うようになって、気づきました。
Jw_Cadでは削除は“D”キーなのです！
「早いし、簡単じゃん！」


それで、VectorWorksにも“Dキー”でDeleteするツールを作りました。


procedure Del; {2003.5.5}
var
h,objH:handle;
pX, pY,p2X,p2Y,dist:REAL;
y:BOOLEAN;

Begin
h:=FSActLayer;
IF h<>NIL THEN
DoMenuTextByName('Clear',0)
ELSE
Begin
REPEAT
GetPt(pX, pY);
DelObject(PickObject(pX, pY));
ReDraw;
y:=Command; {if you are Windows User,Replace Shift}
UNTIL (y=TRUE);
End;
END;
RUN(Del);


これをプラグインコマンドとしてツール登録して、ショートカットを“D”にすれば、完璧です！
興味のある方は使ってみてください。

ちなみに、formZも“D”でDeleteツールにしてます。
ただしformZの場合、オブジェクトが大量にある場合は“カット”のほうが動作が早いです。