乐筑天下

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

[编程交流] 在explor中打开特定文件夹

[复制链接]

10

主题

40

帖子

30

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-5 15:52:23 | 显示全部楼层 |阅读模式
大家好,
我已经试着让它工作了一天左右,现在我已经没有头发了!
 
我找到了宏代码(好的,“借用”…)打开当前目录很容易。
 
我想做的是有不同项目的按钮打开其指定项目的图形文件夹。
 
 
在当前目录中打开:
  1. (startapp "explorer" (strcat "/e, "(getvar "dwgprefix")))

 
在R驱动器的子文件夹“projects”中打开:
  1. (startapp "explorer" (strcat "/e, R:\\projects"))

 
 
使用
  1. ^C^C_(startapp "explorer" (strcat "/e, F:\Jobs\B16000\B16007\Drawings")

 
这就是我得到的。(使用双反斜杠只会使我在每次到达该反斜杠时按enter键)。
 
命令:_(startapp LISP命令不可用。
命令:“explorer”未知命令“explorer”。按F1键获取帮助。
命令:(strcat”/e,F:
(“>作业
(“>B16000
(“>B16007
(“图纸”)
“/e,F:\n作业\nB16000\nB16007\n图纸”
 
什么都没发生。
 
我不知道Lisp,所以首先我不知道从哪里可以得到“startapp.lsp”。或者它是否存在?
 
我真的很感激你帮我解决这个问题。。。。
非常感谢。
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 15:56:12 | 显示全部楼层
你可以在windows任务栏上有一个目录作为图标,只需在谷歌上搜索信息。然后双击所需的图形。
 
http://www.digitalcitizen.life/how-pin-any-folder-windows-7-taskbar
 
我的设置为项目驱动,LISP,这样我可以拖放LISP以外的正常库,项目时间记录,最后是你想要的1个项目目录。
165225j14pylo0tqjtu0op.jpg
回复

使用道具 举报

10

主题

40

帖子

30

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-5 16:01:00 | 显示全部楼层
感谢Big Al,但我希望能够通过autocad界面实现这一点。
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 16:03:51 | 显示全部楼层
这对我来说很有效(startapp“explorer”P:\\2016项目\\2016033)
回复

使用道具 举报

10

主题

40

帖子

30

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-5 16:06:42 | 显示全部楼层
谢谢BigAl,
我会继续使用它,但将您的代码复制到我的文件路径不起作用。
我正在
“_(startapp LISP命令不可用。
命令:“explorer”未知命令“explorer”。按F1键获取帮助。
 
你知道我怎样才能使startapp lisp可用吗?!这是一个。lsp我就是没有?
 
再次感谢。
回复

使用道具 举报

10

主题

40

帖子

30

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-5 16:10:08 | 显示全部楼层
知道了!
 
http://forums.augi.com/archive/index.php/t-162038.html
 
不确定论坛道德或其他方面,但基本上,我要做的是创建一个简单的lisp,然后将其宏称为lisp。
 
我的例子是:
 
Lisp程序:
 
  1. (defun B16007 ()
  2. (STARTAPP (strcat "EXPLORER /e," "F:\\Jobs\\B16000\\B16007\\Drawings"))
  3. )

 
宏分配给按钮:
 
  1. ^C^C(B16007)

 
我一直在寻找这一点,所以希望这能帮助其他有同样问题的人。
 
再次感谢你的帮助,比格尔-我知道你过去在这里也帮了我很多。
回复

使用道具 举报

26

主题

210

帖子

184

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
130
发表于 2022-7-5 16:12:24 | 显示全部楼层
 
您可以按以下方式修改代码。
 
  1. (defun c:B16007 ()
  2. (STARTAPP (strcat "EXPLORER /e," "D:\\Jobs\\B16000\\B16007\\Drawings"))
  3. (princ)
  4. )
和宏:
  1. ^C^C B16007;
回复

使用道具 举报

10

主题

40

帖子

30

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-5 16:15:04 | 显示全部楼层
太好了-谢谢你。
tbh,我希望能够输入项目编号以及。
回复

使用道具 举报

5

主题

956

帖子

963

银币

初来乍到

Rank: 1

铜币
35
发表于 2022-7-5 16:20:43 | 显示全部楼层
  1. (vl-cmdf [color="red"]"shell"[/color] "explorer "F:\\Jobs\\B16000\\B16007\\Drawings"")
回复

使用道具 举报

10

主题

40

帖子

30

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-5 16:23:52 | 显示全部楼层
非常感谢。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-13 21:21 , Processed in 0.449463 second(s), 74 queries .

© 2020-2025 乐筑天下

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