获取首选项配置文件对象。 支持的平台:仅窗口 言论该对象保存存储在注册表中的“选项”对话框中的“配置文件”选项卡中的所有选项。与图形一起存储的所有选项都可以在对象上找到。PreferencesProfilesDatabasePreferences 例子工 务 局: Sub Example_Profiles() ' This example obtains a reference to the Profiles Preferences object ' from the Application Preferences object, and reads one of the Profiles ' preferences Dim ACADPref As AcadPreferencesProfiles ' Obtain a reference to the Profiles Preferences object Set ACADPref = ThisDrawing.Application.Preferences.Profiles MsgBox "You now have access to the properties and methods of the Profiles Preferences object!" MsgBox "The Profiles preference ActiveProfile is set to: " & ACADPref.ActiveProfile End Sub Visual LISP: (vl-load-com) (defun c:Example_Profiles() ;; This example obtains a reference to the Profiles Preferences object ;; from the Application Preferences object, and reads one of the Profiles ;; preferences (setq acadObj (vlax-get-acad-object)) (setq preferences (vla-get-Preferences acadObj)) ;; Obtain a reference to the Profiles Preferences object (alert "You now have access to the properties and methods of the Profiles Preferences object!") (alert (strcat "The Profiles preference ActiveProfile is set to: " (vla-get-ActiveProfile (vla-get-Profiles preferences)))) ) |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-1-8 19:11
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.