---

Hallo Zusammen!

Kann mir evtl. jemand die Koordinaten für die anderen Ansichten nennen.

'Draufsicht _top
Dim NewDirection(0 To 2) As Double
NewDirection(0) = 0: NewDirection(1) = 0: NewDirection(2) = 1
ThisDrawing.ActiveViewport.Direction = NewDirection
ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport

'Unteransicht _bottom?
'Ansicht von links _left?
'Ansicht von rechts _right?
'Frontansicht _front?
'Rückansicht _back?

Vielen Dank im voraus.

Gruß

Dirk

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

---

Dirk, naja das dürfte doch wohl nicht so schwer sein, oder? ;-)
Steht doch eineindeutig in der Hilfe zu Direction:

Variant (three-element array of doubles); read-write
The vector that defines a direction from which the drawing can be viewed.

Wenn mich also noch nicht alle guten [Orientierungs] Geister verlassen haben, hiesse dies:

Code:

---

' von unten
NewDirection(0) = 0: NewDirection(1) = 0: NewDirection(2) = -1
' von vorne
NewDirection(0) = 0: NewDirection(1) = -1: NewDirection(2) = 0
' von hinten
NewDirection(0) = 0: NewDirection(1) = 1: NewDirection(2) = 0
' von links
NewDirection(0) = -1: NewDirection(1) = 0: NewDirection(2) = 0
' von rechts
NewDirection(0) = 1: NewDirection(1) = 0: NewDirection(2) = 0

---

Gruss  Nancy

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