平面図に内部寸法を追加するAutoLISP関数

友人のみなさん、こんにちは。
以前、当フォーラムエリアに投稿した関数を再度共有したいと考えました。みなさんから強い関心を寄せていただいたため、改良とアップデートを行いました。これは、平面図（鉄筋コンクリート型枠配置図、建築平面図など）に内法寸法を追加するために使用される関数です。
この最新バージョンではコードが大幅に短くなりましたが、機能はさらに向上し、より実用的になりました。開発者仲間にとって良い参考例になると思い、オープンソースコード（AutoLISP ソースコード）として公開することにしました。わずか 40 行ほどの非常にシンプルでコンパクトなコードでありながら、この関数が実現できる機能の高さに驚かれることと思います。
関数を実行すると、まず 「寸法の始点」 の選択を求められます。最初の点を指定した後、2 番目の点である 「寸法の終点」 を選択します。選択する寸法線は、どの方向、どの角度でも構いません。このプロセスの間、画面に表示されるガイド線を使用して、寸法線がどこを通過するかをコントロールできます。これにより、平面図内の図面オブジェクトをどこからどこまで寸法記入するかを決定します。つまり、平面図の端から端まで全体にわたって寸法を記入する必要はありません。
その後、寸法記入に含めるオブジェクト（壁、モルタル仕上げ、柱、梁など）が含まれている画層（レイヤ）を選択する必要があります。選択した画層上にあるオブジェクトのみが寸法記入の対象となります。単一の画層だけでなく、複数の画層を選択することも可能です。この選択は、目的の画層にあるオブジェクトをクリックすることで行います。選択されたオブジェクトはハイライト表示されます。すでに選択されている画層のオブジェクトをクリックすると、その画層のオブジェクトが選択セットから除外されます。Enter キーを押す（または右クリックする）して終了するまで、制限なく自由に選択の追加や除外を行うことができます。
要約すると、壁から壁までの寸法を作成したり、軸線画層などの他の画層のオブジェクトを含めたりすることができます。選択した画層上のオブジェクトのうち、Line（線分）、LWPolyline（ライトウェイト ポリライン）、Polyline（ポリライン）、Spline（スプライン）、Ellipse（楕円）、Circle（円）、Arc（円弧） が寸法記入の対象となります。ブロック、そのサブオブジェクト、および Text（文字）などのオブジェクトは寸法記入プロセスに含まれません。
始点と終点の間に位置していても、現在画面の表示エリア外にあるオブジェクト（ズームを変更したためなど）は選択されません。
選択プロセスが完了すると、画面に連続寸法（寸法チェーン）が表示されます。これをマウスでドラッグし、目的の位置に配置して、左クリックすることでプロセスが完了します。
この関数は、現在アクティブな画層と現在の寸法スタイルを使用して寸法記入を行います。ユーザーの寸法スタイルや画層の設定を妨げることは一切なく、AutoCAD の設定を変更することもありません。
始点と終点を選択した後、選択セットへのオブジェクト（画層）の追加/除外を終了した時点で選択セットが空の場合、関数はエラーメッセージを表示して終了します。
連続寸法を作成するには少なくとも 1 つの寸法が必要であり、1 つの寸法には少なくとも 2 つの点が必要なため、始点と終点によって形成される仮想線が、選択したオブジェクトと 2 つ未満の交点しか持たない場合、関数はエラーメッセージを表示して終了します。
コマンド名: dimint
ぜひご活用ください。みなさんの業務がスムーズに進むことを願っています。
DimInt.fas ファイル（DimInt.rar）が再アップロードされました。 2016 年 5 月 31 日
このトピックはこちらで議論されています: フォーラムトピック – 平面図に内法寸法を追加する AutoLISP 関数

作成者: cizimokulu.com
説明: AutoLISPアプリケーションファイル（LSP形式）。
タグ: 図面の自動内部寸法表示、自動寸法作成

ダウンロード