VBA Microstation：有界マップを生成する

数日前に、 レイアウトを印刷する マイクロステーションを使用します。 シートとモデルを処理するためのこのオプションが存在する前は、ブロック（セル）を生成してコンテンツをクリッピングするという古い方法でそれを行う必要がありました。

私の分から戻る 安息日、この機会に私があなたに示す例は、 ビジュアルベーシック 境界マップが生成されるマイクロステーション、または一部のcadastral証明書で呼び出されるマイクロステーション。 要求に応じて大規模にマップを生成する必要があるが、自動化されていない場合は長い時間がかかるサービスを大規模に生成する必要があるcadastre部門に最適です。

アンテは私が一時的に削除したビデオを持っていましたが、ここでの教育目的のために、私はそれが開発され、カスタマイズされた方法を残します。

入力。

• ファームレベルでリンクされたdgn
• エリア列、境界、および範囲座標を含むAccessデータベース。 次に、cadastralキーから、納税者（人）の名前を持つ別のデータベースに参加します。
• フレームセル（ブロック）、縮尺1：100、北の記号、およびデータベースからデータを追加するためのノードを含む.celファイル。 これは、登録されたライブラリが保存されている場所（ワークスペース/構成/セル）に配置する必要があります

VBAでは、キャプチャフォームは、それを使用する予定の自治体のcadastralコードに従ってマスク形式で作成されました。 として挿入される観測とオプションを追加するためのスペースがあります アノテーション 所有者の名前、知的財産キーまたはプロパティ番号のみ。

実行する方法。

特性が指定されると、「証明書を生成する」ボタンが押され、システムはアプリケーションを持たない場合に手動で行われる通常の操作を実行します。

新しいファイル（作業）上で実行されるため、システムは次の処理を行います。

• 参照されたマップは、プロットを含む拘束されたマップを参照します。
• プロットを含む座標から範囲を計算し、適切な縮尺を設定します
• 次に、6つのロットに相当するサイズで、プロパティの周囲にフェンスを作成します。したがって、マップ全体で作業する必要はありません
• それから彼は クリップ 建物の境界線、建物の番号、ブロックの境界線、通りの名前のみが含まれています。 このプロセスでは、例の操作は遅れています。トポロジカルな基準が、これらのマップではあまり適切ではないため、境界を境界にした重心を結び付けるのではなく、境界の重心から重心に移動させました。ゾーンまたは象限ファイルの代わりに単一のマップを管理すると、分析が煩雑になります。
• 次に、スケールを計算し、ブロック（スケール）1：100のサイズを参照して、そのサイズを大きくしたり小さくしたりしてセルを配置するかどうかを判断します。
• 次に、境界マップを含むフレームのフェンスを生成し、余剰をカットします。

その結果

そこには、プロジェクトの実施機関、地方自治体のロゴ、計算面積、規模、葉数、および私たちが示す記述などのデータがモジュールに挿入された土地証明書があります。

XNUMX番目のシートで、プロパティの内部フェンスからオンザフライで生成されたさまざまなステーション、距離、および方位の座標のテーブルを生成し、ポイントと頂点の数を、それが配置されている場所から時計回りに配置します。さらに西。 必要に応じて、ポリゴンには多くの頂点があるため、必要なシートを生成します。

極端な場合、非常に広い通りの隣にある、近すぎる区画の場合、次のスケールを強制するか、システムが計算するスケール1：125を生成するオプションが作成されました。 例の場合、通りの反対側の隣人がその規模で出てこないことがわかるので、これを行う必要があります。

このアプリケーションはMicrostationGeographics V8で動作しますが、時間の経過とともに、このプロセスのためにこれと他の何千ものことが行われ、いつか話したいと思っています。