(已解决)求解自加载和启动VBA工宏必须将该工程放到CAD的安装目录的问题

cczjw

用lisp自加载和启动VBA工程及宏，好象必须将该工程放到CAD的安装目录，这太落后了吧？！

有没有可将工程放任意目录的自启动工程及宏方法？高手们想想办法吧！！！

抱歉！我今天发现是我误解了（因几乎介绍自装载、启动VBA的说法都要求将工程文件放CAD安装目录，加上我在测试时用的目录路径中少用了反斜杠故不能正确运行，从而造成误解）。其实是可以放在任意目录的，只是注意在LISP中目录间的反斜杠要用两个：

 (command "_-vbaload" "D:\\ACAD\\HARNESS\\insconnector.dvb")

caiqs

启动组

fjfhgdwfn

在加载工程时，LSP中请输入完整路径就可以了

cczjw

lisp写入路径没问题，但加载后再运行时它仍到CAD安装目录中去找该工程。所以不行。

抱歉！上一句是我记错了：写入路径后就不能加载！

fjfhgdwfn

你加载后还要找什么工程啊

再不行你就把你的工程目录加到CAD支持文件夹中去。

cczjw

我就是不想将其放在本地盘上，希望在内网盘上共享。

home

可以另外写一段自动加载的程序，生成exe，放在压缩包中，直接运行这个exe就可以打开cad，并自动加载当前目录下的菜单文件。

On Error Resume Next

Set AcadApp = GetObject(, "AutoCAD.Application")

If Err Then
    Err.Clear
    Set AcadApp = CreateObject("AutoCAD.Application")
    If Err Then
        MsgBox "无法运行cad程序"
        Exit Sub
    End If
End If
If AcadApp.Preferences.Files.MenuFile = App.Path & "\acadc" Then
AcadApp.Visible = True
AcadApp.WindowState = acMax

Else
AcadApp.Preferences.Files.SupportPath = AcadApp.Preferences.Files.SupportPath & ";" & App.Path & "\CAD" & ";" & App.Path
AcadApp.Preferences.Files.MenuFile = App.Path & "\acadc"
AcadApp.Visible = True
AcadApp.WindowState = acMax

End If

cczjw

哦，多谢指教！！！

cczjw

已解决！见1楼。

wuyunpeng888

路径里的\\可以/代替