---

moin,

folgendes problem: ich möchte über die target-eigenschaft den zielpunkt im ansichtsfenster festlegen. der zielpunkt sollte nach meinen vorstellungen im zentrum der ansicht sein, oder in der linken unteren ecke! mit der anweisung pviewportObj.Target = point liegt der zielpunkt ausserhalb meiner ansicht, warum??

mfg

quellcode:
Dim pviewportObj As AcadPViewport
Dim center(0 To 2) As Double
Dim width As Double
Dim height As Double
Dim point(0 To 2) As Double

' Define the paper space viewport
center(0) = 300: center(1) = 300: center(2) = 0
width = 480
height = 480

' Change from model space to paper space
ThisDrawing.ActiveSpace = acPaperSpace

' Create the paper space viewport
Set pviewportObj = ThisDrawing.PaperSpace.AddPViewport(center, width, height)
pviewportObj.ViewportOn = True

pviewportObj.CustomScale = acVp1_1

point(0) = 4411865.5
point(1) = 5403977.5
point(2) = 0

pviewportObj.Target = point

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP