・ 現在アクティブな図面名、パス を得る

現在アクティブな図面名は ActiveDocument.Name で取得できます
グローバル プロジェクト( .dvb ファイルに保存されているプロジェクト）では、ThisDrawing.Name でもアクティブな図面名を得ることができますが、MDE（マルチドキュメント環境）で、プロジェクトの保存先が図面の場合は、ThisDrowing.Name と ActiveDocument.Name は違うものが返ることがありますので、図面に埋め込んで処理するケースも考えておく必要があります

現在、アクティブな図面名
    ActiveDocument.Name

現在、アクティブな図面のファイルパス
    ActiveDocument.Path

現在、アクティブな図面のパスを含むファイル名
    ActiveDocument.FullName

'***********************************************************************************************
'ファイル名を取得する
'***********************************************************************************************
Sub Jo_get_filename()
  Dim f_name As String
  Dim f_path As String
  Dim full_name As String

  f_name = ActiveDocument.Name
  f_path = ActiveDocument.Path
  full_name = ActiveDocument.FullName

  MsgBox "ファイル名：" & f_name _
    & vbCr & "ファイルパス：" & f_path _
    & vbCr & "フルネーム：" & full_name
End Sub