功能

   判断是否自动建立新布局的视口。

语法及参数

说明
    这个属性的初始值是:vlax-true。


范例

;;;从二代龙震工作室汉化帮助中提取
;;;本源代码由 xshrimp 2013.2.20 搜集整理,版权归原作者所有！

　　(defun Example_LayoutCreateViewport()
　　;;; 这个范例读取并显示修改用于控制
　　;;; 新布局的视口自动建立的系统配置值，
　　;;; 在完成后，这个范例将系统配置重设为原来的值
　　(VL-LOAD-COM)
　　(setq AcadObject(vlax-get-acad-object)
　　AcadDocument(vla-get-ActiveDocument AcadObject)
　　mSpace(vla-get-ModelSpace AcadDocument)
)
　　;;; 取得显示系统配置对象
　　(setq preferenceSel(vla-get-Preferences AcadObject))
　　(setq AcadPref(vla-get-display preferenceSel))
　　;;; 读取并显示原始值
　　(setq originaValue(vla-get-LayoutCreateViewport AcadPref))
　　(princ "LayoutCreateViewport系统配置设定为: ")(princ originaValue)(princ "   LayoutCreateViewport范例\n")
　　(PROMPT "进行:")(VL-CMDF pause)
　　;;; 以切换值的方式修改 LayoutCreateViewport 系统配置
　　(vla-put-LayoutCreateViewport AcadPref (ToF originaValue))
　　(setq newValue(vla-get-LayoutCreateViewport AcadPref))
　　(princ "LayoutCreateViewport系统配置已经设定为: ")(princ newValue)(princ "   LayoutCreateViewport范例\n")
　　(PROMPT "进行:")(VL-CMDF pause)
　　;;; 将系统配置设定重设为原来的值
　　;;; * 注意：请将以下2行程序注释以使
　　;;; 这个系统配置的改变产生作用
　　(vla-put-LayoutCreateViewport AcadPref originaValue)
　　(princ "LayoutCreateViewport系统配置已经重设为: ")(princ originaValue)(princ "   LayoutCreateViewport范例\n")
　　(princ)
)
　　(defun ToF(msg)
　　(if (= msg :vlax-true)
　　(setq msg :vlax-false)
　　(setq msg :vlax-true)
)
)