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

linshiyin2 · 发表于 2012-5-26 21:59:53

本帖最后由 linshiyin2 于 2012-5-27 18:02 编辑

写一个函数，能让指定或选定目录里的lisp批量生成fas。

3楼自己写了一个，源码附上，谁能改进一下，使其能够遍历本目录下所有的文件夹下的lsp。

linshiyin2 · 发表于 2012-5-26 22:03:01

列出给定目录中的所有文件

(vl-directory-files [directory pattern directories])
参数

directory

字符串，指定要收集文件的目录。如果未指定该参数或参数为 nil，vl-directory-files 使用当前目录。

pattern

字符串，包含文件名的 DOS 方式。如果未指定该参数或参数为 nil，vl-directory-files 假定为 "*.*"

directories

整数型，指定返回的表中是否包含路径名。可以指定下列值之一：

–1 仅列出目录。

0 列出文件和目录（缺省值）。

1 仅列出文件。

linshiyin2 · 发表于 2012-5-26 23:30:43

本帖最后由 linshiyin2 于 2012-5-27 16:46 编辑

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

USER2128 · 发表于 2012-5-27 08:20:07

三楼的程序未贴出来, 麻烦楼主贴出来

vlisp2012 · 发表于 2012-5-27 08:32:40

就是，贴哪里去了？

linshiyin2 · 发表于 2012-6-6 22:06:48

说明一下，使用这个程序必须打开vlisp窗口，函数决定的，没办法解决。

linshiyin2 · 发表于 2012-6-6 22:10:03

还要提醒一下，转换成fas的同时也删除了lsp文件，如果不需要删除lsp修改程序中的一句话即可。

zyhandw · 发表于 2012-6-7 09:42:43

这个不错，程序简单实用！

winabcd · 发表于 2012-6-7 10:19:51

程序的想法很好，可用VLISP中的工程来管理LSP文件，应该是一个更好的方法。

lidaxiu · 发表于 2012-6-8 13:06:17

反正都是打开vlisp窗口的情况，还不如直接编译来的快

账号		自动登录	找回密码
密码			注册

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

相关帖子