更改默认目录

muck · 发表于 2022-7-6 22:53:00

使用AutoCAD 2010。

是否可以使用更改AutoCAD open命令的默认目录
Lisp还是VBA？

非常感谢。

jammie · 发表于 2022-7-7 00:30:33

你好

对于AutoCAD 2007，初始目录存储在注册表中

我不确定它是否仍然适用于2010年，但是

读取打开的对话框目录

(defun getDialog_OpenSavePath ()
 (vl-registry-read
   (strcat "HKEY_CURRENT_USER\"
    (vlax-product-key)
    "\\Profiles\"
    (getvar 'cprofile)
    "\\Dialogs\\OpenSaveAnavDialogs\"
    )
 "InitialDirectory"
 )
)

写信给它

copy

(defun setDialog_OpenSavePat (<file> / reg-key dialogPath   )
 (if
   (vl-file-directory-p (setq dialogPath  (vl-filename-directory <file>)))
   (progn
     (setq reg-key (strcat "HKEY_CURRENT_USER\"
                    (vlax-product-key)
                    "\\Profiles\"
                    (getvar 'cprofile)
                    "\\Dialogs\\OpenSaveAnavDialogs\"))
     (vl-registry-write reg-key "InitialDirectory"  dialogPath))
   )
 )

copy


(getDialog_OpenSavePath)
(setDialog_OpenSavePat (getvar 'dwgprefix))

读/写注册表时要小心，因为这可能会损坏计算机的某些部分

[编程交流] 更改默认目录

发表回复

精选推荐