（XD::DOC:XrefPathsList）返回图形中附着的所有XREF文件的路径列表

marting

1. ;; Returns a list of Xref filenames attached to the drawing
   
2. ;; bIncludeFullPath = T - Full file path is returned
   
3. ;; bIncludeFullPath = nil - Filename and extension only are returned
   
4. ;; Usage: (XD::DOC:XrefPathsList T)
   
5. ;; Usage: (XD::DOC:XrefPathsList nil)
   
6. (defun XD::DOC:XrefPathsList (bIncludeFullPath / ent val fullName fileName fileList)
   
7.   ; Get the first element of the Blocks symbol table
   
8.   (setq ent (tblnext "block" T))
   
9.   ; Step through the Blocks symbol table
   
10.   (while ent
    
11.     ; Check for the DXF group code 1
    
12.     (if (setq val (assoc 1 ent))
    
13.       (progn
    
14.         ; Get the xref path name from the DXF group
    
15.         (setq fullName (cdr val))
    
16.         ; Determine whether the filename is returned only or the full path
    
17.         (if bIncludeFullPath
    
18.           (progn
    
19.             ; Check for a relative path and attempt to resolve the path
    
20.             (setq fileName (XD::FILE:ResolveRelativePath fullName (vl-string-trim "\\" (getvar "dwgprefix"))))
    
21.           )
    
22.           ; Return the filename and extension only
    
23.           (setq fileName (strcat (vl-filename-base fullName) (vl-filename-extension fullName)))
    
24.         )
    
25.         ; Append the filename to the list
    
26.         (setq fileList (cons fileName fileList))
    
27.       )
    
28.     )
    
29.     ; Return the next block in the Block symbol table
    
30.     (setq ent (tblnext "block"))
    
31.   )
    
32.   ; Return a sorted list of filenames
    
33.   (vl-sort fileList '<)
    
34. )
    

;; Returns a list of Xref filenames attached to the drawing<br /> ;; bIncludeFullPath = T - Full file path is returned<br /> ;; bIncludeFullPath = nil - Filename and extension only are returned<br /> ;; Usage: (XD::DOC:XrefPathsList T)<br /> ;; Usage: (XD::DOC:XrefPathsList nil)<br /> (defun XD::DOC:XrefPathsList (bIncludeFullPath / ent val fullName fileName fileList)<br />   ; Get the first element of the Blocks symbol table<br />   (setq ent (tblnext "block" T))<br />   ; Step through the Blocks symbol table<br />   (while ent<br />     ; Check for the DXF group code 1<br />     (if (setq val (assoc 1 ent))<br />       (progn<br />         ; Get the xref path name from the DXF group<br />         (setq fullName (cdr val))<br />         ; Determine whether the filename is returned only or the full path<br />         (if bIncludeFullPath<br />           (progn<br />             ; Check for a relative path and attempt to resolve the path<br />             (setq fileName (XD::FILE:ResolveRelativePath fullName (vl-string-trim "\\" (getvar "dwgprefix"))))<br />           )<br />           ; Return the filename and extension only<br />           (setq fileName (strcat (vl-filename-base fullName) (vl-filename-extension fullName)))<br />         )<br />         ; Append the filename to the list<br />         (setq fileList (cons fileName fileList))<br />       )<br />     )<br />     ; Return the next block in the Block symbol table<br />     (setq ent (tblnext "block"))<br />   )<br />   ; Return a sorted list of filenames<br />   (vl-sort fileList '<)<br /> )<br />