Preferences オブジェクトを取得します。
サポートされているプラットフォーム: Windows のみ
Preferences オブジェクトは、レジストリに存在する[オプション]ダイアログ ボックスのオプションを保持します。図面に存在するオプションは、DatabasePreferences オブジェクトにあります。
VBA:
Sub Example_Preferences() ' This example returns the current setting of ' LogFilePath from the preferences object. Dim preferences As AcadPreferences Set preferences = ThisDrawing.Application.Preferences ' Retrieve the current LogFilePath value MsgBox "The current value for LogFilePath is " & preferences.Files.LogFilePath, , "Preferences Example" End Sub
Visual LISP:
(vl-load-com) (defun c:Example_Preferences() ;; This example returns the current setting of ;; LogFilePath from the preferences object. (setq acadObj (vlax-get-acad-object)) (setq preferences (vla-get-Preferences acadObj)) ;; Retrieve the current LogFilePath value (alert (strcat "The current value for LogFilePath is " (vla-get-LogFilePath (vla-get-Files preferences)))) )