乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 230|回复： 14

在支持路径的子文件夹中调用例程

[复制链接]
mstg007

238

主题

769

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1721
发表于 2017-2-20 11:11:08 | 显示全部楼层 |阅读模式
我正在尝试创建一个宏来运行一个lisp程序，这个程序我已经放了几个文件夹了。
  1. (load "Support Folder\\2\\3\\4\\Z2S - Zoom to Structure.LSP")(C:z2s)

我知道如果我添加完整的地址，我可以让它工作，但不知道它是否会像上面那样工作。
谢谢你的帮助。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

mstg007

238

主题

769

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1721
发表于 2017-2-20 12:34:17 | 显示全部楼层
据我所知，如果文件不驻留在支持路径中或提供文件的完整路径，则不可能。
回复

使用道具 举报

Roy_043

18

主题

1529

帖子

973

银币

中流砥柱

Rank: 25

铜币
649
发表于 2017-2-20 12:36:30 | 显示全部楼层
还行。这回答了这个问题。谢谢你的信息李。这只是一个想法，看看它是否会。
回复

使用道具 举报

mstg007

238

主题

769

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1721
发表于 2017-2-20 14:13:46 | 显示全部楼层
这表明findfile函数可以在搜索路径的子文件夹中找到文件。在BricsCAD中，这也适用于加载函数。
回复

使用道具 举报

mstg007

238

主题

769

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1721
发表于 2017-2-20 14:46:08 | 显示全部楼层
有趣。。。我必须尝试一下。谢谢
回复

使用道具 举报

dgorsman

16

主题

506

帖子

6

银币

中流砥柱

Rank: 25

铜币
570
发表于 2017-2-20 15:14:52 | 显示全部楼层
我测试了它，它做了我需要它做的事情
  1. (findfile "_Routine_Library\\Z2S - Zoom to Structure\\Z2S - Zoom to Structure.LSP")(load "Z2S - Zoom to Structure")(C:z2s)

我加载了主支持路径，然后在该路径下有带有例程的文件夹。谢谢你的帮助
我的下一步是尝试通过CUI或工具选项板按钮激活它，但无论哪种情况，我都会得到以下结果：
  1. Command:

  2. (findfile "_Routine_Library

不知道为什么会这样
如果复制并粘贴到命令提示；它可以工作。
  1. (findfile "_Routine_Library\\Z2S - Zoom to Structure\\Z2S - Zoom to Structure.LSP")(load "Z2S - Zoom to Structure")(C:z2s)

回复

使用道具 举报

Roy_043

18

主题

1529

帖子

973

银币

中流砥柱

Rank: 25

铜币
649
发表于 2017-2-21 10:27:53 | 显示全部楼层
我的建议 - 在LISP中编写自己的嵌套搜索函数。 这样，如果您不希望文件位置发生巨大变化，则还可以包括搜索缓存（在找到相同的内容后，一遍又一遍地搜索相同的内容是没有意义的）。
回复

使用道具 举报

mstg007

238

主题

769

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1721
发表于 2017-2-21 12:57:03 | 显示全部楼层
@MSTG007：
这段代码让我感到惊讶：
要么这个工作：
  1. (load "_Routine_Library\\Z2S - Zoom to Structure\\Z2S - Zoom to Structure.LSP")(C:z2s)

要么你必须使用这个：
  1. (load (findfile "_Routine_Library\\Z2S - Zoom to Structure\\Z2S - Zoom to Structure.LSP"))(C:z2s)

我不确定为什么从CUI调用它失败。尝试切换到正斜杠。
回复

使用道具 举报

Roy_043

18

主题

1529

帖子

973

银币

中流砥柱

Rank: 25

铜币
649
发表于 2017-2-21 13:38:09 | 显示全部楼层
我尝试了正斜杠。没有这样的运气。
  1. Command: (load (findfile "_Routine_Library/Z2S - Zoom to Structure/Z2S - Zoom to Structure.LSP"))(C:z2s) ; error: bad argument type: stringp nil

回复

使用道具 举报

mstg007

238

主题

769

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1721
发表于 2017-2-22 03:59:24 | 显示全部楼层
如果文件夹A在搜索路径文件夹中，所有这些都在BricsCAD中起作用:
命令栏条目:
  1. (findfile "A\\B\\Name with spaces.lsp")

  2. (findfile "A/B/Name with spaces.lsp")

  3. (load "A\\B\\Name with spaces.lsp")

  4. (load "A/B/Name with spaces.lsp")

崔宏的代码8]
我不知道为什么这在AutoCAD中不起作用。
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-10 18:16 , Processed in 0.434120 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表