[求助]如何将数据文件打包的文件中

精灵王

用lisp编程，经常用到一些数据文件，如何才能放到一个文件，这样就不用设置一个搜索路径，用起来比较方便，谢谢了

aaddff

自己写一个文件放到搜索路径下不就可以了吗？

f5612140

方法1.图档*.dwg放在数据文件同一个目录,点撃*.dwg开启图档


方法2.数据文件放在工作支援档搜寻路径(工具->环境选项设定)

精灵王

对不起，可能没有表达清楚，比如我想将公差的一些数据文件，加入的lisp的执行文件中，比如vlx文件，在打包时将文件加进了，但是执行时还要要求数据文件的搜索路径，否则文件就不能执行，我想知道如何将数据文件打包到执行文件中，在运行中不再需要这个数据文件。

aaddff

应该是程序的问题了，你是 不是用findfile了，如果是的话，去掉试下

精灵王

如果不用findfile，打包在vlx中文件能直接打开吗？，我没有试过，有成功的吗？，我回头试试看。

无痕

精灵王发表于2004-6-17 15:55:00对不起，可能没有表达清楚，比如我想将公差的一些数据文件，加入的lisp的执行文件中，比如vlx文件，在打包时将文件加进了，但是执行时还要要求数据文件的搜索路径...

还是没看明白

精灵王

怎么还不明白，换一个方法说明，才程序用用findfile语句找到data.dat文件，然后打开应用，在cad中设置data.dat的搜索路径，就可以正常应用，但如果不设置，就会提示找不到data.dat，但是data.dat的文件内容，在用vlsp的编译输出中已经包含在输出的.vlx中了，现在我想知道的如果设置，可以实现，应用程序直接获取.vlx中的数据，而不再重新查找。

精灵王

aaddff发表于2004-6-17 17:34:00应该是程序的问题了，你是 不是用findfile了，如果是的话，去掉试下

老大，没有成功啊。以下是我的测试程序 (defun c:test()
(setq file (findfile "xpc.txt")) 返回nil
(if (not file)
(progn
(alert "没有找到数据文件xpc.txt \n请重新安装程序或把xpc.txt\n文件放到CAD公共目录下！")
;; (exit)
(setq file "xpc.txt") 返回xpc.txt
(princ file)
)
) (setq file (open file "r")) 返回nil
(princ file)
(princ eof) 返回nil 文件没有打开
(while eof
(setq str (read-line file))
(princ str )
)
)

wmz

闹了半天!你把(setq file "Xpc.txt")去掉就行了!


                                                 试想,你先用findfile函数查找到了带盘符路径"xpc.txt",这时,变量file的值就是


"X:\\<        路径>\\xpc.txt",可你后来又将file重新赋值为"xpc.txt",不出错才怪呢!