---

Hallo 

irgendwie stehe ich total auf dem Schlauch.
Ist es möglich, ein BKS in VBA zu drehen bzw. an einer Linie auszurichten?
Dabei arbeite ich ausschließlich im 2D-Bereich.
Mit den Beispielen aus der Hilfe und der Forumssuche bin ich leider nicht weitergekommen.

Für einen kleinen Denkanstoß wäre ich sehr dankbar

Viele Grüße
Netwurm 

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

---

Hi Netwurm,

Code:

---

Sub Example_UserCoordinateSystems()
    ' This example finds the current UserCoordinateSystems collection and
    ' adds a new UCS to that collection.
   
    Dim UCSColl As AcadUCSs
    Set UCSColl = ThisDrawing.UserCoordinateSystems
   
    ' Create a UCS named "TEST" in the current drawing
    Dim ucsObj As AcadUCS
    Dim origin(0 To 2) As Double
    Dim xAxisPnt(0 To 2) As Double
    Dim yAxisPnt(0 To 2) As Double
   
    ' Define the UCS
    origin(0) = 4#: origin(1) = 5#: origin(2) = 3#
    xAxisPnt(0) = 5#: xAxisPnt(1) = 5#: xAxisPnt(2) = 3#
    yAxisPnt(0) = 4#: yAxisPnt(1) = 6#: yAxisPnt(2) = 3#
   
    ' Add the UCS to the UserCoordinatesSystems collection
    Set ucsObj = UCSColl.Add(origin, xAxisPnt, yAxisPnt, "TEST")
   
    MsgBox "A new UCS called " & ucsObj.name & " has been added to the UserCoordinateSystems collection.", vbInformation, "UserCoordinateSystems Example"
End Sub

---

Erst wird der Basispunkt des UCS festgelegt und danach über die X- und Y-Punkte die Vektoren für die Richtung des UCS.
Was hast du denn vor, das du unbedingt das BKS umstellen willst?!

Gruß, Carsten

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