项目文件路径（VB）

TroutKing · 发表于 2022-7-6 15:03:57

AutoCAD 2000
又是你好
我有一个简短的问题。我需要为文件夹中的所有图形设置项目文件搜索路径。我在这里搜索了一些来自CmdrDuh的代码，这些代码将帮助设置支持路径，我正在尝试将其调整为适用于项目文件搜索路径。现在它给了我一个编译错误。有人能帮我理顺这段代码吗？我感谢你的帮助。

copy


[font=Courier New][color=black][color=black][font=Courier New]   Dim ProjectName As String[/font][/color]
[color=black][font=Courier New]   Dim ProjectPath As String[/font][/color]
[color=black][font=Courier New]   ProjectName = "Central"[/font][/color]
[color=black][font=Courier New]   ProjectPath = "C:\BaseMaps"[/font][/color]
[color=black][font=Courier New]     Dim MySearchPath As String[/font][/color]
[color=black][font=Courier New]     MySearchPath = UCase(ThisDrawing.Application.Preferences.Files.SetProjectFilePath(ProjectName, ProjectPath))[/font][/color]
[color=black][font=Courier New]     If Not InStr(1, MySearchPath, ProjectPath) > 0 Then[/font][/color]
[color=black][font=Courier New]     ThisDrawing.Application.Preferences.Files.SupportPath = ProjectPath & ";" & MySearchPath[/font][/color]
[/color][/font]

非常感谢。
迈克

[编程交流] 项目文件路径（VB）

发表回复

精选推荐