写个批量生成fas的程序如下

linshiyin2

2. (defun c:lsptofas ( / f fname ml n str)
   
3.   (command "vlisp")
   
4.   (vl-load-com)
   
5.   
   
6.   (setq fname (getfiled "lisp数据文件" ".lsp" "lsp" 16))
   
7.   (if (not fname)
   
8.     (exit)
   
9.   )
   
10.   (if (not (setq f (vl-filename-directory fname)))
    
11.     (exit)
    
12.   )
    
13.   (setq ml (vl-directory-files f "*.lsp" 1))
    
14.   (setq n (length ml))
    
15.   (princ "\n 转换中...请稍等! \n")
    
16.   (repeat n
    
17.     (setq str (car ml)
    
18.     str (strcat f "\" str)
    
19.     )
    
20.     (vlisp-compile 'st str)
    
21.     (vl-file-delete  str)
    
22.     (setq ml (cdr ml))
    
23.   )
    
24.   (princ (strcat "转换数:" (itoa n)))
    
25.   (princ)
    
26. )

(defun c:lsptofas ( / f fname ml n str)<br />   (command "vlisp")<br />   (vl-load-com)<br />   <br />   (setq fname (getfiled "lisp数据文件" ".lsp" "lsp" 16))<br />   (if (not fname)<br />     (exit)<br />   )<br />   (if (not (setq f (vl-filename-directory fname)))<br />     (exit)<br />   )<br />   (setq ml (vl-directory-files f "*.lsp" 1))<br />   (setq n (length ml))<br />   (princ "\n 转换中...请稍等! \n")<br />   (repeat n<br />     (setq str (car ml)<br />     str (strcat f "\" str)<br />     )<br />     (vlisp-compile 'st str)<br />     (vl-file-delete  str)<br />     (setq ml (cdr ml))<br />   )<br />   (princ (strcat "转换数:" (itoa n)))<br />   (princ)<br /> )

不用打开vle就可以执行啦。

smartstar

谢谢分享！

石井鱼

不错，真的很好用，删除(vl-file-delete  str)可不删源文件