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

mandala · 发表于 2011-8-23 20:36:34

本帖最后由 mandala 于 2011-8-23 20:37 编辑

写了一个程序，包括一个lsp文件、一个dcl文件和10个txt文件，放在一个文件夹中，在CAD里设置好“支持文件搜索路径”。

没编译成vlx之前，使用正常，但编译成vlx之后（将所有文件一起编译进去了），删除原文件夹，在CAD中导入vlx，结果提示“某某txt不存在”！

应该是路径的问题？我从没编译过带dcl和txt的文件，是否我编译得不对？

paulpipi · 发表于 2020-8-13 07:37:38

学习了，谢谢

liu_kunlun · 发表于 2011-8-23 21:00:48

我也遇到这种情况，就简单的把相应的txt和DCL文件一起放在支持路径文件夹中。

mandala · 发表于 2011-8-23 21:37:17

本帖最后由 mandala 于 2011-8-23 23:05 编辑

楼上的办法我当然知道，不过这样我还要编译成vlx干什么。

这个程序是给别人用的，本来只要给他一个vlx就可以了，现在得全拷给他，还要提醒他放在支持目录下。

cnks · 发表于 2011-8-23 22:23:25

编译的时候，把顺序改改，txt文件放前面试一试

mandala · 发表于 2011-8-23 23:09:20

本帖最后由 mandala 于 2011-8-23 23:21 编辑

cnks 发表于 2011-8-23 22:23
编译的时候，把顺序改改，txt文件放前面试一试

好像没什么用。

我看到网上有个说法，说编译后，不需要路径。

因此在程序中要写成这样:

(if (null (setq txt (findfile "C:\\ABC\\Test.txt"))) (setq txt "Test.txt")))

但我试过也没用，因为 (open "Test.txt" “r”)的结果是nil。

byghbcx · 发表于 2011-8-24 08:36:10

在程序中加入寻找目录对话框的语句

mandala · 发表于 2011-8-24 08:38:27

byghbcx 发表于 2011-8-24 08:36
在程序中加入寻找目录对话框的语句

我已经全部编译成vlx文件了，哪来的目录？

byghbcx · 发表于 2011-8-24 08:53:54

(getFolder "请选择\"*.txt\"所在文件夹" )
(defun getFolder (msg / WinShell shFolder path catchit)
  (vl-load-com)
  (setq winshell (vlax-create-object "Shell.Application"))
  (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
  (setq
catchit (vl-catch-all-apply
   '(lambda ()
(setq shFolder (vlax-get-property shFolder 'self))
(setq path (vlax-get-property shFolder 'path))
   )
)
  )
  (if (vl-catch-all-error-p catchit)
nil
path
  )
)

加入lisp中重新编绎成vlx

mandala · 发表于 2011-8-24 09:28:23

本帖最后由 mandala 于 2011-8-24 09:32 编辑

byghbcx 发表于 2011-8-24 08:53
(getFolder "请选择\"*.txt\"所在文件夹" )
(defun getFolder (msg / WinShell shFolder path catchit)
...

非常感谢你的帮助……这个lsp是用来指定TXT文件所在目录的吧。

不过我的需求是：所有txt和dcl都打包在一个vlx中，执行时硬盘上不存在什么TXT文件。不然我为什么要把它们都编译成一个vlx呢，直接把这些东西都拷入支持路径下都可以了么。

我的疑惑是：假使编译入vlx的txt文件不能被vlx调用，那为什么还要编译进去？放外边不一样吗？

xiaxiang · 发表于 2011-8-24 09:54:34

用下面这个函数：
(vl-get-resource text-file)

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