（XD::Slide:i**ist）判断一个幻灯名是否存在SLB中

marting

1. (defun XD::Slide:I**sit (slb sld / name ret tf len)
   
2.   (if (and (setq slb (findfile slb)) (xd::file:open slb 1))
   
3.     (progn (setq header (xd::file:read 32))
   
4.            (if (= (xd::file:bin2str header)
   
5.                   "AutoCAD Slide Library 1.0\r\n\032"
   
6.                )
   
7.              (progn (setq sld (strcase sld)
   
8.                           tf  t
   
9.                     )
   
10.                     (while (and tf
    
11.                                 (/= "" (setq name (xd::file:bin2str (xd::file:read 32))))
    
12.                            )
    
13.                       (setq addr (xd::file:bin2int (xd::file:read 4)))
    
14.                       (if (= name sld)
    
15.                         (progn (setq tf      nil
    
16.                                      diraddr (- (xd::file:position) 36)
    
17.                                )
    
18.                                (if (= "" (xd::file:bin2str (xd::file:read 32)))
    
19.                                  (setq len (- (xd::file:size) addr))
    
20.                                  (setq len (- (xd::file:bin2int (xd::file:read 4)) addr))
    
21.                                )
    
22.                                (setq ret (list diraddr addr len))
    
23.                         )
    
24.                       )
    
25.                     )
    
26.                     (if (not tf)
    
27.                       ret
    
28.                       nil
    
29.                     )
    
30.              )
    
31.            )
    
32.            (xd::file:close)
    
33.     )
    
34.   )
    
35.   ret
    
36. )
    

(defun XD::Slide:I**sit (slb sld / name ret tf len)<br />   (if (and (setq slb (findfile slb)) (xd::file:open slb 1))<br />     (progn (setq header (xd::file:read 32))<br />            (if (= (xd::file:bin2str header)<br />                   "AutoCAD Slide Library 1.0\r\n\032"<br />                )<br />              (progn (setq sld (strcase sld)<br />                           tf  t<br />                     )<br />                     (while (and tf<br />                                 (/= "" (setq name (xd::file:bin2str (xd::file:read 32))))<br />                            )<br />                       (setq addr (xd::file:bin2int (xd::file:read 4)))<br />                       (if (= name sld)<br />                         (progn (setq tf      nil<br />                                      diraddr (- (xd::file:position) 36)<br />                                )<br />                                (if (= "" (xd::file:bin2str (xd::file:read 32)))<br />                                  (setq len (- (xd::file:size) addr))<br />                                  (setq len (- (xd::file:bin2int (xd::file:read 4)) addr))<br />                                )<br />                                (setq ret (list diraddr addr len))<br />                         )<br />                       )<br />                     )<br />                     (if (not tf)<br />                       ret<br />                       nil<br />                     )<br />              )<br />            )<br />            (xd::file:close)<br />     )<br />   )<br />   ret<br /> )<br />

fy1005

谢谢分享SLB操作函数