xiaxiang 发表于 2011-8-24 09:54 static/image/common/back.gif
用下面这个函数：
(vl-get-resource text-file)
谢谢xiaxiang。我也考虑过用（vl-get-resource），但是它的结果是返回一大串字符串，而且每句之间用\r\n隔开，要整理到可以使用的程度相当麻烦！
我就奇怪了，难道编译入vlx的txt文件，被vlx本身调用起来都那么麻烦？
txt 放在外面就是方便存取用的，如果不用更改，直接把txt文件写成表的形式放在lsp文件中调用。dcl是可以编进去的
http://www.mjtd.com/Functions/ArticleShow.asp?ArticleID=1171
再试试这个
vl-get-resource 是正常用法，建议把txt里的数据处理成表结构
唉，只好把txt弄成表，放入lsp里。弄出我一身汗。
楼主能不能把你程序发来大家试一试呢
本帖最后由 mandala 于 2011-8-25 10:26 编辑
inhoo0 发表于 2011-8-25 07:09 http://bbs.mjtd.com/static/image/common/back.gif
楼主能不能把你程序发来大家试一试呢
===========
支持原创~~~支持共享~~
反正lisp这种东西，写的时候满头大汗，写完之后回头一想，也没啥了不起的。
这个lsp尤其简单，就是把txt弄进lsp这个过程，简直让人恶从胆边生。
把txt制成表，可以用明经的一个函数，我改了下名字：
(defun gfile(files / tmplst x fn)
(setq files(findfile files))
(if files
(progn
(setq fn (openfiles "r"))
(while (setq x (read-line fn))
(setq tmplst(append tmplst(list x)))
)
(close fn)
tmplst
)
nil
)
)
呵呵......界面很熟悉
我的是这个
如果你的TXT文件内容是固定不变的，你就不需要这个TXT文件，可以将内容直接写入到LSP文件中。