Hallo hilfreiches Forum,
bei mir ergeben sich sonderbare Effekte beim Reproduzieren von Views.
Wenn ich Eye, Target und UpVector eine Camera-Position speichere und
wieder lade, verändert sich der "Zoom". (Code1)
Wenn ich das aber innerhalb eines Sub's mache, wird der "Zoom"
rekonstruiert! (Code2)
Was fehlt oder was mache ich falsch?
Gruß
Rainer
Code1:
'= = = = = = = = = = = = = = = = = = = = = = =
Public rEYE As Point
Public rTarget As Point
Public rVec As UnitVector
'= = = = = = = = = = = = = = = = = = = = = = =
Sub LiesCamera1()
Dim rView As view
Dim rCamera As Camera
Set rView = ThisApplication.ActiveView
Set rCamera = rView.Camera
Set rEYE = rCamera.Eye
Set rTarget = rCamera.Target
Set rVec = rCamera.UpVector
End Sub
'= = = = = = = = = = = = = = = = = = = = = = =
Sub SchreibCamera()
Dim rView As view
Dim rCamera As Camera
Set rView = ThisApplication.ActiveView
Set rCamera = rView.Camera
rCamera.Eye = rEYE
rCamera.Target = rTarget
rCamera.UpVector = rVec
rCamera.Apply
End Sub
'= = = = = = = = = = = = = = = = = = = = = = =
Code2:
'= = = = = = = = = = = = = = = = = = = = = = =
Sub TstCamera1()
Dim rView As view
Dim rCamera As Camera
Dim rEYE As Point
Dim rTarget As Point
Dim rVec As UnitVector
Set rView = ThisApplication.ActiveView
Set rCamera = rView.Camera
Set rEYE = rCamera.Eye
Set rTarget = rCamera.Target
Set rVec = rCamera.UpVector
Stop ' von Hand verschieben
rCamera.Eye = rEYE
rCamera.Target = rTarget
rCamera.UpVector = rVec
rCamera.Apply
End Sub
'= = = = = = = = = = = = = = = = = = = = = = =
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP