乐筑天下

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

支持文件搜索路径

[复制链接]

57

主题

235

帖子

3

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
463
发表于 2006-7-17 09:29:30 | 显示全部楼层 |阅读模式
可以使用vba来定义新的支持文件搜索路径吗?

本帖以下内容被隐藏保护;需要你回复后,才能看到!

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

使用道具 举报

57

主题

235

帖子

3

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
463
发表于 2006-7-17 09:53:11 | 显示全部楼层
是的,你想干什么?
回复

使用道具 举报

57

主题

235

帖子

3

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
463
发表于 2006-7-17 09:56:34 | 显示全部楼层
这就是我如何确保这些驱动器在路径中的方法。
  1. Public Sub ACADStartup()
  2.     Set AutoCAD = Application
  3.     Dim strUSER As String
  4.     Dim supppath As String
  5.     supppath = UCase(ThisDrawing.Application.Preferences.Files.SupportPath)
  6.     'This will prevent you entering the same entry more than once
  7.     If InStr(1, supppath, "U:\TITLEBLOCKS") > 1 Then
  8.     GoTo Nextline
  9.     Else
  10.     ThisDrawing.Application.Preferences.Files.SupportPath = supppath & ";" & "U:\TITLEBLOCKS"
  11.     End If
  12. Nextline:
  13.     If InStr(1, supppath, "U:\symbols") > 1 Then
  14.     GoTo Lastline
  15.     Else
  16.     ThisDrawing.Application.Preferences.Files.SupportPath = supppath & ";" & "U:\symbols"
  17.     End If
  18. Lastline:
  19.     If InStr(1, supppath, "U:\PROJECTLOGS") > 1 Then
  20.     Exit Sub
  21.     Else
  22.     ThisDrawing.Application.Preferences.Files.SupportPath = supppath & ";" & "U:\PROJECTLOGS"
  23.     End If
  24.     Exit Sub
  25. End Sub

回复

使用道具 举报

71

主题

928

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1230
发表于 2006-7-17 10:02:49 | 显示全部楼层
我想使用VBA插入一个dwg,但是如果它不在定义的路径中,vba会阻塞,因为它找不到块,所以我需要能够定义新路径。
回复

使用道具 举报

57

主题

235

帖子

3

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
463
发表于 2006-7-17 10:12:36 | 显示全部楼层
使用上述方法,您应该可以添加您的路径。如果您需要帮助,请告诉我
回复

使用道具 举报

57

主题

235

帖子

3

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
463
发表于 2006-7-17 11:04:34 | 显示全部楼层
让它工作,谢谢。
回复

使用道具 举报

57

主题

235

帖子

3

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
463
发表于 2006-7-17 11:48:14 | 显示全部楼层
您使用的是什么版本?我看到有报道称,在2007年,InsertBlock现在需要一个完全限定的路径名。因此,仅仅确保支持路径指向您的块不起作用……请注意,我没有亲自测试过这一点。(self注意,今天晚些时候进行测试)
回复

使用道具 举报

71

主题

928

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1230
发表于 2006-7-18 07:29:13 | 显示全部楼层
2005 adt
回复

使用道具 举报

57

主题

235

帖子

3

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
463
发表于 2006-7-18 09:45:14 | 显示全部楼层
JM,我这边没有确认,但我昨天在插入块时遇到了问题。我今天必须调查一下。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-5 23:31 , Processed in 1.251952 second(s), 70 queries .

© 2020-2025 乐筑天下

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