VBScript并保持当前“0”；“ACAD”；注册表中的支持路径

DaveW · 发表于 2007-6-18 13:51:41

好的，我被踩死了：
在我的VBA模块AddFileSearchPaths和Locations中，
我用Preferences对象保持当前的支持路径

CurrPaths = Preferences.Files.SupportPath

然后添加新路径，并仍保持当前路径；在循环中，我使用了一个新变量AllPaths
AllPaths=currpath+NewPaths，它工作得很好

copy

For Pcount = 0 To 4
 If NewPath(Pcount)  0 Then
  AllPaths = AllPaths & ";" & CurrPaths & ";" & NewPath(Pcount)
 End If
Next Pcount
Preferences.Files.SupportPath = AllPaths

现在，这里是真正的乐趣
在VBScript中，我正在将所有路径直接写入（至少尝试写入）注册表；完全在ACAD之外
好的，那么问题是，在注册表中，使用脚本，如何创建一个保存所有当前路径的变量

copy

Gacadvpaths = "ACAD" & "Valuedata"

但我不知道怎么去那里
谢谢
马克

本帖以下内容被隐藏保护；需要你回复后，才能看到！

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

DaveW · 发表于 2007-6-18 14:45:34

嗯，我以为我知道答案，但我现在看到你试图在autocad之外做这件事

DaveW · 发表于 2007-6-18 15:15:07

哈哈，是的，欢迎来到我的噩梦哈哈
VBA答案在我发布的代码中给出
恐怕有人会告诉我创建一个对象来保存路径
我的脑袋跟不上

DaveW · 发表于 2007-6-18 15:17:33

CM
我刚刚读了你的报价;我认为是有些人有数码摄影记忆，而其他人像我一样仍在使用35mm

DaveW · 发表于 2007-7-2 23:00:33

查看附件

DaveW · 发表于 2007-7-3 09:41:15

嗨，戴夫
，我无法在工作中提取.rar文件，他们有点不屑于在这里下载文件，可以理解。
无论如何，你可以为我发布可以吗？
我会很感激谢谢你
马克

DaveW · 发表于 2007-7-3 10:04:41

戴夫，
我在家里看了一眼。
恕我直言，我并不是在真正寻找一个完整的VB项目。
我只是简单地编写了一个VBScript，用于在注册表中创建ACAD支持路径;我只需要我发布的问题的“1”答案。
如果答案在那里，如果您发布它，我将不胜感激。
再次感谢
马克

DaveW · 发表于 2007-7-3 10:09:37

戴夫，不是我没有注意，也不是我不感激：疯子：只是你给我发了太多信息。我很感激，稍后我会回顾它，它甚至可能非常有用，但是当我发帖时，我希望能相当快地触及问题的核心，因为我需要完成一些事情。
再次感谢
马克

DaveW · 发表于 2007-7-3 10:15:11

如果你不愿意花5分钟在设计时间加载和运行项目，那么我帮不了你。
我甚至很难发布这个，因为论坛一直给我错误。它对一个帖子来说太大了，当我把它拆分时，它也不起作用。我不知道为什么，今天没有更多的时间。您将不得不下载该项目。
上面进入模块的部分，您根本不需要理解！！！！
只需查看其中的基本示例以供将来使用，但将该代码放在一个模块中，以便用于表单上的代码。在表单中的代码中放置一个断点，并在设计时运行它，并在它具有支持路径的部分逐步完成它，您将看到它找到并附加支持路径。您必须添加一行代码来设置假字符串，因为您将没有它正在寻找的键来调用要添加的字符串。它基本上是查看一个reg键，拉动字符串，然后找到acad的所有支持路径并将它们附加到该字符串中。只需在该部分硬编码您想要的字符串，它在reg中查找字符串的部分，以及您要添加的支持路径。我将再次尝试在几篇文章中添加下面的代码。

DaveW · 发表于 2007-7-3 10:17:14

好的
，我会看看
谢谢
马克

VBScript并保持当前“0”；“ACAD”；注册表中的支持路径

发表回复

精选推荐