指定活动视口的最大数量。 支持的平台:仅窗口 属性值只读:不 类型:整数 活动视口的最大数量;2 <= 最大活动视口 <= 48 言论非活动视口为空,因此不会重新生成其内容。因此,您可以通过指定较低的值来提高性能。初始值为 48。 注意:此属性的值存储在 MAXACTVP 系统变量中。
例子工 务 局: Sub Example_MaxActiveViewports() ' This example returns the current setting of ' MaxActiveViewports. It then changes the value, and finally ' it resets the value back to the original setting. Dim currMaxActiveViewports As Integer Dim newMaxActiveViewports As Integer ' Retrieve the current MaxActiveViewports value currMaxActiveViewports = ThisDrawing.preferences.MaxActiveViewports MsgBox "The current value for MaxActiveViewports is " & currMaxActiveViewports, vbInformation, "MaxActiveViewports Example" ' Change the value for MaxActiveViewports newMaxActiveViewports = 20 ThisDrawing.preferences.MaxActiveViewports = newMaxActiveViewports MsgBox "The new value for MaxActiveViewports is " & newMaxActiveViewports, vbInformation, "MaxActiveViewports Example" ' Reset MaxActiveViewports to its original value ThisDrawing.preferences.MaxActiveViewports = currMaxActiveViewports MsgBox "The MaxActiveViewports value is reset to " & currMaxActiveViewports, vbInformation, "MaxActiveViewports Example" End Sub Visual LISP: (vl-load-com) (defun c:Example_MaxActiveViewports() ;; This example returns the current setting of ;; MaxActiveViewports. It then changes the value, and finally ;; it resets the value back to the original setting. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) (setq preferences (vla-get-Preferences doc)) ;; Retrieve the current MaxActiveViewports value (setq currMaxActiveViewports (vla-get-MaxActiveViewports preferences)) (alert (strcat "The current value for MaxActiveViewports is " (itoa currMaxActiveViewports))) ;; Change the value for MaxActiveViewports (setq newMaxActiveViewports 20) (vla-put-MaxActiveViewports preferences newMaxActiveViewports) (alert (strcat "The new value for MaxActiveViewports is " (itoa newMaxActiveViewports))) ;; Reset MaxActiveViewports to its original value (vla-put-MaxActiveViewports preferences currMaxActiveViewports) (alert (strcat "The MaxActiveViewports value is reset to " (itoa currMaxActiveViewports))) ) |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-1-8 19:46
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.