一键合并文件夹下LISP,并出FAS

434939575

2.     (vl-load-com)
   
3.     (defun c:tt (/);;一键合并文件夹下LISP,并出FAS</span></h1>     
   
4. (setq        write
   
5.              (open "c:\\220\\220.lsp" "w")        ;目标文件
   
6.       )
   
7.       (setq file:dir:s (VL-DIRECTORY-FILES "c:\\110\" "*.lsp" 1)) ;源文件
   
8.       (foreach nn
   
9.                   file:dir:s
   
10.         (setq fil_pat (strcat "c:\\110\" nn))
    
11.         (setq op (open fil_pat "r"))
    
12.         (while (setq line (read-line op))
    
13.           (write-line line write)
    
14.           ;;关闭文件
    
15.         )                                        ;while
    
16.     ;;;------------------
    
17.         (close op)
    
18.       )                                        ;foreach
    
19.       (close write)
    
20.       (vlisp-compile 'st "c:/220/220.lsp" "c:/220/220.fas")
    
21.     )
    

    (vl-load-com)<br />     (defun c:tt (/);;一键合并文件夹下LISP,并出FAS</span></h1>     <br /> (setq        write<br />              (open "c:\\220\\220.lsp" "w")        ;目标文件<br />       )<br />       (setq file:dir:s (VL-DIRECTORY-FILES "c:\\110\" "*.lsp" 1)) ;源文件<br />       (foreach nn<br />                   file:dir:s<br />         (setq fil_pat (strcat "c:\\110\" nn))<br />         (setq op (open fil_pat "r"))<br />         (while (setq line (read-line op))<br />           (write-line line write)<br />           ;;关闭文件<br />         )                                        ;while<br />     ;;;------------------<br />         (close op)<br />       )                                        ;foreach<br />       (close write)<br />       (vlisp-compile 'st "c:/220/220.lsp" "c:/220/220.fas")<br />     )<br />

434939575

2.     (defun c:tt (/);多文件分别输出fas
   
3.             
   
4.               (setq file:dir:s (VL-DIRECTORY-FILES "c:\\110" "*.lsp" 1)) ;源文件
   
5.               (foreach nn
   
6.                           file:dir:s
   
7.                 (setq fil_pat (strcat "c:\\110\"  nn))
   
8.                 (setq len (strlen nn))
   
9. 
   
10.                 (setq bb (substr nn 1 (- len 3) ))
    
11. 
    
12.                 (setq fil_b(strcat "c:\\110\"  bb "fas"))
    
13.                         (vlisp-compile 'st fil_pat fil_b)                                ;while
    
14.             ;;;------------------
    
15.                
    
16.               )                                        ;foreach
    
17.             
    
18.             
    
19.             )
    
20. 
    
21. 
    

    (defun c:tt (/);多文件分别输出fas<br />              <br />               (setq file:dir:s (VL-DIRECTORY-FILES "c:\\110" "*.lsp" 1)) ;源文件<br />               (foreach nn<br />                           file:dir:s<br />                 (setq fil_pat (strcat "c:\\110\"  nn))<br />                 (setq len (strlen nn))<br /> <br />                 (setq bb (substr nn 1 (- len 3) ))<br /> <br />                 (setq fil_b(strcat "c:\\110\"  bb "fas"))<br />                         (vlisp-compile 'st fil_pat fil_b)                                ;while<br />             ;;;------------------<br />                 <br />               )                                        ;foreach<br />              <br />              <br />             )<br /> <br /> <br />

唐小呆

    (vl-load-com)    (defun c:tt (/);;一键合并文件夹下LISP,并出FAS</span></h1>      (setq        write             (open "c:\\220\\220.lsp" "w")        ;目标文件      )      (setq file:dir:s (VL-DIRECTORY-FILES "c:\\110\" "*.lsp" 1)) ;源文件      (foreach nn                  file:dir:s        (setq fil_pat (strcat "c:\\110\" nn))        (setq op (open fil_pat "r"))        (while (setq line (read-line op))          (write-line line write)          ;;关闭文件        )                                        ;while    ;;;------------------        (close op)      )                                        ;foreach      (close write)      (vlisp-compile 'st "c:/220/220.lsp" "c:/220/220.fas")    )

梦想家-DING

能不能整个多个fas打包vlx

434939575

梦想家-DING 发表于 2022-12-20 13:45
能不能整个多个fas打包vlx

http://bbs.mjtd.com/forum.php?mo ... 82918&highlight=vlx  这里有，不是我写的，大海大师的 by:tryhi   

梦想家-DING

抱歉，本帖要求阅读权限高于 60 才能浏览,,方便发一下到邮箱吗，drb1619@163.com

中国梦

谢谢楼主分享

菜鸟初来乍到

我是菜鸟，这个代码好像不完整，我复制了用不了

vink8023

434939575 发表于 2022-12-20 14:07
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=182918&highlight=vlx  这里有

抱歉，本帖要求阅读权限高于 60 才能浏览,,方便发一下到邮箱吗，714651857@qq.com

00放飞梦想00

434939575 发表于 2022-12-20 14:07
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=182918&highlight=vlx  这里有

抱歉，本帖要求阅读权限高于 60 才能浏览,,方便发一下到邮箱吗，790350886@qq.com

00放飞梦想00

中国梦 发表于 2022-12-20 20:37
谢谢楼主分享

能帮转发我一份吗？790350886@qq.com