您好，我想替换“打开”命令，这在我的旧电脑上有效，但当我在另一台电脑上安装时，它只运行默认的“打开”命令
是否存在阻止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)
| 
置顶卡
