社区 › VB › 菜单问题

china-hz 发表于 2006-2-25 19:58:00

菜单问题

如何增加支持文件路径（就是选项里的那个路径）？先谢了

王咣生 发表于 2006-2-25 21:16:00

Sub test()
    Dim preferences As AcadPreferences
    Dim currSupportPath As String
    Dim newSupportPath As String
   
    Set preferences = ThisDrawing.Application.preferences
   
    currSupportPath = preferences.Files.SupportPath
   
    newSupportPath = "c:\;" + currSupportPath   '添加c:\
    preferences.Files = newSupportPath
End Sub

china-hz 发表于 2006-2-25 21:31:00

谢谢

china-hz 发表于 2006-2-25 21:50:00

加载没问题了，可是在卸载的时候，会把不想要卸载的也会卸掉，如何解决呢？

王咣生 发表于 2006-2-25 22:35:00

你要判断要删除哪个路径了,
哪个不想卸就留着啊.

china-hz 发表于 2006-2-26 09:58:00

请问如何卸载呢？比如要卸载刚才加载的"c:\"路径

查看完整版本: 菜单问题