如何得到自动存盘的目录？

lisp_beginner

如何得到自动存盘的目录？

marting

神秘将军 发表于 2017-5-3 14:45

各种目录通过下面代码获得。

1. (setq *files*  (vla-get-files  (vla-get-preferences (vlax-get-Acad-object))))
   
2. 
   
3. ; 自动保存的目录
   
4. (vla-get-AutoSavepath *files*)
   
5. 
   
6. ; 定制图标的目录
   
7. (vla-get-CustomIconPath *files*))
   
8. 
   
9. ; 打印配置路径
   
10. (vla-get-PrinterConfigPath *files*)
    
11. 
    
12. ; 打印样式目录
    
13. (vla-get-PrinterStyleSheetPath *files*)
    
14. 
    
15. ; 驱动程序目录
    
16. (vla-get-PrinterDescPath *files*)
    
17. 
    
18. ; DWG模板临时目录
    
19. (vla-get-TemplateDwgPath *files*)
    
20. 
    
21. ;SUPPORT支持目录
    
22. (setq paths (vla-get-SupportPath *files*))
    
23. 
    
24. ; 临时文件目录
    
25. (vla-get-TempFilePath *files*))
    
26. 
    
27. ; XREF 临时文件目录
    
28. (vla-get-TempXrefPath *files*))
    

(setq *files*  (vla-get-files  (vla-get-preferences (vlax-get-Acad-object))))<br /> <br /> ; 自动保存的目录<br /> (vla-get-AutoSavepath *files*)<br /> <br /> ; 定制图标的目录<br /> (vla-get-CustomIconPath *files*))<br /> <br /> ; 打印配置路径<br /> (vla-get-PrinterConfigPath *files*)<br /> <br /> ; 打印样式目录<br /> (vla-get-PrinterStyleSheetPath *files*)<br /> <br /> ; 驱动程序目录<br /> (vla-get-PrinterDescPath *files*)<br /> <br /> ; DWG模板临时目录<br /> (vla-get-TemplateDwgPath *files*)<br /> <br /> ;SUPPORT支持目录<br /> (setq paths (vla-get-SupportPath *files*))<br /> <br /> ; 临时文件目录<br /> (vla-get-TempFilePath *files*))<br /> <br /> ; XREF 临时文件目录<br /> (vla-get-TempXrefPath *files*))<br />

神秘将军

(getvar"DWGPREFIX") 获得当前文件所在路径