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