2012-03-29 11 views
0

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と再計算エクステントは、私が探しているものです)。

私のメインコードの中で全く同じコードを実行しても効果はありません。

感謝しています。

答えて

0

主なアプリケーションが画面外、隠れている、最小化されている、またはファイルが読み込まれている場合、AutoCADの多くの機能が動作しないことが判明しました。