---

Hallo allerseits ich möchte gerne ein Vba Programm schreiben
worin ich Texte an Linien ausrichte.
Es sollte so sein daß man zb wenn man im 3d beliebig draufsieht daß
man die Texte entlange der Linien sieht.
Die texte sollten so erstellt werden wie wenn man zb zuerst _ucs an
(Ucs Ansicht) macht (im Benutzerkoordinatensystem)

Wie liest man die Koordinaten im Benutzerkoordinatensystem aus?
Ich hoffe mir kann irgendjemand dabei helfen.
Mfg Chris

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

---

Hi und Willkommen Chris,

Hier mal das Beispiel aus der Hilfe:

Code:

---

Sub Example_ActiveUCS()
    ' This example returns the current saved UCS (or saves a new one dynamically)
    ' and then sets a new UCS.
    ' Finally, it returns the UCS to the previous setting.
   
    Dim newUCS As AcadUCS
    Dim currUCS As AcadUCS
    Dim origin(0 To 2) As Double
    Dim xAxis(0 To 2) As Double
    Dim yAxis(0 To 2) As Double
   
    ' Get the current saved UCS of the active document. If the current UCS is
    ' not saved, then add a new UCS to the UserCoordinateSystems collection
    If ThisDrawing.GetVariable("UCSNAME") = "" Then
        ' Current UCS is not saved so get the data and save it
        With ThisDrawing
            Set currUCS = .UserCoordinateSystems.Add( _
                            .GetVariable("UCSORG"), _
                            .Utility.TranslateCoordinates(.GetVariable("UCSXDIR"), acUCS, acWorld, 0), _
                            .Utility.TranslateCoordinates(.GetVariable("UCSYDIR"), acUCS, acWorld, 0), _
                            "OriginalUCS")
        End With
    Else
        Set currUCS = ThisDrawing.ActiveUCS  'current UCS is saved
    End If
   
    MsgBox "The current UCS is " & currUCS.name, vbInformation, "ActiveUCS Example"
   
    ' Create a UCS and make it current
    origin(0) = 0: origin(1) = 0: origin(2) = 0
    xAxis(0) = 1: xAxis(1) = 1: xAxis(2) = 0
    yAxis(0) = -1: yAxis(1) = 1: yAxis(2) = 0
    Set newUCS = ThisDrawing.UserCoordinateSystems.Add(origin, xAxis, yAxis, "TestUCS")
    ThisDrawing.ActiveUCS = newUCS
    MsgBox "The new UCS is " & newUCS.name, vbInformation, "ActiveUCS Example"
   
    ' Reset the UCS to its previous setting
    ThisDrawing.ActiveUCS = currUCS
    MsgBox "The UCS is reset to " & currUCS.name, vbInformation, "ActiveUCS Example"
End Sub

---

Reicht dir denn nicht der AutoCAD-Befehl "_Align" zum ausrichten der Texte aus?!

Gruß, Carsten

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

---

Danke vorerst einmal !
Die Frage ist ja wie man das im 3D mit mölichst wenig aufwandt hinbekommt.

Ich habe mit den Koordinaten-Transformationen leider überhaupt keine Erfahrung.

Ich weiß zwar wie ich die Koordinaten von Linien auslese aber nicht wie daß dann im Benutzerkoordinatensystem funktioniert.
Neuen Winkel ermitteln Im Benutzerkoordinatensystem usw...
Mfg Chris

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

---

Hi Chris,

Hast du denn mal den Befehl _Align im Autocad ausprobiert, ob der euch nicht doch reicht?! Das drehen des Text in 3d ist im VBA doch mit einigem Aufwand verbunden.

Gruß, Carsten

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

---

Habs mit den Transformationen
gemacht klappt ganz gut so
danke!
Werde später mal den Code hier posten für den der auch Interesse daran hat

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