批量编译LISP到FAS文件

newer

函数见开源函数库论坛：
xd::doc:getfolder 见： http://bbs.xdcad.net/thread-707928-1-1.html
xd::doc:directorylist 见：http://bbs.xdcad.net/thread-707930-1-1.html

1. (defun c:xdtb_compilefas ( / dir i len lst n)
   
2.   (if (and
   
3.         (setq dir (xd::doc:getfolder "选择LISP目录"))
   
4.         (setq lst (xd::doc:directorylist dir "lsp" nil))
   
5.       )
   
6.     (progn
   
7.       (setq len (length lst)
   
8.             i 0
   
9.       )
   
10.       (foreach n lst
    
11.         (princ (strcat "\r编译fas中: " (itoa (setq i (1+ i))) " of "
    
12.                        (itoa len)
    
13.                )
    
14.         )
    
15.         (vlisp-compile 'st n)
    
16.       )
    
17.       (princ "\n编译完毕.")
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )
    
22. 
    

(defun c:xdtb_compilefas ( / dir i len lst n)<br />   (if (and<br />         (setq dir (xd::doc:getfolder "选择LISP目录"))<br />         (setq lst (xd::doc:directorylist dir "lsp" nil))<br />       )<br />     (progn<br />       (setq len (length lst)<br />             i 0<br />       )<br />       (foreach n lst<br />         (princ (strcat "\r编译fas中: " (itoa (setq i (1+ i))) " of "<br />                        (itoa len)<br />                )<br />         )<br />         (vlisp-compile 'st n)<br />       )<br />       (princ "\n编译完毕.")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

sh_h

回的人少，我来小顶一下

sicky111

啥也不说了，感谢楼主分享哇！

周忠玉

支持楼主  

lzy1979

henbucuode xieopxexie

abenmao168

这个高大上，过来支持一下

sjj

感谢楼主分享

864643236

啥也不说了，感谢楼主分享哇！

xzs16

弄个反向的，你就牛逼了！！！！！！！！

l982414

回的人少，我来小顶一下

wayjt

下载收藏！

szhorse

有个fas2lsp就牛逼了，哈哈哈

lijunfa12345

kiwiairui

                           

kqqt6236

谢谢分享。