回9楼：VBS程序是一种VB的脚本语言，可用记事本之类的文本编辑器编写，保存为后缀为“.vbs”的文件即可，双击即可运行。我采用这种程序的目的就是编写类似于安装程序的功能，实现在下次打开CAD时自动加载指定的LSP或FAS文件，这个VBS程序不需要在CAD中运行。如果你要在LSP程序中实现上述功能，可用7楼的方法。<br/>
<p>之前我发的VBS程序还有一点小问题：如果CAD从来没有打开过加载应用程序的对话框，那么运行时就会发错。现我已改进了这个问题，使之作为“安装程序”更为适用。其内容如下：</p><p>Dim WS, REG, Path, Key, SubKey, Value, el, flag<br/>Set WS = WScript.CreateObject("WScript.Shell")<br/>Path = WS.CurrentDirectory & "\Load.fas"<br/>Set REG = GetObject("winmgmts:\\.\root\default:StdRegProv")<br/>HKCU = &H80000001<br/>HKLM = &H80000002<br/>Key = "Software\Autodesk\AutoCAD"<br/>REG.GetStringValue HKCU, Key, "CurVer", Value<br/>Key = Key & "\" & Value<br/>REG.GetStringValue HKCU, Key, "CurVer", Value<br/>Key = Key & "\" & Value<br/>SubKey = "\Profiles"<br/>REG.GetStringValue HKCU, Key & SubKey, "", Value<br/>SubKey = SubKey & "\" & Value & "\Dialogs\Appload\Startup"<br/>REG.EnumValues HKCU, Key & SubKey, Item, Value<br/>If IsNull(Item) Then<br/> REG.CreateKey HKCU, Key & SubKey<br/> REG.SetStringValue HKCU, Key & SubKey, "", "1"<br/> REG.SetStringValue HKCU, Key & SubKey, "NumStartup", "1"<br/> REG.SetStringValue HKCU, Key & SubKey, "1Startup", Path<br/> SubKey = "\Applications\AcadAppload"<br/> REG.CreateKey HKCU, Key & SubKey<br/> REG.GetStringValue HKLM, Key & SubKey, "DESCRIPTION", Value<br/> REG.SetStringValue HKCU, Key & SubKey, "DESCRIPTION", Value<br/> REG.GetStringValue HKLM, Key & SubKey, "LOADER", Value<br/> REG.SetStringValue HKCU, Key & SubKey, "LOADER", Value<br/> REG.GetDWORDValue HKLM, Key & SubKey, "LOADCTRLS", Value<br/> Value = Value or 2<br/> REG.SetDWORDValue HKCU, Key & SubKey, "LOADCTRLS", Value<br/> MsgBox "成功加入自动加载列表!"<br/>Else<br/> REG.GetStringValue HKCU, Key & SubKey, "", Value<br/> flag = False<br/> If Not IsNull(Value) Then<br/> Item = Value & "Startup"<br/> REG.GetStringValue HKCU, Key & SubKey, Item, Value<br/> If UCase(Right(Value,9))="\LOAD.FAS" Then flag = True<br/> End if<br/> IF flag Then<br/> MsgBox "TB Tools 已在自动加载列表中!"<br/> Else<br/> REG.GetStringValue HKCU, Key & SubKey, "NumStartup", Value<br/> Value = CStr(CInt(Value)+1)<br/> Item = Value & "Startup"<br/> REG.SetStringValue HKCU, Key & SubKey, "", Value<br/> REG.SetStringValue HKCU, Key & SubKey, "NumStartup", Value<br/> REG.SetStringValue HKCU, Key & SubKey, Item, Path<br/> SubKey = "\Applications\AcadAppload"<br/> REG.GetDWORDValue HKCU, Key & SubKey, "LOADCTRLS", Value<br/> Value = Value or 2<br/> REG.SetDWORDValue HKCU, Key & SubKey, "LOADCTRLS", Value<br/> MsgBox "成功加入自动加载列表!"<br/> End if<br/>End if<br/></p>
请问按你的程序CAD2004可用，可是CAD2002就没反应，如何让他适应CAD2002或更高版本？请大侠指导，谢谢！
高版本应该没有问题，CAD2002没有装过。不过举一反三，在注册表里查找相关的设置应该可以解决。
还有就是如何做到把（指定加载同目录下的Load.fas文件），改为（指定加载不同目录下的Load.fas文件），即我的*.VBS在D:\AA\kk.VBS,而Load.fas在C:\bb\Load.fas.请高手指导，谢谢！
谢谢分享，感谢楼主！
回15楼：把第3行Path = WS.CurrentDirectory & "\Load.fas"<br/>改为你想要的绝对路径或相对路径就行了
我改了，也用了，只是有时是加载在cad2008,有时在CAD2004，怪事？这个程序最后连注册表也没加也可用，只不过是不稳定。如何解决一次性加载到CAD2002-2008所有版本？
tengte 你好，你的代码不能加载所有acad版本和所有配置Profiles下，我想应该要遍历注册表才行，不过不知怎么写，但vbs，一点都不会
有时间能帮忙给改下吗？