（XD::DOC:RasterImagePathsList）列表当前所有的图像

marting

1. (defun XD::DOC:RasterImagePathsList (bIncludeFullPath / imageDict cnt val fileName fullName fileList)
   
2.   ; Step through the definitions in the attached images dictionary
   
3.   (foreach val (setq imageDict (dictsearch (namedobjdict) "ACAD_IMAGE_DICT"))
   
4. 
   
5.     ; Check for the DXF group code 350, dictionary entry
   
6.     (if (= (car val) 350)
   
7.       (progn
   
8.         ; Get the name/path of the image
   
9.         (setq fullName (cdr (assoc 1 (entget (cdr val)))))
   
10. 
    
11.         ; Determine whether the filename is returned only or the full path
    
12.         (if bIncludeFullPath
    
13.           ; Get and attempt to resolve the relative path as needed
    
14.           (setq fileName (XD::FILE:ResolveRelativePath fullName (vl-string-trim "\\" (getvar "dwgprefix"))))
    
15. 
    
16.           ; Get the filename and extension only
    
17.           (setq fileName (strcat (vl-filename-base fullName) (vl-filename-extension fullName)))
    
18.         )
    
19. 
    
20.         ; Append the filename to the list
    
21.         (setq fileList (cons fileName fileList))
    
22.       )
    
23.     )
    
24.   )
    
25. 
    
26.   ; Return a sorted list of filenames
    
27.   (vl-sort fileList '<)
    
28. )
    
29. 
    

(defun XD::DOC:RasterImagePathsList (bIncludeFullPath / imageDict cnt val fileName fullName fileList)<br />   ; Step through the definitions in the attached images dictionary<br />   (foreach val (setq imageDict (dictsearch (namedobjdict) "ACAD_IMAGE_DICT"))<br /> <br />     ; Check for the DXF group code 350, dictionary entry<br />     (if (= (car val) 350)<br />       (progn<br />         ; Get the name/path of the image<br />         (setq fullName (cdr (assoc 1 (entget (cdr val)))))<br /> <br />         ; Determine whether the filename is returned only or the full path<br />         (if bIncludeFullPath<br />           ; Get and attempt to resolve the relative path as needed<br />           (setq fileName (XD::FILE:ResolveRelativePath fullName (vl-string-trim "\\" (getvar "dwgprefix"))))<br /> <br />           ; Get the filename and extension only<br />           (setq fileName (strcat (vl-filename-base fullName) (vl-filename-extension fullName)))<br />         )<br /> <br />         ; Append the filename to the list<br />         (setq fileList (cons fileName fileList))<br />       )<br />     )<br />   )<br /> <br />   ; Return a sorted list of filenames<br />   (vl-sort fileList '<)<br /> )<br /> <br />

qingchao

大师真及时啊，我试试看

yiyu_ye

谢谢大师··

xujinhua

谢谢你！！学到东西了