请教打包进vlx文件中txt路径问题

ddjlw · 发表于 2015-6-15 20:32:35

本帖最后由 ddjlw 于 2015-6-15 20:33 编辑

用这些代码生成vlx文件总是"无法加载文档".
请教大神如何解决?谢谢!
(defun read_txt (/ txt opt_1 fn fp)
  (if (= (getvar "filedia") 0)
(setvar "filedia" 1)
  )
  (setq fn (findfile "flsj.txt"))
  (if (= fn nil)
(progn (alert "无法加载文档!") (exit))
  )
  (setq fp (open fn "r"))
  (setq txt_sb '())
  (setq opt_1 1)
  (while (= opt_1 1)
(setq txt (read-line fp))
(if (/= txt nil)
   (progn
(setq txt_sb1 (read txt))
(setq txt_sb (append txt_sb (list txt_sb1)))
   )
   (setq opt_1 0)
)
  )
  (close fp)
)

zdqwy19 · 发表于 2015-6-15 21:07:06

flsj.txt文件没有打包进vlx里面吧

ddjlw · 发表于 2015-6-15 21:56:21

打包了,就是提示错误.

自贡黄明儒 · 发表于 2015-6-15 22:22:44

text打包了要用v|-resource

自贡黄明儒 · 发表于 2015-6-16 17:47:51

http://bbs.mjtd.com/thread-113465-1-1.html

pxt2001 · 发表于 2022-5-13 08:28:15

没有看懂黄大师这个帖子，也没有v|-resource函数啊

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

[提问] 请教打包进vlx文件中txt路径问题

点评