[求助]宏的自动安装

suwei0072000

您好：
请教一下，我在做一个cad vba宏的自动安装程序，但需要在系统的支持搜索路径中添加C:\leo\files这个路径，不只应修改那个文件，在此文件中的哪里添加？

                                                        请多指教！！
                                                        谢谢！！

efan2000

注册表的路径为：HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R15.0\ACAD-1:804\Profiles\<<Unnamed Profile>>\General，那儿有一个键值是ACAD，它保存的就是搜索路径。比如：ACAD="D:\\Program Files\\ACAD2000\\support;D:\\Program Files\\ACAD2000\\fonts;D:\\Program Files\\ACAD2000\\help;D:\\Program Files\\ACAD2000\\express;"
上面要注意的R15.0这个跟版本有关系，不同版本是不一样的，而<<Unnamed Profile>>则是配置名称，也跟不同的配置有关系。
还有一种就是创建一个VB的应用程序，通过对Application对象的preferences引用，以程序的方式添加搜索路径。
后一种可能相对比较简单。
Sub Example_SupportPath()
    ' This example returns the current setting of
    ' SupportPath. It then changes the value, and finally
    ' it resets the value back to the original setting.
   
    Dim preferences As AcadPreferences
    Dim currSupportPath As String
    Dim newSupportPath As String
   
    Set preferences = ThisDrawing.Application.preferences

   
    ' Retrieve the current SupportPath value
    currSupportPath = preferences.Files.SupportPath
    MsgBox "The current value for SupportPath is " & currSupportPath, vbInformation, "SupportPath Example"
   
    ' Change the value for SupportPath
    newSupportPath = "TestSupportPath"
    preferences.Files.SupportPath = newSupportPath
    MsgBox "The new value for SupportPath is " & newSupportPath, vbInformation, "SupportPath Example"

   
    ' Reset SupportPath to its original value
    preferences.Files.SupportPath = currSupportPath
    MsgBox "The SupportPath value is reset to " & currSupportPath, vbInformation, "SupportPath Example"
End Sub