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"
)
)
 
写信给它
 
(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))
   )
)
 
 
 

(getDialog_OpenSavePath)
(setDialog_OpenSavePat (getvar 'dwgprefix))

 
读/写注册表时要小心,因为这可能会损坏计算机的某些部分
页: [1]
查看完整版本: 更改默认目录