---

Hallo.
Ich würde gerne folgendes in Autocad 2006 machen.
So ähnlich wie Eigenschaften anpassen.
Ich drücke auf einen noch zu erstellenden Befehlsbutton.
Ich markiere nun einen Text und übergebe nur den Stil, an einen oder an andere Texte welche ich danach markiere
Das gleiche würde ich gerne für die Übergabe der Texthöhe, der Textneigung und der Textbreite machen.
Also insgesamt würde ich 4 Buttons erstellen.
Kann jemand helfen.
Vielen Dank.
Gruss Jürgen
   

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

---

Hallo Jürgen,

Probiers mal mit folgendem VBA-Code:

Public Sub text1()
Dim Object As Object
Dim promt As String
Dim Pickedpoint As Variant
Dim Hoehe As Double
On Local Error Resume Next
promt = "Objekt wählen:"
ThisDrawing.Utility.GetEntity Object, Pickedpoint, promt
If TypeName(Object) <> "Nothing" Then
    If TypeName(Object) = "IAcadMText2" Or "IAcadText2" Then
    Hoehe = Object.height
    Else
    MsgBox "Kein Textobjekt ausgewählt!"
    End If
ElseIf TypeName(Object) = "Nothing" Then
    MsgBox "Kein Objekt ausgewählt!"
End If
ThisDrawing.Utility.GetEntity Object, Pickedpoint, promt
If TypeName(Object) <> "Nothing" Then
    If TypeName(Object) = "IAcadMText2" Or "IAcadText2" Then
    Object.height = Hoehe
    Else
    MsgBox "Kein Textobjekt ausgewählt!"
    End If
ElseIf TypeName(Object) = "Nothing" Then
    MsgBox "Kein Objekt ausgewählt!"
End If
End Sub

Du kannst ein Text-Element auswählen und danach ein zweiten Text. Dabei wird die Texthöhe von Text 1 auf Text 2 übertragen.

Für die Breite geht es über die Eigenschaft "Width" und für den Stil ist es die Eigenschaft "Stylename".

Bei der Neigung funktioniert das nur mit dem Textelement. Beim MText ist dies im String selber verankert.

Gruß, Carsten

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

---

Txt_set-lsp.txt

Moin,

da: dürfte das dabeisein

Ciao

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