通过V支持文件搜索路径

ZenCad1960 · 发表于 2022-7-6 17:13:18

我尝试的是，当用户打开AutoCAD会话时，“Project.dvb”启动并运行一个子系统，该子系统设置我们要设置的所有支持文件搜索路径。我已经能够让它设置一个，但由于我不是VBA大师，我想我会请你们一些帮助。

以下是我使用的添加1路径的行：

copy

ThisDrawing.Application.Preferences.Files.SupportPath = "V:\AutoCAD\ABC Standards\Scripts"

然而，所有这些都是用这个路径替换所有搜索路径。我需要知道如何添加到当前列表中。再想一想，先检查一下路径是否已经存在。如果没有，则添加它，如果是，则转到下一个。

我预计至少有3到12条新路径，这取决于其他事情的结果。

提前感谢您的帮助！

禅宗

p、我可以让“Project.dvb”在AutoCAD启动时启动，我只是无法让路径添加代码工作。。。

CmdrDuh · 发表于 2022-7-6 17:53:18

我知道密码了，BRB

CmdrDuh · 发表于 2022-7-6 17:55:15

这就是我用的

copy

      Dim supppath As String
     supppath = UCase(ThisDrawing.Application.Preferences.Files.SupportPath)
     
     If Not InStr(1, supppath, "U:\TITLEBLOCKS") > 0 Then
     ThisDrawing.Application.Preferences.Files.SupportPath = "U:\TITLEBLOCKS" & ";" & supppath
     End If
     
     If Not InStr(1, supppath, "U:\SYMBOLS") > 0 Then
     ThisDrawing.Application.Preferences.Files.SupportPath = "U:\symbols" & ";" & supppath
     End If

CmdrDuh · 发表于 2022-7-6 18:24:21

1-获取现有路径另存为字符串变量
2-使用InStr（）检查您想要的是否在您的路径中，如果不在，则插入它

[编程交流] 通过V支持文件搜索路径

发表回复

精选推荐