カラー図面をモノクロ印刷

クラス属性や、レイヤカラーでカラー表示されてしている図面を、白黒レーザープリンタで印刷する際に、いちいち「画面＞白黒表示」にチェックしなくてもいいようにする、簡単だけど、毎日の作業を楽にするプラグイン・メニューです。Ctrl + P （Mac は、Command + P） などに登録するとより便利です。

{*******************************************************************************
            PrintBandW  兵藤事務所バージョン
            Copyright 2010 兵藤善紀建築設計事務所
            www.hyodo-arch.com      2010.04.12

    2010.04.11  Ver 0.10    白黒表示のOn Off 
 *******************************************************************************}

PROCEDURE PrintBandW;

BEGIN
    IF GetPref(10)=false THEN   {Selector=10 -> 白黒表示}
        Begin
        SetPref(10,true);   {白黒表示を On にする}
        DoMenuTextByName ('Print',0);
        SetPref(10,false);  {白黒表示を Off にする}
        End
    ELSE
    Begin
        If GetPref(11)=true Then    {Selector=11 -> カラーレイヤ}
            begin
            SetPref(11,false);  {カラーレイヤを Off にする}
            DoMenuTextByName ('Print',0);
            SetPref(11,true);   {カラーレイヤを On にする}
            end
        Else
            AlertCritical ('プリントを中止しました。','この図面は、クラススタイル、カラーレイヤを使用して描かれた図面では無い可能性があります。');
    End;

END;
RUN ( PrintBandW );