図面ウィンドウのイメージの位置を変更するには、CenterPoint プロパティを使用してビューの中心点を変更します。ビューの中心点を変更し、ビューのサイズを変更しない場合、ビューは画面に対して平行に移動します。
このコード例は、「現在のビューを操作する」トピックで定義したズーム手順を使用して現在のビューの中心点を変更する方法を示しています。
ズーム手順に合計 4 つの値が渡されると、最初の 2 つの値は新しい 3D 点として定義され、手順では無視されます。3 番目の値はビューの新しい中心点を定義する点(5,5,0)であり、現在のビューのサイズを維持するために最後の値には 1 が渡されます。
<CommandMethod("ZoomCenter")> _ Public Sub ZoomCenter() '' Center the view at 5,5,0 Zoom(New Point3d(), New Point3d(), New Point3d(5, 5, 0), 1) End Sub
[CommandMethod("ZoomCenter")] static public void ZoomCenter() { // Center the view at 5,5,0 Zoom(new Point3d(), new Point3d(), new Point3d(5, 5, 0), 1); }
Sub ZoomCenter() Dim Center(0 To 2) As Double Dim magnification As Double Center(0) = 5: Center(1) = 5: Center(2) = 0 magnification = 1 ThisDrawing.Application.ZoomCenter Center, magnification End Sub