在图纸空间和模型空间之间切换活动空间。 支持的平台:仅窗口 属性值只读:不 类型:枚举acActiveSpace
言论对于模型空间浮动视口,此值设置为 。即使您能够编辑模型,从技术上讲,您仍然处于图纸空间中。acPaperSpace 有关此属性的详细信息,请参阅对象。PViewport 注意:此属性的值存储在 TILEMODE 系统变量中。
例子工 务 局: Sub Example_ActiveSpace() ' This example toggles the ActiveSpace property from ' paper space to model space. ' Display the current setting for TILEMODE MsgBox "TILEMODE = " & ThisDrawing.ActiveSpace, vbInformation, "ActiveSpace Example" ' Changes active document to paper space ThisDrawing.ActiveSpace = acPaperSpace MsgBox "TILEMODE = " & ThisDrawing.ActiveSpace, vbInformation, "ActiveSpace Example" ' Changes active document to model space ThisDrawing.ActiveSpace = acModelSpace MsgBox "TILEMODE = " & ThisDrawing.ActiveSpace, vbInformation, "ActiveSpace Example" End Sub Visual LISP: (vl-load-com) (defun c:Example_ActiveSpace() ;; This example toggles the ActiveSpace property from ;; paper space to model space. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; Display the current setting for TILEMODE (alert (strcat "TILEMODE = " (itoa (vla-get-ActiveSpace doc)))) ;; Changes active document to paper space (vla-put-ActiveSpace doc acPaperSpace) (alert (strcat "TILEMODE = " (itoa (vla-get-ActiveSpace doc)))) ;; Changes active document to model space (vla-put-ActiveSpace doc acModelSpace) (alert (strcat "TILEMODE = " (itoa (vla-get-ActiveSpace doc)))) ) |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-1-8 19:43
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.