（XD::File:Seek）设置文件读写的位置指针

marting

1. (defun XD::File:Seek (start /)
   
2.   (setq start (cond ((= (type start) 'STR) (+ (xd::file:position) (atoi start)))
   
3.                     ((< start 0) (+ (xd::file:position) start))
   
4.                     ((> start (xd::file:size)) size)
   
5.                     (t start)
   
6.               )
   
7.   )
   
8.   (if (xd::apply vlax-put-property (list **XD:AdoStream** 'position start))
   
9.     (xd::apply vlax-get-property (list **XD:AdoStream** 'position))
   
10.   )
    
11. )
    
12. 
    

(defun XD::File:Seek (start /)<br />   (setq start (cond ((= (type start) 'STR) (+ (xd::file:position) (atoi start)))<br />                     ((< start 0) (+ (xd::file:position) start))<br />                     ((> start (xd::file:size)) size)<br />                     (t start)<br />               )<br />   )<br />   (if (xd::apply vlax-put-property (list **XD:AdoStream** 'position start))<br />     (xd::apply vlax-get-property (list **XD:AdoStream** 'position))<br />   )<br /> )<br /> <br />