（XD::FILE:ResolveRelativePath）相对路径处理

marting

1. ;; Returns a filename based on the resolved path
   
2. ;; Usage: (XD::FILE:ResolveRelativePath "..\\grid.dwg" (getvar "dwgprefix"))
   
3. (defun XD::FILE:ResolveRelativePath (fileNamePath dwgPath / )
   
4.   ; Check for relative paths and attempt to resolve the path to the xref
   
5.   (cond
   
6.     ; Relative path, should resolve multiple levels of relative folders; DWG file must be saved
   
7.     ((and (= (substr fileNamePath 1 2) "..")(/= (getvar "dwgprefix") ""))
   
8.       (while (= (substr fileNamePath 1 2) "..")
   
9.         (setq fileNamePath (substr fileNamePath 4)
   
10.               dwgPath (substr dwgPath 1 (vl-string-position (ascii "\\") dwgPath 0 T))
    
11.         )
    
12.       )
    
13.       (setq fileNamePath (strcat dwgPath "\\" fileNamePath))
    
14.     )
    
15.     ; Absolute paths, resolves only the top level folder; DWG file must be saved
    
16.     ((and (= (substr fileNamePath 1 1) ".")(/= (getvar "dwgprefix") ""))
    
17.       (setq fileNamePath (substr fileNamePath 3)
    
18.             fileNamePath (strcat dwgPath "\\" fileNamePath)
    
19.       )
    
20.     )
    
21.   )  
    
22.   ; Check to see if the fileNamePath is valid, if not then attempt to locate the file in the working support path
    
23.   (if (not (findfile fileNamePath))
    
24.     (setq fileNamePath (findfile (strcat (vl-filename-base fileNamePath) (vl-filename-extension fileNamePath))))
    
25.     (if (= (vl-filename-directory fileNamePath) "")
    
26.       (setq fileNamePath (findfile fileNamePath))
    
27.     )
    
28.   )
    
29.   ; Returns the resolved path with filename, if the path couldn't be resolved
    
30.   ; then the original fileNamePath is returned
    
31.   fileNamePath
    
32. )
    

;; Returns a filename based on the resolved path<br /> ;; Usage: (XD::FILE:ResolveRelativePath "..\\grid.dwg" (getvar "dwgprefix"))<br /> (defun XD::FILE:ResolveRelativePath (fileNamePath dwgPath / )<br />   ; Check for relative paths and attempt to resolve the path to the xref<br />   (cond<br />     ; Relative path, should resolve multiple levels of relative folders; DWG file must be saved<br />     ((and (= (substr fileNamePath 1 2) "..")(/= (getvar "dwgprefix") ""))<br />       (while (= (substr fileNamePath 1 2) "..")<br />         (setq fileNamePath (substr fileNamePath 4)<br />               dwgPath (substr dwgPath 1 (vl-string-position (ascii "\\") dwgPath 0 T))<br />         )<br />       )<br />       (setq fileNamePath (strcat dwgPath "\\" fileNamePath))<br />     )<br />     ; Absolute paths, resolves only the top level folder; DWG file must be saved<br />     ((and (= (substr fileNamePath 1 1) ".")(/= (getvar "dwgprefix") ""))<br />       (setq fileNamePath (substr fileNamePath 3)<br />             fileNamePath (strcat dwgPath "\\" fileNamePath)<br />       )<br />     )<br />   )  <br />   ; Check to see if the fileNamePath is valid, if not then attempt to locate the file in the working support path<br />   (if (not (findfile fileNamePath))<br />     (setq fileNamePath (findfile (strcat (vl-filename-base fileNamePath) (vl-filename-extension fileNamePath))))<br />     (if (= (vl-filename-directory fileNamePath) "")<br />       (setq fileNamePath (findfile fileNamePath))<br />     )<br />   )<br />   ; Returns the resolved path with filename, if the path couldn't be resolved<br />   ; then the original fileNamePath is returned<br />   fileNamePath<br /> )<br />