VBAスクリプトを使用して、レイアウトを別の図面、そのペーパースペースレイアウトにインポートし、モデルを表示する1つのacadPViewportが含まれています。標準スケールを設定すると、AutoCAD VBAのacadPViewportの動作が予期しない動作になる
わかりやすいデフォルトビューを設定する必要があります。これを行う最も簡単な方法は、ビューポートをモデルの範囲に設定することです。
私は呼び出すことによってこれを行うことができます:
VP.standardscale = acVPScaleToFit
'(optional, I've tried adding these to no effect)
VP.update
currentDocument.Regen
私が実験してきたし、このコードの呼び出しを。参照することにより、任意のマクロまたはルーチンを実行していない間、私は、イミディエイトウィンドウでビューポートを見つけた場合:
ThisDrawing.ActiveLayout.block(1).standardscale = acvpscaletofit
それは限り、私はそれを言うことができるように(pViewport内ZoomExtentsを呼び出し、所望の効果がありrecentersと再計算エクステントは、私が探しているものです)。
私のメインコードの中で全く同じコードを実行しても効果はありません。
感謝しています。