・ 作業ディレクトリーのパスを取得

AutoCAD が使用するテンポラリファイルを格納するディレクトリーのパスを取得するには、

'*************************************************************************
'作業フォルダーのパス取得
'*************************************************************************
Sub get_work_dir()

  Dim obj_pref As AcadPreferences
  Dim work_dir As String

  Set obj_pref = ThisDrawing.Application.preferences
  work_dir = preferences.Files.TempFilePath
  MsgBox "作業ディレクトリーは" & work_dir

End Sub