使用Vault lisp打开图形
您好，我想替换“打开”命令，这在我的旧电脑上有效，但当我在另一台电脑上安装时，它只运行默认的“打开”命令是否存在阻止defun重新定义标准autocad命令的变量
; variables set
(setq tilemodevar (getvar "tilemode"))
(setq varCPROFILE (getvar "CPROFILE"))
; close windows
(COMMAND "EXTERNALREFERENCESCLOSE")
(COMMAND "LAYERCLOSE")
(COMMAND "PROPERTIESCLOSE")
(COMMAND "ADCCLOSE")
; Open drawing from vault
(if (= varCPROFILE "Vault_r2014_Acad")
(progn
(defun c:_open ()
(command
"_vltopen"
""
) ;_ end of command
);_ end of defun
) ;_ end of progn
)
; autocad variables unset
(setvar "FILEDIA" FILEDIAvar)
页:
[1]