Add file name as Mtext

[abbas.baghernezhad]

Hi 

I want to add file name (or maybe some other information) to my model space like somthing that command "field" does. here is code , it works except the most important thing! How can i access my file name (info variable)?

Sub fn()
Dim pt(0 To 2) As Double
Dim w As Double
Dim text As AcadMText
Dim ent As AcadEntity
Dim info As String

pt(0) = 10: pt(1) = 0: pt(2) = 0
Width = 10
info=?

Set text = ThisDrawing.ModelSpace.AddMText(pt, Width, info)
For Each ent In ThisDrawing.ModelSpace
 If TypeOf ent Is AcadMText Then
Debug.Print ent.TextString
End If
Next

End Sub

[norman.yuan · Accepted solution]

Try this:

Option Explicit

Sub fn()
    Dim pt(0 To 2) As Double
    Dim w As Double
    Dim text As AcadMText
    Dim ent As AcadEntity
    Dim info As String
    
    pt(0) = 10: pt(1) = 0: pt(2) = 0
    w = 10
    info = "%<\AcVar Filename \f ""%fn7"">%"
    
    Set text = ThisDrawing.ModelSpace.AddMText(pt, w, info)
    text.Update

End Sub

[abbas.baghernezhad]

I did try that. But I was getting syntax error... 

some charachter must have been missing.

Thank You.

[Ed__Jobe]

A syntax error means that you didn't follow the code language properly. When you get that error, it will highlight the problem code. What line got the error?

[abbas.baghernezhad]

 I mistyped some charachters while copy-pasting. Problem is solved .Thank You.