打开当前图纸文件夹

爱莫能助

(getvar 'dwgprefix)
用变量取到当前图档的目录，用什么函数可以打开这个目录，，是打开目录，不是打开文件
用变量取

lucas3

1. (startapp "explorer.exe" "D:\\CAD_Standards\\Symbols")

(startapp "explorer.exe" "D:\\CAD_Standards\\Symbols")

1. (defun _opendirectory (path / sa)
   
2.   (if (and (eq 'str (type path))
   
3.      (findfile (vl-string-right-trim "\\" path))
   
4.      (setq sa (vlax-create-object "Shell.Application"))
   
5.       )
   
6.     (progn (vlax-invoke sa 'explore path) (vlax-release-object sa))
   
7.   )
   
8.   (princ)
   
9. )
   
10. 
    
11. 
    
12. (_opendirectory "D:\\CAD_Standards\\Symbols")
    
13. 
    
14. 
    
15. (defun c:cd nil (_opendirectory (getvar 'dwgprefix)))
    
16. 
    

(defun _opendirectory (path / sa)<br />   (if (and (eq 'str (type path))<br />      (findfile (vl-string-right-trim "\\" path))<br />      (setq sa (vlax-create-object "Shell.Application"))<br />       )<br />     (progn (vlax-invoke sa 'explore path) (vlax-release-object sa))<br />   )<br />   (princ)<br /> )<br /> <br /> <br /> (_opendirectory "D:\\CAD_Standards\\Symbols")<br /> <br /> <br /> (defun c:cd nil (_opendirectory (getvar 'dwgprefix)))<br /> <br />

1. (defun openDir (gPath / )
   
2.         (setq gPath (vl-string-subst "\\" "/" gPath))
   
3.   (vl-cmdf ".shell" (strcat "explorer.exe " gPath))
   
4. )
   

(defun openDir (gPath / )<br />         (setq gPath (vl-string-subst "\\" "/" gPath))<br />   (vl-cmdf ".shell" (strcat "explorer.exe " gPath))<br /> )<br />

爱莫能助

lucas3 发表于 2016-8-20 11:53

非常感谢，非常好用。