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

cczjw · 发表于 2009-2-12 23:48:00

用lisp自加载和启动VBA工程及宏，好象必须将该工程放到CAD的安装目录，这太落后了吧？！
有没有可将工程放任意目录的自启动工程及宏方法？高手们想想办法吧！！！
抱歉！我今天发现是我误解了（因几乎介绍自装载、启动VBA的说法都要求将工程文件放CAD安装目录，加上我在测试时用的目录路径中少用了反斜杠故不能正确运行，从而造成误解）。其实是可以放在任意目录的，只是注意在LISP中目录间的反斜杠要用两个：
(command "_-vbaload" "D:\\ACAD\\HARNESS\\insconnector.dvb")

caiqs · 发表于 2009-2-13 07:26:00

启动组

fjfhgdwfn · 发表于 2009-2-13 08:18:00

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

cczjw · 发表于 2009-2-13 12:37:00

lisp写入路径没问题，但加载后再运行时它仍到CAD安装目录中去找该工程。所以不行。
抱歉！上一句是我记错了：写入路径后就不能加载！

fjfhgdwfn · 发表于 2009-2-13 13:07:00

你加载后还要找什么工程啊
再不行你就把你的工程目录加到CAD支持文件夹中去。

cczjw · 发表于 2009-2-13 13:36:00

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

home · 发表于 2009-2-14 13:45:00

可以另外写一段自动加载的程序，生成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