qmotuo 发表于 2023-5-2 20:42:38

权限好高 啊66666666666

唐小呆 发表于 2023-5-2 21:12:18

    (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 发表于 2023-7-19 18:29:12

权限太高，看不到

迷失1786 发表于 2023-7-30 09:31:32

:lol:lol:lol

muai2010 发表于 2023-9-10 00:34:19

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


测试了下用不了

玫瑰刺猬 发表于 2023-9-23 18:53:39

这个挺厉害的很方便

muai2010 发表于 2023-10-21 09:49:46

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

戏男 发表于 2023-10-24 15:19:27


这个挺厉害的很方便

戏男 发表于 2023-10-24 18:27:14

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-26 09:30:08

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

请去他的帖子里面留言.{:1_1:}
页: 1 [2] 3
查看完整版本: 一键合并文件夹下LISP,并出FAS