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

qmotuo

权限好高 啊66666666666

唐小呆

    (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")    )

hd654

权限太高，看不到

迷失1786

muai2010

434939575 发表于 2022-12-20 11:49

测试了下用不了

玫瑰刺猬

这个挺厉害的  很方便

muai2010

楼主能修复下么，刚好用到，但是用不了啊

戏男

这个挺厉害的  很方便

戏男

434939575 发表于 2022-12-20 14:07
http://bbs.mjtd.com/forum.php?mo ... 82918&highlight=vlx  这里有，不是我写的，大海大师的 by:tryhi  ...

可以发我一份吗？我进不去，阅读权限60以上才能看，438641551@qq.com,谢谢

434939575

戏男 发表于 2023-10-24 18:27
可以发我一份吗？我进不去，阅读权限60以上才能看，438641551@qq.com,谢谢

请去他的帖子里面留言.