---

Hallo!!

Ich denke bzw. hoffe, hier kann mir jemand helfen, damit mir ein Licht aufgeht... Ich versuche nun mit Hilfe, Entwickler-Hilfe, Foren etc. zu finden, wie ich in VBA die Definition der Funktion Schriftfeld übergebe und mit den Daten 'Dateiname - volle Pfad & Dateiname inkl. Endung' fülle...
Leider bisher nur minimale Teilerfolge; als normaler Text is es schon geglückt, aber wegen der Aktualisierung wäre mir ein Schriftfeld schon lieber.....

Danke für jeden Vorschlag und/oder Tip!!

------------------
Der Sinn des Menschen strebet immer nach dem Unbegreiflichen, als sei dort das Ziel der Laufbahn.
Clemens von Brentano

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

---

Hallo CadSani,

Hier ein Beispiel aus der Hilfe (Abgewandelt für Dateiname):

Sub Example_FieldCode()
    ' This example creates a text object in model space.
    ' It then returns the field code string for the object.

    Dim textObj As AcadText
    Dim text As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double

    ' Define the text object
    text = "%<\AcVar Filename \f >%"
    insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
    height = 0.5
   
    ' Create the text object in model space
    Set textObj = ThisDrawing.ModelSpace.AddText(text, insertionPoint, height)
    ZoomAll
   
    ' Return the current text string for the object
    text = textObj.FieldCode
    MsgBox "The FieldCode for the text object equals: " & text, vbInformation, "FieldCode Example"

End Sub

Gruß, Carsten

[Diese Nachricht wurde von Carsten1210 am 01. Feb. 2007 editiert.]

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

---

okay, danke... somit sind mir meine fehler aufegdeckt, denn das beispiel aus der hilfe war mir ja bekannt, aber ich hab beim umformatieren einige details 'weggelassen' bzw falsch abgeändert =)

------------------
Der Sinn des Menschen strebet immer nach dem Unbegreiflichen, als sei dort das Ziel der Laufbahn.
Clemens von Brentano

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