書込み寸法を選択

詳細図などで、それが明らかな時以外では、書込み寸法は厄介な存在です。大抵の場合、図面を間に合わせるためだけになされた処理だからです。ですから、図面を編集・訂正・変更していて「なんで寸法が合わないんだろう?」ということがあれば、「書込み寸法があるに違いない」と疑いましょう。このコマンドは、書込み寸法のみを選択します。正確には、データパレットの「寸法値の表示」属性のチェックボックスがOFFの寸法のみ選択します。


{*******************************************************************************
            DimWritten  書込み寸法を選択する

            Copyright 2010 兵藤善紀建築設計事務所
            www.hyodo-arch.com


    2010.06.11  Ver 0.10    まず最初のバージョン
 *******************************************************************************}
PROCEDURE DimWritten;
CONST
    ObjectsOpt          = 1;    {ForEach~のパラメータ。表示図形を操作}
    TraversalOpt        = 1;    {ForEach~のパラメータ。グループ内も操作}
    LayersOpt           = 4;    {ForEach~のパラメータ。編集可能なレイヤを操作}

{**************************** SelDimWritten 書込み寸法を選択 ****************************}
FUNCTION SelDimWritten(hh:handle):boolean;
BEGIN
    IF (GetType(hh)=63) AND (GetObjectVariableBoolean(hh,6)=False)
        THEN SetSelect(hh);
END;{****************** SelDimWritten   書込み寸法を選択 END******************}

BEGIN
    ForEachObjectInLayer(SelDimWritten,ObjectsOpt,TraversalOpt,LayersOpt);
    {Message('HasDim(hh)=','');}
END;
RUN ( DimWritten );