通过V支持文件搜索路径
我尝试的是，当用户打开AutoCAD会话时，“Project.dvb”启动并运行一个子系统，该子系统设置我们要设置的所有支持文件搜索路径。我已经能够让它设置一个，但由于我不是VBA大师，我想我会请你们一些帮助。以下是我使用的添加1路径的行：
ThisDrawing.Application.Preferences.Files.SupportPath = "V:\AutoCAD\ABC Standards\Scripts"
然而，所有这些都是用这个路径替换所有搜索路径。我需要知道如何添加到当前列表中。再想一想，先检查一下路径是否已经存在。如果没有，则添加它，如果是，则转到下一个。
我预计至少有3到12条新路径，这取决于其他事情的结果。
提前感谢您的帮助！
禅宗
p、 我可以让“Project.dvb”在AutoCAD启动时启动，我只是无法让路径添加代码工作。。。 我知道密码了，BRB 这就是我用的
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 1-获取现有路径另存为字符串变量
2-使用InStr（）检查您想要的是否在您的路径中，如果不在，则插入它
页:
[1]