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

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

本帖最后由 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函数啊
页: [1]
查看完整版本: 请教打包进vlx文件中txt路径问题