・ 作業ディレクトリーのパスを取得
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