---

Hallo Forum!
Ich bin ein VBA Neuling der sich jetzt ein weinig von Lisp umgewöhnen muss, da ein kleines Projekt diese Sprache benötigt.
Mein 1. Problem: Ich möchte einen Text in Acad auswählen und den Inhalt später weiterverarbeiten. Leider stocke ich aber schon bei dem Auslesen des Textinhaltes. Mein Programmcode:
Public Sub TextCopy()
    Dim Prompt As String
    Dim Object As Object
    Dim UebergabeText As String
    On Error Resume Next
    Prompt = "Wählen Sie ein Quelltext:"
    ThisDrawing.Utility.GetEntity Object, PickedPoint, Prompt
    If TypeName(Object) = "AcadText" Then
        UebergabeText = AcadText.TextString
    End If
End Sub
Hat jemand einen Tipp, wie ich in Uebergabetext den Inhalt hereinbekomme.
Bitte nicht auslachen, sonst muss ich wieder lisp'eln.
Gruß Sven

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

---

Zitat:

---

Original erstellt von Big Sven:

Public Sub TextCopy()
    Dim Prompt As String
    Dim Object As Object
    Dim UebergabeText As String
    On Error Resume Next
    Prompt = "Wählen Sie ein Quelltext:"
    ThisDrawing.Utility.GetEntity Object, PickedPoint, Prompt
    If TypeName(Object) = "AcadText" Then
        UebergabeText = AcadText.TextString
    End If
End Sub

---

paar Sachen mal, nimm' das 'On Error Resume Next' raus,
dann kommt auch der Debugger und sagt Dir wo es harkt.

Weiters, Dim Object As Object ist IMHO weder besonders kreativ noch eine gute Idee;-)

PickedPoint fehlt völlig, hier wird eine Variantvariable erwartet,
und dann noch
UebergabeText = AcadText.TextString
hier musst Du dein Object angeben, nicht den Typename dessen.
Setz dir ggf auch mal ein F1 auf getentity und acadtext, acadMtext

Gruss Nancy
--

Code:

---

Public Sub TextCopy()
    Dim ObjText As Object
    Dim UebergabeText As String
    Dim p As Variant
    ThisDrawing.Utility.GetEntity ObjText, p, "Wählen Sie ein Quelltext:"
    'dtext
    If TypeName(ObjText) = "IAcadText2" _
    Or TypeName(ObjText) = "IAcadMText2" Then 'oder mtext
        UebergabeText = ObjText.TextString
        Debug.Print UebergabeText
    End If
End Sub

---

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

---

Hallo Nancy!
Vielen Dank für Deinen Tipp! Hat mir wirklich sehr geholfen. Kannst Du mir jetzt auch noch sagen, wie ich einen zweiten Text durch Auswählen mit dieser Information befüllen kann? Ich dachte da an:
ThisDrawing.Utility.GetEntity ObjText2, p2, "Wählen Sie einen Zieltext:"
If TypeName(ObjText2) = "IAcadText2" Then
  ObjText2 = TextString.UebergabeText
End If
Das funktioniert auch nicht so recht. Und ich habe immer gehört, dass VBA viel einfacher als Lisp sein soll!?!

Gruß Sven

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

---

Hi Sven,

nur gelesen, ehm du verdrehst da etwas;-)

Du hast ein AcadTextObject [ObjText2], also ein Objekt.
Objekte haben Eigenschaften, wie zum Bsp. hier die Property .Textstring,
also muss es heissen >>> Object.Property = Value, bzw:

Code:

---

ObjText2.Textstring = uebergabetext
''oder, wenn ObjText1 noch im Speicher ist, gleich
ObjText2.textstring = ObjText1.textstring

---

Und ja, letzteres hab ich auch gehört ;;;-))))

Gruss Nancy

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

---

Hallo,
jetzt möchte ich, dass auch ausgewählte Attribute mit ausgelesen werden. Nur wie stelle ich das an? Mein Ansatz wäre:
    If TypeName(ObjText) = "IAcadBlockReference" Then
        If ObjText.HasAttributes = True Then
           
        End If
    End If
Da die Blöcke mit den Attributen grundsätzlich mehrere Attribute haben komme ich nicht mit AcadAttributeReference.Visible weiter. Der TextAligmentPoint könnte mir helfen, wenn ich in der Nähe dieses Punktes geklickt hätte. Gibt es mit VBA überhaupt die Möglichkeit, genau das ausgewählte Objekt eines Blockes auszugeben?
Vielen Dank für die Hilfe!
Gruß Sven

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

---

Hallo Sven,

einen Teil eines Blockes wählen geht mit:
ThisDrawing.Utility.GetSubEntity

sieh auch mal hier

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

Hallo Stelli,

Dein Link hat mir sehr weitergeholfen.

Vielen Dank!

Gruß Sven

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