急！！！！各位大侠帮个忙：

mandala

xiaxiang 发表于 2011-8-24 09:54
用下面这个函数：
(vl-get-resource text-file)

谢谢xiaxiang。我也考虑过用（vl-get-resource），但是它的结果是返回一大串字符串，而且每句之间用\r\n隔开，要整理到可以使用的程度相当麻烦！

我就奇怪了，难道编译入vlx的txt文件，被vlx本身调用起来都那么麻烦？

byghbcx

txt 放在外面就是方便存取用的，如果不用更改，直接把txt文件写成表的形式放在lsp文件中调用。dcl是可以编进去的

xiaxiang

http://www.mjtd.com/Functions/ArticleShow.asp?ArticleID=1171
再试试这个

snddd2000

vl-get-resource 是正常用法，建议把txt里的数据处理成表结构

mandala

唉，只好把txt弄成表，放入lsp里。弄出我一身汗。

inhoo0

楼主  能不能把你程序发来大家试一试呢

mandala

inhoo0 发表于 2011-8-25 07:09
楼主  能不能把你程序发来大家试一试呢

===========

支持原创~~~支持共享~~

反正lisp这种东西，写的时候满头大汗，写完之后回头一想，也没啥了不起的。

这个lsp尤其简单，就是把txt弄进lsp这个过程，简直让人恶从胆边生。

mandala

把txt制成表，可以用明经的一个函数，我改了下名字：
(defun gfile(files / tmplst x fn)
  (setq files(findfile files))
  (if files
    (progn
      (setq fn (open  files "r"))
      (while (setq x (read-line fn))
        (setq tmplst(append tmplst(list x)))
      )
      (close fn)
      tmplst
    )
     nil
  )
)

gzxl

呵呵......界面很熟悉   

我的是这个

winabcd

如果你的TXT文件内容是固定不变的，你就不需要这个TXT文件，可以将内容直接写入到LSP文件中。