vla-get-AutoAudit

vla-get-AutoAudit 函数

功能

取得在进行DXFIN或DXBIN交换命令的着色后是否要执行核查。

语法及参数

	(vla-get-AutoAudit Object)
	Object	PreferencesOpenSave
		这个属性适用的对象。
	AutoAudit	布尔；读/写
		:vlax-true : 在每一个DXBIN或DXFIN命令之后执行核查。 :vlax-false : 在第一个DXFIN或DXBIN命令之后不执行核查

范例

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

　　(defun Example_AutoAudit()
　　;;; 这个范例返回
　　;;; AutoAudit 当前的设定值。接着改变它的值，
　　;;; 最后重设为原来的值
　　(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))
　　;;; 取出当前的 AutoAudit 值
　　(setq openSaveSel(vla-get-OpenSave preferenceSel))
　　(setq currAutoAudit(vla-get-AutoAudit openSaveSel))
　　(princ "AutoAudit的当前值为:")(princ currAutoAudit)(princ "  AutoAudit范例 \n")
　　;;; 切换 AutoAudit 的值
　　(setq newAutoAudit (ToF currAutoAudit))
　　(vla-put-AutoAudit openSaveSel newAutoAudit)
　　(princ "AutoAudit的新值为:")(princ newAutoAudit)(princ "  AutoAudit范例 \n")
　　;;; 将 AutoAudit 值重设为原来的值
　　(vla-put-AutoAudit openSaveSel currAutoAudit)
　　(princ "AutoAudit值重设为:")(princ currAutoAudit)(princ "  AutoAudit范例 \n")
　　(princ)
)
　　(defun ToF(msg)
　　(if (= msg :vlax-true)
　　(setq msg :vlax-false)
　　(setq msg :vlax-true)
)
)

意见？