项目文件路径（VB）
AutoCAD 2000又是你好
我有一个简短的问题。我需要为文件夹中的所有图形设置项目文件搜索路径。我在这里搜索了一些来自CmdrDuh的代码，这些代码将帮助设置支持路径，我正在尝试将其调整为适用于项目文件搜索路径。现在它给了我一个编译错误。有人能帮我理顺这段代码吗？我感谢你的帮助。
Dim ProjectName As String
Dim ProjectPath As String
ProjectName = "Central"
ProjectPath = "C:\BaseMaps"
Dim MySearchPath As String
MySearchPath = UCase(ThisDrawing.Application.Preferences.Files.SetProjectFilePath(ProjectName, ProjectPath))
If Not InStr(1, MySearchPath, ProjectPath) > 0 Then
ThisDrawing.Application.Preferences.Files.SupportPath = ProjectPath & ";" & MySearchPath
非常感谢。
迈克
页:
[1]